Пример рисования линии
Листинг 13.27. Пример рисования линии
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Canvas.MoveTo(X, Y) ; { установка позиции пера } end;
procedure TForm1. FormMouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Canvas.LineTo(X, Y);
{ рисуем линию из координат PenPos в (X, Y) } end;
Пользователь не будет видеть линию, пока не отпустит кнопку мыши.
