delphi minipaint

[lillydodo]

Hi!

Ich muss für Info ein Minipaint_Programm schreiben, aber mein Pen malt nicht, könnt ihr mir weiterhelfen?
Das ist mein Quelltext bisher:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
form1.Canvas.lineTo(x,y);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if FormMouseDown=true
then form1.canvas.pen.lineto(x,y);
end;

[Florian H]

im MouseDown würde ich ein Moveto anstatt des LineTos machen - soll ja schließlich wohl eher da die neue Linie ansetzen und nicht eine Linie nach dort hinzeichnen (ggf. die OnlineHilfe zum Thema Moveto und Lineto befragen).

Und was soll FormMouseDown darstellen?
Wenns ne von dir definierte bool-Variable ist, solltest du die im OnMousedown auch noch auf true setzen (und im OnMouseUp natürlich auch wieder auf false).

grüße

[Dirkmswt]

Warum schaust du dir nicht einfach mal das Demo an wo bei Delphi dabei ist :-D
Auf der Basisi dieses Demos kannst du schonmal mehr als nur einen Strich zeichnen.
Z.B kannst du auch so ähnlich wie in Fotoshop folowlines etc Proggen was damit auch sehr einfach geht :thumb:
Ich hab damit vor ewigkeiten mal gearbeitet und es war recht gut was damit alles geht.
Bei Swissdelphicenter bekommst auch weitere Beispiele wie du Sprühdosen nachahmen kannst usw.
Mit sowas kannst deinen Lehrer beeindrucken Garantiert :wink:
Gruß Dirk