есть модуль:
Код:
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, а описать процедуру графич построения нужно в этом модуле и она зависит от поля
как реализовать данный момент?