Bart,
Programma aangepast zodat probleem beter zichtbaar wordt. Er treed nog een ander probleem op dat je om het zichtbaar te maken tweemaal de button moet aanklikken.
Code:
procedure TForm1.Button1Click(Sender: TObject);
Var
Str : String;
X : Integer;
I : Integer;
begin
X := 30;
Label1.Font.Size := 14;
Label1.AutoSize := false;
Label1.Height := 100;
Label1.Align := alBottom;
Str := 'abcdefghijklmnopqrstuvwxyz'; // dit gedeelte geeft het probleem van het niet laten zien van de letter 'i'
For I := 1 to Length(Str) do
Begin
Label1.Canvas.Brush.Color := clAqua;
Label1.Canvas.TextOut(X,30,Str[I]);
X := X + Label1.Canvas.TextWidth(Str[I]);
end;
X := 30;
Str := 'abcdefghijklmnopqrstuvwxyz';
For I := 1 to Length(Str) do
Begin
//Label1.Canvas.Brush.Color := clAqua;
Label1.Canvas.Brush.Style := bsClear; // <=== deze regel is noodzakelijk
Label1.Canvas.TextOut(X,60,Str[I]);
X := X + Label1.Canvas.TextWidth(Str[I]);
end;
end;
Bookmarks