scriptclasses_r.pas

源代码

procedure TInputOptionWizardPageCheckListBox_R(Self: TInputOptionWizardPage; var T: TNewCheckListBox); begin T := Self.CheckListBox; end;
procedure TInputOptionWizardPageSelectedValueIndex_R(Self: TInputOptionWizardPage; var T: Integer); begin T := Self.SelectedValueIndex; end;
procedure TInputOptionWizardPageSelectedValueIndex_W(Self: TInputOptionWizardPage; const T: Integer); begin Self.SelectedValueIndex := T; end;
procedure TInputOptionWizardPageSubCaptionLabel_R(Self: TInputOptionWizardPage; var T: TNewStaticText); begin T := Self.SubCaptionLabel; end;
procedure TInputOptionWizardPageValues_W(Self: TInputOptionWizardPage; const T: Boolean; const t1: Integer); begin Self.Values[t1] := T; end;
procedure TInputOptionWizardPageValues_R(Self: TInputOptionWizardPage; var T: Boolean; const t1: Integer); begin T := Self.Values[t1]; end;

procedure RegisterInputOptionWizardPage_R(CL: TPSRuntimeClassImporter);
begin
  with CL.Add(TInputOptionWizardPage) do
  begin
    RegisterMethod(@TInputOptionWizardPage.Add, 'Add');
    RegisterMethod(@TInputOptionWizardPage.AddEx, 'AddEx');
    RegisterPropertyHelper(@TInputOptionWizardPageCheckListBox_R,nil,'CheckListBox');
    RegisterPropertyHelper(@TInputOptionWizardPageSelectedValueIndex_R,@TInputOptionWizardPageSelectedValueIndex_W,'SelectedValueIndex');
    RegisterPropertyHelper(@TInputOptionWizardPageSubcaptionLabel_R,nil,'SubCaptionLabel');
    RegisterPropertyHelper(@TInputOptionWizardPageValues_R,@TInputOptionWizardPageValues_W,'Values');
  end;
end;

procedure TInputDirWizardPageButtons_R(Self: TInputDirWizardPage; var T: TButton; const t1: Integer); begin T := Self.Buttons[t1]; end;
procedure TInputDirWizardPageEdits_R(Self: TInputDirWizardPage; var T: TEdit; const t1: Integer); begin T := Self.Edits[t1]; end;
procedure TInputDirWizardPagePromptLabels_R(Self: TInputDirWizardPage; var T: TNewStaticText; const t1: Integer); begin T := Self.PromptLabels[t1]; end;
procedure TInputDirWizardPageSubCaptionLabel_R(Self: TInputDirWizardPage; var T: TNewStaticText); begin T := Self.SubCaptionLabel; end;
procedure TInputDirWizardPageValues_W(Self: TInputDirWizardPage; const T: String; const t1: Integer); begin Self.Values[t1] := T; end;
procedure TInputDirWizardPageValues_R(Self: TInputDirWizardPage; var T: String; const t1: Integer); begin T := Self.Values[t1]; end;

procedure RegisterInputDirWizardPage_R(CL: TPSRuntimeClassImporter);
begin
  with CL.Add(TInputDirWizardPage) do
  begin
    RegisterMethod(@TInputDirWizardPage.Add, 'Add');
    RegisterPropertyHelper(@TInputDirWizardPageButtons_R,nil,'Buttons');
    RegisterPropertyHelper(@TInputDirWizardPageEdits_R,nil,'Edits');
    RegisterPropertyHelper(@TInputDirWizardPagePromptLabels_R,nil,'PromptLabels');
    RegisterPropertyHelper(@TInputDirWizardPageSubcaptionLabel_R,nil,'SubCaptionLabel');
    RegisterPropertyHelper(@TInputDirWizardPageValues_R,@TInputDirWizardPageValues_W,'Values');
  end;
end;

