wizardpackagewizard.dfm

Delphi下用于编写向导的组件

object PackageWizardRepository: TPackageWizardRepository
  OldCreateOrder = False
  IDString = 'TOndrej.PackageWizardRepository'
  WizardName = 'Wizard Package'
  Author = 'TOndrej'
  Comment = 'Wizard package'
  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
    0000000000000000000000000A000A0000000000000000000000000000000000
    000000000000000000000A00000A00000A000000000000020200000000000000
    00000000000000000A00001111070D0700000A00000002020202000000000000
    0000000000000A0000110D110D0A0C0D0C0D0000000202020202000000000000
    000000000A0000101111111111070D070D070D10020202020200000000000000
    00000A0000110D100D110D110D0A0C0D0C0D0702020202020A00000000000000
    00000011111111101111111111070D070D070202020202000000000000000000
    000000110D110D100D110D110D0A0C0D0702020202020C0D0000000000000000
    00000011111111101111111111070D070202020202070D070000000000000000
    000000110D110D100D110D110D0A0C02020202020C0D0C0D0000000000000000
    000000111111111011111111110A0202020202100D070D070000000000000000
    000000110D110D100D110D070002020202020C100C0D0C0D0000000000000000
    0000001111111110110A070002020202020C0C100D070D070000000000000000
    000000110D110A0A0A1100020202020200110C0C0C070C0D0000000000000000
    000000110A0A0A1111000202020202110700110C0C0C0C070000000000000000
    000A000A0A111100000202020202000700070011110C0C0C000A000000000000
    0A000A111100001102020202020A0711071107000011110C0C000A000000000A
    00111100000711000F0F0202000A11070007110711000011110C000A00000A00
    11000011110A000F0F0F0200000000000A1107110A0A1100001111000A000000
    0011111111000F0F0F000F0F0F000F0A100A0A0A0A100A1111000011000A0000
    00111111000F0F0F000F0F0F050F050F0A000A11110A11111111000A0000000A
    001111110A0A0F000F0F00000F050F0011000011111111111111000A00000A00
    111111110A0A000F0F00110A000F050F0A00000A11111111111111000A000000
    111111111100110F0F0F0A100A000F0A100A000A111111111111110000000000
    001111111100000F0F0F0F0A000F0F0F0A0011000A1111111111000000000000
    0A00001111110A000F0F0F0F0F0F0F00001100110011111100000A0000000000
    00000A000011000F0F0F0F0F0F0F0F0F00001100071100000A00000000000000
    000000000A0A00110F000F0F0F000F110011000700000A000000000000000000
    0000000000000A000007000F001100001111000A0A0000000000000000000000
    000000000000000A001100110011110011000A00000000000000000000000000
    00000000000000000A0011001111000A000A0000000000000000000000000000
    0000000000000000000A000A000A00000000000000000000000000000000FFFC
    7FFFFFF01F9FFFC0070FFF00020FFC00001FF000001FF000001FF000001FF000
    001FF000001FF000001FF000001FF000001FF000001FF000001FE000A00FC000
    0007800020030000000100000000C00000008000000300000001000000018000
    0003C0000007F000001FFC00007FFF0001FFFF8007FFFFC00FFFFFE07FFF}
  Page = 'Wizards'
  Left = 200
  Top = 100
  Height = 300
  Width = 400
  object ProjectCreator: TProjectCreator
    OnGetOwner = ProjectCreatorGetOwner
    ShowSource = True
    OnNewDefaultModule = ProjectCreatorNewDefaultModule
    Left = 56
    Top = 24
  end
  object ModuleCreatorAddIn: TModuleCreator
    CreatorType = ctUnit
    OnGetOwner = ModuleCreatorGetOwner
    SourceImpl.Strings = (
      'unit %0:s;'
      ''
      'interface'
      ''
      'uses'
      '  Classes, SysUtils,'
      '  ToolsAPI;'
      ''
      'type'
      
        '  %%WizardClassName%% = class(TInterfacedObject, IOTANotifier, I' +
        'OTAWizard)'
      '  protected'
      '    { IOTANotifier }'
      '    procedure AfterSave;'
      '    procedure BeforeSave;'
      '    procedure Destroyed;'
      '    procedure Modified;'
      '    { IOTAWizard }'
      '    function GetIDString: string;'
      '    function GetName: string;'
      '    function GetState: TWizardState;'
      '    procedure Execute;'
      '  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;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'end.')
    OnGetSource = ModuleCreatorGetSource
    Left = 168
    Top = 24
  end
  object ModuleCreatorMenu: TModuleCreator
    CreatorType = ctUnit
    OnGetOwner = ModuleCreatorGetOwner
    SourceImpl.Strings = (
      'unit %0:s;'
      ''
      'interface'
      ''
      'uses'
      '  Classes, SysUtils,'
      '  ToolsAPI;'
      ''
      'type'
      
        '  %%WizardClassName%% = class(TInterfacedObject, IOTANotifier, I' +
        'OTAWizard, IOTAMenuWizard)'
      '  protected'
      '    { IOTANotifier }'
      '    procedure AfterSave;'
      '    procedure BeforeSave;'
      '    procedure Destroyed;'
      '    procedure Modified;'
      '    { IOTAWizard }'
      '    function GetIDString: string;'
      '    function GetName: string;'
      '    function GetState: TWizardState;'
      '    procedure Execute;'
      '    { IOTAMenuWizard }'
      '    function GetMenuText: 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: IOTAMenuWizard }'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'function %%WizardClassName%%.GetMenuText: string;'
      ''
      'begin'
      '  Result := '#39#39';'
      'end;'
      ''
      
        '//--------------------------------------------------------------' +
        '--------------------------------------------------------'
      ''
      'end.')
    OnGetSource = ModuleCreatorGetSource
    Left = 168
    Top = 80
  end
  object ModuleCreatorForm: TModuleCreator
    CreatorType = ctUnit
    OnGetOwner = ModuleCreatorGetOwner
    SourceImpl.Strings = (
      'unit %0:s;'
      ''
      'interface'