home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
tenpack.lzh
/
KEYDEMO.DFM
/
KEYDEMO.txt
< prev
Wrap
Text File
|
1995-05-30
|
2KB
|
96 lines
object DemoKeystate: TDemoKeystate
Left = 161
Top = 117
BorderStyle = bsSingle
Caption = 'Key State Component'
ClientHeight = 273
ClientWidth = 427
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Icon.Data = {<image000.ico>}
PixelsPerInch = 96
Position = poDefault
Visible = True
TextHeight = 16
object KeyState1: TKeyState
Left = 156
Top = 63
Width = 41
Height = 25
AllowAllUp = True
GroupIndex = 1
Caption = 'Caps'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = KeyState1Click
Style = CapsLock
end
object KeyState2: TKeyState
Left = 196
Top = 63
Width = 41
Height = 25
AllowAllUp = True
GroupIndex = 2
Caption = 'Num'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Style = NumLock
end
object KeyState3: TKeyState
Left = 236
Top = 63
Width = 41
Height = 25
AllowAllUp = True
GroupIndex = 3
Caption = 'Scroll'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Style = ScrollLock
end
object Label1: TLabel
Left = 102
Top = 102
Width = 231
Height = 81
AutoSize = False
Caption =
'Easily create status bars displaying the keyboard state with the' +
' State Button component. Just set the style to CapsLock, NumLoc' +
'k or ScorllLock and your done. Any change in state is reflected' +
' in the button appearance.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 102
Top = 181
Width = 231
Height = 34
AutoSize = False
Caption =
'When the user clicks on the state button, the keyboard state is ' +
'toggled.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
end