home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / CHECKS / MAIN.dfm / MAIN.txt
Text File  |  1998-05-14  |  2KB  |  99 lines
  1. object MainForm: TMainForm
  2.   Left = 199
  3.   Top = 99
  4.   AutoScroll = False
  5.   Caption = 'Checkmark Demonstration'
  6.   ClientHeight = 208
  7.   ClientWidth = 361
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -16
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   Menu = MainMenu1
  15.   OldCreateOrder = True
  16.   PixelsPerInch = 120
  17.   TextHeight = 20
  18.   object ShowButton: TButton
  19.     Left = 230
  20.     Top = 30
  21.     Width = 111
  22.     Height = 41
  23.     Caption = 'Show level'
  24.     TabOrder = 0
  25.     OnClick = ShowButtonClick
  26.   end
  27.   object MainMenu1: TMainMenu
  28.     Left = 72
  29.     Top = 88
  30.     object FileMenu: TMenuItem
  31.       Caption = '&File'
  32.       ShortCut = 112
  33.       object FileExit: TMenuItem
  34.         Caption = 'E&xit'
  35.         ShortCut = 32856
  36.         OnClick = FileExitClick
  37.       end
  38.     end
  39.     object LevelMenu: TMenuItem
  40.       Caption = '&Level'
  41.       object Level1: TMenuItem
  42.         Caption = 'Level &1'
  43.         ShortCut = 32817
  44.         OnClick = LevelClick
  45.       end
  46.       object Level2: TMenuItem
  47.         Caption = 'Level &2'
  48.         ShortCut = 32818
  49.         OnClick = LevelClick
  50.       end
  51.       object Level3: TMenuItem
  52.         Caption = 'Level &3'
  53.         ShortCut = 32819
  54.         OnClick = LevelClick
  55.       end
  56.       object Level4: TMenuItem
  57.         Caption = 'Level &4'
  58.         ShortCut = 32820
  59.         OnClick = LevelClick
  60.       end
  61.       object Level5: TMenuItem
  62.         Caption = 'Level &5'
  63.         Checked = True
  64.         ShortCut = 32821
  65.         OnClick = LevelClick
  66.       end
  67.       object Level6: TMenuItem
  68.         Caption = 'Level &6'
  69.         ShortCut = 32822
  70.         OnClick = LevelClick
  71.       end
  72.       object Level7: TMenuItem
  73.         Caption = 'Level &7'
  74.         ShortCut = 32823
  75.         OnClick = LevelClick
  76.       end
  77.       object Level8: TMenuItem
  78.         Caption = 'Level &8'
  79.         ShortCut = 32824
  80.         OnClick = LevelClick
  81.       end
  82.       object Level9: TMenuItem
  83.         Caption = 'Level &9'
  84.         ShortCut = 32825
  85.         OnClick = LevelClick
  86.       end
  87.       object N1: TMenuItem
  88.         Caption = '-'
  89.       end
  90.       object LevelInsert: TMenuItem
  91.         Caption = '&Insert'
  92.         Checked = True
  93.         ShortCut = 45
  94.         OnClick = LevelInsertClick
  95.       end
  96.     end
  97.   end
  98. end
  99.