home *** CD-ROM | disk | FTP | other *** search
- object DemoSysMenu: TDemoSysMenu
- Left = 112
- Top = 103
- BorderStyle = bsSingle
- Caption = 'System Menu Component'
- ClientHeight = 273
- ClientWidth = 427
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- Visible = True
- TextHeight = 16
- object Label1: TLabel
- Left = 117
- Top = 54
- Width = 83
- Height = 13
- Caption = 'Menu Caption:'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 25
- Top = 97
- Width = 139
- Height = 55
- AutoSize = False
- Caption =
- 'Easily add new items to any form'#39's system menu with the system m' +
- 'enu component.'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 25
- Top = 159
- Width = 139
- Height = 46
- AutoSize = False
- Caption =
- 'Once you have added a new item, try selecting it from the system' +
- ' menu.'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Edit1: TEdit
- Left = 209
- Top = 49
- Width = 121
- Height = 24
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- object BitBtn1: TBitBtn
- Left = 229
- Top = 178
- Width = 121
- Height = 26
- Caption = '&Add New Item'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = BitBtn1Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
- FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
- FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
- 007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
- 7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
- 99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
- 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
- 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
- 93337FFFF7737777733300000033333333337777773333333333}
- NumGlyphs = 2
- end
- object GroupBox1: TGroupBox
- Left = 208
- Top = 97
- Width = 170
- Height = 76
- Caption = 'Properties...'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 2
- object ckbchecked: TCheckBox
- Left = 36
- Top = 22
- Width = 97
- Height = 17
- Caption = 'Checked'
- TabOrder = 0
- end
- object ckbenabled: TCheckBox
- Left = 36
- Top = 44
- Width = 97
- Height = 17
- Caption = 'Enabled'
- State = cbChecked
- TabOrder = 1
- end
- end
- object SysMenu1: TSysMenu
- MenuPos = 0
- ParentHandle = 0
- MenuChecked = mtUnChecked
- MenuBar = mtnone
- MenuEnabled = mtEnabled
- MenuItemtype = mtString
- Left = 358
- Top = 36
- end
- end
-