Registriert seit: 13. Feb 2004
1.113 Beiträge
Delphi XE2 Professional
|
Re: farbige Linien zeichen in Paintbox
15. Jun 2007, 16:04
Für den ersten Teil hast du die Lösung ja schon. Das mit dem zweiten Teil wird schon komplizierter.
Beim MouseDown musst du dir merken, dass jetzt die Maustaste gedrückt wurde (boolean Variable). Dann über Mausmove jeweils das Delta ausrechnen und verschieben (wenn deine Variable true ist, ansonsten brauchste ja nichts zu machen). Beim MouseUp dann deine Boolean Variable wieder auf false setzen.
Entweder zeichnest du ganz am Ende den Inhalt der Paintbox neu oder noch während dem verschieben.
|