Разработка компонентов в DELPHI. Вощинская Г.Э. - 44 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

property OnDragOver;
property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnStartDock;
property OnStartDrag;
end;
procedure Register;
implementation
// ɤɨɧɫɬɪɭɤɬɨɪ
constructor TGr.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
ControlStyle:= ControlStyle+[csReplicatable];
FX1:= –1;
FX2:=10;
FY1:= –1;
FY2:=10;
Fa:=1;
Left:=10;
Top:=10;
Width:=300;
Height:=200;
FPen:=TPen.Create;
FPen.OnChange:=StyleChanged;
FBrush:=TBrush.Create;
FBrush.OnChange:=StyleChanged;
end;
// ɭɫɬɚɧɨɜɤɚ ɤɨɨɪɞɢɧɚɬɵ x1
procedure TGr.SetX1(Value:real);
begin
44

Страницы