|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Создание нового класса который должен отображаться графически
есть модуль:
Код:
unit Balka; interface uses SysUtils, Dialogs, Classes, StdCtrls, Graphics; type Tbalka=class private fdlina:real; fploshad:real; fshema:tcanvas; procedure setshema(value:tcanvas); published property dlina:real read fdlina write fdlina; property ploshad:real read fploshad write fploshad; property shema:tcanvas read fshema write setshema; end; implementation procedure setshema(value:tcanvas); var x1, y1, x2, y2:real; begin x1:=100; y1:=100; x2:=x1+fdlina; y2:=y1+20; value.Rectangle(x1, y1, x2, y2); end; end. Что нужно: - описать процедуру графического отображения здесь в модуле - значения полей буду определять в другом unit, а описать процедуру графич построения нужно в этом модуле и она зависит от поля как реализовать данный момент? |