[Overview][Types][Classes][Procedures and functions][Variables][Index] |
[Properties (by Name)] [Methods (by Name)] [Events (by Name)]
TCustomBitBtn - the ancestor class for TBitBtn.
Source position: buttons.pp line 136
type TCustomBitBtn = class(TCustomButton) |
||
protected |
||
|
FButtonGlyph - local variable holding the Glyph for this button |
|
procedure ActionChange(); override; |
|
ActionChange - Change the action associated with this BitButton |
procedure GlyphChanged(); |
|
What to do if the Glyph has been changed |
procedure InitializeWnd; override; |
|
InitializeWnd - initialise the window for this control |
procedure TextChanged; override; |
|
Procedure to deal with changes in text |
function GetControlClassDefaultSize; override; |
|
Find the default size for this class of controls (by reference to parents) |
public |
||
constructor Create(); override; |
||
destructor Destroy; override; |
||
procedure Click; override; |
|
Click - a procedure that allows the programmer to simulate a mouse click over the control, and initiates the same Action as that associated with the OnClick event |
procedure LoadGlyphFromLazarusResource(); |
|
LoadGlyphFromLazarusResource - method for loading the glyph from a Lazarus resource file (.lrs) |
|
The BitMap Glyph to be displayed on the button |
|
property NumGlyphs: Integer; [rw] |
|
The number of glyphs for display |
property Kind: TBitBtnKind; [rw] |
|
What kind of BitButton? Custom, OK, Cancel, Yes, No etc |
property Layout: TButtonLayout; [rw] |
|
Layout of button - Glyph at top, bottom, left or right |
property Margin: Integer; [rw] |
|
The margin to be left around glyphs |
property Spacing: Integer; [rw] |
|
The spacing around the BitButton |
end; |
|
TCustomBitBtn - the ancestor class for TBitBtn. |
|
| | ||
TCustomButton |
||
? | ||
TObject |
TCustomBitBtn is the ancestor for TBitBtn. If you want to define your own bitbutton class, you should use this class to derive it from.