Malen mit Canvas Rückgängig machen ?

[Cuchulainn]

Was steht denn in Label0?

[Neutral General]

Code:

Label10.Caption := '$00010101';

(Beispiel)

[Cuchulainn]

Lies dir mal die Hilfe zu TColor durch. Vielleicht hilft dir das. Das ist der Typ, den du FloodFill übergeben musst.

[Neutral General]

OK aber wenn ich ja einfach nur

Code:

Canvas.FloodFill(X,Y+48,$00010101,fsBorder);

eingebe funktioniert es ja !

[Cuchulainn]

Vielleicht darfst du kein StrToInt verwenden. Aber ich wüsste jetzt auch keine bessere Möglichkeit.

[Cuchulainn]

Ich habe gerade mal experimentiert. Mit StrToInt wird deine Hexadezimalzahl automatisch in eine Dezimalzahl uzmgewandelt. Wie ich erwartet habe. Du müsstest dir also eine Funktion bauen, der du die Dezimalzahl übergibst, die das Ding in Hexadezimal umwandelt und diese zurückgibt. Und die Funktion müsstest du dann im Übergabebereich von FloodFill aufrufen.

Du könntest dir auch die Hexadezimalzahl zusammensetzen, indem du die drei Teile, also die Intensität von Rot, Blau und Grün, angibst. Da hilft dir vielleicht die Hilfe zu TColor weiter.

[XeRo]

Ich hab mir jetzt nicht alle antowrten durchgelesen, aber was ist wenn du bevor du etwas neues zeichnest einen screenshot von der momentanen zeichnung nimmst und dann bei "rückgängig" einfach darüberzeichnest?

[axelf98]

Schau dir mal Stringtocolor an!

[Neutral General]

Danke !! StringToColor bringts !
Es klappt

[Neutral General]

O man bin ich blöd !

Ich lese einfach im MouseMove Ereignis die Farbe des Pixels auf dem sich die Mause befindet :

Code:

var Farbe : TColor;
Farbe := Canvas.Pixels[X,Y];

und dann mache ich FloodFill mit dem Parameter fsSurface, und gebe Farbe als Color an :

Code:

Canvas.FloodFill(X,Y+48,Farbe,fsSurface);

Und jetzt füllt Delphi nur die Farbe wo ich mit dem Mauszeiger bin ! Dann ignoriert er alle anderen Farben ! Wie in Paint !