scriptclasses_r.pas

源代码

procedure TWizardFormSelectProgramGroupPage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.SelectProgramGroupPage; end;
procedure TWizardFormSelectComponentsPage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.SelectComponentsPage; end;
procedure TWizardFormSelectDirPage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.SelectDirPage; end;
procedure TWizardFormUserInfoPage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.UserInfoPage; end;
procedure TWizardFormInfoBeforePage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.InfoBeforePage; end;
procedure TWizardFormPasswordPage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.PasswordPage; end;
procedure TWizardFormLicensePage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.LicensePage; end;
procedure TWizardFormFinishedPage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.FinishedPage; end;
procedure TWizardFormInnerPage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.InnerPage; end;
procedure TWizardFormWelcomePage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.WelcomePage; end;
procedure TWIZARDFORMDISKSPACELABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.DISKSPACELABEL; end;
procedure TWIZARDFORMDIREDIT_R(Self: TWIZARDFORM; var T: TEDIT); begin T := Self.DIREDIT; end;
procedure TWIZARDFORMGROUPEDIT_R(Self: TWIZARDFORM; var T: TEDIT); begin T := Self.GROUPEDIT; end;
procedure TWIZARDFORMNOICONSCHECK_R(Self: TWIZARDFORM; var T: TCHECKBOX); begin T := Self.NOICONSCHECK; end;
procedure TWIZARDFORMPASSWORDLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.PASSWORDLABEL; end;
procedure TWIZARDFORMPASSWORDEDIT_R(Self: TWIZARDFORM; var T: TPASSWORDEDIT); begin T := Self.PASSWORDEDIT; end;
procedure TWIZARDFORMPASSWORDEDITLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.PASSWORDEDITLABEL; end;
procedure TWIZARDFORMREADYMEMO_R(Self: TWIZARDFORM; var T: TMEMO); begin T := Self.READYMEMO; end;
procedure TWIZARDFORMTYPESCOMBO_R(Self: TWIZARDFORM; var T: TCOMBOBOX); begin T := Self.TYPESCOMBO; end;
procedure TWIZARDFORMBEVEL_R(Self: TWIZARDFORM; var T: TBEVEL); begin T := Self.BEVEL; end;
procedure TWIZARDFORMWizardBitmapImage_R(Self: TWIZARDFORM; var T: TBitmapImage); begin T := Self.WizardBitmapImage; end;
procedure TWIZARDFORMWELCOMELABEL1_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.WELCOMELABEL1; end;
procedure TWIZARDFORMINFOBEFOREMEMO_R(Self: TWIZARDFORM; var T: TRICHEDITVIEWER); begin T := Self.INFOBEFOREMEMO; end;
procedure TWIZARDFORMINFOBEFORECLICKLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.INFOBEFORECLICKLABEL; end;
procedure TWIZARDFORMMAINPANEL_R(Self: TWIZARDFORM; var T: TPANEL); begin T := Self.MAINPANEL; end;
procedure TWIZARDFORMBEVEL1_R(Self: TWIZARDFORM; var T: TBEVEL); begin T := Self.BEVEL1; end;
procedure TWIZARDFORMPAGENAMELABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.PAGENAMELABEL; end;
procedure TWIZARDFORMPAGEDESCRIPTIONLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.PAGEDESCRIPTIONLABEL; end;
procedure TWIZARDFORMWizardSmallBitmapImage_R(Self: TWIZARDFORM; var T: TBitmapImage); begin T := Self.WizardSmallBitmapImage; end;
procedure TWIZARDFORMREADYLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.READYLABEL; end;
procedure TWIZARDFORMFINISHEDLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.FINISHEDLABEL; end;
procedure TWIZARDFORMYESRADIO_R(Self: TWIZARDFORM; var T: TRADIOBUTTON); begin T := Self.YESRADIO; end;
procedure TWIZARDFORMNORADIO_R(Self: TWIZARDFORM; var T: TRADIOBUTTON); begin T := Self.NORADIO; end;
procedure TWIZARDFORMWizardBitmapImage2_R(Self: TWIZARDFORM; var T: TBitmapImage); begin T := Self.WizardBitmapImage2; end;
procedure TWIZARDFORMWELCOMELABEL2_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.WELCOMELABEL2; end;
procedure TWIZARDFORMLICENSELABEL1_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.LICENSELABEL1; end;
procedure TWIZARDFORMLICENSEMEMO_R(Self: TWIZARDFORM; var T: TRICHEDITVIEWER); begin T := Self.LICENSEMEMO; end;
procedure TWIZARDFORMINFOAFTERMEMO_R(Self: TWIZARDFORM; var T: TRICHEDITVIEWER); begin T := Self.INFOAFTERMEMO; end;
procedure TWIZARDFORMINFOAFTERCLICKLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.INFOAFTERCLICKLABEL; end;
procedure TWIZARDFORMCOMPONENTSLIST_R(Self: TWIZARDFORM; var T: TNEWCHECKLISTBOX); begin T := Self.COMPONENTSLIST; end;
procedure TWIZARDFORMCOMPONENTSDISKSPACELABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.COMPONENTSDISKSPACELABEL; end;
procedure TWIZARDFORMBEVELEDLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.BEVELEDLABEL; end;
procedure TWIZARDFORMSTATUSLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.STATUSLABEL; end;
procedure TWIZARDFORMFILENAMELABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.FILENAMELABEL; end;
procedure TWIZARDFORMPROGRESSGAUGE_R(Self: TWIZARDFORM; var T: TNEWPROGRESSBAR); begin T := Self.PROGRESSGAUGE; end;
procedure TWIZARDFORMSELECTDIRLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.SELECTDIRLABEL; end;
procedure TWIZARDFORMSELECTSTARTMENUFOLDERLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.SELECTSTARTMENUFOLDERLABEL; end;
procedure TWIZARDFORMSELECTCOMPONENTSLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.SELECTCOMPONENTSLABEL; end;
procedure TWIZARDFORMSELECTTASKSLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.SELECTTASKSLABEL; end;
procedure TWIZARDFORMLICENSEACCEPTEDRADIO_R(Self: TWIZARDFORM; var T: TRADIOBUTTON); begin T := Self.LICENSEACCEPTEDRADIO; end;
procedure TWIZARDFORMLICENSENOTACCEPTEDRADIO_R(Self: TWIZARDFORM; var T: TRADIOBUTTON); begin T := Self.LICENSENOTACCEPTEDRADIO; end;
procedure TWIZARDFORMUSERINFONAMELABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.USERINFONAMELABEL; end;
procedure TWIZARDFORMUSERINFONAMEEDIT_R(Self: TWIZARDFORM; var T: TEDIT); begin T := Self.USERINFONAMEEDIT; end;
procedure TWIZARDFORMUSERINFOORGLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.USERINFOORGLABEL; end;
procedure TWIZARDFORMUSERINFOORGEDIT_R(Self: TWIZARDFORM; var T: TEDIT); begin T := Self.USERINFOORGEDIT; end;
procedure TWIZARDFORMPreparingErrorBitmapImage_R(Self: TWIZARDFORM; var T: TBitmapImage); begin T := Self.PreparingErrorBitmapImage; end;
procedure TWIZARDFORMPREPARINGLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.PREPARINGLABEL; end;
procedure TWIZARDFORMFINISHEDHEADINGLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.FINISHEDHEADINGLABEL; end;
procedure TWIZARDFORMUSERINFOSERIALLABEL_R(Self: TWIZARDFORM; var T: TNEWSTATICTEXT); begin T := Self.USERINFOSERIALLABEL; end;
procedure TWIZARDFORMUSERINFOSERIALEDIT_R(Self: TWIZARDFORM; var T: TEDIT); begin T := Self.USERINFOSERIALEDIT; end;
procedure TWIZARDFORMTASKSLIST_R(Self: TWIZARDFORM; var T: TNEWCHECKLISTBOX); begin T := Self.TASKSLIST; end;
procedure TWIZARDFORMRUNLIST_R(Self: TWIZARDFORM; var T: TNEWCHECKLISTBOX); begin T := Self.RUNLIST; end;
procedure TWIZARDFORMCurPageID_R(Self: TWIZARDFORM; var T: Integer); begin T := Self.CurPageID; end;
procedure TWIZARDFORMDirBrowseButton_R(Self: TWIZARDFORM; var T: TButton); begin T := Self.DirBrowseButton; end;
procedure TWIZARDFORMGroupBrowseButton_R(Self: TWIZARDFORM; var T: TButton); begin T := Self.GroupBrowseButton; end;
procedure TWIZARDFORMSelectDirBitmapImage(Self: TWIZARDFORM; var T: TBitmapImage); begin T := Self.SelectDirBitmapImage; end;
procedure TWIZARDFORMSelectGroupBitmapImage(Self: TWIZARDFORM; var T: TBitmapImage); begin T := Self.SelectGroupBitmapImage; end;
procedure TWIZARDFORMSelectDirBrowseLabel(Self: TWIZARDFORM; var T: TNewStaticText); begin T := Self.SelectDirBrowseLabel; end;
procedure TWIZARDFORMSelectStartMenuFolderBrowseLabel(Self: TWIZARDFORM; var T: TNewStaticText); begin T := Self.SelectStartMenuFolderBrowseLabel; end;

