Chip 2001 August/Chip_2001-08_cd2.bin/kancelar/busicard/BCDP2000.EXE/bcdp.exe/0/RCDATA/TDESIGNWIZARDFORM/TDESIGNWIZARDFORM.txt

Text File | 2000-10-20 | 23.7 KB | 800 lines

object DesignWizardForm: TDesignWizardForm
  Left = 243
  Top = 138
  HelpContext = 100
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Design Wizard'
  ClientHeight = 372
  ClientWidth = 622
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 313
    Height = 357
    BevelOuter = bvNone
    TabOrder = 0
    object PageControl: TPageControl
      Left = 0
      Top = 0
      Width = 313
      Height = 321
      ActivePage = OptionSheet
      Align = alClient
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object OptionSheet: TTabSheet
        Caption = 'OptionSheet'
        TabVisible = False
        object Label5: TLabel
          Left = 4
          Top = 12
          Width = 163
          Height = 13
          Caption = 'STEP 1: Choose What to Do'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object OptionRadioGroup: TRadioGroup
          Left = 4
          Top = 48
          Width = 295
          Height = 249
          Caption = 'What do you want to do?'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemIndex = 0
          Items.Strings = (
            'Create a Design from a Template'
            'Pick a Layout and Create a Design from Scratch'
            'Open an Existing File')
          ParentFont = False
          TabOrder = 0
        end
        object LayoutRadioGroup: TRadioGroup
          Left = 200
          Top = 88
          Width = 89
          Height = 57
          Caption = 'Layout Type'
          ItemIndex = 0
          Items.Strings = (
            'Standard'
            'A4')
          TabOrder = 1
        end
      end
      object TemplateSheet: TTabSheet
        Caption = 'TemplateSheet'
        TabVisible = False
        OnShow = TemplateSheetShow
        object Label4: TLabel
          Left = 4
          Top = 12
          Width = 161
          Height = 13
          Caption = 'STEP 2: Choose a Template'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label1: TLabel
          Left = 4
          Top = 32
          Width = 45
          Height = 13
          Caption = 'Category:'
        end
        object Label23: TLabel
          Left = 8
          Top = 272
          Width = 289
          Height = 33
          AutoSize = False
          Caption =
            'Most templates listed should be used with a background, which yo' +
            'u can select by clicking the Next button below.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object CategoryCombo: TComboBox
          Left = 4
          Top = 52
          Width = 295
          Height = 21
          Style = csDropDownList
          ItemHeight = 0
          Sorted = True
          TabOrder = 0
          OnChange = CategoryComboChange
        end
        object TemplateList: TListBox
          Left = 4
          Top = 80
          Width = 295
          Height = 185
          ItemHeight = 13
          Sorted = True
          TabOrder = 1
          OnClick = TemplateListClick
        end
      end
      object AddressSheet: TTabSheet
        Caption = 'AddressSheet'
        TabVisible = False
        OnShow = AddressSheetShow
        object Label6: TLabel
          Left = 4
          Top = 12
          Width = 198
          Height = 13
          Caption = 'STEP 4: Enter Address Information'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object AddressPanel: TPanel
          Left = 3
          Top = 36
          Width = 300
          Height = 109
          BevelOuter = bvNone
          TabOrder = 0
          object Label2: TLabel
            Left = 8
            Top = 4
            Width = 41
            Height = 13
            Caption = 'Address:'
          end
          object AddressMemo: TMemo
            Left = 8
            Top = 24
            Width = 217
            Height = 73
            ScrollBars = ssBoth
            TabOrder = 0
          end
          object GetAddressBtn: TBitBtn
            Left = 240
            Top = 48
            Width = 53
            Height = 25
            Caption = 'Pick'
            TabOrder = 1
            OnClick = GetAddressBtnClick
          end
        end
        object RetAddressPanel: TPanel
          Left = 3
          Top = 156
          Width = 300
          Height = 109
          BevelOuter = bvNone
          TabOrder = 1
          object Label3: TLabel
            Left = 8
            Top = 4
            Width = 76
            Height = 13
            Caption = 'Return Address:'
          end
          object RetAddressMemo: TMemo
            Left = 8
            Top = 24
            Width = 217
            Height = 73
            ScrollBars = ssBoth
            TabOrder = 0
          end
          object GetRetAddressBtn: TBitBtn
            Left = 240
            Top = 48
            Width = 53
            Height = 25
            Caption = 'Pick'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            OnClick = GetRetAddressBtnClick
          end
        end
        object UpdateBtn: TBitBtn
          Left = 115
          Top = 264
          Width = 75
          Height = 25
          Caption = '&Update'
          TabOrder = 2
          OnClick = UpdateBtnClick
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            04000000000080000000120B0000120B00001000000010000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
            DADAADAD7444447DADADDAD444444444DADAAD444DADAD444DADD744DADADAD4
            47DAA44DADA22DA744ADD44ADA2222DA44DAA44DAD2222AD44ADD44ADAD22ADA
            DADAA447ADADADAD44ADD744DA4ADADADADAAD444D44ADA47DADDAD444444ADA
            DADAADAD74444DADADADDADADA44DADADADAADADAD4DADADADAD}
        end
      end
      object CardSheet: TTabSheet
        Caption = 'CardSheet'
        TabVisible = False
        OnShow = CardSheetShow
        object Label11: TLabel
          Left = 4
          Top = 12
          Width = 233
          Height = 13
          Caption = 'STEP 4: Enter Business Card Information'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object ScrollBox1: TScrollBox
          Left = 0
          Top = 40
          Width = 300
          Height = 217
          BorderStyle = bsNone
          TabOrder = 0
          object Label12: TLabel
            Left = 8
            Top = 0
            Width = 31
            Height = 13
            Caption = 'Name:'
          end
          object Label13: TLabel
            Left = 8
            Top = 24
            Width = 47
            Height = 13
            Caption = 'Company:'
          end
          object Label14: TLabel
            Left = 8
            Top = 48
            Width = 23
            Height = 13
            Caption = 'Title:'
          end
          object Label15: TLabel
            Left = 8
            Top = 72
            Width = 41
            Height = 13
            Caption = 'Address:'
          end
          object Label16: TLabel
            Left = 8
            Top = 136
            Width = 34
            Height = 13
            Caption = 'Phone:'
          end
          object Label17: TLabel
            Left = 8
            Top = 160
            Width = 23
            Height = 13
            Caption = 'FAX:'
          end
          object Label18: TLabel
            Left = 8
            Top = 184
            Width = 28
            Height = 13
            Caption = 'Email:'
          end
          object Label19: TLabel
            Left = 8
            Top = 240
            Width = 34
            Height = 13
            Caption = 'User 1:'
          end
          object Label20: TLabel
            Left = 8
            Top = 304
            Width = 34
            Height = 13
            Caption = 'User 2:'
          end
          object Label21: TLabel
            Left = 8
            Top = 360
            Width = 34
            Height = 13
            Caption = 'User 3:'
          end
          object Label22: TLabel
            Left = 8
            Top = 412
            Width = 34
            Height = 13
            Caption = 'User 4:'
          end
          object CardNameEdit: TEdit
            Left = 64
            Top = 0
            Width = 177
            Height = 21
            TabOrder = 0
          end
          object CardCompanyEdit: TEdit
            Left = 64
            Top = 24
            Width = 177
            Height = 21
            TabOrder = 1
          end
          object CardTitleEdit: TEdit
            Left = 64
            Top = 48
            Width = 177
            Height = 21
            TabOrder = 2
          end
          object CardAddressMemo: TMemo
            Left = 64
            Top = 72
            Width = 177
            Height = 57
            ScrollBars = ssBoth
            TabOrder = 3
          end
          object CardPhoneEdit: TEdit
            Left = 64
            Top = 136
            Width = 177
            Height = 21
            TabOrder = 4
          end
          object CardFaxEdit: TEdit
            Left = 64
            Top = 160
            Width = 177
            Height = 21
            TabOrder = 5
          end
          object CardEmailEdit: TEdit
            Left = 64
            Top = 184
            Width = 177
            Height = 21
            TabOrder = 6
          end
          object CardUser1Memo: TMemo
            Left = 64
            Top = 240
            Width = 177
            Height = 49
            ScrollBars = ssBoth
            TabOrder = 7
          end
          object CardUser2Memo: TMemo
            Left = 64
            Top = 296
            Width = 177
            Height = 49
            ScrollBars = ssBoth
            TabOrder = 8
          end
          object CardUser3Memo: TMemo
            Left = 64
            Top = 352
            Width = 177
            Height = 49
            ScrollBars = ssBoth
            TabOrder = 9
          end
          object CardUser4Memo: TMemo
            Left = 64
            Top = 408
            Width = 177
            Height = 49
            ScrollBars = ssBoth
            TabOrder = 10
          end
        end
        object GetCardDataBtn: TBitBtn
          Left = 27
          Top = 264
          Width = 75
          Height = 25
          Caption = '&Pick'
          TabOrder = 1
          OnClick = GetCardDataBtnClick
        end
        object ClearCardBtn: TBitBtn
          Left = 115
          Top = 264
          Width = 75
          Height = 25
          Caption = '&Clear'
          TabOrder = 2
          OnClick = ClearCardBtnClick
          Glyph.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F0000000CE0E0000C40E00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777777700007777777777777777777700007777777777777777777700007777
            7777777777707777000077777077777777777777000077770007777777077777
            0000777700077777707777770000777770007777007777770000777777000770
            0777777700007777777000007777777700007777777700077777777700007777
            7770000077777777000077777700077077777777000077770000777700777777
            0000777000077777700777770000777007777777770077770000777777777777
            7777777700007777777777777777777700007777777777777777777700007777
            77777777777777770000}
        end
        object Update2Btn: TBitBtn
          Left = 203
          Top = 264
          Width = 75
          Height = 25
          Caption = '&Update'
          TabOrder = 3
          OnClick = UpdateBtnClick
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            04000000000080000000120B0000120B00001000000010000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
            DADAADAD7444447DADADDAD444444444DADAAD444DADAD444DADD744DADADAD4
            47DAA44DADA22DA744ADD44ADA2222DA44DAA44DAD2222AD44ADD44ADAD22ADA
            DADAA447ADADADAD44ADD744DA4ADADADADAAD444D44ADA47DADDAD444444ADA
            DADAADAD74444DADADADDADADA44DADADADAADADAD4DADADADAD}
        end
      end
      object GreetingSheet: TTabSheet
        Caption = 'GreetingSheet'
        TabVisible = False
        OnShow = GreetingSheetShow
        object Label7: TLabel
          Left = 8
          Top = 43
          Width = 223
          Height = 13
          Caption = 'Enter the first name of the person the card is to:'
        end
        object Label8: TLabel
          Left = 4
          Top = 12
          Width = 231
          Height = 13
          Caption = 'STEP 4: Enter Greeting Card Information'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label9: TLabel
          Left = 8
          Top = 107
          Width = 234
          Height = 13
          Caption = 'Enter the first name of the person the card is from:'
        end
        object GetToNameBtn: TBitBtn
          Left = 240
          Top = 63
          Width = 53
          Height = 25
          Caption = 'Pick'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnClick = GetToNameBtnClick
        end
        object ToNameEdit: TEdit
          Left = 8
          Top = 64
          Width = 217
          Height = 21
          TabOrder = 0
        end
        object FromNameEdit: TEdit
          Left = 8
          Top = 128
          Width = 217
          Height = 21
          TabOrder = 2
        end
        object GetFromNameBtn: TBitBtn
          Left = 240
          Top = 127
          Width = 53
          Height = 25
          Caption = 'Pick'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          OnClick = GetFromNameBtnClick
        end
        object Update3Btn: TBitBtn
          Left = 115
          Top = 264
          Width = 75
          Height = 25
          Caption = '&Update'
          TabOrder = 4
          OnClick = UpdateBtnClick
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            04000000000080000000120B0000120B00001000000010000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
            DADAADAD7444447DADADDAD444444444DADAAD444DADAD444DADD744DADADAD4
            47DAA44DADA22DA744ADD44ADA2222DA44DAA44DAD2222AD44ADD44ADAD22ADA
            DADAA447ADADADAD44ADD744DA4ADADADADAAD444D44ADA47DADDAD444444ADA
            DADAADAD74444DADADADDADADA44DADADADAADADAD4DADADADAD}
        end
      end
      object BackgroundSheet: TTabSheet
        Caption = 'BackgroundSheet'
        TabVisible = False
        object Label10: TLabel
          Left = 4
          Top = 12
          Width = 171
          Height = 13
          Caption = 'STEP 3: Select a Background'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label24: TLabel
          Left = 8
          Top = 292
          Width = 289
          Height = 13
          AutoSize = False
          Caption = 'If you don'#39't want a background just click the Next button.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object BackgroundBtn: TBitBtn
          Left = 12
          Top = 256
          Width = 137
          Height = 25
          Caption = '&Select  Background'
          TabOrder = 0
          OnClick = BackgroundBtnClick
          Glyph.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777777700007777777777777777777700007777777777777777777700007777
            777777777777777700007777777777EE77DD777700007777777777EE77DD7777
            00007777CC77CC77AA77777700007777CC77CC77AA77777700007777779977BB
            77EE777700007777779977BB77EE777700007777DD77EE77CC77777700007777
            DD77EE77CC7777770000777777CC7799777777770000777777CC779977777777
            000077779977DD77CC777777000077779977DD77CC7777770000777777777777
            7777777700007777777777777777777700007777777777777777777700007777
            77777777777777770000}
        end
        object BackgroundList: TListBox
          Left = 8
          Top = 32
          Width = 289
          Height = 217
          ItemHeight = 13
          Sorted = True
          TabOrder = 1
          OnClick = BackgroundListClick
        end
        object NoBackgroundBtn: TBitBtn
          Left = 156
          Top = 256
          Width = 137
          Height = 25
          Caption = '&Clear Background'
          TabOrder = 2
          OnClick = NoBackgroundBtnClick
          Glyph.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F0000000CE0E0000C40E00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777777700007777777777777777777700007777777777777777777700007777
            7777777777707777000077777077777777777777000077770007777777077777
            0000777700077777707777770000777770007777007777770000777777000770
            0777777700007777777000007777777700007777777700077777777700007777
            7770000077777777000077777700077077777777000077770000777700777777
            0000777000077777700777770000777007777777770077770000777777777777
            7777777700007777777777777777777700007777777777777777777700007777
            77777777777777770000}
        end
      end
      object FinishSheet: TTabSheet
        Caption = 'FinishSheet'
        TabVisible = False
        object Label25: TLabel
          Left = 8
          Top = 8
          Width = 251
          Height = 13
          Caption = 'Congratulations...  Your Design is Complete!'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label26: TLabel
          Left = 8
          Top = 40
          Width = 275
          Height = 49
          AutoSize = False
          Caption =
            'Review the preview to the right and click the Back button to mak' +
            'e changes or click the Finish button to create the design.'
          WordWrap = True
        end
        object Label27: TLabel
          Left = 8
          Top = 104
          Width = 275
          Height = 65
          AutoSize = False
          Caption =
            'Once your design is created you can modify it by moving objects ' +
            'around, changing colors and changing/adding text, graphics and s' +
            'hapes, just like you were creating a design from scratch.'
          WordWrap = True
        end
        object SwitchLabel: TLabel
          Left = 8
          Top = 208
          Width = 275
          Height = 73
          AutoSize = False
          Caption =
            'If you want to print your design on a paper stock with a differe' +
            'nt layout,  you can use the Switch To Different Layout command o' +
            'n the File menu to choose a layout that matches your paper stock' +
            '.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
      end
    end
    object Panel2: TPanel
      Left = 0
      Top = 321
      Width = 313
      Height = 36
      Align = alBottom
      TabOrder = 1
      object BackBtn: TBitBtn
        Left = 9
        Top = 5
        Width = 65
        Height = 25
        Cancel = True
        Caption = '&Back'
        Enabled = False
        TabOrder = 0
        OnClick = BackBtnClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          777777777777770777777777777770077777777777770C07777777777770CC07
          77777777770CCC077777777770CCCC07777777770CCCCC07777777770CCCCC07
          7777777770CCCC0777777777770CCC07777777777770CC077777777777770C07
          7777777777777007777777777777770777777777777777777777}
      end
      object NextBtn: TBitBtn
        Left = 81
        Top = 5
        Width = 65
        Height = 25
        Caption = '&Next'
        Default = True
        TabOrder = 1
        OnClick = NextBtnClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          77777777077777777777777700777777777777770C077777777777770CC07777
          777777770CCC0777777777770CCCC077777777770CCCCC07777777770CCCCC07
          777777770CCCC077777777770CCC0777777777770CC07777777777770C077777
          7777777700777777777777770777777777777777777777777777}
        Layout = blGlyphRight
      end
      object CancelBtn: TBitBtn
        Left = 154
        Top = 5
        Width = 65
        Height = 25
        Caption = '&Cancel'
        TabOrder = 2
        Kind = bkCancel
      end
      object HelpBtn: TBitBtn
        Left = 238
        Top = 5
        Width = 65
        Height = 25
        TabOrder = 3
        Kind = bkHelp
      end
    end
  end
  object PreviewCardPanel: TGridPanel
    Left = 328
    Top = 24
    Width = 289
    Height = 289
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Color = clWhite
    TabOrder = 1
    Visible = False
    ShowGrid = False
    MarginLeft = 0
    MarginTop = 0
    MarginRight = 0
    MarginBottom = 0
    ShowMargins = False
  end
end