object ColourHistoryForm: TColourHistoryForm Left = 374 Height = 260 Top = 335 Width = 499 Caption = 'Colour Picker History' ClientHeight = 240 ClientWidth = 499 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 = 198 Width = 128 Anchors = [akLeft, akBottom] Caption = 'Delete' OnClick = DeleteSelected TabOrder = 0 end object SelectionName: TEdit Left = 370 Height = 21 Top = 16 Width = 112 Anchors = [akTop, akRight] OnChange = ChangeName OnKeyPress = SelectionNameKeyPress TabOrder = 1 Text = 'Name' end object PickNewColourButton: TButton Left = 226 Height = 25 Top = 198 Width = 128 Anchors = [akRight, akBottom] Caption = 'Pick New Colour' TabOrder = 2 end object ColourValue: TEdit Left = 370 Height = 21 Top = 56 Width = 112 Anchors = [akTop, akRight] ReadOnly = True TabOrder = 3 Text = 'ColourValue' end object CoordValue: TLabel Left = 370 Height = 14 Top = 96 Width = 112 Anchors = [akTop, akRight] Caption = 'CoordValue' Constraints.MinWidth = 112 ParentColor = False end object ColourImage: TImage Left = 152 Height = 24 Top = 199 Width = 66 Anchors = [akLeft, akRight, akBottom] end object OkButton: TButton Left = 402 Height = 24 Top = 199 Width = 80 Anchors = [akRight, akBottom] Caption = 'Ok' OnClick = OkButtonClick TabOrder = 4 end object CH_RGB_Label: TLabel Left = 370 Height = 14 Top = 128 Width = 112 Anchors = [akTop, akRight] Caption = 'RGBValues' Constraints.MinWidth = 112 ParentColor = False end object ColourTree: TTreeView Left = 8 Height = 159 Top = 16 Width = 346 Anchors = [akTop, akLeft, akRight, akBottom] DefaultItemHeight = 16 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