Class TMoneyPanel (unit Moneybar) |
Inherits from
TCustompanel
constructor Create(AOwner: TComponent);
- Public fields of TMoneyPanel } { Public methods of TMoneyPanel
destructor Destroy;
procedure Click;
Override OnClick handler from TCustomPanel
procedure DrawPopupMark(x, y: Integer);
Code to perform other tasks when the container is created
procedure Loaded;
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure Paint;
Perform any component setup that depends on the property
values having been set
procedure AutoDestroy;
Method to free any objects created by AutoInitialize
procedure AutoInitialize;
Method to set variable and property values and create objects
Procedure Set3D(value:boolean);
Procedure Setborder(value:boolean);
of AutoDestroy
procedure SetColor(Value : Tcolor);
procedure SetDropDown(value: TPopupMenu);
of AutoInitialize } (*function TMoneyPanel.
procedure SetFBevelWidth(value:integer);
procedure SetFbitmap(Value : TBitmap);
Write method for property Fbitmap
procedure SetShadow(value:boolean);
property Align :
property Alignment : Talignment
property BevelWidth : integer
property Border : boolean
property Caption :
Published properties of the component
property Color : Tcolor
property DropDownMenu : TPopupMenu
property Font :
property Font3D : boolean
property Pattern : TBitmap
property Shadow : boolean
property Visible :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
mx : integer;
my : integer;
F3D : boolean;
falignment : Talignment;
FBevelWidth : integer;
Fborder : boolean;
Fcolor : tcolor;
FDropDown : TPopupMenu;
FFbitmap : TBitmap;
FShadow : boolean;
TempB : tBitmap;
constructor Create(AOwner: TComponent);
Public fields of TMoneyPanel } { Public methods of TMoneyPanel
destructor Destroy;
procedure Click;
Override OnClick handler from TCustomPanel
procedure DrawPopupMark(x, y: Integer);
Code to perform other tasks when the container is created
procedure Loaded;
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure Paint;
Perform any component setup that depends on the property
values having been set
procedure AutoDestroy;
Method to free any objects created by AutoInitialize
procedure AutoInitialize;
Method to set variable and property values and create objects
Procedure Set3D(value:boolean);
Procedure Setborder(value:boolean);
of AutoDestroy
procedure SetColor(Value : Tcolor);
procedure SetDropDown(value: TPopupMenu);
of AutoInitialize } (*function TMoneyPanel.GetPalette: HPALETTE;
begin
Result := 0; { default result is no palette }
Result := TBitmap(FFBitmap).Palette; { use it if available }
end;
procedure SetFBevelWidth(value:integer);
procedure SetFbitmap(Value : TBitmap);
Write method for property Fbitmap
procedure SetShadow(value:boolean);
property Align :
property Alignment : Talignment
property BevelWidth : integer
property Border : boolean
property Caption :
Published properties of the component
property Color : Tcolor
property DropDownMenu : TPopupMenu
property Font :
property Font3D : boolean
property Pattern : TBitmap
property Shadow : boolean
property Visible :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
mx : integer;
my : integer;
F3D : boolean;
falignment : Talignment;
FBevelWidth : integer;
Fborder : boolean;
Fcolor : tcolor;
FDropDown : TPopupMenu;
FFbitmap : TBitmap;
FShadow : boolean;
TempB : tBitmap;