scriptclasses_r.pas

源代码

unit ScriptClasses_R;

{
  Inno Setup
  Copyright (C) 1997-2004 Jordan Russell
  Portions by Martijn Laan
  For conditions of distribution and use, see LICENSE.TXT.

  Script support classes (run time)

  $Id: ScriptClasses_R.pas,v 1.42 2004/12/16 19:36:06 mlaan Exp $
}

interface

uses
  uPSRuntime;

procedure ScriptClassesLibraryInit;
procedure ScriptClassesLibraryRegister_R(ScriptInterpreter: TPSExec);
procedure ScriptClassesLibraryUpdateVars(ScriptInterpreter: TPSExec);
procedure ScriptClassesLibraryDeInit;

implementation

uses
  Windows, Controls, Forms, StdCtrls, Graphics,
  uPSR_std, uPSR_classes, uPSR_graphics, uPSR_controls, uPSR_forms,
  uPSR_stdctrls, uPSR_extctrls, uPSR_comobj,
  NewStaticText, NewCheckListBox, NewProgressBar, RichEditViewer,
  ExtCtrls, UIStateForm, SetupForm, Main, Wizard, SetupTypes, PasswordEdit,
  FolderTreeView, BitmapImage, NewNotebook, ScriptDlg;

procedure ScriptClassesLibraryInit();
begin
  {}
end;

procedure RegisterNewStaticText_R(Cl: TPSRuntimeClassImporter);
begin
  Cl.Add(TNewStaticText);
end;

procedure TNEWCHECKLISTBOXCHECKED_R(Self: TNEWCHECKLISTBOX; var T: BOOLEAN; t1: INTEGER); begin T := Self.CHECKED[t1]; end;
procedure TNEWCHECKLISTBOXCHECKED_W(Self: TNEWCHECKLISTBOX; const T: BOOLEAN; t1: INTEGER); begin Self.CHECKED[t1] := T; end;
procedure TNEWCHECKLISTBOXSTATE_R(Self: TNEWCHECKLISTBOX; var T: TCHECKBOXSTATE; t1: INTEGER); begin T := Self.STATE[t1]; end;
procedure TNEWCHECKLISTBOXITEMENABLED_R(Self: TNEWCHECKLISTBOX; var T: BOOLEAN; t1: INTEGER); begin T := Self.ITEMENABLED[t1]; end;
procedure TNEWCHECKLISTBOXITEMENABLED_W(Self: TNEWCHECKLISTBOX; const T: BOOLEAN; t1: INTEGER); begin Self.ITEMENABLED[t1] := T; end;
procedure TNEWCHECKLISTBOXITEMLEVEL_R(Self: TNEWCHECKLISTBOX; var T: BYTE; t1: INTEGER); begin T := Self.ITEMLEVEL[t1]; end;
procedure TNEWCHECKLISTBOXITEMOBJECT_R(Self: TNEWCHECKLISTBOX; var T: TOBJECT; t1: INTEGER); begin T := Self.ITEMOBJECT[t1]; end;
procedure TNEWCHECKLISTBOXITEMOBJECT_W(Self: TNEWCHECKLISTBOX; const T: TOBJECT; t1: INTEGER); begin Self.ITEMOBJECT[t1] := T; end;
procedure TNEWCHECKLISTBOXITEMSUBITEM_R(Self: TNEWCHECKLISTBOX; var T: STRING; t1: INTEGER); begin T := Self.ITEMSUBITEM[t1]; end;
procedure TNEWCHECKLISTBOXITEMSUBITEM_W(Self: TNEWCHECKLISTBOX; const T: STRING; t1: INTEGER); begin Self.ITEMSUBITEM[t1] := T; end;

procedure RegisterNewCheckListBox_R(Cl: TPSRuntimeClassImporter);
begin
  with Cl.Add(TNewCheckListBox) do
  begin
    RegisterMethod(@TNEWCHECKLISTBOX.ADDCHECKBOX, 'ADDCHECKBOX');
    RegisterMethod(@TNEWCHECKLISTBOX.ADDGROUP, 'ADDGROUP');
    RegisterMethod(@TNEWCHECKLISTBOX.ADDRADIOBUTTON, 'ADDRADIOBUTTON');
    RegisterPropertyHelper(@TNEWCHECKLISTBOXCHECKED_R, @TNEWCHECKLISTBOXCHECKED_W, 'CHECKED');
    RegisterPropertyHelper(@TNEWCHECKLISTBOXSTATE_R, nil, 'STATE');
    RegisterPropertyHelper(@TNEWCHECKLISTBOXITEMENABLED_R, @TNEWCHECKLISTBOXITEMENABLED_W, 'ITEMENABLED');
    RegisterPropertyHelper(@TNEWCHECKLISTBOXITEMLEVEL_R, nil, 'ITEMLEVEL');
    RegisterPropertyHelper(@TNEWCHECKLISTBOXITEMOBJECT_R, @TNEWCHECKLISTBOXITEMOBJECT_W, 'ITEMOBJECT');
    RegisterPropertyHelper(@TNEWCHECKLISTBOXITEMSUBITEM_R, @TNEWCHECKLISTBOXITEMSUBITEM_W, 'ITEMSUBITEM');
  end;
