home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi 4 Bible
/
Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso
/
source
/
CAPSLOCK
/
MAIN.dfm
/
MAIN.txt
Wrap
Text File
|
1998-05-14
|
3KB
|
133 lines
object MainForm: TMainForm
Left = 200
Top = 109
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'CapsLock and Other Keyboard Toggles'
ClientHeight = 135
ClientWidth = 436
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'System'
Font.Style = []
KeyPreview = True
OldCreateOrder = True
OnActivate = FormActivate
OnKeyDown = FormKeyDown
PixelsPerInch = 120
TextHeight = 20
object Label1: TLabel
Left = 20
Top = 20
Width = 221
Height = 61
AutoSize = False
Caption = 'Press the CapsLock, NumLock, ScrollLock, and Ins keys.'
WordWrap = True
end
object Bevel1: TBevel
Left = 10
Top = 10
Width = 251
Height = 81
end
object StatusPanel: TPanel
Left = 0
Top = 104
Width = 436
Height = 31
Align = alBottom
BevelInner = bvLowered
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object CapsLockPanel: TPanel
Left = 2
Top = 2
Width = 48
Height = 27
Align = alLeft
BevelInner = bvLowered
BevelOuter = bvNone
Enabled = False
TabOrder = 0
object CapsLockLabel: TLabel
Left = 11
Top = 5
Width = 32
Height = 16
Alignment = taCenter
Caption = 'Caps'
end
end
object NumLockPanel: TPanel
Left = 50
Top = 2
Width = 50
Height = 27
Align = alLeft
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 1
object NumLockLabel: TLabel
Left = 10
Top = 5
Width = 28
Height = 16
Alignment = taCenter
Caption = 'Num'
end
end
object ScrollLockPanel: TPanel
Left = 100
Top = 2
Width = 50
Height = 27
Align = alLeft
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 2
object ScrollLockLabel: TLabel
Left = 10
Top = 5
Width = 34
Height = 16
Alignment = taCenter
Caption = 'Scroll'
end
end
object InsPanel: TPanel
Left = 150
Top = 2
Width = 50
Height = 27
Align = alLeft
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 3
object InsLabel: TLabel
Left = 10
Top = 5
Width = 17
Height = 16
Alignment = taCenter
Caption = 'Ins'
end
end
end
object BitBtn1: TBitBtn
Left = 300
Top = 30
Width = 111
Height = 51
TabOrder = 1
Kind = bkClose
end
end