farbige Linien zeichnen in Paintbox

[Chaismo]

Halihalo an alle!
Ich hab heute gleichmal 2 Fragen
1. Wie kann ich in einer TPaintBox die Farbe der zu zeichnenden Linie über moveto bzw. lineto festlegen?
geht das überhaupt oder wenn nicht mit was kann man denn das machen?
2. Wenn ich nun was in dieser TPaintbox gezeichnet habe möchte ich gern, wenn ich die Maus drücke, dass es dann verschoben wird. das klappt ja schonmal mit Onmousedown. Aber wie kann ich das dann noch abfragen ob sich die Maus dann auchnoch bewegt? Versteht ihr was ich meine? Weil wenn ich das über onmousemove mache dann kann ich ja auch irgendwie nicht abfragen ob die Maus gedrückt ist oder?
Schonmal Danke im voraus!

[edit=SirThornberry]Titel korrigiert - Mfg, SirThornberry[/edit]

[Adrian112]

Hallo,

die Farbe canst du so einstellen:

Delphi-Quellcode:

Canvas.Pen.Color := clGreen;
// Jetzt die LineTo Methode

oder

Delphi-Quellcode:

Canvas.Brush.Color := clRed;
Canvas.Retangle //...
// Es wird das Rechteck mit Farbe gefüllt

Hoffe es hilft dir

[Chaismo]

Ja klappt prima Danke für schnelle Antwort!

[mquadrat]

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.

[SirThornberry]

könntest du bitte für die 2te Frage einen neuen Thread auf machen? Sie hat nur sehr wenig mit der ersten zu tun (das einzig gleiche ist das du etwas mit bzw. innerhalb der paintbox anstellst).
Dies hat den Vorteil das du für die zweite Frage einen eigenen aussagekräftigen Titel vergeben kannst und somit andere mit dem gleichen Problem schneller etwas (nämlich diesen Beitrag) über die Suche finden.
Zudem bekommst du schneller Antworten weil leute die den Titel lesen und die Lösung wissen dein Thema lesen. Ist hingegen in dem Titel von was anderem die Rede wo man nicht die Lösung weiß bzw. nichts dazu schreiben will liest man in den meisten Fällen den Beitrag auch gar nicht erst.

Danke