end;

procedure RegisterNewProgressBar_R(Cl: TPSRuntimeClassImporter);
begin
  Cl.Add(TNEWPROGRESSBAR);
end;

procedure TRICHEDITVIEWERRTFTEXT_W(Self: TRICHEDITVIEWER; const T: STRING); begin Self.RTFTEXT := T; end;

procedure RegisterRichEditViewer_R(Cl: TPSRuntimeClassImporter);
begin
  with Cl.Add(TRichEditViewer) do
  begin
    RegisterPropertyHelper(nil, @TRICHEDITVIEWERRTFTEXT_W, 'RTFTEXT');
  end;
end;

procedure TPasswordEditPassword_W(Self: TPasswordEdit; const T: Boolean); begin Self.Password := T; end;
procedure TPasswordEditPassword_R(Self: TPasswordEdit; var T: Boolean); begin T := Self.Password; end;

procedure RegisterPasswordEdit_R(Cl: TPSRuntimeClassImporter);
begin
  with Cl.Add(TPasswordEdit) do
  begin
    RegisterPropertyHelper(@TPasswordEditPassword_R, @TPasswordEditPassword_W, 'Password');
  end;
end;

procedure TCustomFolderTreeViewDirectory_W(Self: TCustomFolderTreeView; const T: String); begin Self.Directory := T; end;
procedure TCustomFolderTreeViewDirectory_R(Self: TCustomFolderTreeView; var T: String); begin T := Self.Directory; end;

procedure RegisterCustomFolderTreeView_R(Cl: TPSRuntimeClassImporter);
begin
  with Cl.Add(TCustomFolderTreeView) do
  begin
    RegisterMethod(@TCustomFolderTreeView.ChangeDirectory, 'ChangeDirectory');
    RegisterMethod(@TCustomFolderTreeView.CreateNewDirectory, 'CreateNewDirectory');
    RegisterPropertyHelper(@TCustomFolderTreeViewDirectory_R,@TCustomFolderTreeViewDirectory_W,'Directory');
  end;
end;

procedure RegisterStartMenuFolderTreeView_R(Cl: TPSRuntimeClassImporter);
begin
  with Cl.Add(TStartMenuFolderTreeView) do
  begin
    RegisterMethod(@TStartMenuFolderTreeView.SetPaths, 'SetPaths');
  end;
end;

procedure RegisterFolderTreeView_R(Cl: TPSRuntimeClassImporter);
begin
  Cl.Add(TFolderTreeView);
end;

procedure TBitmapImageStretch_W(Self: TBitmapImage; const T: Boolean); begin Self.Stretch := T; end;
procedure TBitmapImageStretch_R(Self: TBitmapImage; var T: Boolean); begin T := Self.Stretch; end;
procedure TBitmapImageReplaceWithColor_W(Self: TBitmapImage; const T: TColor); begin Self.ReplaceWithColor := T; end;
procedure TBitmapImageReplaceWithColor_R(Self: TBitmapImage; var T: TColor); begin T := Self.ReplaceWithColor; end;
procedure TBitmapImageReplaceColor_W(Self: TBitmapImage; const T: TColor); begin Self.ReplaceColor := T; end;
procedure TBitmapImageReplaceColor_R(Self: TBitmapImage; var T: TColor); begin T := Self.ReplaceColor; end;
procedure TBitmapImageBitmap_W(Self: TBitmapImage; const T: TBitmap); begin Self.Bitmap := T; end;
procedure TBitmapImageBitmap_R(Self: TBitmapImage; var T: TBitmap); begin T := Self.Bitmap; end;
procedure TBitmapImageCenter_W(Self: TBitmapImage; const T: Boolean); begin Self.Center := T; end;
procedure TBitmapImageCenter_R(Self: TBitmapImage; var T: Boolean); begin T := Self.Center; end;
procedure TBitmapImageBackColor_W(Self: TBitmapImage; const T: TColor); begin Self.BackColor := T; end;
procedure TBitmapImageBackColor_R(Self: TBitmapImage; var T: TColor); begin T := Self.BackColor; end;
procedure TBitmapImageAutoSize_W(Self: TBitmapImage; const T: Boolean); begin Self.AutoSize := T; end;
procedure TBitmapImageAutoSize_R(Self: TBitmapImage; var T: Boolean); begin T := Self.AutoSize; end;

