Zeichenfunktion von MS Paint

Marco D. · Verfasst: Fr 28.07.06 16:25

Ich versuche, die Zeichenfunktion von mspaint.exe nachzuprogrammieren. Man öffnet Paint, der 'Stift' ist aktiviert und man malt beliebige Dinge. Das wollte ich selber machen.
Ich benutze ein Image und im OnMouseDown und OnMouseMove verändere ich die Farbe:

markieren

Delphi-Quelltext

1:	image1.canvas.pixels[X,Y] := AColor;

Geht auch, nur ist die Perfomance schlecht. In Paint sind durchgezogene Linien und bei mir sind ab und zu mal Pixel weiß geblieben, d.h. das Programm kommt mit den Zeichnen nicht nach. Woran liegt so etwas? Wie kann man das lösen?

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Mit Canvas.MoveTo und Canvas.LineTo vielleicht?

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Marco D. · Verfasst: Fr 28.07.06 16:55

Born-to-Frag hat folgendes geschrieben:

Mit Canvas.MoveTo und Canvas.LineTo vielleicht?

Und was machst du wenn der Benutzer nur einmal klickt?

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Dann kommt ein Punkt.. im OnMouseUp einfach nochmal LineTo und bei OnMouseDown MoveTo

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Marco D. · Verfasst: Fr 28.07.06 17:03

Born-to-Frag hat folgendes geschrieben:

Dann kommt ein Punkt.. im OnMouseUp einfach nochmal LineTo und bei OnMouseDown MoveTo

Hm, ich weiß nicht so recht wie du das meinst :?!?:

Marco D. · Verfasst: Fr 28.07.06 17:10

Hab ne Idee und probiere sie aus.

Marco D. · Verfasst: Fr 28.07.06 17:20

Es funzt

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

//OnMouseMove 
 LineTo(X,Y);
 MoveTo(X,Y);
//OnMouseDowm
  MoveTo(x,y);
  Pixels[X,Y] := AColor;

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

pixels brauchst du dann aber nicht mehr

EDIT: Bei on MouseMove brauchst du auch kein MoveTo mehr, das macht LineTo schon...

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Marco D. · Verfasst: Fr 28.07.06 22:02

Born-to-Frag hat folgendes geschrieben:

pixels brauchst du dann aber nicht mehr

Doch, sonst kann man keinen einzlnen Punkt setzen.

Born-to-Frag hat folgendes geschrieben:

EDIT: Bei on MouseMove brauchst du auch kein MoveTo mehr, das macht LineTo schon...

Ok, hast recht.

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Marco D. hat folgendes geschrieben:

Born-to-Frag hat folgendes geschrieben:

pixels brauchst du dann aber nicht mehr

Doch, sonst kann man keinen einzlnen Punkt setzen.

Da haste Recht, aber ein simples LineTo(X, Y) im OnMouseUp-Event tuts auch

Das ist warscheinlich performantisch besser als immer wieder Pixels[X, Y] noch mal zusätzlich aufzurufen

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme