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

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

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---