WDR Computer Club Digital 1996 October/CLUB10_96.BIN/share95/95rolode/rolodeck.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1996-05-31 | 24KB | 747 lines

object Form1: TForm1
  Left = 269
  Top = 114
  HelpContext = 1
  ActiveControl = Memo1
  AutoScroll = False
  Caption = 'Rolodeck v 2.0'
  ClientHeight = 292
  ClientWidth = 457
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  PrintScale = poNone
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 16
  object TLabel
    Left = 368
    Top = 24
    Width = 4
    Height = 16
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object TLabel
    Left = 360
    Top = 32
    Width = 3
    Height = 13
  end
  object TLabel
    Left = 368
    Top = 32
    Width = 3
    Height = 13
  end
  object TabbedNotebook1: TTabbedNotebook
    Left = 0
    Top = 0
    Width = 454
    Height = 292
    HelpContext = 1
    TabsPerRow = 4
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'Arial Narrow'
    TabFont.Style = []
    TabOrder = 0
    OnChange = TabbedNotebook1Change
    object TTabPage
      Left = 4
      Top = 27
    end
    object TTabPage
      Left = 4
      Top = 27
    end
    object TTabPage
      Left = 4
      Top = 27
    end
    object TTabPage
      Left = 4
      Top = 27
    end
  end
  object Panel2: TPanel
    Left = 16
    Top = 32
    Width = 337
    Height = 225
    BevelInner = bvLowered
    BevelWidth = 2
    Color = clWindow
    TabOrder = 4
  end
  object TabSet1: TTabSet
    Left = 2
    Top = 270
    Width = 449
    Height = 21
    HelpContext = 1
    BackgroundColor = clAppWorkSpace
    Font.Color = clBlack
    Font.Height = -8
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Tabs.Strings = (
      '#'
      'A'
      'B'
      'C'
      'D'
      'E'
      'F'
      'G'
      'H'
      'I'
      'J'
      'K'
      'L'
      'M'
      'N'
      'O'
      'P'
      'Q'
      'R'
      'S'
      'T'
      'U'
      'V'
      'W'
      'X'
      'Y'
      'Z')
    TabIndex = 0
    OnChange = TabSet1Change
  end
  object Panel1: TPanel
    Left = 360
    Top = 80
    Width = 73
    Height = 185
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 40
      Top = 155
      Width = 25
      Height = 25
      Hint = 'Exit'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F3333333F7F333301111111B10333337F333333737F33330111111111
        0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
        0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
        0333337F377777337F333301111111110333337F333333337F33330111111111
        0333337FFFFFFFFF7F33330000000000033333777777777773330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = Exit1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 8
      Top = 30
      Width = 25
      Height = 25
      Hint = 'Page back'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333333333333333333333333333333333FF333333333333
        3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
        E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
        E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
        E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
        000033333373FF77777733333330003333333333333777333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 40
      Top = 29
      Width = 25
      Height = 25
      Hint = 'Page forward'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FFF333333333333000333333333
        3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
        3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
        0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
        BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
        33337777773FF733333333333300033333333333337773333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 8
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Move back'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF3333333333333744333333333333F773333333333337
        44473333333333F777F3333333333744444333333333F7733733333333374444
        4433333333F77333733333333744444447333333F7733337F333333744444444
        433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
        9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
        C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
        CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
        CCC333333333333777FF33333333333333CC33333333333337730000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton4Click
    end
    object SpeedButton5: TSpeedButton
      Left = 40
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Move forward'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FF3333333333333447333333333333377FFF33333333333744473333333
        333337773FF3333333333444447333333333373F773FF3333333334444447333
        33333373F3773FF3333333744444447333333337F333773FF333333444444444
        733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
        999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
        33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
        333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
        33333777333333333333CC3333333333333377333333333333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton5Click
    end
    object SpeedButton6: TSpeedButton
      Left = 8
      Top = 55
      Width = 25
      Height = 25
      Hint = 'Cut'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333FF3333333333333003333333333333377F33333333333307
        733333FFF333337773333C003333307733333777FF333777FFFFC0CC03330770
        000077777FF377777777C033C03077FFFFF077FF77F777FFFFF7CC00000F7777
        777077777777777777773CCCCC00000000003777777777777777333330030FFF
        FFF03333F77F7F3FF3F7333C0C030F00F0F03337777F7F77373733C03C030FFF
        FFF03377F77F7F3F333733C03C030F0FFFF03377F7737F733FF733C000330FFF
        0000337777F37F3F7777333CCC330F0F0FF0333777337F737F37333333330FFF
        0F03333333337FFF7F7333333333000000333333333377777733}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton6Click
    end
    object SpeedButton7: TSpeedButton
      Left = 8
      Top = 80
      Width = 25
      Height = 25
      Hint = 'Copy'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
        007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
        7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
        99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton7Click
    end
    object SpeedButton8: TSpeedButton
      Left = 8
      Top = 105
      Width = 25
      Height = 25
      Hint = 'Paste'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
        FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
        FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
        FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
        0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
        9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
        9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
        99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
        93337777FF777777733370000000073333333777777773333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton8Click
    end
    object SpeedButton9: TSpeedButton
      Left = 40
      Top = 80
      Width = 25
      Height = 25
      Hint = 'Print card'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = PrintCard1Click
    end
    object SpeedButton10: TSpeedButton
      Left = 40
      Top = 54
      Width = 25
      Height = 25
      Hint = 'Print envelope/label'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330F00000
        0000333330F0FFFFFFF0333330F0FFFFFFF0333330F000000000333330FFFFFF
        FFFF33333000000000003333333333333333000000000000000007FFFFFFFFFF
        FF700F7777FFFF7777F00FFFFF7777FFFFF00FFFFFF00FFFFFF00FFFF00FF00F
        FFF00F000FFFFFF00FF000FFFFFFFFFFF0000000000000000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = PrintEnvelope1Click
    end
    object SpeedButton11: TSpeedButton
      Left = 8
      Top = 155
      Width = 25
      Height = 25
      Hint = 'Dial Number'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003B3000000000
        003B37F77777777777F73BB09111111110BB3777F3F3F3F3F777311098080808
        10B33777F7373737377313309999999910337F373F3F3F3F3733133309808089
        03337F3373737373733313333099999033337FFFF7FFFFF7FFFFB011B0000000
        BBBB7777777777777777B01110BBBBB0BBBB77F37777777777773011108BB333
        333337F337377F3FFFF33099111BB3010033373F33777F77773F331999100101
        11033373FFF77773337F33300099991999033337773FFFF33373333BB7100199
        113333377377773FF7F333BB333BB7011B33337733377F7777FF3BB3333BB333
        3BB3377333377F33377FBB33333BB33333BB77333337733333770000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = DialPhone1Click
    end
    object SpeedButton12: TSpeedButton
      Left = 40
      Top = 105
      Width = 25
      Height = 25
      Hint = 'End new card entry'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333333333C3333333333333337F3333333333333C0C3333
        333333333777F33333333333C0F0C3333333333377377F333333333C0FFF0C33
        3333333777F377F3333333CCC0FFF0C333333373377F377F33333CCCCC0FFF0C
        333337333377F377F3334CCCCCC0FFF0C3337F3333377F377F33C4CCCCCC0FFF
        0C3377F333F377F377F33C4CC0CCC0FFF0C3377F3733F77F377333C4CCC0CC0F
        0C333377F337F3777733333C4C00CCC0333333377F773337F3333333C4CCCCCC
        3333333377F333F7333333333C4CCCC333333333377F37733333333333C4C333
        33333333337773333333333333333333333333333333333333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = CompleteEntry1Click
    end
    object SpeedButton13: TSpeedButton
      Left = 8
      Top = 130
      Width = 25
      Height = 25
      Hint = 'New card'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555555FFFFFFFF5555555000000005555555588888888FF555550999999900
        55555585555555885F55509999999901055558F55555558F85F5001111111101
        105588FFFFFFFF8FF85F00000000000011058888888888885F855080FFFFFF0F
        01105888F555558F8FF85500FFFFFF0F00105588F555FF8F88585550FF80000F
        0F0055585FF888858F885555000FFFFF0F005555888555FF8F88555550FF8000
        0F055555585FF888858F55C555000FFFFF05555555888555FF8F5CCC5550FF80
        0005555555585FF88885CCCCC5550005555555555555888555555CCC55555555
        555555555555555555555CCC5555555555555555555555555555}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = Add1Click
    end
    object SpeedButton14: TSpeedButton
      Left = 40
      Top = 130
      Width = 25
      Height = 25
      Hint = 'Delete card'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555555FFFFFFFF5555555000000005555555588888888FF555550999999900
        55555585555555885F55509999999901055558F55555558F85F5001111111101
        105588FFFFFFFF8FF85F00000000000011058888888888885F855080FFFFFF0F
        01105888F555558F85F85500FFFFFF0FF0105588F555FF8F58585550FF800007
        7F0055585FF8888555885555000777777F005555888FFFFFFF88555550000000
        0F055555588888888F8F5CCC50FFFFFF0F05555558F5FFF58F8F5CCC50F000FF
        0005555558F888558885CCCCC0FFFFFF0555555558F555FF8F555CCC50FF8000
        05555555585FF888855555C55500055555555555558885555555}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = Delete1Click
    end
  end
  object Memo1: TMemo
    Left = 32
    Top = 48
    Width = 317
    Height = 193
    HelpContext = 1
    BorderStyle = bsNone
    MaxLength = 495
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object Panel3: TPanel
    Left = 360
    Top = 24
    Width = 89
    Height = 49
    TabOrder = 5
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 43
      Height = 16
      Caption = 'Label1'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 24
      Width = 30
      Height = 16
      Caption = 'Card'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 48
      Top = 24
      Width = 43
      Height = 16
      Caption = 'Label3'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object MainMenu1: TMainMenu
    Left = 88
    Top = 216
    object Main1: TMenuItem
      Caption = '&Main'
      ShortCut = 0
      object Setfont1: TMenuItem
        Caption = 'Set &Font'
        ShortCut = 0
        OnClick = Setfont1Click
      end
      object Registration1: TMenuItem
        Caption = '&Registration'
        ShortCut = 0
        OnClick = Registration1Click
      end
      object OrderForm1: TMenuItem
        Caption = '&Order Form'
        ShortCut = 0
        OnClick = OrderForm1Click
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Print1: TMenuItem
        Caption = '&Print'
        ShortCut = 0
        OnClick = Print1Click
      end
      object PrintSetup1: TMenuItem
        Caption = 'Print &Setup'
        ShortCut = 0
        OnClick = Setup1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object AlwaysonTop1: TMenuItem
        Caption = '&Always on Top'
        ShortCut = 0
        OnClick = AlwaysonTop1Click
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Cards1: TMenuItem
      Caption = '&Cards'
      ShortCut = 0
      object Add1: TMenuItem
        Caption = '&Add'
        ShortCut = 0
        OnClick = Add1Click
      end
      object Delete1: TMenuItem
        Caption = '&Delete'
        ShortCut = 0
        OnClick = Delete1Click
      end
      object CompleteEntry1: TMenuItem
        Caption = '&Complete Entry'
        ShortCut = 0
        OnClick = CompleteEntry1Click
      end
      object Abort1: TMenuItem
        Caption = 'A&bort'
        ShortCut = 0
        OnClick = Abort1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Search1: TMenuItem
        Caption = '&Search '
        ShortCut = 0
        OnClick = Search1Click
      end
      object List1: TMenuItem
        Caption = '&List'
        ShortCut = 0
        OnClick = List1Click
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object ImportMSCardFile1: TMenuItem
        Caption = '&Import MS Card File'
        ShortCut = 0
        OnClick = ImportMSCardFile1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      ShortCut = 0
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        ShortCut = 0
        OnClick = SpeedButton6Click
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        ShortCut = 0
        OnClick = SpeedButton7Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        ShortCut = 0
        OnClick = SpeedButton8Click
      end
    end
    object Dial1: TMenuItem
      Caption = '&Dial'
      ShortCut = 0
      object DialPhone1: TMenuItem
        Caption = '&Dial Phone'
        ShortCut = 0
        OnClick = DialPhone1Click
      end
      object N8: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object ModemSetup1: TMenuItem
        Caption = '&Modem Setup'
        ShortCut = 0
        OnClick = ModemSetup1Click
      end
    end
    object Print2: TMenuItem
      Caption = '&Print'
      ShortCut = 0
      object Setup1: TMenuItem
        Caption = 'Print &Setup'
        ShortCut = 0
        OnClick = Setup1Click
      end
      object PrintEnvelope1: TMenuItem
        Caption = '&Print Envelope'
        Hint = 'Do printer setup for envelope'
        ShortCut = 0
        OnClick = PrintEnvelope1Click
      end
      object PrintLabel1: TMenuItem
        Caption = 'Print &Label'
        ShortCut = 0
        OnClick = PrintLabel1Click
      end
      object PrintAddressBook1: TMenuItem
        Caption = 'Print &Address  Book'
        ShortCut = 0
        OnClick = PrintAddressBook1Click
      end
      object PrintCard1: TMenuItem
        Caption = 'Print &Card'
        ShortCut = 0
        OnClick = PrintCard1Click
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object PrintaLabel1: TMenuItem
        Caption = 'Print a La&bel'
        ShortCut = 0
        OnClick = PrintaLabel1Click
      end
      object PrintanEnvelope1: TMenuItem
        Caption = 'Print an &Envelope'
        ShortCut = 0
        OnClick = PrintanEnvelope1Click
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object ReturnAddress1: TMenuItem
        Caption = '&Return Address'
        ShortCut = 0
        OnClick = ReturnAddress1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Index1: TMenuItem
        Caption = '&Index'
        ShortCut = 0
        OnClick = Index1Click
      end
      object About1: TMenuItem
        Caption = '&About'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
  object PrintDialog1: TPrintDialog
    Options = [poPageNums]
    Left = 56
    Top = 216
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 24
    Top = 216
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 120
    Top = 216
  end
end