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

UptoLike

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

Рубрика:

procedure SetA(Value:real); //ɭɫɬɚɧɨɜɤɚ ɤɨɷɮɮɢɰɢɟɧɬɚ a

procedure SetBrush(Value:TBrush); //ɭɫɬɚɧɨɜɤɚ ɤɢɫɬɢ

procedure SetPen(Value:TPen); //ɭɫɬɚɧɨɜɤɚ ɩɟɪɚ

protected

{ Protected declarations }

public

{ Public declarations }

constructor Create(AOwner:TComponent);override;

destructor Destroy;override;

procedure Paint;override;//ɩɟɪɟɪɢɫɨɜɤɚ

published

procedure StyleChanged(Sender: TObject); dynamic;

//ɩɭɛɥɢɤɭɟɦɵɟ ɫɜɨɣɫɬɜɚ: ɧɚɫɥɟɞɭɟɦɵɟ

property Align;

property Anchors;

property DragCursor;

property DragKind;

property DragMode;

property Enabled;

property Constraints;

property ParentShowHint;

property ShowHint;

property Visible;

//ɩɭɛɥɢɤɭɟɦɵɟ ɫɜɨɣɫɬɜɚ: ɫɨɛɫɬɜɟɧɧɵɟ

property Pen:TPen read FPen write SetPen

property Brush:TBrush read FBrush write SetBrush;

property x1:real read FX1 write SetX1;

property x2:real read FX2 write SetX2;

property Y1:real read FY1 write SetY1;

property Y2:real read FY2 write SetY2;

property A:real read FA write SetA;

//ɩɭɛɥɢɤɭɟɦɵɟ ɧɚɫɥɟɞɭɟɦɵɟ ɫɨɛɵɬɢɹ

property OnDragDrop;