procedure TInputFileWizardPageButtons_R(Self: TInputFileWizardPage; var T: TButton; const t1: Integer); begin T := Self.Buttons[t1]; end;
procedure TInputFileWizardPagePromptLabels_R(Self: TInputFileWizardPage; var T: TNewStaticText; const t1: Integer); begin T := Self.PromptLabels[t1]; end;
procedure TInputFileWizardPageEdits_R(Self: TInputFileWizardPage; var T: TEdit; const t1: Integer); begin T := Self.Edits[t1]; end;
procedure TInputFileWizardPageSubCaptionLabel_R(Self: TInputFileWizardPage; var T: TNewStaticText); begin T := Self.SubCaptionLabel; end;
procedure TInputFileWizardPageValues_W(Self: TInputFileWizardPage; const T: String; const t1: Integer); begin Self.Values[t1] := T; end;
procedure TInputFileWizardPageValues_R(Self: TInputFileWizardPage; var T: String; const t1: Integer); begin T := Self.Values[t1]; end;

procedure RegisterInputFileWizardPage_R(CL: TPSRuntimeClassImporter);
begin
  with CL.Add(TInputFileWizardPage) do
  begin
    RegisterMethod(@TInputFileWizardPage.Add, 'Add');
    RegisterPropertyHelper(@TInputFileWizardPageButtons_R,nil,'Buttons');
    RegisterPropertyHelper(@TInputFileWizardPageEdits_R,nil,'Edits');
    RegisterPropertyHelper(@TInputFileWizardPagePromptLabels_R,nil,'PromptLabels');
    RegisterPropertyHelper(@TInputFileWizardPageSubcaptionLabel_R,nil,'SubCaptionLabel');
    RegisterPropertyHelper(@TInputFileWizardPageValues_R,@TInputFileWizardPageValues_W,'Values');
  end;
end;

procedure TOutputMsgWizardPageMsgLabel_R(Self: TOutputMsgWizardPage; var T: TNewStaticText); begin T := Self.MsgLabel; end;

procedure RegisterOutputMsgWizardPage_R(CL: TPSRuntimeClassImporter);
begin
  with CL.Add(TOutputMsgWizardPage) do
  begin
    RegisterPropertyHelper(@TOutputMsgWizardPageMsgLabel_R,nil,'MsgLabel');
  end;
end;

procedure TOutputMsgMemoWizardPageRichEditViewer_R(Self: TOutputMsgMemoWizardPage; var T: TRichEditViewer); begin T := Self.RichEditViewer; end;
procedure TOutputMsgMemoWizardPageSubCaptionLabel_R(Self: TOutputMsgMemoWizardPage; var T: TNewStaticText); begin T := Self.SubCaptionLabel; end;

procedure RegisterOutputMsgMemoWizardPage_R(CL: TPSRuntimeClassImporter);
begin
  with CL.Add(TOutputMsgMemoWizardPage) do
  begin
    RegisterPropertyHelper(@TOutputMsgMemoWizardPageRichEditViewer_R,nil,'RichEditViewer');
    RegisterPropertyHelper(@TOutputMsgMemoWizardPageSubcaptionLabel_R,nil,'SubCaptionLabel');
  end;
end;

procedure TOutputProgressWizardPageMsg1Label_R(Self: TOutputProgressWizardPage; var T: TNewStaticText); begin T := Self.Msg1Label; end;
procedure TOutputProgressWizardPageMsg2Label_R(Self: TOutputProgressWizardPage; var T: TNewStaticText); begin T := Self.Msg2Label; end;
procedure TOutputProgressWizardPageProgressBar_R(Self: TOutputProgressWizardPage; var T: TNewProgressBar); begin T := Self.ProgressBar; end;

procedure RegisterOutputProgressWizardPage_R(CL: TPSRuntimeClassImporter);
begin
  with CL.Add(TOutputProgressWizardPage) do
  begin
    RegisterMethod(@TOutputProgressWizardPage.Hide, 'Hide');
    RegisterPropertyHelper(@TOutputProgressWizardPageMsg1Label_R,nil,'Msg1Label');
    RegisterPropertyHelper(@TOutputProgressWizardPageMsg2Label_R,nil,'Msg2Label');
    RegisterPropertyHelper(@TOutputProgressWizardPageProgressBar_R,nil,'ProgressBar');
    RegisterMethod(@TOutputProgressWizardPage.SetProgress, 'SetProgress');
    RegisterMethod(@TOutputProgressWizardPage.SetText, 'SetText');
    RegisterMethod(@TOutputProgressWizardPage.Show, 'Show');
  end;