procedure RegisterWizardForm_R(Cl: TPSRuntimeClassImporter);
begin
  with Cl.Add(TWizardForm) do
  begin
    RegisterPropertyHelper(@TWIZARDFORMCANCELBUTTON_R, nil, 'CANCELBUTTON');
    RegisterPropertyHelper(@TWIZARDFORMNEXTBUTTON_R, nil, 'NEXTBUTTON');
    RegisterPropertyHelper(@TWIZARDFORMBACKBUTTON_R, nil, 'BACKBUTTON');
    RegisterPropertyHelper(@TWIZARDFORMOuterNotebook_R, nil, 'OuterNotebook');
    RegisterPropertyHelper(@TWIZARDFORMInnerNotebook_R, nil, 'InnerNotebook');
    RegisterPropertyHelper(@TWizardFormWelcomePage_R,nil,'WelcomePage');
    RegisterPropertyHelper(@TWizardFormInnerPage_R,nil,'InnerPage');
    RegisterPropertyHelper(@TWizardFormFinishedPage_R,nil,'FinishedPage');
    RegisterPropertyHelper(@TWizardFormLicensePage_R,nil,'LicensePage');
    RegisterPropertyHelper(@TWizardFormPasswordPage_R,nil,'PasswordPage');
    RegisterPropertyHelper(@TWizardFormInfoBeforePage_R,nil,'InfoBeforePage');
    RegisterPropertyHelper(@TWizardFormUserInfoPage_R,nil,'UserInfoPage');
    RegisterPropertyHelper(@TWizardFormSelectDirPage_R,nil,'SelectDirPage');
    RegisterPropertyHelper(@TWizardFormSelectComponentsPage_R,nil,'SelectComponentsPage');
    RegisterPropertyHelper(@TWizardFormSelectProgramGroupPage_R,nil,'SelectProgramGroupPage');
    RegisterPropertyHelper(@TWizardFormSelectTasksPage_R,nil,'SelectTasksPage');
    RegisterPropertyHelper(@TWizardFormReadyPage_R,nil,'ReadyPage');
    RegisterPropertyHelper(@TWizardFormPreparingPage_R,nil,'PreparingPage');
    RegisterPropertyHelper(@TWizardFormInstallingPage_R,nil,'InstallingPage');
    RegisterPropertyHelper(@TWizardFormInfoAfterPage_R,nil,'InfoAfterPage');
    RegisterPropertyHelper(@TWIZARDFORMDISKSPACELABEL_R, nil, 'DISKSPACELABEL');
    RegisterPropertyHelper(@TWIZARDFORMDIREDIT_R, nil, 'DIREDIT');
    RegisterPropertyHelper(@TWIZARDFORMGROUPEDIT_R, nil, 'GROUPEDIT');
    RegisterPropertyHelper(@TWIZARDFORMNOICONSCHECK_R, nil, 'NOICONSCHECK');
    RegisterPropertyHelper(@TWIZARDFORMPASSWORDLABEL_R, nil, 'PASSWORDLABEL');
    RegisterPropertyHelper(@TWIZARDFORMPASSWORDEDIT_R, nil, 'PASSWORDEDIT');
    RegisterPropertyHelper(@TWIZARDFORMPASSWORDEDITLABEL_R, nil, 'PASSWORDEDITLABEL');
    RegisterPropertyHelper(@TWIZARDFORMREADYMEMO_R, nil, 'READYMEMO');
    RegisterPropertyHelper(@TWIZARDFORMTYPESCOMBO_R, nil, 'TYPESCOMBO');
    RegisterPropertyHelper(@TWIZARDFORMBEVEL_R, nil, 'BEVEL');
    RegisterPropertyHelper(@TWIZARDFORMWizardBitmapImage_R, nil, 'WizardBitmapImage');
    RegisterPropertyHelper(@TWIZARDFORMWELCOMELABEL1_R, nil, 'WELCOMELABEL1');
    RegisterPropertyHelper(@TWIZARDFORMINFOBEFOREMEMO_R, nil, 'INFOBEFOREMEMO');
    RegisterPropertyHelper(@TWIZARDFORMINFOBEFORECLICKLABEL_R, nil, 'INFOBEFORECLICKLABEL');
    RegisterPropertyHelper(@TWIZARDFORMMAINPANEL_R, nil, 'MAINPANEL');
    RegisterPropertyHelper(@TWIZARDFORMBEVEL1_R, nil, 'BEVEL1');
    RegisterPropertyHelper(@TWIZARDFORMPAGENAMELABEL_R, nil, 'PAGENAMELABEL');
    RegisterPropertyHelper(@TWIZARDFORMPAGEDESCRIPTIONLABEL_R, nil, 'PAGEDESCRIPTIONLABEL');
    RegisterPropertyHelper(@TWIZARDFORMWizardSmallBitmapImage_R, nil, 'WizardSmallBitmapImage');
    RegisterPropertyHelper(@TWIZARDFORMREADYLABEL_R, nil, 'READYLABEL');
    RegisterPropertyHelper(@TWIZARDFORMFINISHEDLABEL_R, nil, 'FINISHEDLABEL');
    RegisterPropertyHelper(@TWIZARDFORMYESRADIO_R, nil, 'YESRADIO');
    RegisterPropertyHelper(@TWIZARDFORMNORADIO_R, nil, 'NORADIO');
    RegisterPropertyHelper(@TWIZARDFORMWizardBitmapImage2_R, nil, 'WizardBitmapImage2');
    RegisterPropertyHelper(@TWIZARDFORMWELCOMELABEL2_R, nil, 'WELCOMELABEL2');
    RegisterPropertyHelper(@TWIZARDFORMLICENSELABEL1_R, nil, 'LICENSELABEL1');
    RegisterPropertyHelper(@TWIZARDFORMLICENSEMEMO_R, nil, 'LICENSEMEMO');
    RegisterPropertyHelper(@TWIZARDFORMINFOAFTERMEMO_R, nil, 'INFOAFTERMEMO');
    RegisterPropertyHelper(@TWIZARDFORMINFOAFTERCLICKLABEL_R, nil, 'INFOAFTERCLICKLABEL');
    RegisterPropertyHelper(@TWIZARDFORMCOMPONENTSLIST_R, nil, 'COMPONENTSLIST');
    RegisterPropertyHelper(@TWIZARDFORMCOMPONENTSDISKSPACELABEL_R, nil, 'COMPONENTSDISKSPACELABEL');
    RegisterPropertyHelper(@TWIZARDFORMBEVELEDLABEL_R, nil, 'BEVELEDLABEL');
    RegisterPropertyHelper(@TWIZARDFORMSTATUSLABEL_R, nil, 'STATUSLABEL');
    RegisterPropertyHelper(@TWIZARDFORMFILENAMELABEL_R, nil, 'FILENAMELABEL');
    RegisterPropertyHelper(@TWIZARDFORMPROGRESSGAUGE_R, nil, 'PROGRESSGAUGE');
    RegisterPropertyHelper(@TWIZARDFORMSELECTDIRLABEL_R, nil, 'SELECTDIRLABEL');
    RegisterPropertyHelper(@TWIZARDFORMSELECTSTARTMENUFOLDERLABEL_R, nil, 'SELECTSTARTMENUFOLDERLABEL');
    RegisterPropertyHelper(@TWIZARDFORMSELECTCOMPONENTSLABEL_R, nil, 'SELECTCOMPONENTSLABEL');
    RegisterPropertyHelper(@TWIZARDFORMSELECTTASKSLABEL_R, nil, 'SELECTTASKSLABEL');
    RegisterPropertyHelper(@TWIZARDFORMLICENSEACCEPTEDRADIO_R, nil, 'LICENSEACCEPTEDRADIO');
    RegisterPropertyHelper(@TWIZARDFORMLICENSENOTACCEPTEDRADIO_R, nil, 'LICENSENOTACCEPTEDRADIO');
    RegisterPropertyHelper(@TWIZARDFORMUSERINFONAMELABEL_R, nil, 'USERINFONAMELABEL');
    RegisterPropertyHelper(@TWIZARDFORMUSERINFONAMEEDIT_R, nil, 'USERINFONAMEEDIT');
    RegisterPropertyHelper(@TWIZARDFORMUSERINFOORGLABEL_R, nil, 'USERINFOORGLABEL');
    RegisterPropertyHelper(@TWIZARDFORMUSERINFOORGEDIT_R, nil, 'USERINFOORGEDIT');
    RegisterPropertyHelper(@TWIZARDFORMPreparingErrorBitmapImage_R, nil, 'PreparingErrorBitmapImage');
    RegisterPropertyHelper(@TWIZARDFORMPREPARINGLABEL_R, nil, 'PREPARINGLABEL');
    RegisterPropertyHelper(@TWIZARDFORMFINISHEDHEADINGLABEL_R, nil, 'FINISHEDHEADINGLABEL');
    RegisterPropertyHelper(@TWIZARDFORMUSERINFOSERIALLABEL_R, nil, 'USERINFOSERIALLABEL');
    RegisterPropertyHelper(@TWIZARDFORMUSERINFOSERIALEDIT_R, nil, 'USERINFOSERIALEDIT');
    RegisterPropertyHelper(@TWIZARDFORMTASKSLIST_R, nil, 'TASKSLIST');
    RegisterPropertyHelper(@TWIZARDFORMRUNLIST_R, nil, 'RUNLIST');
    RegisterPropertyHelper(@TWIZARDFORMDirBrowseButton_R, nil, 'DirBrowseButton');
    RegisterPropertyHelper(@TWIZARDFORMGroupBrowseButton_R, nil, 'GroupBrowseButton');
    RegisterPropertyHelper(@TWIZARDFORMSelectDirBitmapImage, nil, 'SelectDirBitmapImage');
    RegisterPropertyHelper(@TWIZARDFORMSelectGroupBitmapImage, nil, 'SelectGroupBitmapImage');
    RegisterPropertyHelper(@TWIZARDFORMSelectDirBrowseLabel, nil, 'SelectDirBrowseLabel');
    RegisterPropertyHelper(@TWIZARDFORMSelectStartMenuFolderBrowseLabel, nil,'SelectStartMenuFolderBrowseLabel');
    RegisterPropertyHelper(@TWIZARDFORMCurPageID_R, nil, 'CurPageID');
    RegisterMethod(@TWIZARDFORM.ADJUSTLABELHEIGHT, 'ADJUSTLABELHEIGHT');
    RegisterMethod(@TWIZARDFORM.INCTOPDECHEIGHT, 'INCTOPDECHEIGHT');
  end;
