Class TWPCustomAttrDlg
Hierarchy
System.TObject | System.Classes.TPersistent | System.Classes.TComponent | TWPCustomAttrDlg
Subclasses
WP1Style.TWPOneStyleDlg | WPBltDlg.TWPBulletDlg | wpManHeadFoot.TWPManageHeaderFooterDlg | WpPagPrp.TWPPagePropDlg | WpParBrd.TWPParagraphBorderDlg | WpParBrd2.TWPParagraphBorderDlgEx | WPPrvFrm.TWPPreviewDlg | WPSearchDlg.TWPSearchReplaceDlg | Wpspdlg1.TWPSpellCheckDlg | WPStrDlg.TWPStringDlg | WPStyles.TWPStyleDlg | WPSymDlg.TWPSymbolDlg | WPSymDlgEx.TWPSymbolDlgEx | WPTabdlg.TWPTabDlg | WPTblDlg.TWPTableDlg
Description
Properties
Methods
Procedure ChangeApplied(aEditBox:TWPCustomRtfEdit)
Function Execute : Boolean
Function ExecuteAt(x:Integer; y:Integer; w:Integer; h:Integer; DefaultMonitor:TWPDefaultMonitor) : Boolean
Function ExecuteFor(WPRichText:TObject; Params:string) : Boolean
Function ExecuteParented(ParentHandle:HWND) : Boolean
Function Implements(id:Integer) : Boolean
Function Show : Boolean
Function ShowNearWindow(ParentHandle:HWND; Resize:Boolean) : Boolean
Events
OnShowDialog : TNotifyEvent= procedure (Sender : TObject) of Object
procedure TForm1.WPBulletDlg1ShowDialog(Sender: TObject);
begin
(Sender as TWPBulletDialog).TabSheet3.TabVisible := FALSE;
end;
Or you can move the dialog to the screen center:
procedure TForm1.WPSearchReplaceDlg1ShowDialog(Sender: TObject);
begin
with Sender as TForm do
begin
Left := (Screen.Width-Width) div 2;
Top := (Screen.Height-Height) div 2;
end;
end;
To scale the form according to a custom dpi use this c