procedure RegisterBitmapImage_R(Cl: TPSRuntimeClassImporter);
begin
  with Cl.Add(TBitmapImage) do
  begin
    RegisterPropertyHelper(@TBitmapImageAutoSize_R,@TBitmapImageAutoSize_W,'AutoSize');
    RegisterPropertyHelper(@TBitmapImageBackColor_R,@TBitmapImageBackColor_W,'BackColor');
    RegisterPropertyHelper(@TBitmapImageCenter_R,@TBitmapImageCenter_W,'Center');
    RegisterPropertyHelper(@TBitmapImageBitmap_R,@TBitmapImageBitmap_W,'Bitmap');
    RegisterPropertyHelper(@TBitmapImageReplaceColor_R,@TBitmapImageReplaceColor_W,'ReplaceColor');
    RegisterPropertyHelper(@TBitmapImageReplaceWithColor_R,@TBitmapImageReplaceWithColor_W,'ReplaceWithColor');
    RegisterPropertyHelper(@TBitmapImageStretch_R,@TBitmapImageStretch_W,'Stretch');
  end;
end;

procedure TNewNotebookActivePage_W(Self: TNewNotebook; const T: TNewNotebookPage); begin Self.ActivePage := T; end;
procedure TNewNotebookActivePage_R(Self: TNewNotebook; var T: TNewNotebookPage); begin T := Self.ActivePage; end;
procedure TNewNotebookPages_R(Self: TNewNotebook; var T: TNewNotebookPage; const t1: Integer); begin T := Self.Pages[t1]; end;
procedure TNewNotebookPageCount_R(Self: TNewNotebook; var T: Integer); begin T := Self.PageCount; end;

procedure RegisterNewNotebook_R(CL: TPSRuntimeClassImporter);
begin
  with CL.Add(TNewNotebook) do
  begin
    RegisterMethod(@TNewNotebook.FindNextPage, 'FindNextPage');
    RegisterPropertyHelper(@TNewNotebookPageCount_R,nil,'PageCount');
    RegisterPropertyHelper(@TNewNotebookPages_R,nil,'Pages');
    RegisterPropertyHelper(@TNewNotebookActivePage_R,@TNewNotebookActivePage_W,'ActivePage');
  end;
end;

procedure TNewNotebookPagePageIndex_W(Self: TNewNotebookPage; const T: Integer); begin Self.PageIndex := T; end;
procedure TNewNotebookPagePageIndex_R(Self: TNewNotebookPage; var T: Integer); begin T := Self.PageIndex; end;
procedure TNewNotebookPageNotebook_W(Self: TNewNotebookPage; const T: TNewNotebook); begin Self.Notebook := T; end;
procedure TNewNotebookPageNotebook_R(Self: TNewNotebookPage; var T: TNewNotebook); begin T := Self.Notebook; end;

procedure RegisterNewNotebookPage_R(CL: TPSRuntimeClassImporter);
begin
  with CL.Add(TNewNotebookPage) do
  begin
    RegisterPropertyHelper(@TNewNotebookPageNotebook_R,@TNewNotebookPageNotebook_W,'Notebook');
    RegisterPropertyHelper(@TNewNotebookPagePageIndex_R,@TNewNotebookPagePageIndex_W,'PageIndex');
  end;
end;

procedure RegisterUIStateForm_R(Cl: TPSRuntimeClassImporter);
begin
  Cl.Add(TUIStateForm);
end;

procedure RegisterSetupForm_R(Cl: TPSRuntimeClassImporter);
begin
  with Cl.Add(TSetupForm) do
  begin
    RegisterMethod(@TSetupForm.Center, 'Center');
    RegisterMethod(@TSetupForm.CenterInsideControl, 'CenterInsideControl');
  end;
end;

procedure RegisterMainForm_R(Cl: TPSRuntimeClassImporter);
begin
  with CL.Add(TMainForm) do
  begin
    RegisterMethod(@TMainForm.ShowAboutBox, 'ShowAboutBox');
  end;
end;

procedure TWIZARDFORMCANCELBUTTON_R(Self: TWIZARDFORM; var T: TBUTTON); begin T := Self.CANCELBUTTON; end;
procedure TWIZARDFORMNEXTBUTTON_R(Self: TWIZARDFORM; var T: TBUTTON); begin T := Self.NEXTBUTTON; end;
procedure TWIZARDFORMBACKBUTTON_R(Self: TWIZARDFORM; var T: TBUTTON); begin T := Self.BACKBUTTON; end;
procedure TWIZARDFORMOuterNotebook_R(Self: TWIZARDFORM; var T: TNewNotebook); begin T := Self.OuterNotebook; end;
procedure TWIZARDFORMInnerNotebook_R(Self: TWIZARDFORM; var T: TNewNotebook); begin T := Self.InnerNotebook; end;
procedure TWizardFormInfoAfterPage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.InfoAfterPage; end;
procedure TWizardFormInstallingPage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.InstallingPage; end;
procedure TWizardFormPreparingPage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.PreparingPage; end;
procedure TWizardFormReadyPage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.ReadyPage; end;
procedure TWizardFormSelectTasksPage_R(Self: TWizardForm; var T: TNewNotebookPage); Begin T := Self.SelectTasksPage; end;