Expose PreparingMemo.

Projects/ScriptClasses_C.pas

@@ -380,6 +380,7 @@ begin
     RegisterProperty('SelectStartMenuFolderBrowseLabel', 'TNewStaticText', iptr);
     RegisterProperty('PreparingYesRadio', 'TNewRadioButton', iptr);
     RegisterProperty('PreparingNoRadio', 'TNewRadioButton', iptr);
+    RegisterProperty('PreparingMemo', 'TNewMemo', iptr);
     RegisterProperty('CurPageID', 'Integer', iptr);
     RegisterMethod('function AdjustLabelHeight(ALabel:TNewStaticText):Integer');
     RegisterMethod('procedure IncTopDecHeight(AControl:TControl;Amount:Integer)');

Projects/ScriptClasses_R.pas

@@ -287,6 +287,7 @@ procedure TWizardFormSelectDirBrowseLabel(Self: TWizardForm; var T: TNewStaticTe
 procedure TWizardFormSelectStartMenuFolderBrowseLabel(Self: TWizardForm; var T: TNewStaticText); begin T := Self.SelectStartMenuFolderBrowseLabel; end;
 procedure TWizardFormPreparingYesRadio_R(Self: TWizardForm; var T: TNewRadioButton); begin T := Self.PreparingYesRadio; end;
 procedure TWizardFormPreparingNoRadio_R(Self: TWizardForm; var T: TNewRadioButton); begin T := Self.PreparingNoRadio; end;
+procedure TWizardFormPreparingMemo_R(Self: TWizardForm; var T: TNewMemo); begin T := Self.PreparingMemo; end;
 procedure TWizardFormPrevAppDir_R(Self: TWizardForm; var T: String); begin T := Self.PrevAppDir; end;
 
 procedure RegisterWizardForm_R(Cl: TPSRuntimeClassImporter);
@@ -373,6 +374,7 @@ begin
     RegisterPropertyHelper(@TWizardFormSelectStartMenuFolderBrowseLabel, nil,'SelectStartMenuFolderBrowseLabel');
     RegisterPropertyHelper(@TWizardFormPreparingYesRadio_R, nil, 'PreparingYesRadio');
     RegisterPropertyHelper(@TWizardFormPreparingNoRadio_R, nil, 'PreparingNoRadio');
+    RegisterPropertyHelper(@TWizardFormPreparingMemo_R, nil, 'PreparingMemo');
     RegisterPropertyHelper(@TWizardFormCurPageID_R, nil, 'CurPageID');
     RegisterMethod(@TWizardForm.AdjustLabelHeight, 'AdjustLabelHeight');
     RegisterMethod(@TWizardForm.IncTopDecHeight, 'IncTopDecHeight');