object Form1: TForm1 Left = 255 Height = 344 Top = 107 Width = 543 Caption = 'mbColor Lib v2.0.1 Demo' ClientHeight = 344 ClientWidth = 543 Font.Color = clWindowText OnCreate = FormCreate ShowHint = True LCLVersion = '1.7' object Label1: TLabel Left = 412 Height = 15 Top = 8 Width = 73 Anchors = [akTop, akRight] Caption = 'SelectedColor' ParentColor = False end object Label2: TLabel Left = 412 Height = 15 Top = 112 Width = 96 Anchors = [akTop, akRight] Caption = 'ColorUnderCursor' ParentColor = False end object Label5: TLabel Left = 412 Height = 75 Top = 238 Width = 99 Anchors = [akTop, akRight] Caption = 'Aditional controls:'#13#13'- Arrow keys'#13'- Ctrl + Arrow keys'#13'- Mouse wheel' ParentColor = False end object PageControl1: TPageControl Left = 6 Height = 331 Top = 6 Width = 399 ActivePage = TabSheet1 Anchors = [akTop, akLeft, akRight, akBottom] TabIndex = 0 TabOrder = 0 OnMouseMove = PageControl1MouseMove object TabSheet1: TTabSheet Caption = 'HSLColorPicker' ClientHeight = 303 ClientWidth = 391 object HSLColorPicker1: THSLColorPicker Left = 8 Height = 287 Top = 8 Width = 377 SelectedColor = 424966 HSPickerHintFormat = 'H: %h S: %s'#13'Hex: %hex' LPickerHintFormat = 'Luminance: %l' Anchors = [akTop, akLeft, akRight, akBottom] TabOrder = 0 OnChange = HSLColorPicker1Change OnMouseMove = HSLColorPicker1MouseMove end end object TabSheet2: TTabSheet Caption = 'HexaColorPicker' ClientHeight = 303 ClientWidth = 391 ImageIndex = 1 object Label4: TLabel AnchorSideTop.Control = ComboBox1 AnchorSideTop.Side = asrCenter Left = 112 Height = 15 Top = 282 Width = 40 Caption = 'Marker:' ParentColor = False end object HexaColorPicker1: THexaColorPicker Left = 48 Height = 271 Top = 4 Width = 285 Anchors = [akTop, akLeft, akRight, akBottom] HintFormat = 'RGB(%r, %g, %b)'#13'Hex: %h' IntensityText = 'Intensity' TabOrder = 0 Constraints.MinHeight = 85 Constraints.MinWidth = 93 OnChange = HexaColorPicker1Change OnMouseMove = HexaColorPicker1MouseMove end object CheckBox1: TCheckBox AnchorSideTop.Control = ComboBox1 AnchorSideTop.Side = asrCenter Left = 4 Height = 19 Top = 280 Width = 83 Caption = 'SliderVisible' Checked = True OnClick = CheckBox1Click State = cbChecked TabOrder = 1 end object ComboBox1: TComboBox Left = 160 Height = 23 Top = 278 Width = 71 Anchors = [akLeft, akBottom] ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'smArrow' 'smRect' ) OnChange = ComboBox1Change Style = csDropDownList TabOrder = 2 Text = 'smArrow' end object CheckBox2: TCheckBox AnchorSideTop.Control = ComboBox1 AnchorSideTop.Side = asrCenter Left = 256 Height = 20 Top = 279 Width = 101 Anchors = [akTop, akLeft, akBottom] Caption = 'NewArrowStyle' OnClick = CheckBox2Click TabOrder = 3 end end object TabSheet3: TTabSheet Caption = 'mbColorPalette' ClientHeight = 303 ClientWidth = 391 ImageIndex = 2 object Label3: TLabel AnchorSideTop.Control = ComboBox2 AnchorSideTop.Side = asrCenter Left = 6 Height = 15 Top = 272 Width = 24 Caption = 'Sort:' ParentColor = False end object Label6: TLabel AnchorSideTop.Control = ComboBox4 AnchorSideTop.Side = asrCenter Left = 224 Height = 15 Top = 272 Width = 28 Caption = 'Style:' ParentColor = False end object Label7: TLabel AnchorSideTop.Control = UpDown1 AnchorSideTop.Side = asrCenter Left = 336 Height = 15 Top = 272 Width = 23 Caption = 'Size:' ParentColor = False end object Button1: TButton Left = 6 Height = 25 Top = 236 Width = 107 Anchors = [akLeft, akBottom] Caption = 'Generate blue pal' OnClick = Button1Click TabOrder = 0 end object Button2: TButton Left = 120 Height = 25 Top = 236 Width = 135 Anchors = [akLeft, akBottom] Caption = 'Generate gradient pal' OnClick = Button2Click TabOrder = 1 end object Button4: TButton Left = 262 Height = 25 Top = 236 Width = 121 Anchors = [akLeft, akBottom] Caption = 'Load palette from file' OnClick = Button4Click TabOrder = 2 end object ScrollBox1: TScrollBox Left = 6 Height = 221 Top = 8 Width = 381 HorzScrollBar.Page = 75 VertScrollBar.Page = 221 Anchors = [akTop, akLeft, akRight, akBottom] BorderStyle = bsNone ClientHeight = 221 ClientWidth = 364 TabOrder = 3 object mbColorPalette1: TmbColorPalette Left = 0 Height = 234 Top = 0 Width = 364 Align = alTop Colors.Strings = ( 'clBlack' '$00330000' '$00660000' '$00990000' '$00CC0000' 'clBlue' '$00FF3300' '$00CC3300' '$00993300' '$00663300' '$00333300' '$00003300' '$00000033' '$00330033' '$00660033' '$00990033' '$00CC0033' '$00FF0033' '$00FF3333' '$00CC3333' '$00993333' '$00663333' '$00333333' '$00003333' '$00000066' '$00330066' '$00660066' '$00990066' '$00CC0066' '$00FF0066' '$00FF3366' '$00CC3366' '$00993366' '$00663366' '$00333366' '$00003366' '$00000099' '$00330099' '$00660099' '$00990099' '$00CC0099' '$00FF0099' '$00FF3399' '$00CC3399' '$00993399' '$00663399' '$00333399' '$00003399' '$000000CC' '$003300CC' '$006600CC' '$009900CC' '$00CC00CC' '$00FF00CC' '$00FF33CC' '$00CC33CC' '$009933CC' '$006633CC' '$003333CC' '$000033CC' 'clRed' '$003300FF' '$006600FF' '$009900FF' '$00CC00FF' 'clFuchsia' '$00FF33FF' '$00CC33FF' '$009933FF' '$006633FF' '$003333FF' '$000033FF' '$000066FF' '$003366FF' '$006666FF' '$009966FF' '$00CC66FF' '$00FF66FF' '$00FF99FF' '$00CC99FF' '$009999FF' '$006699FF' '$003399FF' '$000099FF' '$000066CC' '$003366CC' '$006666CC' '$009966CC' '$00CC66CC' '$00FF66CC' '$00FF99CC' '$00CC99CC' '$009999CC' '$006699CC' '$003399CC' '$000099CC' '$00006699' '$00336699' '$00666699' '$00996699' '$00CC6699' '$00FF6699' '$00FF9999' '$00CC9999' '$00999999' '$00669999' '$00339999' '$00009999' '$00006666' '$00336666' '$00666666' '$00996666' '$00CC6666' '$00FF6666' '$00FF9966' '$00CC9966' '$00999966' '$00669966' '$00339966' '$00009966' '$00006633' '$00336633' '$00666633' '$00996633' '$00CC6633' '$00FF6633' '$00FF9933' '$00CC9933' '$00999933' '$00669933' '$00339933' '$00009933' '$00006600' '$00336600' '$00666600' '$00996600' '$00CC6600' '$00FF6600' '$00FF9900' '$00CC9900' '$00999900' '$00669900' '$00339900' '$00009900' '$0000CC00' '$0033CC00' '$0066CC00' '$0099CC00' '$00CCCC00' '$00FFCC00' 'clAqua' '$00CCFF00' '$0099FF00' '$0066FF00' '$0033FF00' 'clLime' '$0000CC33' '$0033CC33' '$0066CC33' '$0099CC33' '$00CCCC33' '$00FFCC33' '$00FFFF33' '$00CCFF33' '$0099FF33' '$0066FF33' '$0033FF33' '$0000FF33' '$0000CC66' '$0033CC66' '$0066CC66' '$0099CC66' '$00CCCC66' '$00FFCC66' '$00FFFF66' '$00CCFF66' '$0099FF66' '$0066FF66' '$0033FF66' '$0000FF66' '$0000CC99' '$0033CC99' '$0066CC99' '$0099CC99' '$00CCCC99' '$00FFCC99' '$00FFFF99' '$00CCFF99' '$0099FF99' '$0066FF99' '$0033FF99' '$0000FF99' '$0000CCCC' '$0033CCCC' '$0066CCCC' '$0099CCCC' '$00CCCCCC' '$00FFCCCC' '$00FFFFCC' '$00CCFFCC' '$0099FFCC' '$0066FFCC' '$0033FFCC' '$0000FFCC' '$0000CCFF' '$0033CCFF' '$0066CCFF' '$0099CCFF' '$00CCCCFF' '$00FFCCFF' 'clWhite' '$00CCFFFF' '$0099FFFF' '$0066FFFF' '$0033FFFF' 'clYellow' 'clBlack' 'clBlack' 'clBlack' 'clBlack' 'clBlack' 'clBlack' 'clBlack' 'clBlack' 'clBlack' 'clBlack' 'clBlack' 'clBlack' '$00000099' '$00009999' '$00009900' '$00999900' '$00990000' '$00990099' 'clBlack' 'clBlack' 'clBlack' 'clBlack' 'clBlack' 'clBlack' 'clRed' 'clYellow' 'clLime' 'clAqua' 'clBlue' 'clFuchsia' 'clWhite' '$00CCCCCC' '$00999999' '$00666666' '$00333333' 'clBlack' 'clBlack' 'clBlack' 'clBlack' 'clBlack' ) HintFormat = 'RGB(%r, %g, %b)'#13'Hex: %h' AutoHeight = True TabOrder = 0 OnSelColorChange = mbColorPalette1SelColorChange OnMouseMove = mbColorPalette1MouseMove end end object ComboBox2: TComboBox Left = 34 Height = 23 Top = 268 Width = 87 Anchors = [akLeft, akBottom] ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'soAscending' 'soDescending' ) OnChange = ComboBox2Change Style = csDropDownList TabOrder = 4 Text = 'soAscending' end object ComboBox3: TComboBox Left = 124 Height = 23 Top = 268 Width = 87 Anchors = [akLeft, akBottom] ItemHeight = 15 ItemIndex = 7 Items.Strings = ( 'smRed' 'smGreen' 'smBlue' 'smHue' 'smSaturation' 'smLuminance' 'smValue' 'smNone' 'smCyan' 'smMagenta' 'smYellow' 'smBlacK' 'smCIEx' 'smCIEy' 'smCIEz' 'smCIEl' 'smCIEa' 'smCIEb' ) OnChange = ComboBox3Change Style = csDropDownList TabOrder = 5 Text = 'smNone' end object ComboBox4: TComboBox Left = 256 Height = 23 Top = 268 Width = 71 Anchors = [akLeft, akBottom] ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'csDefault' 'csCorel' ) OnChange = ComboBox4Change Style = csDropDownList TabOrder = 6 Text = 'csDefault' end object UpDown1: TUpDown Left = 364 Height = 23 Top = 268 Width = 15 Anchors = [akLeft, akBottom] Min = 0 OnChanging = UpDown1Changing Position = 18 TabOrder = 7 Thousands = False Wrap = True end end object TabSheet4: TTabSheet Caption = 'HSLRingPicker' ClientHeight = 303 ClientWidth = 391 ImageIndex = 3 object HSLRingPicker1: THSLRingPicker Left = 50 Height = 289 Top = 6 Width = 293 RingPickerHintFormat = 'Hue: %h' SLPickerHintFormat = 'S: %s L: %l'#13'Hex: %hex' Anchors = [akTop, akLeft, akRight, akBottom] TabOrder = 0 OnChange = HSLRingPicker1Change OnMouseMove = HSLRingPicker1MouseMove end end object TabSheet5: TTabSheet Caption = 'HSVColorPicker' ClientHeight = 303 ClientWidth = 391 ImageIndex = 4 object HSVColorPicker1: THSVColorPicker Left = 24 Height = 289 Top = 6 Width = 328 HintFormat = 'H: %h S: %s V: %v'#13'Hex: %hex' Anchors = [akTop, akLeft, akRight, akBottom] TabOrder = 0 OnMouseMove = HSVColorPicker1MouseMove OnChange = HSVColorPicker1Change end object VColorPicker2: TVColorPicker Left = 360 Height = 302 Top = 2 Width = 22 HintFormat = 'Value: %v' Layout = lyVertical NewArrowStyle = True Anchors = [akTop, akRight, akBottom] TabOrder = 1 OnChange = VColorPicker2Change SelectedColor = clWhite end end object TabSheet6: TTabSheet Caption = 'SLHColorPicker' ClientHeight = 303 ClientWidth = 391 ImageIndex = 5 object SLHColorPicker1: TSLHColorPicker Left = 5 Height = 291 Top = 6 Width = 381 HPickerHintFormat = 'Hue: %h' SLPickerHintFormat = 'S: %s L: %l'#13'Hex: %hex' Anchors = [akTop, akLeft, akRight, akBottom] TabOrder = 0 OnChange = SLHColorPicker1Change OnMouseMove = SLHColorPicker1MouseMove end end object TabSheet11: TTabSheet Caption = 'Lists && Trees' ClientHeight = 303 ClientWidth = 391 ImageIndex = 10 object mbColorList1: TmbColorList Left = 192 Height = 244 Top = 12 Width = 183 TabOrder = 0 end object mbColorTree1: TmbColorTree Left = 8 Height = 247 Top = 10 Width = 171 InfoLabelText = 'Color Values:' InfoDisplay1 = 'RGB: %r.%g.%b' InfoDisplay2 = 'HEX: #%hex' Indent = 51 TabOrder = 1 end object Button5: TButton Left = 120 Height = 25 Top = 264 Width = 137 Caption = 'Add colors from palette' OnClick = Button5Click TabOrder = 2 end end object TabSheet7: TTabSheet Caption = 'More' ClientHeight = 303 ClientWidth = 391 ImageIndex = 6 object Label9: TLabel Left = 128 Height = 15 Top = 8 Width = 113 Caption = 'HintFormat variables:' ParentColor = False end object mbDeskPickerButton1: TmbDeskPickerButton Left = 8 Height = 25 Top = 8 Width = 104 Caption = 'Pick from screen' TabOrder = 0 OnSelColorChange = mbDeskPickerButton1SelColorChange ScreenHintFormat = 'RGB(%r, %g, %b)'#13'Hex: %h' end object Button3: TButton Left = 8 Height = 25 Top = 40 Width = 104 Caption = 'OfficeColorDialog' OnClick = Button3Click TabOrder = 1 end object LColorPicker1: TLColorPicker Left = 34 Height = 25 Top = 192 Width = 343 HintFormat = 'Luminance: %l' SelectionIndicator = siRect Anchors = [akLeft, akRight, akBottom] TabOrder = 2 Saturation = 238 Luminance = 60 SelectedColor = 263284 end object VColorPicker1: TVColorPicker Left = 34 Height = 21 Top = 160 Width = 343 HintFormat = 'Value: %v' ArrowPlacement = spBefore NewArrowStyle = True SelectionIndicator = siRect Anchors = [akLeft, akRight, akBottom] TabOrder = 3 Hue = 240 Saturation = 255 Value = 40 SelectedColor = 2621440 end object HColorPicker1: THColorPicker Left = 34 Height = 61 Top = 231 Width = 343 HintFormat = 'Hue: %h' Increment = 5 ArrowPlacement = spBoth SelectionIndicator = siRect Anchors = [akLeft, akRight, akBottom] TabOrder = 4 Saturation = 120 SelectedColor = 8882175 end object SColorPicker1: TSColorPicker Left = 8 Height = 222 Top = 70 Width = 19 HintFormat = 'Saturation: %s' Layout = lyVertical ArrowPlacement = spBefore NewArrowStyle = True SelectionIndicator = siRect Anchors = [akTop, akLeft, akBottom] TabOrder = 5 Hue = 60 Saturation = 80 SelectedColor = 11534335 end object Memo1: TMemo Left = 128 Height = 118 Top = 26 Width = 249 Anchors = [akTop, akLeft, akRight, akBottom] Lines.Strings = ( 'The following variables will be replaced in the hint at runtime:' '' '%hex = HTML HEX color value' '' '%cieL = CIE L*a*b* Luminance value' '%cieA = CIE L*a*b* A-Chrominance value' '%cieB = CIE L*a*b* B-Chrominance value' '' '%cieX = CIE XYZ X value' '%cieY = CIE XYZ Y value' '%cieZ = CIE XYZ Z value' '' '%cieC = CIE LCH Chrominance value' '%cieH = CIE LCH Hue value' '' '%hslH = HSL Hue value' '%hslS = HSL Saturation value' '%hslL = HSL Luminance value' '' '%hsvH = HSV Hue value' '%hsvS = HSV Saturation value' '%hsvV = HSV Value value' '' '%r = RGB Red value' '%g = RGB Green value' '%b = RGB Blue value' '' '%c = CMYK Cyan value' '%m = CMYK Magenta value' '%y = CMYK Yellow value' '%k = CMYK blacK value' '' '%h = HSL Hue value' '%l = HSL Luminance value' '%v = HSV Value value' ) ScrollBars = ssVertical TabOrder = 6 end end object TabSheet8: TTabSheet Caption = 'Other' ClientHeight = 292 ClientWidth = 372 ImageIndex = 7 object HSColorPicker1: THSColorPicker Left = 6 Height = 155 Top = 6 Width = 211 SelectedColor = 518633 HintFormat = 'H: %h S: %s'#13'Hex: %hex' TabOrder = 0 OnMouseMove = HSColorPicker1MouseMove HueValue = 60 MarkerStyle = msSquare OnChange = HSColorPicker1Change end object SLColorPicker1: TSLColorPicker Left = 222 Height = 147 Top = 144 Width = 161 HintFormat = 'H: %h S: %s L: %l'#13'Hex: %hex' TabOrder = 1 OnMouseMove = SLColorPicker1MouseMove MarkerStyle = msCross OnChange = SLColorPicker1Change end object HRingPicker1: THRingPicker Left = 4 Height = 130 Top = 164 Width = 133 HintFormat = 'Hue: %h' TabOrder = 2 OnMouseMove = HRingPicker1MouseMove OnChange = HRingPicker1Change end end object TabSheet9: TTabSheet Caption = 'Even more' ClientHeight = 292 ClientWidth = 372 ImageIndex = 8 object Label8: TLabel Left = 6 Height = 15 Top = 4 Width = 136 Caption = 'New: border styles added.' ParentColor = False end object CColorPicker1: TCColorPicker Left = 4 Height = 267 Top = 18 Width = 22 HintFormat = 'Cyan: %c' TabOrder = 0 SelectedColor = clAqua end object MColorPicker1: TMColorPicker Left = 34 Height = 267 Top = 18 Width = 22 HintFormat = 'Magenta: %m' ArrowPlacement = spBefore TabOrder = 1 SelectedColor = clFuchsia end object YColorPicker1: TYColorPicker Left = 68 Height = 267 Top = 19 Width = 31 HintFormat = 'Yellow: %y' ArrowPlacement = spBoth TabOrder = 2 SelectedColor = clYellow end object KColorPicker1: TKColorPicker Left = 120 Height = 267 Top = 18 Width = 22 HintFormat = 'Black: %k' NewArrowStyle = True TabOrder = 3 Cyan = 0 Black = 255 SelectedColor = clBlack end object RColorPicker1: TRColorPicker Left = 150 Height = 268 Top = 18 Width = 22 HintFormat = 'Red: %r' ArrowPlacement = spBefore NewArrowStyle = True TabOrder = 4 SelectedColor = 8026879 end object GColorPicker1: TGColorPicker Left = 182 Height = 268 Top = 18 Width = 34 HintFormat = 'Green: %g' ArrowPlacement = spBoth NewArrowStyle = True TabOrder = 5 SelectedColor = 8060794 end object BColorPicker1: TBColorPicker Left = 224 Height = 268 Top = 18 Width = 22 HintFormat = 'Blue: %b' SelectionIndicator = siRect TabOrder = 6 SelectedColor = 16743034 end object KColorPicker2: TKColorPicker Left = 274 Height = 71 Top = 22 Width = 69 BevelInner = bvRaised BevelOuter = bvRaised BorderStyle = bsSingle HintFormat = 'Black: %k' ArrowPlacement = spBoth NewArrowStyle = True TabOrder = 7 Cyan = 0 Black = 255 SelectedColor = clBlack end object MColorPicker2: TMColorPicker Left = 272 Height = 55 Top = 96 Width = 91 BevelInner = bvLowered BevelOuter = bvRaised BorderStyle = bsSingle HintFormat = 'Magenta: %m' Layout = lyHorizontal ArrowPlacement = spBoth NewArrowStyle = True TabOrder = 8 SelectedColor = clFuchsia end object CColorPicker2: TCColorPicker Left = 274 Height = 67 Top = 152 Width = 61 BevelInner = bvRaised BevelOuter = bvLowered BorderStyle = bsSingle HintFormat = 'Cyan: %c' ArrowPlacement = spBoth NewArrowStyle = True TabOrder = 9 SelectedColor = clAqua end object YColorPicker2: TYColorPicker Left = 272 Height = 57 Top = 228 Width = 81 BevelInner = bvLowered BevelOuter = bvLowered BorderStyle = bsSingle HintFormat = 'Yellow: %y' ArrowPlacement = spBoth NewArrowStyle = True TabOrder = 10 SelectedColor = clYellow end end object TabSheet10: TTabSheet Caption = 'Yet even more' ClientHeight = 303 ClientWidth = 391 ImageIndex = 9 object RAxisColorPicker1: TRAxisColorPicker Left = 10 Height = 100 Top = 28 Width = 100 HintFormat = 'G: %g B: %b'#13'Hex: %hex' TabOrder = 0 end object GAxisColorPicker1: TGAxisColorPicker Left = 130 Height = 100 Top = 28 Width = 100 HintFormat = 'R: %r B: %b'#13'Hex: %hex' TabOrder = 1 MarkerStyle = msCross end object BAxisColorPicker1: TBAxisColorPicker Left = 250 Height = 100 Top = 28 Width = 100 HintFormat = 'R: %r G: %g'#13'Hex: %hex' TabOrder = 2 MarkerStyle = msCrossCirc end object CIELColorPicker1: TCIELColorPicker Left = 10 Height = 100 Top = 164 Width = 100 SelectedColor = 16119089 HintFormat = 'A: %cieA B: %cieB'#13'Hex: %hex' TabOrder = 3 LValue = 88 AValue = -47 BValue = -32 end object CIEAColorPicker1: TCIEAColorPicker Left = 130 Height = 100 Top = 164 Width = 100 SelectedColor = 16515327 HintFormat = 'L: %cieL B: %cieB'#13'Hex: %hex' TabOrder = 4 LValue = 60 AValue = 96 BValue = -78 MarkerStyle = msSquare end object CIEBColorPicker1: TCIEBColorPicker Left = 250 Height = 100 Top = 164 Width = 100 SelectedColor = 130823 HintFormat = 'L: %cieL A: %cieA'#13'Hex: %hex' TabOrder = 5 LValue = 88 AValue = -88 BValue = 74 end object Label10: TLabel Left = 130 Height = 15 Top = 8 Width = 90 Caption = 'GAxisColorPicker' ParentColor = False end object Label11: TLabel Left = 10 Height = 15 Top = 8 Width = 89 Caption = 'RAxisColorPicker' ParentColor = False end object Label12: TLabel Left = 250 Height = 15 Top = 8 Width = 89 Caption = 'BAxisColorPicker' ParentColor = False end object Label13: TLabel Left = 10 Height = 15 Top = 144 Width = 84 Caption = 'CIELColorPicker' ParentColor = False end object Label14: TLabel Left = 130 Height = 15 Top = 144 Width = 86 Caption = 'CIEAColorPicker' ParentColor = False end object Label15: TLabel Left = 250 Height = 15 Top = 144 Width = 85 Caption = 'CIEBColorPicker' ParentColor = False end end end object sc: TmbColorPreview Left = 412 Height = 62 Top = 25 Width = 108 Color = clNone Anchors = [akTop, akRight] end object uc: TmbColorPreview Left = 412 Height = 62 Top = 130 Width = 108 Color = clNone Anchors = [akTop, akRight] end object tb1: TTrackBar Left = 412 Height = 20 Hint = 'Opacity' Top = 90 Width = 108 Max = 100 OnChange = tb1Change Position = 100 TickStyle = tsNone Anchors = [akTop, akRight] TabOrder = 3 end object tb2: TTrackBar Left = 412 Height = 20 Top = 196 Width = 108 Max = 100 OnChange = tb2Change Position = 100 TickStyle = tsNone Anchors = [akTop, akRight] TabOrder = 4 end object CheckBox3: TCheckBox Left = 412 Height = 19 Top = 320 Width = 66 Anchors = [akTop, akRight] Caption = 'WebSafe' OnClick = CheckBox3Click TabOrder = 5 end object CheckBox4: TCheckBox Left = 412 Height = 19 Top = 218 Width = 83 Anchors = [akTop, akRight] Caption = 'SwatchStyle' OnClick = CheckBox4Click TabOrder = 6 end object mbOfficeColorDialog1: TmbOfficeColorDialog UseHints = True left = 448 top = 136 end object OpenDialog1: TOpenDialog Filter = 'JASC PAL (*.pal)|*.pal|Photoshop (*.act; *.aco)|*.act;*.aco' left = 440 top = 40 end end