object ColourHistoryForm: TColourHistoryForm Left = 373 Height = 250 Top = 308 Width = 490 ActiveControl = SelectionName Caption = 'Colour Picker History' ClientHeight = 225 ClientWidth = 490 Constraints.MinHeight = 200 Constraints.MinWidth = 490 Menu = CHMainMenu OnCreate = FormCreate OnHide = UnSetCHShowMenu OnShow = SetCHShowMenu LCLVersion = '0.9.29' object DeleteButton: TButton Left = 16 Height = 25 Top = 183 Width = 128 Anchors = [akLeft, akBottom] Caption = 'Delete' OnClick = DeleteSelected TabOrder = 0 end object SelectionName: TEdit Left = 361 Height = 27 Top = 16 Width = 112 Anchors = [akTop, akRight] OnChange = ChangeName OnKeyPress = SelectionNameKeyPress TabOrder = 1 Text = 'Name' end object PickNewColourButton: TButton Left = 217 Height = 25 Top = 183 Width = 128 Anchors = [akRight, akBottom] Caption = 'Pick New Colour' TabOrder = 2 end object ColourValue: TEdit Left = 361 Height = 27 Top = 56 Width = 112 Anchors = [akTop, akRight] ReadOnly = True TabOrder = 3 Text = 'ColourValue' end object CoordValue: TLabel Left = 361 Height = 18 Top = 96 Width = 112 Anchors = [akTop, akRight] Caption = 'CoordValue' Constraints.MinWidth = 112 ParentColor = False end object ColourImage: TImage Left = 152 Height = 24 Top = 184 Width = 57 Anchors = [akLeft, akRight, akBottom] end object OkButton: TButton Left = 393 Height = 24 Top = 184 Width = 80 Anchors = [akRight, akBottom] Caption = 'Ok' OnClick = OkButtonClick TabOrder = 4 end object CH_RGB_Label: TLabel Left = 361 Height = 18 Top = 128 Width = 112 Anchors = [akTop, akRight] Caption = 'RGBValues' Constraints.MinWidth = 112 ParentColor = False end object ColourTree: TTreeView Left = 8 Height = 144 Top = 16 Width = 337 Anchors = [akTop, akLeft, akRight, akBottom] DefaultItemHeight = 19 DragMode = dmAutomatic Images = CHImages ScrollBars = ssAutoBoth TabOrder = 5 OnChange = ColourTreeChange OnDragDrop = ColourTreeDragDrop OnDragOver = ColourTreeDragOver end object CHImages: TImageList left = 424 top = 160 end object CHMainMenu: TMainMenu left = 360 top = 160 object CHFile: TMenuItem Caption = 'File' object CHClear: TMenuItem Caption = 'Clear' OnClick = CHClearClick end object CHLoad: TMenuItem Caption = 'Load' OnClick = CHLoadClick end object CHSave: TMenuItem Caption = 'Save' OnClick = CHSaveClick end end object CHHelp: TMenuItem Caption = 'Help' object CHAbout: TMenuItem Caption = 'About' OnClick = CHAboutClick end end end object CHSaveDialog: TSaveDialog DefaultExt = '.xml' left = 392 top = 160 end object CHOpenDialog: TOpenDialog DefaultExt = '.xml' left = 456 top = 160 end end