wizardprojectwizard.dfm

Delphi下用于编写向导的组件

object ProjectWizardRepository: TProjectWizardRepository
  OldCreateOrder = False
  IDString = 'TOndrej.ProjectWizardRepository'
  WizardName = 'Project Wizard'
  Author = 'TOndrej'
  Comment = 'Project wizard'
  Icon.Data = {
    0000010001002020000000000000A80800001600000028000000200000004000
    0000010008000000000080040000000000000000000000010000000000000000
    0000800080008000000080800000008000000080800000008000C0C0C000C0DC
    C000F0CAA60080808000FF00FF00FF000000FFFF000000FF000000FFFF000000
    FF00FFFFFF00F0FBFF00A4A0A000D4F0FF00B1E2FF008ED4FF006BC6FF0048B8
    FF0025AAFF0000AAFF000092DC00007AB90000629600004A730000325000D4E3
    FF00B1C7FF008EABFF006B8FFF004873FF002557FF000055FF000049DC00003D
    B900003196000025730000195000D4D4FF00B1B1FF008E8EFF006B6BFF004848
    FF002525FF000000FF000000DC000000B900000096000000730000005000E3D4
    FF00C7B1FF00AB8EFF008F6BFF007348FF005725FF005500FF004900DC003D00
    B900310096002500730019005000F0D4FF00E2B1FF00D48EFF00C66BFF00B848
    FF00AA25FF00AA00FF009200DC007A00B900620096004A00730032005000FFD4
    FF00FFB1FF00FF8EFF00FF6BFF00FF48FF00FF25FF00FF00FF00DC00DC00B900
    B900960096007300730050005000FFD4F000FFB1E200FF8ED400FF6BC600FF48
    B800FF25AA00FF00AA00DC009200B9007A009600620073004A0050003200FFD4
    E300FFB1C700FF8EAB00FF6B8F00FF487300FF255700FF005500DC004900B900
    3D00960031007300250050001900FFD4D400FFB1B100FF8E8E00FF6B6B00FF48
    4800FF252500FF000000DC000000B9000000960000007300000050000000FFE3
    D400FFC7B100FFAB8E00FF8F6B00FF734800FF572500FF550000DC490000B93D
    0000963100007325000050190000FFF0D400FFE2B100FFD48E00FFC66B00FFB8
    4800FFAA2500FFAA0000DC920000B97A000096620000734A000050320000FFFF
    D400FFFFB100FFFF8E00FFFF6B00FFFF4800FFFF2500FFFF0000DCDC0000B9B9
    0000969600007373000050500000F0FFD400E2FFB100D4FF8E00C6FF6B00B8FF
    4800AAFF2500AAFF000092DC00007AB90000629600004A73000032500000E3FF
    D400C7FFB100ABFF8E008FFF6B0073FF480057FF250055FF000049DC00003DB9
    0000319600002573000019500000D4FFD400B1FFB1008EFF8E006BFF6B0048FF
    480025FF250000FF000000DC000000B90000009600000073000000500000D4FF
    E300B1FFC7008EFFAB006BFF8F0048FF730025FF570000FF550000DC490000B9
    3D00009631000073250000501900D4FFF000B1FFE2008EFFD4006BFFC60048FF
    B80025FFAA0000FFAA0000DC920000B97A000096620000734A0000503200D4FF
    FF00B1FFFF008EFFFF006BFFFF0048FFFF0025FFFF0000FFFF0000DCDC0000B9
    B900009696000073730000505000F2F2F200E6E6E600DADADA00CECECE00C2C2
    C200B6B6B600AAAAAA009E9E9E0092929200868686007A7A7A006E6E6E006262
    6200565656004A4A4A003E3E3E0032323200262626001A1A1A000E0E0E000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000020200000000000000
    0000000000000000000000000000000000000000000002020202000000000000
    0000000000000000000000000000000000000000000202020202000000000000
    0000000000000000000000000000000000000000020202020200000000000000
    0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A02020202020A0A0A0A00000000
    0000000000000000000000000000000000000202020202000000000A00000000
    1111071107110711071107110711071107020202020207110711000A00000000
    11071107110711071107110A0A0A0A0A02020202020A0A0A0A0A000A0A0A0000
    1111071107110711071100000000000202020202000000000000000000000000
    1107110711071107111100111111020202020211111111111111111111000000
    1111071107110711071100111102020202020000001107000000000011000000
    1107110711071107111100110202020202111111001107111111110011000000
    1111071107110711071100020202020207070707071107070707070711000000
    1107110711071107111102020202021111111111111111111111111111000000
    1111071107110711070202020202111111111111111111111111111111000000
    1107110711071107020202020211111111111111111111111111111111000000
    11110711071107000F0F02021111111111111111111111111111111111000000
    110711071107000F0F0F0200000000000A000000000A00000000000000000000
    1111071107000F0F0F00000C0C0C0C0A100A0C0C0A100A000700070007000000
    11071107000F0F0F00110000000000000A000000000A00000000000000000000
    111111110A0A0F00111111111111111111111111111111111111000A00000000
    000000000A0A00000000000A000000000A000000000000000000000A00000000
    110711071107110711070A100A07110A100A1107110711071107000A00000000
    11000000071100000011070A000007110A110711071107110711000A00000000
    1111111111111111111111111111111111111111111111111111000A00000000
    0000000000000000000000000000000000000000000000000000000A00000000
    0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000700070007000A00000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFF9FFFFFFF0FFFFFFE0FFFFFFC1FC000000380000003800000038000
    0000800000008000000080000000800000008000000080000000800000008000
    0000800000008000000080000000800000008000000380000003800000038000
    000380000003800000038000000380000007FFFFFFFFFFFFFFFFFFFFFFFF}
  Page = 'Wizards'
  Left = 200
  Top = 100
  Height = 200
  Width = 300
  object ModuleCreator: TModuleCreator
    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 = 40
    Top = 16
  end
end