end;

procedure TWizardPageID_R(Self: TWizardPage; var T: Integer); begin T := Self.ID; end;
procedure TWizardPageCaption_R(Self: TWizardPage; var T: String); begin T := Self.Caption; end;
procedure TWizardPageCaption_W(Self: TWizardPage; T: String); begin Self.Caption := T; end;
procedure TWizardPageDescription_R(Self: TWizardPage; var T: String); begin T := Self.Description; end;
procedure TWizardPageDescription_W(Self: TWizardPage; T: String); begin Self.Description := T; end;
procedure TWizardPageSurface_R(Self: TWizardPage; var T: TNewNotebookPage); begin T := Self.Surface; end;
procedure TWizardPageSurfaceHeight_R(Self: TWizardPage; var T: Integer); begin T := Self.SurfaceHeight; end;
procedure TWizardPageSurfaceWidth_R(Self: TWizardPage; var T: Integer); begin T := Self.SurfaceWidth; end;
procedure TWizardPageOnActivate_R(Self: TWizardPage; var T: TWizardPageNotifyEvent); begin T := Self.OnActivate; end;
procedure TWizardPageOnActivate_W(Self: TWizardPage; T: TWizardPageNotifyEvent); begin Self.OnActivate := T; end;
procedure TWizardPageOnBackButtonClick_R(Self: TWizardPage; var T: TWizardPageButtonEvent); begin T := Self.OnBackButtonClick; end;
procedure TWizardPageOnBackButtonClick_W(Self: TWizardPage; T: TWizardPageButtonEvent); begin Self.OnBackButtonClick := T; end;
procedure TWizardPageOnCancelButtonClick_R(Self: TWizardPage; var T: TWizardPageCancelEvent); begin T := Self.OnCancelButtonClick; end;
procedure TWizardPageOnCancelButtonClick_W(Self: TWizardPage; T: TWizardPageCancelEvent); begin Self.OnCancelButtonClick := T; end;
procedure TWizardPageOnNextButtonClick_R(Self: TWizardPage; var T: TWizardPageButtonEvent); begin T := Self.OnNextButtonClick; end;
procedure TWizardPageOnNextButtonClick_W(Self: TWizardPage; T: TWizardPageButtonEvent); begin Self.OnNextButtonClick := T; end;
procedure TWizardPageOnShouldSkipPage_R(Self: TWizardPage; var T: TWizardPageShouldSkipEvent); begin T := Self.OnShouldSkipPage; end;
procedure TWizardPageOnShouldSkipPage_W(Self: TWizardPage; T: TWizardPageShouldSkipEvent); begin Self.OnShouldSkipPage := T; end;

