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