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 !