Class TPGCaptionBarSystemButton (unit PGDsgFrm) |
Inherits from
TPGCaptionBarButtonBase
constructor Create(AOwner:TComponent);
procedure InitializePropertiesAtCreation;
TPGCaptionBarSystemButton
procedure AfterLoaded;
procedure Click;
Now we can create the system menu with it's menu items in their correct states.
procedure DblClick;
destructor Destroy;
function GetNextSystemButtonKind: TPGSystemButtonKind;
function GetSystemGlyphResourceName: string;
function GetSystemMenu: TPopupMenu;
function LoadSystemGlyph(const AKind: TPGSystemButtonKind): Boolean;
Copy a scaled down version of the icon onto the glyph.
procedure LoadSystemMenuGlyph(ABmp: TBitmap);
Make sure we use the graphics for whichever version of Windows } { that the user is running.
function LoadSystemPreferences(const AKind: TPGSystemButtonKind): Boolean;
function NextKind(AKind: TPGSystemButtonKind): TPGSystemButtonKind;
procedure Paint(ARect: TRect);
procedure SetKind(Value: TPGSystemButtonKind);
If this button is a system menu button under Win95 that is not } { owner drawn, we have to get the glyph from Form or the application } { instance.
procedure SetStyle(Value: TPGSystemButtonStyle);
function ShouldDrawWin95StyleControls: Boolean;
Figure out which graphic to load.
function ShouldShowPopup: Boolean;
function ShouldWaitForDoubleClick: Boolean;
Figure out which graphic to load.
procedure ShowPopup;
procedure SystemMenuClick(Sender: TObject);
property Align :
property HorzGap :
property Kind : TPGSystemButtonKind
property Layout :
property PopupMenu :
property Spacing :
property Style : TPGSystemButtonStyle
property Transparent :
property TransparentColor :
property Visible :
FKind : TPGSystemButtonKind;
FStyle : TPGSystemButtonStyle;
SystemMenu : TPopupMenu;
constructor Create(AOwner:TComponent);
procedure InitializePropertiesAtCreation;
TPGCaptionBarSystemButton
procedure AfterLoaded;
procedure Click;
Now we can create the system menu with it's menu items in their correct states.
procedure DblClick;
destructor Destroy;
function GetNextSystemButtonKind: TPGSystemButtonKind;
function GetSystemGlyphResourceName: string;
function GetSystemMenu: TPopupMenu;
function LoadSystemGlyph(const AKind: TPGSystemButtonKind): Boolean;
Copy a scaled down version of the icon onto the glyph.
procedure LoadSystemMenuGlyph(ABmp: TBitmap);
Make sure we use the graphics for whichever version of Windows } { that the user is running.
function LoadSystemPreferences(const AKind: TPGSystemButtonKind): Boolean;
function NextKind(AKind: TPGSystemButtonKind): TPGSystemButtonKind;
procedure Paint(ARect: TRect);
procedure SetKind(Value: TPGSystemButtonKind);
If this button is a system menu button under Win95 that is not } { owner drawn, we have to get the glyph from Form or the application } { instance. Go get the glyph now.
procedure SetStyle(Value: TPGSystemButtonStyle);
function ShouldDrawWin95StyleControls: Boolean;
Figure out which graphic to load.
function ShouldShowPopup: Boolean;
function ShouldWaitForDoubleClick: Boolean;
Figure out which graphic to load.
procedure ShowPopup;
procedure SystemMenuClick(Sender: TObject);
property Align :
property HorzGap :
property Kind : TPGSystemButtonKind
property Layout :
property PopupMenu :
property Spacing :
property Style : TPGSystemButtonStyle
property Transparent :
property TransparentColor :
property Visible :
FKind : TPGSystemButtonKind;
FStyle : TPGSystemButtonStyle;
SystemMenu : TPopupMenu;