end;

procedure RegisterHandCursor_R(Cl: TPSRuntimeClassImporter);
const
  IDC_HAND = MakeIntResource(32649);
begin
  Screen.Cursors[crHand] := LoadCursor(0, IDC_HAND);
end;

procedure ScriptClassesLibraryRegister_R(ScriptInterpreter: TPSExec);
var
  Cl: TPSRuntimeClassImporter;
begin
  Cl := TPSRuntimeClassImporter.Create();

  { Std }
  RIRegisterTObject(Cl);
  RIRegisterTPersistent(Cl);
  RIRegisterTComponent(Cl);

  { Classes }
  RIRegisterTStream(Cl);
  RIRegisterTStrings(Cl, True);
  RIRegisterTStringList(Cl);
  RIRegisterTHandleStream(Cl);
  RIRegisterTFileStream(Cl);

  { Graphics }
  RIRegisterTGraphicsObject(Cl);
  RIRegisterTFont(Cl);
  RIRegisterTCanvas(Cl);
  RIRegisterTPen(Cl);
  RIRegisterTBrush(Cl);
  RIRegisterTGraphic(Cl);
  RIRegisterTBitmap(Cl, True);

  { Controls }
  RIRegisterTControl(Cl);
  RIRegisterTWinControl(Cl);
  RIRegisterTGraphicControl(Cl);
  RIRegisterTCustomControl(Cl);
  RIRegister_TDragObject(Cl);

  { Forms }
  RIRegisterTScrollingWinControl(Cl);
  RIRegisterTForm(Cl);

  { StdCtrls }
  RIRegisterTCustomLabel(Cl);
  RIRegisterTLabel(Cl);
  RIRegisterTCustomEdit(Cl);
  RIRegisterTEdit(Cl);
  RIRegisterTCustomMemo(Cl);
  RIRegisterTMemo(Cl);
  RIRegisterTCustomComboBox(Cl);
  RIRegisterTComboBox(Cl);
  RIRegisterTButtonControl(Cl);
  RIRegisterTButton(Cl);
  RIRegisterTCustomCheckBox(Cl);
  RIRegisterTCheckBox(Cl);
  RIRegisterTRadioButton(Cl);
  RIRegisterTCustomListBox(Cl);
  RIRegisterTListBox(Cl);

  { ExtCtrls }
  RIRegisterTBevel(Cl);
  RIRegisterTCustomPanel(Cl);
  RIRegisterTPanel(Cl);

  { ComObj }
  RIRegister_ComObj(ScriptInterpreter);

  RegisterNewStaticText_R(Cl);
  RegisterNewCheckListBox_R(Cl);
  RegisterNewProgressBar_R(Cl);
  RegisterRichEditViewer_R(Cl);
  RegisterPasswordEdit_R(Cl);
  RegisterCustomFolderTreeView_R(Cl);
  RegisterFolderTreeView_R(Cl);
  RegisterStartMenuFolderTreeView_R(Cl);
  RegisterBitmapImage_R(Cl);

  RegisterNewNotebook_R(Cl);
  RegisterNewNotebookPage_R(Cl);

  RegisterUIStateForm_R(Cl);
  RegisterSetupForm_R(Cl);
  RegisterMainForm_R(Cl);
  RegisterWizardForm_R(Cl);

  RegisterWizardPage_R(Cl);
  RegisterInputQueryWizardPage_R(Cl);
  RegisterInputOptionWizardPage_R(Cl);
  RegisterInputDirWizardPage_R(Cl);
  RegisterInputFileWizardPage_R(Cl);
  RegisterOutputMsgWizardPage_R(Cl);
  RegisterOutputMsgMemoWizardPage_R(Cl);
  RegisterOutputProgressWizardPage_R(Cl);

  RegisterHandCursor_R(Cl);

  RegisterClassLibraryRuntime(ScriptInterpreter, Cl);
end;

procedure ScriptClassesLibraryUpdateVars(ScriptInterpreter: TPSExec);
begin
end;

procedure ScriptClassesLibraryDeInit();
begin
  {}
end;

end.