Jak należy zaprogramować komponent Image. Mianowicie jakich procedur mam użyć(chodzi o kod programu) żeby móc coś narysować??
Do rysowania po komponencie Image trzeba wykorzystać właściwość Canvas.
Poniżej mały przykład: poruszanie myszką przy wciśniętym lewym klawiszu rysuje czerwoną linię, a wciśnięcie prawego klawisza myszki wypełnia na niebiesko obszar ograniczony kolorem czerwonym.
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then Image1.Canvas.LineTo(X, Y);
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then begin
Image1.Canvas.Pen.Color:= clRed;
Image1.Canvas.Pen.Width:= 5;
Image1.Canvas.MoveTo(X, Y);
end
else if ssRight in Shift then begin
Image1.Canvas.Brush.Color:= clBlue;
Image1.Canvas.FloodFill(X, Y, clRed, fsBorder);
end;
end;
Poczytaj w pomocy Delphi o TCanvas , a znajdziesz dużo więcej możliwości.