Einzelnen Beitrag anzeigen

Benutzerbild von Mao
Mao

Registriert seit: 4. Dez 2006
Ort: Dresden
75 Beiträge
 
Turbo Delphi für Win32
 
#1

Auf Canvas wird erst beim 2. mal gezeichnet

  Alt 7. Okt 2007, 21:25
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.
Angehängte Dateien
Dateityp: zip example_165.zip (198,6 KB, 6x aufgerufen)
  Mit Zitat antworten Zitat