wizardpackagewizard.dfm

Delphi下用于编写向导的组件

      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      '{ %%WizardClassName%% protected: IOTARepositoryWizard60 }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetDesigner: string;'
      ''
      'begin'
      '  Result := dAny;'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'end.')
    OnGetSource = ModuleCreatorGetSource
    Left = 168
    Top = 192
  end
  object ModuleCreatorDMAddIn: TModuleCreator
    OnGetOwner = ModuleCreatorGetOwner
    AncestorName = 'WizardModule'
    SourceForm.Strings = (
      'object %1:s: T%1:s'
      '  OldCreateOrder = False'
      'end')
    SourceImpl.Strings = (
      'unit %0:s;'
      ''
      'interface'
      ''
      'uses'
      
        '  Windows, Messages, SysUtils, Classes, Graphics, Controls, Form' +
        's, Dialogs,'
      '  ToolsAPI, DMNotifier, DMWizard;'
      ''
      'type'
      '  T%1:s = class(TWizardModule)'
      '  private'
      '  protected'
      '    procedure Execute; override;'
      '  public'
      '  end;'
      ''
      'procedure Register;'
      ''
      'implementation'
      ''
      'uses'
      '  WizardUtils;'
      ''
      '{$R *.DFM}'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure Register;'
      ''
      'begin'
      '  RegisterPackageWizard(T%1:s.CreateInterfaced);'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      '{ T%1:s protected }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure T%1:s.Execute;'
      ''
      'begin'
      '  inherited Execute;'
      '  // your code here'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'end.')
    Left = 288
    Top = 24
  end
  object ModuleCreatorDMMenu: TModuleCreator
    OnGetOwner = ModuleCreatorGetOwner
    AncestorName = 'MenuWizardModule'
    SourceForm.Strings = (
      'object %1:s: T%1:s'
      '  OldCreateOrder = False'
      'end')
    SourceImpl.Strings = (
      'unit %0:s;'
      ''
      'interface'
      ''
      'uses'
      
        '  Windows, Messages, SysUtils, Classes, Graphics, Controls, Form' +
        's, Dialogs,'
      '  ToolsAPI,'
      '  DMMenuWizard;'
      ''
      'type'
      '  T%1:s = class(TMenuWizardModule)'
      '  private'
      '  protected'
      '    procedure Execute; override;'
      '  public'
      '  end;'
      ''
      'procedure Register;'
      ''
      'implementation'
      ''
      'uses'
      '  WizardUtils;'
      ''
      '{$R *.DFM}'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure Register;'
      ''
      'begin'
      '  RegisterPackageWizard(T%1:s.CreateInterfaced);'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      '{ T%1:s protected }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure T%1:s.Execute;'
      ''
      'begin'
      '  inherited Execute;'
      '  // your code here'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'end.')
    Left = 288
    Top = 80
  end
  object ModuleCreatorDMForm: TModuleCreator
    OnGetOwner = ModuleCreatorGetOwner
    AncestorName = 'RepositoryWizardModule'
    SourceForm.Strings = (
      'object %1:s: T%1:s'
      '  OldCreateOrder = False'
      '  object ModuleCreator: TModuleCreator'
      '    CreatorType = ctForm'
      '    Existing = False'
      '    AncestorName = '#39'RepositoryWizardModule'#39
      '    MainForm = False'
      '    Left = 48'
      '    Top = 16'
      '  end'
      'end')
    SourceImpl.Strings = (
      'unit %0:s;'
      ''
      'interface'
      ''
      'uses'
      
        '  Windows, Messages, SysUtils, Classes, Graphics, Controls, Form' +
        's, Dialogs,'
      '  ToolsAPI,'
      '  DMRepositoryWizard, DMWizard;'
      ''
      'type'
      '  T%1:s = class(TRepositoryWizardModule, IOTAFormWizard)'
      '    ModuleCreator: TModuleCreator;'
      '  private'
      '  protected'
      '    procedure Execute; override;'
      '  public'
      '  end;'
      ''
      'procedure Register;'
      ''
      'implementation'
      ''
      'uses'
      '  WizardUtils;'
      ''
      '{$R *.DFM}'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure Register;'
      ''
      'begin'
      '  RegisterPackageWizard(T%1:s.CreateInterfaced);'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      '{ T%1:s protected }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure T%1:s.Execute;'
      ''
      'begin'
      '  inherited Execute;'
      
        '  (BorlandIDEServices as IOTAModuleServices).CreateModule(Module' +
        'Creator);'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'end.')
    Left = 288
    Top = 136
  end
  object ModuleCreatorDMProject: TModuleCreator
    OnGetOwner = ModuleCreatorGetOwner
    AncestorName = 'RepositoryWizardModule'
    SourceForm.Strings = (
      'object %1:s: T%1:s'
      '  OldCreateOrder = False'
      '  Page = '#39'Projects'#39
      '  object ProjectCreator: TProjectCreator'
      '    CreatorType = ctNone'
      '    OnGetOwner = ProjectCreatorGetOwner'
      '    OnNewDefaultModule = ProjectCreatorNewDefaultModule'
      '    Left = 56'
      '    Top = 24'
      '  end'
      'end')
    SourceImpl.Strings = (
      'unit %0:s;'
      ''
      'interface'
      ''
      'uses'
      
        '  Windows, Messages, SysUtils, Classes, Graphics, Controls, Form' +
        's, Dialogs,'
      '  ToolsAPI,'
      '  DMRepositoryWizard, DMWizard;'
      ''
      'type'
      '  T%1:s = class(TRepositoryWizardModule, IOTAProjectWizard)'
      '    ProjectCreator: TProjectCreator;'
      
        '    procedure ProjectCreatorGetOwner(Sender: TObject; var OwnerM' +
        'odule: IOTAModule);'
      
        '    procedure ProjectCreatorNewDefaultModule(Sender: TObject; co' +
        'nst Project: IOTAProject);'
      '  private'
      '  protected'
      '    procedure Execute; override;'
      '  public'
      '  end;'
      ''
      'procedure Register;'
      ''
      'implementation'
      ''
      'uses'
      '  WizardUtils;'
      ''
      '{$R *.DFM}'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure Register;'
      ''
      'begin'
      '  RegisterPackageWizard(T%1:s.CreateInterfaced);'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      '{ T%1:s protected }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'procedure T%1:s.Execute;'
      ''
      'begin'
      '  inherited;'
      
        '  (BorlandIDEServices as IOTAModuleServices).CreateModule(Projec' +
        'tCreator);'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      '{ T%1:s event handlers }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      
        'procedure T%1:s.ProjectCreatorGetOwner(Sender: TObject; var Owne' +
        'rModule: IOTAModule);'
      ''
      'begin'
      '  OwnerModule := GetCurrentProjectGroup;'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      
        'procedure T%1:s.ProjectCreatorNewDefaultModule(Sender: TObject; ' +
        'const Project: IOTAProject);'
      ''
      'begin'
      '  // your code here'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'end.')
    Left = 288
    Top = 192
  end
end