Einzelnen Beitrag anzeigen

Benutzerbild von Steve
Steve

Registriert seit: 2. Mär 2004
Ort: Würzburg
730 Beiträge
 
Delphi 2006 Personal
 
#8

Re: Zeichenprogramm erstellen: wie die Linien zeichnen?

  Alt 27. Dez 2004, 12:42
Hi,

gib Deinem Form ne Boolsche Variable z.B. MouseIsDown, setz diese im OnMouseDown auf True, im OnMouseUp auf False. Im OnMouseDown gehst Du mit Delphi-Referenz durchsuchenTCanvas.MoveTo noch auf den "Startpunkt", im OnMouseMove wird mit Delphi-Referenz durchsuchenTCanvas.LineTo ne Linie gezeichnet, falls MouseIsDown=true ist.

Gruß
Stephan
Stephan B.
Wer andern eine Grube gräbt ist Bauarbeiter!
Wer im Glashaus sitzt, sollte sich lieber im Dunkeln ausziehen!
Außerdem dieser Satz kein Verb...
  Mit Zitat antworten Zitat