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


Листинг 13 27 Пример рисования линии



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

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



Начало Назад Вперед


Книжный магазин