object ColorDlgForm: TColorDlgForm Left = 203 Top = 111 BorderStyle = bsDialog Caption = 'Color Selection Dialog' ClientHeight = 167 ClientWidth = 386 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Bevel1: TBevel Left = 16 Top = 8 Width = 353 Height = 113 end object RedLabel: TLabel Left = 32 Top = 24 Width = 30 Height = 16 Caption = '&Red:' FocusControl = RedEdit end object GreenLabel: TLabel Left = 32 Top = 56 Width = 43 Height = 16 Caption = '&Green:' FocusControl = GreenEdit end object BlueLabel: TLabel Left = 32 Top = 88 Width = 34 Height = 16 Caption = '&Blue:' FocusControl = BlueEdit end object RedSB: TScrollBar Left = 88 Top = 24 Width = 121 Height = 17 LargeChange = 10 Max = 255 TabOrder = 0 OnChange = SBChange end object GreenSB: TScrollBar Tag = 1 Left = 88 Top = 56 Width = 121 Height = 17 LargeChange = 10 Max = 255 TabOrder = 2 OnChange = SBChange end object BlueSB: TScrollBar Tag = 2 Left = 88 Top = 88 Width = 121 Height = 17 LargeChange = 10 Max = 255 TabOrder = 4 OnChange = SBChange end object RedEdit: TEdit Left = 224 Top = 22 Width = 33 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 Text = '0' OnChange = EditChange end object GreenEdit: TEdit Tag = 1 Left = 224 Top = 54 Width = 33 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 Text = '0' OnChange = EditChange end object BlueEdit: TEdit Tag = 2 Left = 224 Top = 86 Width = 33 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 Text = '0' OnChange = EditChange end object ColorEdit: TEdit Left = 280 Top = 32 Width = 73 Height = 24 TabStop = False Color = clBlack Enabled = False ReadOnly = True TabOrder = 8 end object OkBitBtn: TBitBtn Left = 280 Top = 128 Width = 89 Height = 33 TabOrder = 7 OnClick = OkBitBtnClick Kind = bkOK end object CancelBitBtn: TBitBtn Left = 176 Top = 128 Width = 89 Height = 33 TabOrder = 6 OnClick = CancelBitBtnClick Kind = bkCancel end end