Class TPGCaptionBarSystemButton (unit PGDsgFrm)

Inherits from

TPGCaptionBarButtonBase

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.

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;



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;