Иллюстрированный самоучитель по Kylix


         

Пример рисования линии



Листинг 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;

Пользователь не будет видеть линию, пока не отпустит кнопку мыши.



Содержание Назад Вперед