Class TMoneyPanel (unit Moneybar)

Inherits from

TCustompanel

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.

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;



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;