home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / mdiapp.pak / MAIN.DFM / MAIN.txt
Encoding:
Text File  |  1995-08-24  |  12.0 KB  |  320 lines
  1. object MainForm: TMainForm
  2.   Left = 232
  3.   Top = 115
  4.   Width = 435
  5.   Height = 300
  6.   ActiveControl = StatusLine
  7.   Caption = 'MDI Application'
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   FormStyle = fsMDIForm
  13.   Menu = MainMenu1
  14.   PixelsPerInch = 96
  15.   Position = poDefault
  16.   WindowMenu = Window1
  17.   OnCreate = FormCreate
  18.   OnDestroy = FormDestroy
  19.   TextHeight = 16
  20.   object Panel1: TPanel
  21.     Left = 0
  22.     Top = 228
  23.     Width = 427
  24.     Height = 26
  25.     Align = alBottom
  26.     BorderWidth = 1
  27.     TabOrder = 0
  28.     object StatusLine: TPanel
  29.       Left = 2
  30.       Top = 2
  31.       Width = 362
  32.       Height = 22
  33.       Align = alClient
  34.       Alignment = taLeftJustify
  35.       BevelOuter = bvLowered
  36.       BorderWidth = 1
  37.       Font.Color = clBlack
  38.       Font.Height = -11
  39.       Font.Name = 'MS Sans Serif'
  40.       Font.Style = []
  41.       ParentFont = False
  42.       TabOrder = 0
  43.     end
  44.     object Panel2: TPanel
  45.       Left = 364
  46.       Top = 2
  47.       Width = 61
  48.       Height = 22
  49.       Align = alRight
  50.       Alignment = taLeftJustify
  51.       BevelOuter = bvLowered
  52.       TabOrder = 1
  53.     end
  54.   end
  55.   object SpeedPanel: TPanel
  56.     Left = 0
  57.     Top = 0
  58.     Width = 427
  59.     Height = 30
  60.     Align = alTop
  61.     ParentShowHint = False
  62.     ShowHint = True
  63.     TabOrder = 1
  64.     object OpenBtn: TSpeedButton
  65.       Left = 7
  66.       Top = 2
  67.       Width = 25
  68.       Height = 25
  69.       Hint = 'Open|'
  70.       Glyph.Data = {
  71.         06020000424D0602000000000000760000002800000028000000140000000100
  72.         0400000000009001000000000000000000001000000000000000000000000000
  73.         80000080000000808000800000008000800080800000C0C0C000808080000000
  74.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  75.         3333333333333333333333333333333333333333333333333333333333333333
  76.         3333333333333333333333333333333333333333333333333333333333333333
  77.         333FFFFFFFFFFFFFF3333380000000000000333333888888888888883F333300
  78.         7B7B7B7B7B7B033333883F33333333338F33330F07B7B7B7B7B70333338F8F33
  79.         3333333383F3330B0B7B7B7B7B7B7033338F83F33333333338F3330FB0B7B7B7
  80.         B7B7B033338F38F333333333383F330BF07B7B7B7B7B7B03338F383FFFFF3333
  81.         338F330FBF000007B7B7B703338F33888883FFFFFF83330BFBFBFBF000000033
  82.         338F3333333888888833330FBFBFBFBFBFB03333338F333333333338F333330B
  83.         FBFBFBFBFBF03333338F33333FFFFFF83333330FBFBF0000000333333387FFFF
  84.         8888888333333330000033333333333333388888333333333333333333333333
  85.         3333333333333333333333333333333333333333333333333333333333333333
  86.         3333333333333333333333333333333333333333333333333333333333333333
  87.         33333333333333333333}
  88.       NumGlyphs = 2
  89.       OnClick = FileOpenItemClick
  90.     end
  91.     object SaveBtn: TSpeedButton
  92.       Left = 31
  93.       Top = 2
  94.       Width = 25
  95.       Height = 25
  96.       Hint = 'Save|'
  97.       Glyph.Data = {
  98.         06020000424D0602000000000000760000002800000028000000140000000100
  99.         0400000000009001000000000000000000001000000000000000000000000000
  100.         80000080000000808000800000008000800080800000C0C0C000808080000000
  101.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  102.         3333333333333333333333333333333333333333333333333333333333333333
  103.         3333333333333333333333333333FFFFFFFFFFFFFF3333380000000000008333
  104.         333888F8FF888F888F333330CC08CCF770CC0333333888F8FF888F888F333330
  105.         CC08CCF770CC0333333888F888888F888F333330CC07887770CC03333338888F
  106.         FFFFF8888F333330CC60000006CC033333388888888888888F333330CCCCCCCC
  107.         CCCC033333388888888888888F333330C6000000006C03333338888888888888
  108.         8F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330C0FFFFFFFF0C0333
  109.         333888FFFFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330
  110.         C0FFFFFFFF0C0333333888FFFFFFFF888F33333000FFFFFFFF000333333888FF
  111.         FFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F33333800000000
  112.         0000833333388888888888888333333333333333333333333333333333333333
  113.         3333333333333333333333333333333333333333333333333333333333333333
  114.         33333333333333333333}
  115.       NumGlyphs = 2
  116.       OnClick = FileSaveItemClick
  117.     end
  118.     object CutBtn: TSpeedButton
  119.       Left = 64
  120.       Top = 2
  121.       Width = 25
  122.       Height = 25
  123.       Hint = 'Cut|'
  124.       Glyph.Data = {
  125.         06020000424D0602000000000000760000002800000028000000140000000100
  126.         0400000000009001000000000000000000001000000000000000000000000000
  127.         80000080000000808000800000008000800080800000C0C0C000808080000000
  128.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  129.         3333333333333333333333333333333333333333333333333333FFFF333333FF
  130.         FF33333844833333384483333338888FF33338888FF333843348333384334833
  131.         3388F388F333883388F3338433343333433348333388F338F3338F3388F33384
  132.         33343333433348333388FF38FF338F3388333338433483384334833333388FF8
  133.         8FF88FF883333333844448844448333333338888888888883333333333444444
  134.         4433333333333388888888333333333333346FF6433333333333333883F88F33
  135.         333333333330F00F0333333333333338388383F333333333330FFFF0F0333333
  136.         3333338333F8383F3333333330FFF00FFF033333333338333883F383F3333333
  137.         0FFF0330FFF033333333833383383F383F333330FFF033330FFF033333383338
  138.         333383F383F3330FFF03333330FFF033338F33833333383F38F3330FF0333333
  139.         330FF033338F383333333383F8F3330F033333333330F033338F833333333338
  140.         38F3330033333333333300333388333333333333883333333333333333333333
  141.         33333333333333333333}
  142.       NumGlyphs = 2
  143.     end
  144.     object CopyBtn: TSpeedButton
  145.       Left = 88
  146.       Top = 2
  147.       Width = 25
  148.       Height = 25
  149.       Hint = 'Copy|'
  150.       Glyph.Data = {
  151.         06020000424D0602000000000000760000002800000028000000140000000100
  152.         0400000000009001000000000000000000001000000000000000000000000000
  153.         80000080000000808000800000008000800080800000C0C0C000808080000000
  154.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  155.         3333333333333333FFFFFFFFFF33333333300000000003333333333888888888
  156.         8F3333333330FFFFFFFF033333333338F33333338F3333333330BFBFBFBF0333
  157.         33333338F3FFFFFF8F3333333330F888888F033333333338F88888838F333333
  158.         3330BFBFBFBF0333333FFFF8F3FFFFFF8F3333000000F888888F033333888888
  159.         F88888838F33330FFFF0BFBFBFBF0333338F3338F3FFFFFF8F33330FFFF0F888
  160.         888F0333338F3338F88888838F33330F7770BFBFBFBF0333338F3338F333333F
  161.         8F33330FFFF0FFFFFF000333338F3338F33333888333330F7770BFBFBF003333
  162.         338F3338FFFFFF883333330FFFF0000000033333338F3338888888833333330F
  163.         777777F033333333338F33333338F3333333330FFFFFFFF033333333338F3333
  164.         33F8F3333333330FFFFFF00033333333338F3333388833333333330FFFFFF003
  165.         33333333338FFFFFF88333333333330000000033333333333388888888333333
  166.         3333333333333333333333333333333333333333333333333333333333333333
  167.         33333333333333333333}
  168.       NumGlyphs = 2
  169.     end
  170.     object PasteBtn: TSpeedButton
  171.       Left = 112
  172.       Top = 2
  173.       Width = 25
  174.       Height = 25
  175.       Hint = 'Paste|'
  176.       Glyph.Data = {
  177.         06020000424D0602000000000000760000002800000028000000140000000100
  178.         0400000000009001000000000000000000001000000000000000000000000000
  179.         80000080000000808000800000008000800080800000C0C0C000808080000000
  180.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  181.         3333333333333333333FFFFFFFFF333333333300000000033333333333888888
  182.         888F33333333330BFBFBFB03333FFFFFFF8F3FFFFF8F33000000000F88888F03
  183.         33888888888F8888838F307F7F7F7F0BFBFBFB0338F33333338F333FFF8F30F7
  184.         F7F7F70F77888F0338F33333338FFF88838F307F7F7F74444BFBFB0338F33333
  185.         38888F3FFF8F30F7F7F7F7C447888F0338F3333333888F88838F307F7F7F744C
  186.         4BFBFB0338F3333338888F333F8F30F7F7F7444F4FFF880338F33333888F8333
  187.         8883307F7F74440BFBFB803338F33338888FFFFF883330F7F744470000000333
  188.         38F33388838888888333307F7F747F7F0333333338F3333833338F33333330F7
  189.         F7F7F7F70333333338F3333333338F333333307F7F7F7F7F0333333338F33FFF
  190.         FFF38F33333330F7444444F703333333383F888888FF833333333300ECCCC400
  191.         33333333338838888888333333333333ECCCC433333333333333388888333333
  192.         333333333EEEE333333333333333333333333333333333333333333333333333
  193.         33333333333333333333}
  194.       NumGlyphs = 2
  195.     end
  196.     object ExitBtn: TSpeedButton
  197.       Left = 144
  198.       Top = 2
  199.       Width = 25
  200.       Height = 25
  201.       Hint = 'Exit|'
  202.       Glyph.Data = {
  203.         06020000424D0602000000000000760000002800000028000000140000000100
  204.         0400000000009001000000000000000000001000000000000000000000000000
  205.         80000080000000808000800000008000800080800000C0C0C000808080000000
  206.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777777
  207.         777777773FFFFFFFFFFFF333333F888888888888F7F7F7888888888888883333
  208.         33888888888888877F7F788888888888888F333FF88844444400888FFF444444
  209.         88888888888333888883333334D5007FFF433333333338F888F3338F33333333
  210.         345D50FFFF4333333333388788F3338F3333333334D5D0FFFF433333333338F8
  211.         78F3338F33333333345D50FEFE4333333333388788F3338F3333333334D5D0FF
  212.         FF433333333338F878F3338F33333333345D50FEFE4333333333388788F3338F
  213.         3333333334D5D0FFFF433333333338F878F3338F33333333345D50FEFE433333
  214.         3333388788F3338F3333333334D5D0EFEF433333333338F878F3338F33333333
  215.         345D50FEFE4333333333388788F3338F3333333334D5D0EFEF433333333338F8
  216.         F8FFFF8F33333333344444444443333333333888888888833333333333333333
  217.         3333333333333333FFFFFF333333333333300000033333333333333888888F33
  218.         333333333330AAAA0333333333333338FFFF8F33333333333330000003333333
  219.         33333338888883333333}
  220.       NumGlyphs = 2
  221.       OnClick = FileExitItemClick
  222.     end
  223.   end
  224.   object MainMenu1: TMainMenu
  225.     Left = 36
  226.     Top = 196
  227.     object File1: TMenuItem
  228.       Caption = '&File'
  229.       Hint = 'File related commands'
  230.       object FileNewItem: TMenuItem
  231.         Caption = '&New'
  232.         Hint = 'Create a new file'
  233.         OnClick = FileNewItemClick
  234.       end
  235.       object FileOpenItem: TMenuItem
  236.         Caption = '&Open'
  237.         Hint = 'Open an existing file'
  238.         OnClick = FileOpenItemClick
  239.       end
  240.       object FileCloseItem: TMenuItem
  241.         Caption = '&Close'
  242.         Hint = 'Close current file'
  243.         OnClick = FileCloseItemClick
  244.       end
  245.       object FileSaveItem: TMenuItem
  246.         Caption = '&Save'
  247.         Hint = 'Save current file'
  248.         OnClick = FileSaveItemClick
  249.       end
  250.       object FileSaveAsItem: TMenuItem
  251.         Caption = 'Save &As...'
  252.         Hint = 'Save current file as...'
  253.         OnClick = FileSaveAsItemClick
  254.       end
  255.       object N1: TMenuItem
  256.         Caption = '-'
  257.       end
  258.       object FileExitItem: TMenuItem
  259.         Caption = 'E&xit'
  260.         Hint = 'Exit the application'
  261.         OnClick = FileExitItemClick
  262.       end
  263.     end
  264.     object Edit1: TMenuItem
  265.       Caption = '&Edit'
  266.       object CutItem: TMenuItem
  267.         Caption = 'Cu&t'
  268.         Hint = 'Cut to clipboard'
  269.         OnClick = CutItemClick
  270.       end
  271.       object CopyItem: TMenuItem
  272.         Caption = '&Copy'
  273.         Hint = 'Copy to clipboard'
  274.         OnClick = CopyItemClick
  275.       end
  276.       object PasteItem: TMenuItem
  277.         Caption = '&Paste'
  278.         Hint = 'Paste from clipboard'
  279.         OnClick = PasteItemClick
  280.       end
  281.     end
  282.     object Window1: TMenuItem
  283.       Caption = '&Window'
  284.       Hint = 'Window related commands such as Tile and Cascade'
  285.       object WindowCascadeItem: TMenuItem
  286.         Caption = '&Cascade'
  287.         Hint = 'Arrange windows to overlap'
  288.         OnClick = WindowCascadeItemClick
  289.       end
  290.       object WindowTileItem: TMenuItem
  291.         Caption = '&Tile'
  292.         Hint = 'Arrange windows without overlap'
  293.         OnClick = WindowTileItemClick
  294.       end
  295.       object WindowArrangeItem: TMenuItem
  296.         Caption = '&Arrange Icons'
  297.         Hint = 'Arrange window icons at bottom of main window'
  298.         OnClick = WindowArrangeItemClick
  299.       end
  300.       object WindowMinimizeItem: TMenuItem
  301.         Caption = '&Minimize All'
  302.         Hint = 'Minimize all windows'
  303.         OnClick = WindowMinimizeItemClick
  304.       end
  305.     end
  306.     object Help1: TMenuItem
  307.       Caption = '&Help'
  308.       Hint = 'Help topics'
  309.       object HelpAboutItem: TMenuItem
  310.         Caption = '&About'
  311.       end
  312.     end
  313.   end
  314.   object OpenDialog: TOpenDialog
  315.     Filter = 'All files (*.*)|*.*'
  316.     Left = 4
  317.     Top = 196
  318.   end
  319. end
  320.