object MainForm: TMainForm Left = 200 Top = 114 Caption = 'Palette Demo - www.ImageEn.com' ClientHeight = 611 ClientWidth = 804 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 537 Top = 0 Height = 518 Align = alRight end object ImageEnView1: TImageEnView Left = 0 Top = 0 Width = 537 Height = 518 Background = clBtnFace Ctl3D = False AutoShrink = True EnableInteractionHints = True Align = alClient TabOrder = 0 OnMouseDown = ImageEnView1MouseDown OnMouseMove = ImageEnView1MouseMove end object IEColorPalette1: TIEColorPalette Left = 540 Top = 0 Width = 264 Height = 518 Ctl3D = False MaxColors = 65536 HintFormat = '%HTML% (R: %RGB_R%, G: %RGB_G%, B: %RGB_B%)' OnSelectedColorChange = IEColorPalette1SelectedColorChange Align = alRight ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 1 TabStop = True OnDblClick = btnSetColorClick OnMouseMove = IEColorPalette1MouseMove end object Panel1: TPanel Left = 0 Top = 518 Width = 804 Height = 93 Align = alBottom BevelOuter = bvNone TabOrder = 2 DesignSize = ( 804 93) object btnAnimatePalette: TSpeedButton Left = 16 Top = 54 Width = 97 Height = 25 AllowAllUp = True GroupIndex = 99 Caption = 'Animate Palette' OnClick = btnAnimatePaletteClick end object Label1: TLabel Left = 174 Top = 60 Width = 73 Height = 13 Caption = 'Selected Color:' end object Label2: TLabel Left = 174 Top = 20 Width = 77 Height = 13 Caption = 'Color at Cursor:' end object Label6: TLabel Left = 635 Top = 20 Width = 28 Height = 13 Anchors = [akRight, akBottom] Caption = 'Style:' end object Label7: TLabel Left = 750 Top = 20 Width = 23 Height = 13 Anchors = [akRight, akBottom] Caption = 'Size:' end object btnLoadImage: TButton Left = 16 Top = 14 Width = 97 Height = 25 Caption = 'Load Image' TabOrder = 0 OnClick = btnLoadImageClick end object pnlCursorColor: TPanel Left = 259 Top = 9 Width = 109 Height = 34 TabOrder = 1 end object pnlSelectedColor: TPanel Left = 259 Top = 49 Width = 109 Height = 34 TabOrder = 2 end object cmbStyle: TComboBox Left = 666 Top = 16 Width = 71 Height = 21 Style = csDropDownList Anchors = [akRight, akBottom] TabOrder = 3 OnChange = cmbStyleChange Items.Strings = ( 'Default' 'Grid' 'Flat Grid') end object updCellSize: TUpDown Left = 776 Top = 16 Width = 17 Height = 21 Anchors = [akRight, akBottom] Position = 22 TabOrder = 4 Thousands = False Wrap = True OnChanging = updCellSizeChanging end object btnSetColor: TButton Left = 666 Top = 54 Width = 127 Height = 25 Anchors = [akTop, akRight] Caption = 'Set Selected Color...' TabOrder = 5 OnClick = btnSetColorClick end end object ColorDialog1: TColorDialog Left = 218 Top = 34 end object Timer1: TTimer Enabled = False Interval = 200 OnTimer = Timer1Timer Left = 410 Top = 114 end end