home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi 4 Bible
/
Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso
/
source
/
SYSCOLOR
/
MAIN.dfm
/
MAIN.txt
< prev
Wrap
Text File
|
1998-03-05
|
10KB
|
530 lines
object MainForm: TMainForm
Left = 138
Top = 115
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'System Colors'
ClientHeight = 399
ClientWidth = 478
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Icon.Data = {<image000.ico>}
Menu = MainMenu1
Position = poDefault
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 16
object Label1: TLabel
Left = 12
Top = 8
Width = 62
Height = 16
Caption = 'Scroll bar'
end
object Label2: TLabel
Left = 12
Top = 28
Width = 77
Height = 16
Caption = 'Background'
end
object Label3: TLabel
Left = 12
Top = 48
Width = 90
Height = 16
Caption = 'Active caption'
end
object Label4: TLabel
Left = 12
Top = 68
Width = 102
Height = 16
Caption = 'Inactive caption'
end
object Label6: TLabel
Left = 12
Top = 108
Width = 52
Height = 16
Caption = 'Window'
end
object Label5: TLabel
Left = 12
Top = 88
Width = 36
Height = 16
Caption = 'Menu'
end
object Label7: TLabel
Left = 12
Top = 128
Width = 93
Height = 16
Caption = 'Window frame'
end
object Label8: TLabel
Left = 12
Top = 148
Width = 64
Height = 16
Caption = 'Menu text'
end
object Label9: TLabel
Left = 12
Top = 168
Width = 80
Height = 16
Caption = 'Window text'
end
object Label10: TLabel
Left = 12
Top = 188
Width = 77
Height = 16
Caption = 'Caption text'
end
object Label11: TLabel
Left = 12
Top = 208
Width = 85
Height = 16
Caption = 'Active border'
end
object Label12: TLabel
Left = 12
Top = 228
Width = 97
Height = 16
Caption = 'Inactive border'
end
object Label13: TLabel
Left = 12
Top = 248
Width = 101
Height = 16
Caption = 'App work space'
end
object Label14: TLabel
Left = 12
Top = 268
Width = 58
Height = 16
Caption = 'Highlight'
end
object Label15: TLabel
Left = 12
Top = 288
Width = 86
Height = 16
Caption = 'Highlight text'
end
object Label16: TLabel
Left = 12
Top = 308
Width = 73
Height = 16
Caption = 'Button face'
end
object Label17: TLabel
Left = 12
Top = 328
Width = 96
Height = 16
Caption = 'Button shadow'
end
object Label18: TLabel
Left = 12
Top = 348
Width = 59
Height = 16
Caption = 'Gray text'
end
object Label19: TLabel
Left = 12
Top = 368
Width = 70
Height = 16
Caption = 'Button text'
end
object RedLabel: TLabel
Left = 264
Top = 28
Width = 30
Height = 16
Caption = '&Red:'
FocusControl = RedEdit
end
object GreenLabel: TLabel
Left = 256
Top = 60
Width = 43
Height = 16
Caption = '&Green:'
FocusControl = GreenEdit
end
object BlueLabel: TLabel
Left = 264
Top = 92
Width = 34
Height = 16
Caption = '&Blue:'
FocusControl = BlueEdit
end
object Shape1: TShape
Tag = 1
Left = 124
Top = 8
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape2: TShape
Tag = 2
Left = 124
Top = 28
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape3: TShape
Tag = 3
Left = 124
Top = 48
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape4: TShape
Tag = 4
Left = 124
Top = 68
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape5: TShape
Tag = 5
Left = 124
Top = 88
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape6: TShape
Tag = 6
Left = 124
Top = 108
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape7: TShape
Tag = 7
Left = 124
Top = 128
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape8: TShape
Tag = 8
Left = 124
Top = 148
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape9: TShape
Tag = 9
Left = 124
Top = 168
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape10: TShape
Tag = 10
Left = 124
Top = 188
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape11: TShape
Tag = 11
Left = 124
Top = 208
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape12: TShape
Tag = 12
Left = 124
Top = 228
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape13: TShape
Tag = 13
Left = 124
Top = 248
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape14: TShape
Tag = 14
Left = 124
Top = 268
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape15: TShape
Tag = 15
Left = 124
Top = 288
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape16: TShape
Tag = 16
Left = 124
Top = 308
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape17: TShape
Tag = 17
Left = 124
Top = 328
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape18: TShape
Tag = 18
Left = 124
Top = 348
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object Shape19: TShape
Tag = 19
Left = 124
Top = 368
Width = 117
Height = 17
OnMouseDown = ShapeMouseDown
end
object ColorLabel: TLabel
Left = 252
Top = 128
Width = 109
Height = 16
Alignment = taCenter
AutoSize = False
Caption = 'None'
end
object RedSB: TScrollBar
Left = 304
Top = 28
Width = 121
Height = 17
LargeChange = 10
Max = 255
PageSize = 0
TabOrder = 0
OnChange = SBChange
end
object GreenSB: TScrollBar
Tag = 1
Left = 304
Top = 60
Width = 121
Height = 17
LargeChange = 10
Max = 255
PageSize = 0
TabOrder = 2
OnChange = SBChange
end
object BlueSB: TScrollBar
Tag = 2
Left = 304
Top = 92
Width = 121
Height = 17
LargeChange = 10
Max = 255
PageSize = 0
TabOrder = 4
OnChange = SBChange
end
object RedEdit: TEdit
Left = 432
Top = 26
Width = 33
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 3
ParentFont = False
TabOrder = 1
Text = '0'
OnChange = EditChange
end
object GreenEdit: TEdit
Tag = 1
Left = 432
Top = 58
Width = 33
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 3
ParentFont = False
TabOrder = 3
Text = '0'
OnChange = EditChange
end
object ColorEdit: TEdit
Left = 272
Top = 152
Width = 73
Height = 24
Color = clBlack
Enabled = False
ReadOnly = True
TabOrder = 6
end
object BlueEdit: TEdit
Tag = 2
Left = 432
Top = 90
Width = 33
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 3
ParentFont = False
TabOrder = 5
Text = '0'
OnChange = EditChange
end
object SetBitBtn: TBitBtn
Left = 268
Top = 232
Width = 89
Height = 29
Caption = 'Se&t'
TabOrder = 8
OnClick = SetBitBtnClick
end
object ResetBitBtn: TBitBtn
Left = 268
Top = 268
Width = 89
Height = 29
Caption = 'R&eset'
TabOrder = 9
OnClick = ResetBitBtnClick
end
object SaveBitBtn: TBitBtn
Left = 376
Top = 268
Width = 89
Height = 29
Caption = '&Save'
TabOrder = 11
OnClick = SaveBitBtnClick
end
object CloseBitBtn: TBitBtn
L