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


Листинг 13 9 Пример рисования прямых линий procedure TForm1 FormPaint(Sender TObject); begin



Листинг 13.9. Пример рисования прямых линий procedure TForm1.FormPaint(Sender: TObject); begin

with Canvas do begin
MoveTo(0, 0);
LineTo(ClientWidth, ClientHeight);
MoveTo(0, ClientHeight);
LineTo(ClientWidth, 0), end; end;

Результат выполнения примера изображен на Рисунок 13.3.



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


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