Auf Canvas wird erst beim 2. mal gezeichnet

[Mao]

Hallo DP,

lange hab ich keine Frage mehr gehabt - hatte halt auch mal keine Probleme.

Ich habe ein eigenes kleines Control, abgeleitet von TPaintBox, erstellt und dem eine Methode verpasst, um auf dessen Canvas rumzuzeichnen. (Mittels FillRect.)
Vorher wird Color noch auf schwarz gesetzt.

Das Control erstell ich dynamisch erzeugt, das Objekt(?) ist eine globale Variable in main.pas.
Im OnClick-Event eines Buttons ruf ich eine Procedure des Controls auf, (oben beschriebene) die auf dem Canvas rumzeichnet.
Allerdings seh ich erst beim 2. Draufklicken etwas. Und wenn ich zweimal nacheinander die Procedure aufrufen will, gibt's trotzdem keine Veränderung. Nur beim 2. Button-Click passierts. Gleiches wie wenn ich den Code innerhalb der Procedure 2x ausführen lasse.

Ich hab ein Beispielprojekt angehangen.

Ich hoffe, jemand kann mir helfen!

Bis bald,
Mao

/edit:
Falls dies relevant sein sollte, das Projekt wurde mit D6 erstellt und getestet.

[Muetze1]

Du weist der Eigenschaft Color eine Farbe zu. Dies ist die Eigenschaft von TPaintBox und die hat diese nur geerbt von TControl. Und diese Eigenschaft wird von niemanden genutzt. Wenn du eine Farbe festlegen willst, welche FillRect nutzt, dann weise eine Farbe z.B. Canvas.Brush.Color zu.

[Mao]

Oh. Danke!

(Aber warum funktionierte das Ganze dann beim 2. Klick?)

[Muetze1]

weil im richtigen Paint der Paintbox (welches ja ausgelöst wird durch die WM_PAINT Botschaften von Windows) und/oder der Basis-Paint Routine aus TControl, wird die Farbe von der Color Eigenschaft übernommen. Nach dem das Paint einmalig ordentlich durchlaufen war, ist der Brush vom dieser Aktion auf den Wert gesetzt...