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


         

Пример рисования прямых линий 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.



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