Пример рисования прямых линий 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
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий