| Class TPGCaptionBarSystemButton (unit PGDsgFrm) |
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
procedure InitializePropertiesAtCreation;
procedure AfterLoaded;
procedure Click;
procedure DblClick;
destructor Destroy;
function GetNextSystemButtonKind: TPGSystemButtonKind;
function GetSystemGlyphResourceName: string;
function GetSystemMenu: TPopupMenu;
function LoadSystemGlyph(const AKind: TPGSystemButtonKind): Boolean;
procedure LoadSystemMenuGlyph(ABmp: TBitmap);
function LoadSystemPreferences(const AKind: TPGSystemButtonKind): Boolean;
function NextKind(AKind: TPGSystemButtonKind): TPGSystemButtonKind;
procedure Paint(ARect: TRect);
procedure SetKind(Value: TPGSystemButtonKind);
procedure SetStyle(Value: TPGSystemButtonStyle);
function ShouldDrawWin95StyleControls: Boolean;
function ShouldShowPopup: Boolean;
function ShouldWaitForDoubleClick: Boolean;
procedure ShowPopup;
procedure SystemMenuClick(Sender: TObject);| Properties |
property Align :
property HorzGap :
property Kind : TPGSystemButtonKind
property Layout :
property PopupMenu :
property Spacing :
property Style : TPGSystemButtonStyle
property Transparent :
property TransparentColor :
property Visible : | Events |
| Variables |
FKind : TPGSystemButtonKind;
FStyle : TPGSystemButtonStyle;
SystemMenu : TPopupMenu;| Constructors |
constructor Create(AOwner:TComponent);| Functions |
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);| Properties |
property Align :
property HorzGap :
property Kind : TPGSystemButtonKind
property Layout :
property PopupMenu :
property Spacing :
property Style : TPGSystemButtonStyle
property Transparent :
property TransparentColor :
property Visible : | Events |
| Variables |
FKind : TPGSystemButtonKind;
FStyle : TPGSystemButtonStyle;
SystemMenu : TPopupMenu;