procedure RegisterWizardPage_R(Cl: TIFPSRuntimeClassImporter);
begin
  with Cl.Add(TWizardPage) do
  begin
    RegisterPropertyHelper(@TWizardPageID_R, nil, 'ID');
    RegisterPropertyHelper(@TWizardPageCaption_R, @TWizardPageCaption_W, 'Caption');
    RegisterPropertyHelper(@TWizardPageDescription_R, @TWizardPageDescription_W, 'Description');
    RegisterPropertyHelper(@TWizardPageSurface_R, nil, 'Surface');
    RegisterPropertyHelper(@TWizardPageSurfaceHeight_R, nil, 'SurfaceHeight');
    RegisterPropertyHelper(@TWizardPageSurfaceWidth_R, nil, 'SurfaceWidth');
    RegisterPropertyHelper(@TWizardPageOnActivate_R, @TWizardPageOnActivate_W, 'OnActivate');
    RegisterPropertyHelper(@TWizardPageOnBackButtonClick_R, @TWizardPageOnBackButtonClick_W, 'OnBackButtonClick');
    RegisterPropertyHelper(@TWizardPageOnCancelButtonClick_R, @TWizardPageOnCancelButtonClick_W, 'OnCancelButtonClick');
    RegisterPropertyHelper(@TWizardPageOnNextButtonClick_R, @TWizardPageOnNextButtonClick_W, 'OnNextButtonClick');
    RegisterPropertyHelper(@TWizardPageOnShouldSkipPage_R, @TWizardPageOnShouldSkipPage_W, 'OnShouldSkipPage');
  end;
