Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Delphi floodfill

jj to sem kontroloval a vim na 100% ze je:( nic jineho te nenapada?
pripadne nejaky src?

//nactu img to de

procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image1.Picture.LoadFromFile('C:\Do cuments and settings\xxx\Plocha\DEPLHI\omalovanky\holcickacb.b mp');
end;
//atdy barvim az nato ze nebarvim:(
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Brush.Color:=clred;
Image1.Canvas. FloodFill(x+8,y+8,clblack,fsborder);

end;

Zkus priste oznacit kod a pouzit ikonku "Pas". Je to o neco citelnejsi... (JaFi)

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny