Grafik als screenshot

[bitsetter]

Hallo,

du hast jetzt praktisch gar nichts geändert denn  with paintbox1 do war sowieso umsonst. Dann lieber so:

Delphi-Quellcode:

procedure tform1.einfaerben(sender:TObject);
Var  farbe:tcolor;
x,y:integer;
begin
   with paintbox1.canvas do
   begin

Dein onPaint Ereignis hast du immer noch nicht abgeändert. Jedesmal wenn du floodfill() benutzt, wird 'DeutschUmriss.bmp' nach meiner Meinung immer wieder neu geladen. Daher kann ich nur auf meinen letzten Beitrag verweisen.
dein Code:

Delphi-Quellcode:

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
Bitmap1 := TBitmap.Create;
Bitmap1.LoadFromFile('DeutschUmriss.bmp');
PaintBox1.Canvas.Draw(0,0,Bitmap1);
Bitmap1.Free;
einfaerben(sender);
end;

Ich habe dir eine Demo angehängt, wo der gleiche Code von dir benutzt wird, jedoch anstatt der TPaintbox mit einem TImage. Beim TImage kannst du gleich auf den Canvas deines Bitmaps zeichnen.