end;

procedure TInputQueryWizardPageEdits_R(Self: TInputQueryWizardPage; var T: TPasswordEdit; const t1: Integer); begin T := Self.Edits[t1]; end;
procedure TInputQueryWizardPagePromptLabels_R(Self: TInputQueryWizardPage; var T: TNewStaticText; const t1: Integer); begin T := Self.PromptLabels[t1]; end;
procedure TInputQueryWizardPageValues_R(Self: TInputQueryWizardPage; var T: String; const t1: Integer); begin T := Self.Values[t1]; end;
procedure TInputQueryWizardPageSubCaptionLabel_R(Self: TInputQueryWizardPage; var T: TNewStaticText); begin T := Self.SubCaptionLabel; end;
procedure TInputQueryWizardPageValues_W(Self: TInputQueryWizardPage; const T: String; const t1: Integer); begin Self.Values[t1] := T; end;

procedure RegisterInputQueryWizardPage_R(CL: TPSRuntimeClassImporter);
begin
  with CL.Add(TInputQueryWizardPage) do
  begin
    RegisterMethod(@TInputQueryWizardPage.Add, 'Add');
    RegisterPropertyHelper(@TInputQueryWizardPageEdits_R,nil,'Edits');
    RegisterPropertyHelper(@TInputQueryWizardPagePromptLabels_R,nil,'PromptLabels');
    RegisterPropertyHelper(@TInputQueryWizardPageSubcaptionLabel_R,nil,'SubCaptionLabel');
    RegisterPropertyHelper(@TInputQueryWizardPageValues_R,@TInputQueryWizardPageValues_W,'Values');
  end;
end;