Delphi floodfill

tak uz mito de zmenil sem
Brush.Color:=clred;
Image1.Canvas.FloodFill(x+8, y+8, clblack, fsborder'

na

form1.Image1.Canvas.Brush.Color :=clred;
form1.Image1.Canvas.FloodFill(x+8,y+8,clb lack,fsborder);

tak uz bych jenom prosil ovysvetleni protoze vtom nevidim rozdil dekuji...

a tak to nejde uplne vybarvujeto porad cernou:(alehranice fuguji

Tvuj problem je v tom, ze mas obrazek v BMP a pouze cernobily. Jak chces do takove bitmapy malovat cervene ? Bud budes mit bitmapy napr. v 256 barvach - nedoporucuju, protoze y byly zbytecne velike, nebo pouzijes nejaky inteligentnejsi format (PNG) nebo si zmnis bitmapu na barevnou az v programu.

Tady je kod, ktery demonstruje 3. moznost:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('Drak.bmp');
  { zmenime si obrazek z cernobileho na barevny }
  Image1.Picture.Bitmap.PixelFormat := pf8bit;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Canvas.Brush.Color:=clred;
  Image1.Canvas.FloodFill(x+8, y+8, clBlack, fsBorder);
end;

Tady mas "naklikane" zdroje velmi jednoduchych omalovanek:
omalovanky.zip (1kB)

Sice trochu pozde ale pomohlo mito fakt diiiik