Ultimate Page Control Suite™ Win32 | Delphi™ | C++Builder™

TWinControl

TADVANCE_Page

TADVANCE_Page_MainComposite

TADVANCE_Page_MainDataMaster

TADVANCE_Page_PagedTools

TADVANCE_Page_RelatedAndStatus

End user page classes derive from TADVANCE_Page, and belong to the right-most column of the TADVANCE_Page class tree. Suffix expressions indicate the PMInterfaces which deploy each TADVANCE_Page descendant.

property OnContextPopup;
__property OnContextPopup;

property OnDefocus : TNotifyEvent read FOnDefocus write FOnDefocus;
__property Classes::TNotifyEvent OnDefocus = {read=FOnDefocus, write=FOnDefocus};

Called when focus is released. Also see OnFocus, below.

property OnDragDrop;
__property OnDragDrop;

property OnDragOver;
__property OnDragOver;

property OnEndDrag;
__property OnEndDrag;

property OnEnter;
__property OnEnter;

property OnExit;
__property OnExit;

property OnFocus : TNotifyEvent read FOnFocus write FOnFocus;
__property Classes::TNotifyEvent OnFocus = {read=FOnFocus, write=FOnFocus};

Called when the page is focused. Also see OnDefocus, above.

property OnMouseDown;
__property OnMouseDown;

property OnMouseMove;
__property OnMouseMove;

property OnMouseUp;
__property OnMouseUp;

property OnResize;
__property OnResize;

property OnStartDrag;
__property OnStartDrag;

property BiDiMode;
__property BiDiMode;

property Color;
__property Color = {default=-16777211};

If ParentColor = True, pages inherit the color prescribed by the ColorScheme.

property DockSite;
__property DockSite = {default=0};

property DragCursor;
__property DragCursor = {default=-12};

property DragKind;
__property DragKind = {default=0};

property DragMode;
__property DragMode = {default=0};

property Enabled;
__property Enabled = {default=1};

property Font;
__property Font;

property Hint;
__property Hint;

property MasterToolbar_ButtonsEnabled : TADVANCE_MasterToolbar_Set read FMasterToolbar_ButtonsEnabled write SetMasterToolbar_ButtonsEnabled default [MT_ConfirmREFRESH..MT_RECONNECT];
__property TADVANCE_MasterToolbar_Set MasterToolbar_ButtonsEnabled = {read=FMasterToolbar_ButtonsEnabled, write=SetMasterToolbar_ButtonsEnabled, default=262143};

TADVANCE_MasterToolbar_EnumeratedType = (MT_ConfirmREFRESH, MT_FINDSQL, MT_FIND, MT_FIRST, MT_PRIOR, MT_NEXT, MT_LAST, MT_ConfirmDELETE, MT_ADD, MT_CLONE, MT_RESTOREToOriginal, MT_UNDO, MT_REDO, MT_TentativeACCEPT, MT_ConfirmCANCEL, MT_OKPOST, MT_HELP, MT_RECONNECT);

enum TADVANCE_MasterToolbar_EnumeratedType { MT_ConfirmREFRESH, MT_FINDSQL, MT_FIND, MT_FIRST, MT_PRIOR, MT_NEXT, MT_LAST, MT_ConfirmDELETE, MT_ADD, MT_CLONE, MT_RESTOREToOriginal, MT_UNDO, MT_REDO, MT_TentativeACCEPT, MT_ConfirmCANCEL, MT_OKPOST, MT_HELP, MT_RECONNECT };

TADVANCE_MasterToolbar_Set = set of TADVANCE_MasterToolbar_EnumeratedType;
typedef Set<TADVANCE_MasterToolbar_EnumeratedType, MT_ConfirmREFRESH, MT_RECONNECT> TADVANCE_MasterToolbar_Set;

Prescribes the enabled buttons of the MasterToolbar™ when the page is focused and MasterToolbar.ConnectedToServer is True. See the Guideline for Controlling Visible and Enabled Buttons for related information.

TComponent

TADVANCE_IObj_Navigation

property CanFocus: Boolean read FCanFocus write SetCanFocus;
__property bool CanFocus = {read=FCanFocus, write=SetCanFocus, nodefault};

If True, and if NavWinCanDisplay is True, the page can be focused by secure page navigation methods. If False, the PageNavigationButton is disabled in the Navigation Window. See How Page Security is Treated by Navigation Methods and the Navigation Window for further information.

property Caption: String read FCaption write SetCaption;
__property AnsiString Caption = {read=FCaption, write=SetCaption};

PageNavigationButton.Caption. Also displayed in the FocusControl™.

property Glyph: TBitmap read GetGlyph write SetGlyph;
__property Graphics::TBitmap* Glyph = {read=GetGlyph, write=SetGlyph};

PageNavigationButton.Glyph.

DELPHI EXAMPLE — ASSIGNING GLYPHS AT RUN TIME

