pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

mbColorLib: Improved layout of forms

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5566 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-28 22:35:53 +00:00
parent 560a1e5ba2
commit d7894b3808
5 changed files with 344 additions and 224 deletions
Download Patch File Download Diff File Expand all files Collapse all files

115
components/mbColorLib/OfficeMoreColorsDialog.lfm
View File

@ -1,61 +1,65 @@
object OfficeMoreColorsWin: TOfficeMoreColorsWin object OfficeMoreColorsWin: TOfficeMoreColorsWin
Left = 265 Left = 265
Height = 310 Height = 325
Top = 115 Top = 115
Width = 343 Width = 355
ActiveControl = OKbtn ActiveControl = OKbtn
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
Caption = 'More colors...' Caption = 'More colors...'
ClientHeight = 310 ClientHeight = 325
ClientWidth = 343 ClientWidth = 355
Constraints.MinHeight = 310 Constraints.MinHeight = 310
Constraints.MinWidth = 340 Constraints.MinWidth = 340
Font.Color = clWindowText Font.Color = clWindowText
OnCreate = FormCreate OnCreate = FormCreate
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnResize = FormResize OnResize = FormResize
OnShow = FormShow
Position = poMainFormCenter Position = poMainFormCenter
LCLVersion = '1.7' LCLVersion = '1.7'
object Label4: TLabel object Label4: TLabel
AnchorSideLeft.Control = NewSwatch AnchorSideLeft.Control = NewSwatch
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = NewSwatch AnchorSideBottom.Control = NewSwatch
Left = 278 Left = 290
Height = 15 Height = 15
Top = 77 Top = 209
Width = 24 Width = 24
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
Caption = 'New' Caption = 'New'
ParentColor = False ParentColor = False
end end
object Label5: TLabel object LblCurrent: TLabel
AnchorSideLeft.Control = OldSwatch AnchorSideLeft.Control = OldSwatch
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = OldSwatch AnchorSideTop.Control = OldSwatch
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 270 AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 282
Height = 15 Height = 15
Top = 163 Top = 296
Width = 40 Width = 40
BorderSpacing.Top = 4 Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 14
Caption = 'Current' Caption = 'Current'
ParentColor = False ParentColor = False
end end
object Pages: TPageControl object Pages: TPageControl
Left = 6 Left = 6
Height = 290 Height = 305
Top = 6 Top = 6
Width = 239 Width = 251
ActivePage = Standard ActivePage = Custom
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
TabIndex = 0 TabIndex = 1
TabOrder = 0 TabOrder = 0
OnChange = PagesChange OnChange = PagesChange
object Standard: TTabSheet object Standard: TTabSheet
Caption = 'Standard' Caption = 'Standard'
ClientHeight = 264 ClientHeight = 273
ClientWidth = 231 ClientWidth = 243
object Label2: TLabel object Label2: TLabel
Left = 6 Left = 6
Height = 15 Height = 15
@ -66,10 +70,12 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
ParentColor = False ParentColor = False
end end
object Hexa: THexaColorPicker object Hexa: THexaColorPicker
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 237 Height = 246
Top = 26 Top = 26
Width = 228 Width = 240
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
HintFormat = 'RGB(%r, %g, %b)'#13'Hex: %h' HintFormat = 'RGB(%r, %g, %b)'#13'Hex: %h'
IntensityText = 'Intensity' IntensityText = 'Intensity'
@ -81,8 +87,8 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
end end
object Custom: TTabSheet object Custom: TTabSheet
Caption = 'Custom' Caption = 'Custom'
ClientHeight = 264 ClientHeight = 277
ClientWidth = 231 ClientWidth = 243
ImageIndex = 1 ImageIndex = 1
object Label1: TLabel object Label1: TLabel
Left = 6 Left = 6
@ -96,7 +102,7 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
object Label3: TLabel object Label3: TLabel
Left = 6 Left = 6
Height = 15 Height = 15
Top = 158 Top = 171
Width = 35 Width = 35
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = '&Picker:' Caption = '&Picker:'
@ -106,7 +112,7 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
object LRed: TLabel object LRed: TLabel
Left = 6 Left = 6
Height = 15 Height = 15
Top = 184 Top = 197
Width = 23 Width = 23
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = '&Red:' Caption = '&Red:'
@ -115,7 +121,7 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
object LGreen: TLabel object LGreen: TLabel
Left = 6 Left = 6
Height = 15 Height = 15
Top = 210 Top = 223
Width = 34 Width = 34
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = '&Green:' Caption = '&Green:'
@ -124,7 +130,7 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
object LBlue: TLabel object LBlue: TLabel
Left = 6 Left = 6
Height = 15 Height = 15
Top = 236 Top = 249
Width = 26 Width = 26
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = '&Blue:' Caption = '&Blue:'
@ -132,8 +138,8 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
end end
object cbColorDisplay: TComboBox object cbColorDisplay: TComboBox
Left = 48 Left = 48
Height = 21 Height = 23
Top = 156 Top = 167
Width = 147 Width = 147
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
ItemHeight = 15 ItemHeight = 15
@ -152,7 +158,7 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
object LHue: TLabel object LHue: TLabel
Left = 120 Left = 120
Height = 15 Height = 15
Top = 184 Top = 197
Width = 25 Width = 25
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = '&Hue:' Caption = '&Hue:'
@ -161,7 +167,7 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
object LSat: TLabel object LSat: TLabel
Left = 120 Left = 120
Height = 15 Height = 15
Top = 210 Top = 223
Width = 19 Width = 19
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = '&Sat:' Caption = '&Sat:'
@ -170,26 +176,31 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
object LLum: TLabel object LLum: TLabel
Left = 120 Left = 120
Height = 15 Height = 15
Top = 236 Top = 249
Width = 27 Width = 27
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'L&um:' Caption = 'L&um:'
ParentColor = False ParentColor = False
end end
object PickerNotebook: TNotebook object PickerNotebook: TNotebook
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 132 Height = 141
Top = 22 Top = 26
Width = 220 Width = 232
PageIndex = 0 PageIndex = 0
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 4
TabOrder = 0 TabOrder = 0
object nbHSL: TPage object nbHSL: TPage
object HSL: THSLColorPicker object HSL: THSLColorPicker
AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 132 Height = 141
Top = 0 Top = 0
Width = 220 Width = 232
SelectedColor = 16315911
HSPickerHintFormat = 'H: %h S: %s'#13'Hex: %hex' HSPickerHintFormat = 'H: %h S: %s'#13'Hex: %hex'
LPickerHintFormat = 'Luminance: %l' LPickerHintFormat = 'Luminance: %l'
Align = alClient Align = alClient
@ -249,6 +260,8 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 0 TabOrder = 0
OnChange = ColorPickerChange OnChange = ColorPickerChange
Green = 122
Blue = 122
SelectedColor = 8026879 SelectedColor = 8026879
end end
object GTrackbar: TGColorPicker object GTrackbar: TGColorPicker
@ -266,6 +279,8 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 1 TabOrder = 1
OnChange = ColorPickerChange OnChange = ColorPickerChange
Red = 122
Blue = 122
SelectedColor = 8060794 SelectedColor = 8060794
end end
object BTrackbar: TBColorPicker object BTrackbar: TBColorPicker
@ -281,6 +296,8 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 2 TabOrder = 2
OnChange = ColorPickerChange OnChange = ColorPickerChange
Green = 122
Red = 122
SelectedColor = 16743034 SelectedColor = 16743034
end end
object Label6: TLabel object Label6: TLabel
@ -329,33 +346,42 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
end end
end end
object OKbtn: TButton object OKbtn: TButton
Left = 254 AnchorSideLeft.Control = Cancelbtn
AnchorSideTop.Control = Owner
Left = 266
Height = 23 Height = 23
Top = 6 Top = 6
Width = 73 Width = 73
Anchors = [akTop, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = 'OK' Caption = 'OK'
ModalResult = 1 ModalResult = 1
TabOrder = 1 TabOrder = 1
end end
object Cancelbtn: TButton object Cancelbtn: TButton
Left = 254 AnchorSideTop.Control = OKbtn
AnchorSideTop.Side = asrBottom
Left = 266
Height = 23 Height = 23
Top = 36 Top = 35
Width = 73 Width = 73
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 6
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
ModalResult = 2 ModalResult = 2
TabOrder = 2 TabOrder = 2
end end
object NewSwatch: TmbColorPreview object NewSwatch: TmbColorPreview
Left = 254 AnchorSideLeft.Control = Cancelbtn
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = OldSwatch
Left = 266
Height = 32 Height = 32
Hint = 'RGB(255, 255, 255)' Hint = 'RGB(255, 255, 255)'
Top = 96 Top = 228
Width = 73 Width = 73
Anchors = [akTop, akRight] Anchors = [akLeft, akBottom]
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
OnColorChange = NewSwatchColorChange OnColorChange = NewSwatchColorChange
@ -365,12 +391,13 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = NewSwatch AnchorSideRight.Control = NewSwatch
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 254 AnchorSideBottom.Control = LblCurrent
Left = 266
Height = 32 Height = 32
Hint = 'RGB(255, 255, 255)'#13#10'Hex: FFFFFF' Hint = 'RGB(255, 255, 255)'#13#10'Hex: FFFFFF'
Top = 127 Top = 260
Width = 73 Width = 73
Anchors = [akLeft, akRight] Anchors = [akLeft, akRight, akBottom]
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
OnColorChange = OldSwatchColorChange OnColorChange = OldSwatchColorChange

13
components/mbColorLib/OfficeMoreColorsDialog.pas
View File

@ -51,6 +51,7 @@ type
NewSwatch: TmbColorPreview; NewSwatch: TmbColorPreview;
OldSwatch: TmbColorPreview; OldSwatch: TmbColorPreview;
procedure cbColorDisplayChange(Sender: TObject); procedure cbColorDisplayChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure HSLChange(Sender: TObject); procedure HSLChange(Sender: TObject);
procedure ERedChange(Sender: TObject); procedure ERedChange(Sender: TObject);
procedure EGreenChange(Sender: TObject); procedure EGreenChange(Sender: TObject);
@ -360,6 +361,18 @@ begin
{$ENDIF} {$ENDIF}
end; end;
procedure TOfficeMoreColorsWin.FormShow(Sender: TObject);
var
h: Integer;
begin
OKbtn.AutoSize := true;
h := OKbtn.Height;
OKbtn.AutoSize := false;
OKbtn.Height := h;
OKbtn.Width := Cancelbtn.Width;
CancelBtn.Height := h;
end;
function TOfficeMoreColorsWin.GetHint(c: TColor): string; function TOfficeMoreColorsWin.GetHint(c: TColor): string;
begin begin
Result := Format('RGB(%u, %u, %u)'#13'Hex: %s', [ Result := Format('RGB(%u, %u, %u)'#13'Hex: %s', [

381
components/mbColorLib/examples/fulldemo/main.lfm
View File

@ -1,18 +1,17 @@
object Form1: TForm1 object Form1: TForm1
Left = 447 Left = 447
Height = 397 Height = 406
Top = 197 Top = 197
Width = 539 Width = 564
Caption = 'mbColor Lib v2.1 Demo' Caption = 'mbColor Lib v2.1 Demo'
ClientHeight = 397 ClientHeight = 406
ClientWidth = 539 ClientWidth = 564
Font.Color = clWindowText Font.Color = clWindowText
OnCreate = FormCreate OnCreate = FormCreate
ShowHint = True ShowHint = True
LCLVersion = '1.7' LCLVersion = '1.7'
Scaled = True
object Label1: TLabel object Label1: TLabel
Left = 416 Left = 441
Height = 15 Height = 15
Top = 8 Top = 8
Width = 73 Width = 73
@ -21,7 +20,7 @@ object Form1: TForm1
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 416 Left = 441
Height = 15 Height = 15
Top = 112 Top = 112
Width = 96 Width = 96
@ -30,7 +29,7 @@ object Form1: TForm1
ParentColor = False ParentColor = False
end end
object Label5: TLabel object Label5: TLabel
Left = 416 Left = 441
Height = 75 Height = 75
Top = 248 Top = 248
Width = 99 Width = 99
@ -40,24 +39,24 @@ object Form1: TForm1
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 8 Left = 8
Height = 384 Height = 393
Top = 6 Top = 6
Width = 403 Width = 428
ActivePage = TabSheet2 ActivePage = TabSheet1
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
TabIndex = 1 TabIndex = 0
TabOrder = 0 TabOrder = 0
OnChange = PageControl1Change OnChange = PageControl1Change
OnMouseMove = PageControl1MouseMove OnMouseMove = PageControl1MouseMove
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'HSLColorPicker' Caption = 'HSLColorPicker'
ClientHeight = 356 ClientHeight = 365
ClientWidth = 395 ClientWidth = 420
object HSLColorPicker1: THSLColorPicker object HSLColorPicker1: THSLColorPicker
Left = 8 Left = 8
Height = 340 Height = 349
Top = 8 Top = 8
Width = 381 Width = 406
SelectedColor = 3289805 SelectedColor = 3289805
HSPickerHintFormat = 'H: %h S: %s'#13'Hex: #%hex' HSPickerHintFormat = 'H: %h S: %s'#13'Hex: #%hex'
LPickerHintFormat = 'Luminance: %l' LPickerHintFormat = 'Luminance: %l'
@ -69,24 +68,27 @@ object Form1: TForm1
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'HexaColorPicker' Caption = 'HexaColorPicker'
ClientHeight = 356 ClientHeight = 365
ClientWidth = 395 ClientWidth = 420
ImageIndex = 1 ImageIndex = 1
object Label4: TLabel object Label4: TLabel
AnchorSideLeft.Control = CheckBox1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ComboBox1 AnchorSideTop.Control = ComboBox1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 112 Left = 111
Height = 15 Height = 15
Top = 335 Top = 344
Width = 40 Width = 40
BorderSpacing.Left = 24
Caption = 'Marker:' Caption = 'Marker:'
ParentColor = False ParentColor = False
end end
object HexaColorPicker1: THexaColorPicker object HexaColorPicker1: THexaColorPicker
Left = 48 Left = 48
Height = 324 Height = 333
Top = 4 Top = 4
Width = 289 Width = 314
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
HintFormat = 'RGB(%r, %g, %b)'#13'Hex: #%hex' HintFormat = 'RGB(%r, %g, %b)'#13'Hex: #%hex'
IntensityText = 'Intensity' IntensityText = 'Intensity'
@ -101,7 +103,7 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 4 Left = 4
Height = 19 Height = 19
Top = 333 Top = 342
Width = 83 Width = 83
Caption = 'SliderVisible' Caption = 'SliderVisible'
Checked = True Checked = True
@ -110,11 +112,14 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 160 AnchorSideLeft.Control = Label4
AnchorSideLeft.Side = asrBottom
Left = 159
Height = 23 Height = 23
Top = 331 Top = 340
Width = 71 Width = 103
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 8
ItemHeight = 15 ItemHeight = 15
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -127,13 +132,16 @@ object Form1: TForm1
Text = 'smArrow' Text = 'smArrow'
end end
object CheckBox2: TCheckBox object CheckBox2: TCheckBox
AnchorSideLeft.Control = ComboBox1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ComboBox1 AnchorSideTop.Control = ComboBox1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 256 Left = 286
Height = 20 Height = 20
Top = 332 Top = 341
Width = 101 Width = 101
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 24
Caption = 'NewArrowStyle' Caption = 'NewArrowStyle'
OnClick = CheckBox2Click OnClick = CheckBox2Click
TabOrder = 3 TabOrder = 3
@ -141,86 +149,114 @@ object Form1: TForm1
end end
object TabSheet3: TTabSheet object TabSheet3: TTabSheet
Caption = 'mbColorPalette' Caption = 'mbColorPalette'
ClientHeight = 356 ClientHeight = 365
ClientWidth = 395 ClientWidth = 420
ImageIndex = 2 ImageIndex = 2
object Label3: TLabel object LblSort: TLabel
AnchorSideTop.Control = ComboBox2 AnchorSideLeft.Control = TabSheet3
AnchorSideTop.Control = CbSortDir
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Control = TabSheet3
AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 325 Top = 338
Width = 24 Width = 24
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Bottom = 12
Caption = 'Sort:' Caption = 'Sort:'
ParentColor = False ParentColor = False
end end
object Label6: TLabel object LblStyle: TLabel
AnchorSideTop.Control = ComboBox4 AnchorSideLeft.Control = CbSortMode
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbStyle
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 224 Left = 222
Height = 15 Height = 15
Top = 325 Top = 338
Width = 28 Width = 28
BorderSpacing.Left = 8
Caption = 'Style:' Caption = 'Style:'
ParentColor = False ParentColor = False
end end
object Label7: TLabel object LblSize: TLabel
AnchorSideTop.Control = UpDown1 AnchorSideLeft.Control = CbStyle
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = udSize
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 336 Left = 331
Height = 15 Height = 15
Top = 325 Top = 338
Width = 23 Width = 23
BorderSpacing.Left = 6
Caption = 'Size:' Caption = 'Size:'
ParentColor = False ParentColor = False
end end
object Button1: TButton object BtnBluePalette: TButton
AnchorSideLeft.Control = LblSort
AnchorSideBottom.Control = CbSortDir
Left = 6 Left = 6
Height = 25 Height = 25
Top = 289 Top = 301
Width = 107 Width = 118
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Bottom = 8
Caption = 'Generate blue pal' Caption = 'Generate blue pal'
OnClick = Button1Click OnClick = BtnBluePaletteClick
TabOrder = 0 TabOrder = 0
end end
object Button2: TButton object BtnGradientPal: TButton
Left = 120 AnchorSideLeft.Control = BtnBluePalette
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnBluePalette
AnchorSideTop.Side = asrCenter
Left = 128
Height = 25 Height = 25
Top = 289 Top = 301
Width = 135 Width = 139
Anchors = [akLeft, akBottom] AutoSize = True
BorderSpacing.Left = 4
Caption = 'Generate gradient pal' Caption = 'Generate gradient pal'
OnClick = Button2Click OnClick = BtnGradientPalClick
TabOrder = 1 TabOrder = 1
end end
object Button4: TButton object BtnLoadPal: TButton
Left = 262 AnchorSideLeft.Control = BtnGradientPal
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnBluePalette
AnchorSideTop.Side = asrCenter
Left = 271
Height = 25 Height = 25
Top = 289 Top = 301
Width = 121 Width = 139
Anchors = [akLeft, akBottom] AutoSize = True
BorderSpacing.Left = 4
Caption = 'Load palette from file' Caption = 'Load palette from file'
OnClick = Button4Click OnClick = BtnLoadPalClick
TabOrder = 2 TabOrder = 2
end end
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
AnchorSideBottom.Control = BtnBluePalette
Left = 6 Left = 6
Height = 274 Height = 289
Top = 8 Top = 8
Width = 385 Width = 410
HorzScrollBar.Page = 75 HorzScrollBar.Page = 75
VertScrollBar.Page = 50 VertScrollBar.Page = 50
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Bottom = 4
BorderStyle = bsNone BorderStyle = bsNone
ClientHeight = 274 ClientHeight = 289
ClientWidth = 385 ClientWidth = 410
TabOrder = 3 TabOrder = 3
object mbColorPalette1: TmbColorPalette object mbColorPalette1: TmbColorPalette
Left = 0 Left = 0
Height = 272 Height = 287
Top = 0 Top = 0
Width = 378 Width = 403
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Colors.Strings = ( Colors.Strings = (
'clBlack' 'clBlack'
@ -487,29 +523,37 @@ object Form1: TForm1
OnMouseMove = mbColorPalette1MouseMove OnMouseMove = mbColorPalette1MouseMove
end end
end end
object ComboBox2: TComboBox object CbSortDir: TComboBox
AnchorSideLeft.Control = LblSort
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = LblSort
AnchorSideTop.Side = asrCenter
Left = 34 Left = 34
Height = 23 Height = 23
Top = 321 Top = 334
Width = 87 Width = 87
Anchors = [akLeft, akBottom] BorderSpacing.Left = 4
ItemHeight = 15 ItemHeight = 15
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'soAscending' 'soAscending'
'soDescending' 'soDescending'
) )
OnChange = ComboBox2Change OnChange = CbSortDirChange
Style = csDropDownList Style = csDropDownList
TabOrder = 4 TabOrder = 4
Text = 'soAscending' Text = 'soAscending'
end end
object ComboBox3: TComboBox object CbSortMode: TComboBox
AnchorSideLeft.Control = CbSortDir
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = LblSort
AnchorSideTop.Side = asrCenter
Left = 127 Left = 127
Height = 23 Height = 23
Top = 321 Top = 334
Width = 87 Width = 87
Anchors = [akLeft, akBottom] BorderSpacing.Left = 6
ItemHeight = 15 ItemHeight = 15
ItemIndex = 7 ItemIndex = 7
Items.Strings = ( Items.Strings = (
@ -532,36 +576,44 @@ object Form1: TForm1
'smCIEa' 'smCIEa'
'smCIEb' 'smCIEb'
) )
OnChange = ComboBox3Change OnChange = CbSortModeChange
Style = csDropDownList Style = csDropDownList
TabOrder = 5 TabOrder = 5
Text = 'smNone' Text = 'smNone'
end end
object ComboBox4: TComboBox object CbStyle: TComboBox
Left = 256 AnchorSideLeft.Control = LblStyle
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = LblSort
AnchorSideTop.Side = asrCenter
Left = 254
Height = 23 Height = 23
Top = 321 Top = 334
Width = 71 Width = 71
Anchors = [akLeft, akBottom] BorderSpacing.Left = 4
ItemHeight = 15 ItemHeight = 15
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'csDefault' 'csDefault'
'csCorel' 'csCorel'
) )
OnChange = ComboBox4Change OnChange = CbStyleChange
Style = csDropDownList Style = csDropDownList
TabOrder = 6 TabOrder = 6
Text = 'csDefault' Text = 'csDefault'
end end
object UpDown1: TUpDown object udSize: TUpDown
Left = 364 AnchorSideLeft.Control = LblSize
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = LblSort
AnchorSideTop.Side = asrCenter
Left = 358
Height = 23 Height = 23
Top = 321 Top = 334
Width = 15 Width = 15
Anchors = [akLeft, akBottom] BorderSpacing.Left = 4
Min = 0 Min = 0
OnChangingEx = UpDown1ChangingEx OnChangingEx = udSizeChangingEx
Position = 18 Position = 18
TabOrder = 7 TabOrder = 7
Thousands = False Thousands = False
@ -570,14 +622,14 @@ object Form1: TForm1
end end
object TabSheet4: TTabSheet object TabSheet4: TTabSheet
Caption = 'HSLRingPicker' Caption = 'HSLRingPicker'
ClientHeight = 356 ClientHeight = 365
ClientWidth = 395 ClientWidth = 420
ImageIndex = 3 ImageIndex = 3
object HSLRingPicker1: THSLRingPicker object HSLRingPicker1: THSLRingPicker
Left = 50 Left = 50
Height = 342 Height = 351
Top = 6 Top = 6
Width = 297 Width = 322
RingPickerHintFormat = 'Hue: %h' RingPickerHintFormat = 'Hue: %h'
SLPickerHintFormat = 'S: %s L: %l'#13'Hex: %hex' SLPickerHintFormat = 'S: %s L: %l'#13'Hex: %hex'
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -588,14 +640,14 @@ object Form1: TForm1
end end
object TabSheet5: TTabSheet object TabSheet5: TTabSheet
Caption = 'HSVColorPicker' Caption = 'HSVColorPicker'
ClientHeight = 356 ClientHeight = 365
ClientWidth = 395 ClientWidth = 420
ImageIndex = 4 ImageIndex = 4
object HSVColorPicker1: THSVColorPicker object HSVColorPicker1: THSVColorPicker
Left = 24 Left = 24
Height = 342 Height = 351
Top = 6 Top = 6
Width = 332 Width = 357
HintFormat = 'H: %h S: %s V: %v'#13'Hex: %hex' HintFormat = 'H: %h S: %s V: %v'#13'Hex: %hex'
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
TabOrder = 0 TabOrder = 0
@ -606,8 +658,8 @@ object Form1: TForm1
OnChange = HSVColorPicker1Change OnChange = HSVColorPicker1Change
end end
object VColorPicker2: TVColorPicker object VColorPicker2: TVColorPicker
Left = 364 Left = 389
Height = 355 Height = 364
Top = 2 Top = 2
Width = 22 Width = 22
HintFormat = 'Value: %v (selected)' HintFormat = 'Value: %v (selected)'
@ -624,14 +676,14 @@ object Form1: TForm1
end end
object TabSheet6: TTabSheet object TabSheet6: TTabSheet
Caption = 'SLHColorPicker' Caption = 'SLHColorPicker'
ClientHeight = 356 ClientHeight = 365
ClientWidth = 395 ClientWidth = 420
ImageIndex = 5 ImageIndex = 5
object SLHColorPicker1: TSLHColorPicker object SLHColorPicker1: TSLHColorPicker
Left = 8 Left = 8
Height = 344 Height = 353
Top = 6 Top = 6
Width = 385 Width = 410
HPickerHintFormat = 'Hue: %h (selected)' HPickerHintFormat = 'Hue: %h (selected)'
SLPickerHintFormat = 'S: %s L: %l'#13'Hex: %hex' SLPickerHintFormat = 'S: %s L: %l'#13'Hex: %hex'
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -642,47 +694,72 @@ object Form1: TForm1
end end
object TabSheet11: TTabSheet object TabSheet11: TTabSheet
Caption = 'Lists && Trees' Caption = 'Lists && Trees'
ClientHeight = 356 ClientHeight = 365
ClientWidth = 395 ClientWidth = 420
ImageIndex = 10 ImageIndex = 10
object mbColorList1: TmbColorList object mbColorList1: TmbColorList
Left = 200 AnchorSideLeft.Control = Bevel1
Height = 299 AnchorSideLeft.Side = asrBottom
Top = 10 AnchorSideTop.Control = TabSheet11
Width = 183 AnchorSideRight.Control = TabSheet11
Anchors = [akTop, akLeft, akBottom] AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Button5
Left = 214
Height = 328
Top = 4
Width = 202
Anchors = [akTop, akLeft, akRight, akBottom]
TabOrder = 0 TabOrder = 0
end end
object mbColorTree1: TmbColorTree object mbColorTree1: TmbColorTree
Left = 8 AnchorSideLeft.Control = TabSheet11
Height = 300 AnchorSideTop.Control = TabSheet11
Top = 10 AnchorSideRight.Control = Bevel1
Width = 184 AnchorSideBottom.Control = Button5
Left = 4
Height = 328
Top = 4
Width = 202
InfoLabelText = 'Color Values:' InfoLabelText = 'Color Values:'
InfoDisplay1 = 'RGB: %r.%g.%b' InfoDisplay1 = 'RGB: %r.%g.%b'
InfoDisplay2 = 'HEX: #%hex' InfoDisplay2 = 'HEX: #%hex'
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Indent = 51 Indent = 51
TabOrder = 1 TabOrder = 1
end end
object Button5: TButton object Button5: TButton
Left = 128 AnchorSideLeft.Control = TabSheet11
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = TabSheet11
AnchorSideBottom.Side = asrBottom
Left = 135
Height = 25 Height = 25
Top = 317 Top = 336
Width = 137 Width = 151
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Bottom = 4
Caption = 'Add colors from palette' Caption = 'Add colors from palette'
OnClick = Button5Click OnClick = Button5Click
TabOrder = 2 TabOrder = 2
end end
object Bevel1: TBevel
AnchorSideLeft.Control = TabSheet11
AnchorSideLeft.Side = asrCenter
Left = 206
Height = 50
Top = 72
Width = 8
Shape = bsSpacer
end
end end
object TabSheet7: TTabSheet object TabSheet7: TTabSheet
Caption = 'More' Caption = 'More'
ClientHeight = 356 ClientHeight = 365
ClientWidth = 395 ClientWidth = 420
ImageIndex = 6 ImageIndex = 6
object Label9: TLabel object Label9: TLabel
Left = 128 Left = 136
Height = 15 Height = 15
Top = 8 Top = 8
Width = 113 Width = 113
@ -693,7 +770,8 @@ object Form1: TForm1
Left = 8 Left = 8
Height = 25 Height = 25
Top = 8 Top = 8
Width = 104 Width = 114
AutoSize = True
Caption = 'Pick from screen' Caption = 'Pick from screen'
TabOrder = 0 TabOrder = 0
ScreenHintFormat = 'RGB(%r, %g, %b)'#13'Hex: %h' ScreenHintFormat = 'RGB(%r, %g, %b)'#13'Hex: %h'
@ -704,30 +782,31 @@ object Form1: TForm1
Left = 8 Left = 8
Height = 25 Height = 25
Top = 40 Top = 40
Width = 104 Width = 105
Caption = 'OfficeColorDialog' AutoSize = True
Caption = 'OfficeColorDlg'
OnClick = OfficeColorDialogButtonClick OnClick = OfficeColorDialogButtonClick
TabOrder = 1 TabOrder = 1
end end
object LColorPicker1: TLColorPicker object LColorPicker1: TLColorPicker
Left = 34 Left = 34
Height = 25 Height = 25
Top = 245 Top = 254
Width = 347 Width = 372
HintFormat = 'Luminance: %l (selected)' HintFormat = 'Luminance: %l (selected)'
SelectionIndicator = siRect SelectionIndicator = siRect
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
TabOrder = 2 TabOrder = 2
Hue = 0 Hue = 0
Saturation = 0 Saturation = 0
Luminance = 61 Luminance = 54
SelectedColor = 4013373 SelectedColor = 3552822
end end
object VColorPicker1: TVColorPicker object VColorPicker1: TVColorPicker
Left = 34 Left = 34
Height = 21 Height = 21
Top = 213 Top = 222
Width = 347 Width = 372
HintFormat = 'Value: %v (selected)' HintFormat = 'Value: %v (selected)'
ArrowPlacement = spBefore ArrowPlacement = spBefore
NewArrowStyle = True NewArrowStyle = True
@ -742,8 +821,8 @@ object Form1: TForm1
object HColorPicker1: THColorPicker object HColorPicker1: THColorPicker
Left = 34 Left = 34
Height = 61 Height = 61
Top = 284 Top = 293
Width = 347 Width = 372
HintFormat = 'Hue: %h (under mouse)' HintFormat = 'Hue: %h (under mouse)'
Increment = 5 Increment = 5
ArrowPlacement = spBoth ArrowPlacement = spBoth
@ -758,7 +837,7 @@ object Form1: TForm1
end end
object SColorPicker1: TSColorPicker object SColorPicker1: TSColorPicker
Left = 8 Left = 8
Height = 275 Height = 284
Top = 70 Top = 70
Width = 19 Width = 19
HintFormat = 'Saturation: %s (selected)' HintFormat = 'Saturation: %s (selected)'
@ -774,10 +853,10 @@ object Form1: TForm1
SelectedColor = 11534335 SelectedColor = 11534335
end end
object Memo1: TMemo object Memo1: TMemo
Left = 128 Left = 136
Height = 171 Height = 180
Top = 26 Top = 26
Width = 253 Width = 270
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Lines.Strings = ( Lines.Strings = (
'The following variables will be replaced in the hint at runtime:' 'The following variables will be replaced in the hint at runtime:'
@ -822,8 +901,8 @@ object Form1: TForm1
end end
object TabSheet8: TTabSheet object TabSheet8: TTabSheet
Caption = 'Other' Caption = 'Other'
ClientHeight = 356 ClientHeight = 365
ClientWidth = 395 ClientWidth = 420
ImageIndex = 7 ImageIndex = 7
object HSColorPicker1: THSColorPicker object HSColorPicker1: THSColorPicker
Left = 6 Left = 6
@ -839,8 +918,8 @@ object Form1: TForm1
end end
object SLColorPicker1: TSLColorPicker object SLColorPicker1: TSLColorPicker
Left = 224 Left = 224
Height = 147 Height = 130
Top = 144 Top = 168
Width = 161 Width = 161
SelectedColor = 6579300 SelectedColor = 6579300
HintFormat = 'H: %h S: %s L: %l'#13'Hex: %hex' HintFormat = 'H: %h S: %s L: %l'#13'Hex: %hex'
@ -853,9 +932,9 @@ object Form1: TForm1
OnChange = SLColorPicker1Change OnChange = SLColorPicker1Change
end end
object HRingPicker1: THRingPicker object HRingPicker1: THRingPicker
Left = 4 Left = 6
Height = 130 Height = 130
Top = 164 Top = 168
Width = 133 Width = 133
HintFormat = 'Hue: %h (selected)' HintFormat = 'Hue: %h (selected)'
TabOrder = 2 TabOrder = 2
@ -868,8 +947,8 @@ object Form1: TForm1
end end
object TabSheet9: TTabSheet object TabSheet9: TTabSheet
Caption = 'Even more' Caption = 'Even more'
ClientHeight = 356 ClientHeight = 365
ClientWidth = 395 ClientWidth = 420
ImageIndex = 8 ImageIndex = 8
object Label8: TLabel object Label8: TLabel
Left = 6 Left = 6
@ -881,7 +960,7 @@ object Form1: TForm1
end end
object CColorPicker1: TCColorPicker object CColorPicker1: TCColorPicker
Left = 4 Left = 4
Height = 334 Height = 343
Top = 18 Top = 18
Width = 22 Width = 22
HintFormat = 'Cyan: %c (selected)' HintFormat = 'Cyan: %c (selected)'
@ -891,7 +970,7 @@ object Form1: TForm1
end end
object MColorPicker1: TMColorPicker object MColorPicker1: TMColorPicker
Left = 34 Left = 34
Height = 334 Height = 343
Top = 18 Top = 18
Width = 22 Width = 22
HintFormat = 'Magenta: %m (selected)' HintFormat = 'Magenta: %m (selected)'
@ -902,7 +981,7 @@ object Form1: TForm1
end end
object YColorPicker1: TYColorPicker object YColorPicker1: TYColorPicker
Left = 68 Left = 68
Height = 333 Height = 342
Top = 19 Top = 19
Width = 31 Width = 31
HintFormat = 'Yellow: %y (selected)' HintFormat = 'Yellow: %y (selected)'
@ -913,7 +992,7 @@ object Form1: TForm1
end end
object KColorPicker1: TKColorPicker object KColorPicker1: TKColorPicker
Left = 120 Left = 120
Height = 334 Height = 343
Top = 18 Top = 18
Width = 22 Width = 22
HintFormat = 'Black: %k (selected)' HintFormat = 'Black: %k (selected)'
@ -926,7 +1005,7 @@ object Form1: TForm1
end end
object RColorPicker1: TRColorPicker object RColorPicker1: TRColorPicker
Left = 150 Left = 150
Height = 334 Height = 343
Top = 18 Top = 18
Width = 22 Width = 22
HintFormat = 'Red: %r (selected)' HintFormat = 'Red: %r (selected)'
@ -940,7 +1019,7 @@ object Form1: TForm1
end end
object GColorPicker1: TGColorPicker object GColorPicker1: TGColorPicker
Left = 182 Left = 182
Height = 334 Height = 343
Top = 18 Top = 18
Width = 34 Width = 34
HintFormat = 'Green: %g (selected)' HintFormat = 'Green: %g (selected)'
@ -954,7 +1033,7 @@ object Form1: TForm1
end end
object BColorPicker1: TBColorPicker object BColorPicker1: TBColorPicker
Left = 224 Left = 224
Height = 334 Height = 343
Top = 18 Top = 18
Width = 22 Width = 22
HintFormat = 'Blue: %b (selected)' HintFormat = 'Blue: %b (selected)'
@ -1144,7 +1223,7 @@ object Form1: TForm1
end end
end end
object sc: TmbColorPreview object sc: TmbColorPreview
Left = 416 Left = 441
Height = 62 Height = 62
Top = 25 Top = 25
Width = 108 Width = 108
@ -1152,7 +1231,7 @@ object Form1: TForm1
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
end end
object uc: TmbColorPreview object uc: TmbColorPreview
Left = 416 Left = 441
Height = 62 Height = 62
Top = 130 Top = 130
Width = 108 Width = 108
@ -1160,7 +1239,7 @@ object Form1: TForm1
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
end end
object tb1: TTrackBar object tb1: TTrackBar
Left = 416 Left = 441
Height = 20 Height = 20
Hint = 'Opacity' Hint = 'Opacity'
Top = 90 Top = 90
@ -1173,7 +1252,7 @@ object Form1: TForm1
TabOrder = 3 TabOrder = 3
end end
object tb2: TTrackBar object tb2: TTrackBar
Left = 416 Left = 441
Height = 20 Height = 20
Top = 196 Top = 196
Width = 108 Width = 108
@ -1185,7 +1264,7 @@ object Form1: TForm1
TabOrder = 4 TabOrder = 4
end end
object CbWebSsafe: TCheckBox object CbWebSsafe: TCheckBox
Left = 416 Left = 441
Height = 19 Height = 19
Top = 328 Top = 328
Width = 66 Width = 66
@ -1195,7 +1274,7 @@ object Form1: TForm1
TabOrder = 6 TabOrder = 6
end end
object CbSwatchStyle: TCheckBox object CbSwatchStyle: TCheckBox
Left = 416 Left = 441
Height = 19 Height = 19
Top = 218 Top = 218
Width = 83 Width = 83
@ -1205,7 +1284,7 @@ object Form1: TForm1
TabOrder = 5 TabOrder = 5
end end
object CbShowHints: TCheckBox object CbShowHints: TCheckBox
Left = 416 Left = 441
Height = 19 Height = 19
Top = 349 Top = 349
Width = 78 Width = 78
@ -1217,7 +1296,7 @@ object Form1: TForm1
TabOrder = 7 TabOrder = 7
end end
object CbEnabled: TCheckBox object CbEnabled: TCheckBox
Left = 416 Left = 441
Height = 19 Height = 19
Top = 371 Top = 371
Width = 62 Width = 62

55
components/mbColorLib/examples/fulldemo/main.pas
View File

@ -20,6 +20,7 @@ type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
Bevel1: TBevel;
CbShowHints: TCheckBox; CbShowHints: TCheckBox;
CbEnabled: TCheckBox; CbEnabled: TCheckBox;
Label10: TLabel; Label10: TLabel;
@ -42,8 +43,8 @@ type
Label2: TLabel; Label2: TLabel;
HexaColorPicker1: THexaColorPicker; HexaColorPicker1: THexaColorPicker;
mbColorPalette1: TmbColorPalette; mbColorPalette1: TmbColorPalette;
Button1: TButton; BtnBluePalette: TButton;
Button2: TButton; BtnGradientPal: TButton;
HSLRingPicker1: THSLRingPicker; HSLRingPicker1: THSLRingPicker;
TabSheet5: TTabSheet; TabSheet5: TTabSheet;
TabSheet6: TTabSheet; TabSheet6: TTabSheet;
@ -67,16 +68,16 @@ type
Label4: TLabel; Label4: TLabel;
CheckBox2: TCheckBox; CheckBox2: TCheckBox;
Label5: TLabel; Label5: TLabel;
Button4: TButton; BtnLoadPal: TButton;
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
ScrollBox1: TScrollBox; ScrollBox1: TScrollBox;
Label3: TLabel; LblSort: TLabel;
ComboBox2: TComboBox; CbSortDir: TComboBox;
ComboBox3: TComboBox; CbSortMode: TComboBox;
Label6: TLabel; LblStyle: TLabel;
ComboBox4: TComboBox; CbStyle: TComboBox;
Label7: TLabel; LblSize: TLabel;
UpDown1: TUpDown; udSize: TUpDown;
TabSheet9: TTabSheet; TabSheet9: TTabSheet;
CColorPicker1: TCColorPicker; CColorPicker1: TCColorPicker;
MColorPicker1: TMColorPicker; MColorPicker1: TMColorPicker;
@ -120,8 +121,8 @@ type
procedure HexaColorPicker1Change(Sender: TObject); procedure HexaColorPicker1Change(Sender: TObject);
procedure HexaColorPicker1MouseMove(Sender: TObject; procedure HexaColorPicker1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure Button1Click(Sender: TObject); procedure BtnBluePaletteClick(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure BtnGradientPalClick(Sender: TObject);
procedure mbColorPalette1SelColorChange(Sender: TObject); procedure mbColorPalette1SelColorChange(Sender: TObject);
procedure mbColorPalette1MouseMove(Sender: TObject; Shift: TShiftState; procedure mbColorPalette1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer); X, Y: Integer);
@ -145,17 +146,17 @@ type
procedure HRingPicker1Change(Sender: TObject); procedure HRingPicker1Change(Sender: TObject);
procedure HRingPicker1MouseMove(Sender: TObject; Shift: TShiftState; X, procedure HRingPicker1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); Y: Integer);
procedure UpDown1ChangingEx(Sender: TObject; var AllowChange: Boolean; procedure udSizeChangingEx(Sender: TObject; var AllowChange: Boolean;
NewValue: SmallInt; Direction: TUpDownDirection); NewValue: SmallInt; Direction: TUpDownDirection);
procedure VColorPicker2Change(Sender: TObject); procedure VColorPicker2Change(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure CheckBox1Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject); procedure ComboBox1Change(Sender: TObject);
procedure CheckBox2Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject);
procedure Button4Click(Sender: TObject); procedure BtnLoadPalClick(Sender: TObject);
procedure ComboBox2Change(Sender: TObject); procedure CbSortDirChange(Sender: TObject);
procedure ComboBox3Change(Sender: TObject); procedure CbSortModeChange(Sender: TObject);
procedure ComboBox4Change(Sender: TObject); procedure CbStyleChange(Sender: TObject);
procedure CbWebSsafeClick(Sender: TObject); procedure CbWebSsafeClick(Sender: TObject);
procedure Button5Click(Sender: TObject); procedure Button5Click(Sender: TObject);
procedure CbSwatchStyleClick(Sender: TObject); procedure CbSwatchStyleClick(Sender: TObject);
@ -208,12 +209,12 @@ begin
uc.color := hexacolorpicker1.ColorUnderCursor; uc.color := hexacolorpicker1.ColorUnderCursor;
end; end;
procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.BtnBluePaletteClick(Sender: TObject);
begin begin
mbColorPalette1.GeneratePalette(clblue); mbColorPalette1.GeneratePalette(clblue);
end; end;
procedure TForm1.Button2Click(Sender: TObject); procedure TForm1.BtnGradientPalClick(Sender: TObject);
begin begin
mbColorpalette1.GenerateGradientPalette([clblue, clred]); mbColorpalette1.GenerateGradientPalette([clblue, clred]);
end; end;
@ -362,28 +363,28 @@ begin
hexacolorpicker1.NewArrowStyle := checkbox2.checked; hexacolorpicker1.NewArrowStyle := checkbox2.checked;
end; end;
procedure TForm1.Button4Click(Sender: TObject); procedure TForm1.BtnLoadPalClick(Sender: TObject);
begin begin
if opendialog1.Execute then if opendialog1.Execute then
mbcolorpalette1.Palette := opendialog1.FileName; mbcolorpalette1.Palette := opendialog1.FileName;
end; end;
procedure TForm1.ComboBox2Change(Sender: TObject); procedure TForm1.CbSortDirChange(Sender: TObject);
begin begin
mbcolorpalette1.SortOrder := tsortorder(combobox2.itemindex); mbcolorpalette1.SortOrder := tsortorder(CbSortDir.itemindex);
end; end;
procedure TForm1.ComboBox3Change(Sender: TObject); procedure TForm1.CbSortModeChange(Sender: TObject);
begin begin
mbcolorpalette1.Sortmode := tsortmode(combobox3.ItemIndex); mbcolorpalette1.Sortmode := tsortmode(CbSortMode.ItemIndex);
end; end;
procedure TForm1.ComboBox4Change(Sender: TObject); procedure TForm1.CbStyleChange(Sender: TObject);
begin begin
mbcolorpalette1.CellStyle := tcellstyle(combobox4.ItemIndex); mbcolorpalette1.CellStyle := tcellstyle(CbStyle.ItemIndex);
end; end;
procedure TForm1.UpDown1ChangingEx(Sender: TObject; var AllowChange: Boolean; procedure TForm1.udSizeChangingEx(Sender: TObject; var AllowChange: Boolean;
NewValue: SmallInt; Direction: TUpDownDirection); NewValue: SmallInt; Direction: TUpDownDirection);
begin begin
allowchange := true; allowchange := true;

4
components/mbColorLib/mbReg.pas
View File

@ -17,7 +17,7 @@ uses
ActnList, ActnList,
RColorPicker, GColorPicker, BColorPicker, RColorPicker, GColorPicker, BColorPicker,
RAxisColorPicker, GAxisColorPicker, BAxisColorPicker, RAxisColorPicker, GAxisColorPicker, BAxisColorPicker,
CColorPicker, YColorPicker, MColorPicker, KColorPicker, CColorPicker, MColorPicker, YColorPicker, KColorPicker,
HRingPicker, HRingPicker,
HColorPicker, SColorPicker, LColorPicker, VColorPicker, HColorPicker, SColorPicker, LColorPicker, VColorPicker,
HSColorPicker, HSVColorPicker, HSLColorPicker, HSLRingPicker, HSColorPicker, HSVColorPicker, HSLColorPicker, HSLRingPicker,
@ -32,7 +32,7 @@ begin
RegisterComponents('mbColor Lib', [ RegisterComponents('mbColor Lib', [
TRColorPicker, TGColorPicker, TBColorPicker, TRColorPicker, TGColorPicker, TBColorPicker,
TRAxisColorPicker, TGAxisColorPicker, TBAxisColorPicker, TRAxisColorPicker, TGAxisColorPicker, TBAxisColorPicker,
TCColorPicker, TYColorPicker, TMColorPicker, TKColorPicker, TCColorPicker, TMColorPicker, TYColorPicker, TKColorPicker,
THRingPicker, THRingPicker,
THColorPicker, TSColorPicker, TLColorPicker, TVColorPicker, THColorPicker, TSColorPicker, TLColorPicker, TVColorPicker,
THSColorPicker, THSVColorPicker, THSLColorPicker, THSLRingPicker, THSColorPicker, THSVColorPicker, THSLColorPicker, THSLRingPicker,