home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
tenpack.lzh
/
SYSDEMO.DFM
/
SYSDEMO.txt
Wrap
Text File
|
1995-09-20
|
3KB
|
139 lines
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