Hallo Harry,
grüß dich und vielen, vielen Dank.
Ich bin mir noch nicht ganz sicher, bin aber dran es zu verstehen
Code:
with PaintBox1.Canvas do
begin
BeginScene();
Stroke.Kind:= tBrushKind.Solid;
Fill.Color := TAlphaColorRec.Yellow;
FillRect(PaintBox1.BoundsRect, 1,1, AllCorners, 1);
[Font.Family := ComboBox1.Items[combobox1.ItemIndex];
Font.Size := SpinBox1.Value;
Font.Style := fFontStyle;
Fill.Color := FontColor;
FillText(PaintBox1.BoundsRect, 'Test', True, 1, [], TTextAlign.Center, TTextAlign.Center);
EndScene;
end;
ich denke, mein Fehler war wie folgt:
ich habe nicht immer eine Aktion komplett abgeschlossen sondern am Anfang alles zu einzustellen.
Fill.Color := TAlphaColorRec.Yellow;
FillRect(PaintBox1.BoundsRect, 1,1, AllCorners, 1);
Anhand deines Codes aber sehe ich, dass ich bei (FillRect / FillText / usw... jeweils Werte zuweisen, dann die Aktion ausführen muss.