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)