wizardpackagewizard.dfm

来自「Delphi下用于编写向导的组件」· DFM 代码 · 共 1,106 行 · 第 1/3 页

      ''
      'uses'
      '  Classes, SysUtils, Windows,'
      '  ToolsAPI;'
      ''
      'type'
      
        '  %%WizardClassName%% = class(TInterfacedObject, IOTANotifier, I' +
        'OTAWizard, IOTARepositoryWizard, IOTARepositoryWizard60,'
      '    IOTAFormWizard)'
      '  protected'
      '    { IOTANotifier }'
      '    procedure AfterSave;'
      '    procedure BeforeSave;'
      '    procedure Destroyed;'
      '    procedure Modified;'
      ''
      '    { IOTAWizard }'
      '    function GetIDString: string;'
      '    function GetName: string;'
      '    function GetState: TWizardState;'
      '    procedure Execute;'
      ''
      '    { IOTARepositoryWizard }'
      '    function GetAuthor: string;'
      '    function GetComment: string;'
      '    function GetPage: string;'
      '    function GetGlyph: Cardinal;'
      ''
      '    { IOTARepositoryWizard60 }'
      '    function GetDesigner: string;'
      '  end;'
      ''
      'implementation'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      '{ %%WizardClassName%% protected: IOTANotifier }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure %%WizardClassName%%.AfterSave;'
      ''
      'begin'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure %%WizardClassName%%.BeforeSave;'
      'begin'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure %%WizardClassName%%.Destroyed;'
      ''
      'begin'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure %%WizardClassName%%.Modified;'
      ''
      'begin'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      '{ %%WizardClassName%% protected: IOTAWizard }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetIDString: string;'
      ''
      'begin'
      '  Result := '#39#39';'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetName: string;'
      ''
      'begin'
      '  Result := '#39#39';'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetState: TWizardState;'
      ''
      'begin'
      '  Result := [wsEnabled];'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure %%WizardClassName%%.Execute;'
      ''
      'begin'
      '  // your code here'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      '{ %%WizardClassName%% protected: IOTARepositoryWizard }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetAuthor: string;'
      ''
      'begin'
      '  Result := '#39#39';'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetComment: string;'
      ''
      'begin'
      '  Result := '#39#39';'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetGlyph: Cardinal;'
      ''
      'begin'
      '  Result := 0;'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetPage: string;'
      ''
      'begin'
      '  Result := '#39'Forms'#39';'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      '{ %%WizardClassName%% protected: IOTARepositoryWizard60 }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetDesigner: string;'
      ''
      'begin'
      '  Result := dAny;'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'end.')
    OnGetSource = ModuleCreatorGetSource
    Left = 168
    Top = 136
  end
  object ModuleCreatorProject: TModuleCreator
    CreatorType = ctUnit
    OnGetOwner = ModuleCreatorGetOwner
    SourceImpl.Strings = (
      'unit %0:s;'
      ''
      'interface'
      ''
      'uses'
      '  Classes, SysUtils, Windows,'
      '  ToolsAPI;'
      ''
      'type'
      
        '  %%WizardClassName%% = class(TInterfacedObject, IOTANotifier, I' +
        'OTAWizard, IOTARepositoryWizard, IOTARepositoryWizard60,'
      '    IOTAProjectWizard)'
      '  protected'
      '    { IOTANotifier }'
      '    procedure AfterSave;'
      '    procedure BeforeSave;'
      '    procedure Destroyed;'
      '    procedure Modified;'
      ''
      '    { IOTAWizard }'
      '    function GetIDString: string;'
      '    function GetName: string;'
      '    function GetState: TWizardState;'
      '    procedure Execute;'
      ''
      '    { IOTARepositoryWizard }'
      '    function GetAuthor: string;'
      '    function GetComment: string;'
      '    function GetPage: string;'
      '    function GetGlyph: Cardinal;'
      ''
      '    { IOTARepositoryWizard60 }'
      '    function GetDesigner: string;'
      '  end;'
      ''
      'implementation'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      '{ %%WizardClassName%% protected: IOTANotifier }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure %%WizardClassName%%.AfterSave;'
      ''
      'begin'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure %%WizardClassName%%.BeforeSave;'
      ''
      'begin'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure %%WizardClassName%%.Destroyed;'
      ''
      'begin'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure %%WizardClassName%%.Modified;'
      ''
      'begin'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      '{ %%WizardClassName%% protected: IOTAWizard }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetIDString: string;'
      ''
      'begin'
      '  Result := '#39#39';'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetName: string;'
      ''
      'begin'
      '  Result := '#39#39';'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetState: TWizardState;'
      ''
      'begin'
      '  Result := [wsEnabled];'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure %%WizardClassName%%.Execute;'
      ''
      'begin'
      '  // your code here'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      '{ %%WizardClassName%% protected: IOTARepositoryWizard }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetAuthor: string;'
      ''
      'begin'
      '  Result := '#39#39';'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetComment: string;'
      ''
      'begin'
      '  Result := '#39#39';'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetGlyph: Cardinal;'
      ''
      'begin'
      '  Result := 0;'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetPage: string;'
      ''
      'begin'
      '  Result := '#39'Forms'#39';'
      'end;'
      ''