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

Events

OnShowDialog : TNotifyEvent= procedure (Sender : TObject) of Object

This event is triggered when the dialog is displayed. It can be used to modify the dialog. Example:
 
    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
   with Sender as TForm do
   begin
        if Tag=0 then ScaleForPPI(200);
        Tag := 1;  // Make sure ScaleForPPI is only called once
   end;
   
>> >