Hallo Harry,
erst mal danke, ich hab's jetzt noch ein bisschen anpassen müssen,
Code:
canvas.BeginScene;
canvas.Fill.Color := MainForm.EvenRowColor;
canvas.FillRect(Arect, 1,1, AllCorners,1);
Canvas.Font.Family := Fontname; (weil ich doch den Font anpassen muss)
Canvas.Font.Style := FontStyle;
Canvas.Font.Size := FontSize;
canvas.Fill.Color := FontColor;
canvas.FillText (ARect, TText (Sender).Text, True, 1, [], TTextAlign.Center, TTextAlign.Center);
canvas.EndScene;
und was soll ich sagen, es läuft ... zumindest bis ich die Fonteinstellungen wechsle.
dann bin ich wieder soweit wie bisher.
Für den Fall 1 läuft es, für Fall 2-6 nicht. Wieder zurück auf Fall 1 geht wieder.
Bei Fall 1..6 handelt es sich nur um verschiedene Texte, bzw. Font-Einstellungen.
Beispiel Fall 1: Text = 'Hallo Welt', Font=Arial, Size=24, Style=[], ... usw., eigentlich nichts dramatisches.
und gleich nochmal danke, in der Zwischenzeit hast du ja gleich nochmal geantwortet. jep, ein Teil des Fauxpas ist mir aufgefallen.
Der wirklich wichtige (canvas.Fill.Color := Color
vor jedem Schritt der zeichnet aber nicht. Danke auch hierfür