home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / tenpack.lzh / SYSDEMO.DFM / SYSDEMO.txt
Text File  |  1995-09-20  |  3KB  |  139 lines
  1. object DemoSysMenu: TDemoSysMenu
  2.   Left = 112
  3.   Top = 103
  4.   BorderStyle = bsSingle
  5.   Caption = 'System Menu Component'
  6.   ClientHeight = 273
  7.   ClientWidth = 427
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   Visible = True
  15.   TextHeight = 16
  16.   object Label1: TLabel
  17.     Left = 117
  18.     Top = 54
  19.     Width = 83
  20.     Height = 13
  21.     Caption = 'Menu Caption:'
  22.     Font.Color = clBlack
  23.     Font.Height = -11
  24.     Font.Name = 'MS Sans Serif'
  25.     Font.Style = [fsBold]
  26.     ParentFont = False
  27.   end
  28.   object Label2: TLabel
  29.     Left = 25
  30.     Top = 97
  31.     Width = 139
  32.     Height = 55
  33.     AutoSize = False
  34.     Caption = 
  35.       'Easily add new items to any form'#39's system menu with the system m' +
  36.       'enu component.'
  37.     Font.Color = clBlack
  38.     Font.Height = -11
  39.     Font.Name = 'MS Sans Serif'
  40.     Font.Style = [fsBold]
  41.     ParentFont = False
  42.   end
  43.   object Label3: TLabel
  44.     Left = 25
  45.     Top = 159
  46.     Width = 139
  47.     Height = 46
  48.     AutoSize = False
  49.     Caption = 
  50.       'Once you have added a new item, try selecting it from the system' +
  51.       ' menu.'
  52.     Font.Color = clBlack
  53.     Font.Height = -11
  54.     Font.Name = 'MS Sans Serif'
  55.     Font.Style = [fsBold]
  56.     ParentFont = False
  57.   end
  58.   object Edit1: TEdit
  59.     Left = 209
  60.     Top = 49
  61.     Width = 121
  62.     Height = 24
  63.     Font.Color = clBlack
  64.     Font.Height = -13
  65.     Font.Name = 'MS Sans Serif'
  66.     Font.Style = []
  67.     ParentFont = False
  68.     TabOrder = 0
  69.   end
  70.   object BitBtn1: TBitBtn
  71.     Left = 229
  72.     Top = 178
  73.     Width = 121
  74.     Height = 26
  75.     Caption = '&Add New Item'
  76.     Font.Color = clBlack
  77.     Font.Height = -13
  78.     Font.Name = 'MS Sans Serif'
  79.     Font.Style = []
  80.     ParentFont = False
  81.     TabOrder = 1
  82.     OnClick = BitBtn1Click
  83.     Glyph.Data = {
  84.       76010000424D7601000000000000760000002800000020000000100000000100
  85.       04000000000000010000130B0000130B00000000000000000000000000000000
  86.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  87.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
  88.       FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
  89.       FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
  90.       007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
  91.       7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
  92.       99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
  93.       99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
  94.       99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
  95.       93337FFFF7737777733300000033333333337777773333333333}
  96.     NumGlyphs = 2
  97.   end
  98.   object GroupBox1: TGroupBox
  99.     Left = 208
  100.     Top = 97
  101.     Width = 170
  102.     Height = 76
  103.     Caption = 'Properties...'
  104.     Font.Color = clBlack
  105.     Font.Height = -11
  106.     Font.Name = 'MS Sans Serif'
  107.     Font.Style = [fsBold]
  108.     ParentFont = False
  109.     TabOrder = 2
  110.     object ckbchecked: TCheckBox
  111.       Left = 36
  112.       Top = 22
  113.       Width = 97
  114.       Height = 17
  115.       Caption = 'Checked'
  116.       TabOrder = 0
  117.     end
  118.     object ckbenabled: TCheckBox
  119.       Left = 36
  120.       Top = 44
  121.       Width = 97
  122.       Height = 17
  123.       Caption = 'Enabled'
  124.       State = cbChecked
  125.       TabOrder = 1
  126.     end
  127.   end
  128.   object SysMenu1: TSysMenu
  129.     MenuPos = 0
  130.     ParentHandle = 0
  131.     MenuChecked = mtUnChecked
  132.     MenuBar = mtnone
  133.     MenuEnabled = mtEnabled
  134.     MenuItemtype = mtString
  135.     Left = 358
  136.     Top = 36
  137.   end
  138. end
  139.