| Class TMoneyPanel (unit Moneybar) |
TCustompanel
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure Click;
procedure DrawPopupMark(x, y: Integer);
procedure Loaded;
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure Paint;
procedure AutoDestroy;
procedure AutoInitialize;
Procedure Set3D(value:boolean);
Procedure Setborder(value:boolean);
procedure SetColor(Value : Tcolor);
procedure SetDropDown(value: TPopupMenu);
procedure SetFBevelWidth(value:integer);
procedure SetFbitmap(Value : TBitmap);
procedure SetShadow(value:boolean);| Properties |
property Align :
property Alignment : Talignment
property BevelWidth : integer
property Border : boolean
property Caption :
property Color : Tcolor
property DropDownMenu : TPopupMenu
property Font :
property Font3D : boolean
property Pattern : TBitmap
property Shadow : boolean
property Visible : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
mx : integer;
my : integer;
F3D : boolean;
falignment : Talignment;
FBevelWidth : integer;
Fborder : boolean;
Fcolor : tcolor;
FDropDown : TPopupMenu;
FFbitmap : TBitmap;
FShadow : boolean;
TempB : tBitmap;| Constructors |
constructor Create(AOwner: TComponent);Public fields of TMoneyPanel } { Public methods of TMoneyPanel
| Functions |
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);| Properties |
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 : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
mx : integer;
my : integer;
F3D : boolean;
falignment : Talignment;
FBevelWidth : integer;
Fborder : boolean;
Fcolor : tcolor;
FDropDown : TPopupMenu;
FFbitmap : TBitmap;
FShadow : boolean;
TempB : tBitmap;