Zeichenstile einstellen (TImage oder TPaintBox)

[Harry]

Hallo,

im OnShow-Event des TForms setze ich die Zeichenstile für ein TImage darin:

Code: Alles auswählen

procedure TForm1.FormShow(Sender: TObject);
begin
  Image1.Canvas.Brush.Color := clYellow;
  Image1.Canvas.Brush.Style := bsSolid;
end;

Wenn ich allerdings im OnPaint-Event des TImage etwas zeichne, dann werden nicht die hier gesetzten Stile benutzt, sondern die Standardeinstellungen. Irgendwo dazwischen müssen diese also wieder zurückgesetzt werden.

Kann man irgendwo die Zeichenstile für ein TImage (oder für das Bitmap darin oder auch für eine TPaintBox) die Zeichenstile vorher einstellen, sodass sie nicht jedes Mal im OnPaint-Event aufs Neue gesetzt werden müssen?

Harry

[theo]

K.A, warum das zurückgesetzt wird, aber setze sie doch einfach in OnPaint. Die Aktion ist äusserst "billig" und es lohnt nicht, sich über deren Performance Gedanken zu machen.

[KOBOLD Messring GmbH]

Ich meine es gibt noch so ein "zwischengeschaltetes" Event OnPrepareCanvas, welches vor jedem Zeichnen aufgerufen wird. Wenn da nicht explicit etwas gesetzt wird, werden Standardeinstellungen verwendet (d.h. Deine Einstellungen von OnShow verworfen). Aber generell gehören Deine Einstellungen in OnPaint, unmittelbar davor, wo sie Verwendung finden.

[pluto]

eignetilch wird zum zeichnen nur onPaint aufgerufen. Sonst nichts. Es sei denn es ist eine spiecelle Komponente wie z.b. die TListbox... Aber bei einer PB oder TImage eigentlich nicht.