procedure TForm1.SpeedButton_AddAndFocusLastPageClick(Sender: TObject); var ReturnedIndex : integer; TEMPGlyph : TBitmap; TEMPLabel : TLabel; begin TEMPGlyph := TBitmap.Create; TEMPGlyph.LoadFromResourceName( HImages, 'R2CLPLIM' ); ReturnedIndex := T1.PM1_Main.AddPageAt(T1.PM1_Main.PageCount, True, gwPrec); // EQUIVALENT TO APPEND. if T1.PM1_Main.Pages[ReturnedIndex] is TADVANCE_Page then with TADVANCE_Page(T1.PM1_Main.Pages[ReturnedIndex]).Navigation do begin Glyph := TempGlyph; NumGlyphs := 2; TEMPLabel := TMyLabel.Create(Self); TEMPLabel.Caption := 'TADVANCE_Page_MainDataMaster '#151#32 + TADVANCE_Page(T1.PM1_Main.Pages[ReturnedIndex]).Name; TEMPLabel.Parent := TADVANCE_Page(T1.PM1_Main.Pages[ReturnedIndex]); end; end;

C++ EXAMPLE — ASSIGNING GLYPHS AT RUN TIME

void __fastcall TForm1 :: SpeedButton_AddAndFocusLastPageClick(TObject * Sender) { Graphics :: TBitmap * TEMPGlyph = new Graphics :: TBitmap; TEMPGlyph->LoadFromResourceName(((unsigned int)HImages), "R2CLPLIM"); signed int ReturnedIndex = T1->PM1_Main->AddPageAt(T1.PM1_Main.PageCount, True, gwPrec); // EQUIVALENT TO APPEND. TADVANCE_Page * pPage = dynamic_cast <TADVANCE_Page *> (1->PM1_Main->Pages[ReturnedIndex]); if (pPage) { pPage->Navigation->Glyph = TEMPGlyph; pPage->Navigation->NumGlyphs = 2; TLabel * TEMPLabel = new TMyLabel(this); TEMPLabel->Caption = "TADVANCE_Page_MainDataMaster \x97 " + pPage->Name; TEMPLabel->Parent = T1->PM1_Main->Pages[ReturnedIndex]; } }

property Hint: String read GetHint write SetHint;
__property AnsiString Hint = {read=GetHint, write=SetHint};

PageNavigationButton.Hint.

property NavWinCanDisplay: Boolean read FNavWinCanDisplay write SetNavWinCanDisplay;
__property bool NavWinCanDisplay = {read=FNavWinCanDisplay, write=SetNavWinCanDisplay, nodefault};

If True, and if CanFocus is True, the page can be focused by secure page navigation methods. If False, the PageNavigationButton is not displayed in the Navigation Window. See How Page Security is Treated by Navigation Methods and the Navigation Window for further information.

property NumGlyphs: TNumGlyphs read GetNumGlyphs write SetNumGlyphs;
__property Buttons::TNumGlyphs NumGlyphs = {read=GetNumGlyphs, write=SetNumGlyphs, nodefault};

PageNavigationButton.NumGlyphs.

property PageGroup : TADVANCE_PageGroup_Item read GetPageGroup stored False;
__property TADVANCE_PageGroup_Item* PageGroup = {read=GetPageGroup, stored=false};

Read-only pointer to a PageGroup item. Properties of the PageGroup item can be edited from the page. Configure PageGroup membership in the FocusedPageIndex property editor of the PMInterface. See TADVANCE_PMInterface.PageGroups for related information.

property PageGroup_PID : Integer read FPageGroup_PID write SetPageGroup_PID;
__property int PageGroup_PID = {read=FPageGroup_PID, write=SetPageGroup_PID, nodefault};

PageGroup_PID is the PID ("Persistent ID") of a PageGroup™ item. A value of -1 is the equivalent of a nil reference (indicating no PageGroup membership).

property PageHeightOnFocusPage : Integer read FPageHeightOnFocusPage write SetPageHeightOnFocusPage default -1;
__property int PageHeightOnFocusPage = {read=FPageHeightOnFocusPage, write=SetPageHeightOnFocusPage, default=-1};

When a module is aligned alNone, alTop, or alBottom, and when PMInterface.RenderToPageHeightOnFocusPage is true, the PMInterface renders PageHeightOnFocusPage (intended page height) when the page is focused or when RenderToPageHeightOnFocusPage is set to true. A PageHeightOnFocusPage value of -1 exempts the page from this process, resulting in no adjustment of page height when the page is focused. See TADVANCE_PMInterface.PageParent_Height, and TADVANCE_PMInterface.RenderToPageHeightOnFocusPage, for related information.

property PageIndex : Integer read GetPageIndex write SetPageIndex stored False;
__property int PageIndex = {read=GetPageIndex, write=SetPageIndex, stored=false, nodefault};

Indicates the index position of the page within the Pages[] property of the PMInterface. To manipulate page order at design time, use the FocusedPageIndex property editor of the PMInterface. Order may be manipulated at run time by calling the Move method of the Pages (TList) property of the PMInterface. See TADVANCE_PMInterface.Pages[] for source examples.

property ParentColor : Boolean read FParentColor write SetParentColor default True;
__property bool ParentColor = {read=FParentColor, write=SetParentColor, default=1};

Must be true for the root module ColorScheme to regulate page Color.

property ParentFont;
__property ParentFont = {default=1};

Must be true for the Page.Font to be regulated by the root module Font.

property ParentBiDiMode;
__property ParentBiDiMode = {default=1};

property PopupMenu;
__property PopupMenu;

property ShowHintShowHint;
__property ShowHintShowHint;

property TabStop default True;
__property TabStop = {default=1};

TComponent

TADVANCE_IObj_Toolbar

Global Toolbar properties expedite development by allowing you to apply uniform configuration values to the entire Tools collection.

property Captions_Visible: Boolean read FCaptions_Visible write SetCaptions_Visible default False;
__property bool Captions_Visible = {read=FCaptions_Visible, write=SetCaptions_Visible, default=0};

PagedTool.Caption.Visible. Globally applied to the Tools collection.

property Font: TFont read FFont write SetFont;
__property Graphics::TFont* Font = {read=FFont, write=SetFont};

PagedTool.Font. Globally applied to the Tools collection.

property Layout: TButtonLayout read FLayout write SetLayout default blGlyphLeft;__property Buttons::TButtonLayout Layout = {read=FLayout, write=SetLayout, default=0};
__property Buttons::TButtonLayout Layout = {read=FLayout, write=SetLayout, default=0};

PagedTool.Layout. Globally applied to the Tools collection.

property Margin: Integer read FMargin write SetMargin default -1;
__property int Margin = {read=FMargin, write=SetMargin, default=-1};

PagedTool.Margin. Globally applied to the Tools collection when Captions_Visible is false. The default value (-1) results in centered glyphs.

property Margin_Captions_Visible: Integer read FMargin_Captions_Visible write SetMargin_Captions_Visible default 7;
__property int Margin_Captions_Visible = {read=FMargin_Captions_Visible, write=SetMargin_Captions_Visible, default=7};

PagedTool.Margin. Globally applied to the Tools collection when Captions_Visible is true. Where glyphs are a standard size, a value greater than -1 results in aligned glyphs and captions, or a more uniform appearance.

property ShowHint: Boolean read FShowHint write SetShowHint default True;
__property bool ShowHint = {read=FShowHint, write=SetShowHint, default=1};

PagedTool.ShowHint. Globally applied to the Tools collection.

property Spacing: Integer read FSpacing write SetSpacing default 4;
__property int Spacing = {read=FSpacing, write=SetSpacing, default=4};

PagedTool.Spacing (margin between glyph and caption). Globally applied to the Tools collection.

property ToolHeight: Integer read FToolHeight write SetToolHeight default 26;
__property int ToolHeight = {read=FToolHeight, write=SetToolHeight, default=26};

PagedTool.Height. Globally applied to the Tools collection when Captions_Visible is false.

property ToolHeight_Captions_Visible: Integer read FToolHeight_Captions_Visible write SetToolHeight_Captions_Visible default 26; // Min 24, Max 50.
__property int ToolHeight_Captions_Visible = {read=FToolHeight_Captions_Visible, write=SetToolHeight_Captions_Visible, default=26};

PagedTool.Height. Globally applied to the Tools collection when Captions_Visible is true.

property Tools: TADVANCE_PagedTools_Collection read FTools write FTools;
__property TADVANCE_PagedTools_Collection* Tools = {read=FTools, write=FTools};

Managed PagedTools collection. See TADVANCE_PagedTools_Collection and TADVANCE_PagedTools_Item for related information.

property ToolWidth: Integer read FToolWidth write SetToolWidth default 26;
__property int ToolWidth = {read=FToolWidth, write=SetToolWidth, default=26};

PagedTool.Width. Globally applied to the Tools collection when Captions_Visible is false.

property ToolWidth_Captions_Visible: Integer read FToolWidth_Captions_Visible write SetToolWidth_Captions_Visible default 80; // Min 24, Max 120.
__property int ToolWidth_Captions_Visible = {read=FToolWidth_Captions_Visible, write=SetToolWidth_Captions_Visible, default=80};

PagedTool.Width. Globally applied to the Tools collection when Captions_Visible is true.

property Transparent: Boolean read FTransparent write SetTransparent default True;
__property bool Transparent = {read=FTransparent, write=SetTransparent, default=1};

PagedTool.Transparent. Globally applied to the Tools collection.

C.03. HOW TO BUILD SUPERIOR PAGED, MULTIPLE WORKSPACE (PMW) APPLICATIONS

How to deploy custom page classes and custom UPC™ modules in minutes.