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

mbColorLib: Remove LColorPicker and VColorPicker from lib (are replaced by LVColorPicker). Remove two forgotten Delphi dfm files.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5597 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-01-05 22:25:03 +00:00
parent b24e7d5d2c
commit 2f0b4db1c9
13 changed files with 285 additions and 1061 deletions
Download Patch File Download Diff File Expand all files Collapse all files

265
components/mbColorLib/LColorPicker.pas
View File

@@ -1,265 +0,0 @@
unit LColorPicker;
interface
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
uses
LCLIntf, LCLType, SysUtils, Classes, Controls, Graphics, Forms,
HTMLColors, {RGBHSLUtils, }mbTrackBarPicker;
type
TLColorPicker = class(TmbTrackBarPicker)
private
FHue, FSat, FLuminance: Double;
FMaxHue, FMaxSat, FMaxLum: Integer;
function ArrowPosFromLum(L: integer): integer;
function GetHue: Integer;
function GetLuminance: Integer;
function GetSat: Integer;
function LumFromArrowPos(p: integer): integer;
procedure SetHue(H: integer);
procedure SetLuminance(L: integer);
procedure SetMaxHue(H: Integer);
procedure SetMaxLum(L: Integer);
procedure SetMaxSat(S: Integer);
procedure SetSat(S: integer);
protected
procedure Execute(tbaAction: integer); override;
function GetArrowPos: integer; override;
function GetGradientColor(AValue: Integer): TColor; override;
function GetSelectedColor: TColor; override;
function GetSelectedValue: integer; override;
procedure SetSelectedColor(c: TColor); override;
public
constructor Create(AOwner: TComponent); override;
published
property Hue: integer read GetHue write SetHue;
property Saturation: integer read GetSat write SetSat;
property Luminance: integer read GetLuminance write SetLuminance;
property MaxHue: Integer read FMaxHue write SetmaxHue default 360;
property MaxSaturation: Integer read FMaxSat write SetMaxSat default 255;
property MaxLuminance: Integer read FMaxLum write SetMaxLum default 255;
property SelectedColor default clRed;
property HintFormat;
end;
implementation
uses
mbUtils, mbColorConv;
{TLColorPicker}
constructor TLColorPicker.Create(AOwner: TComponent);
begin
inherited;
FMaxHue := 360;
FMaxSat := 255;
FMaxLum := 255;
FGradientWidth := FMaxLum + 1;
FGradientHeight := 1;
FHue := 0;
FSat := FMaxSat;
SetLuminance(FMaxLum div 2);
HintFormat := 'Luminance: %value (selected)';
end;
function TLColorPicker.ArrowPosFromLum(L: integer): integer;
var
a: integer;
begin
if Layout = lyHorizontal then
begin
a := Round((Width - 12) * L / FMaxLum);
if a > Width - FLimit then a := Width - FLimit;
end
else
begin
a := Round((Height - 12) * (FMaxLum - L) / FMaxLum);
if a > Height - FLimit then a := Height - FLimit;
end;
if a < 0 then a := 0;
Result := a;
end;
procedure TLColorPicker.Execute(tbaAction: integer);
begin
case tbaAction of
TBA_Resize:
SetLuminance(GetLuminance());
TBA_MouseMove:
SetLuminance(LumFromArrowPos(FArrowPos));
TBA_MouseDown:
SetLuminance(LumFromArrowPos(FArrowPos));
TBA_MouseUp:
SetLuminance(LumFromArrowPos(FArrowPos));
TBA_WheelUp:
SetLuminance(GetLuminance() + Increment);
TBA_WheelDown:
SetLuminance(GetLuminance() - Increment);
TBA_VKRight:
SetLuminance(GetLuminance() + Increment);
TBA_VKCtrlRight:
SetLuminance(FMaxLum);
TBA_VKLeft:
SetLuminance(GetLuminance() - Increment);
TBA_VKCtrlLeft:
SetLuminance(0);
TBA_VKUp:
SetLuminance(GetLuminance() + Increment);
TBA_VKCtrlUp:
SetLuminance(FMaxLum);
TBA_VKDown:
SetLuminance(GetLuminance() - Increment);
TBA_VKCtrlDown:
SetLuminance(0);
else
inherited;
end;
end;
function TLColorPicker.GetArrowPos: integer;
begin
if FMaxLum = 0 then
Result := inherited GetArrowPos
else
Result := ArrowPosFromLum(GetLuminance());
end;
function TLColorPicker.GetGradientColor(AValue: Integer): TColor;
begin
Result := HSLToColor(FHue, FSat, AValue/FMaxLum);
end;
function TLColorPicker.GetHue: Integer;
begin
Result := Round(FHue * FMaxHue);
end;
function TLColorPicker.GetLuminance: Integer;
begin
Result := Round(FLuminance * FMaxLum);
end;
function TLColorPicker.GetSat: Integer;
begin
Result := Round(FSat * FMaxSat);
end;
function TLColorPicker.GetSelectedColor: TColor;
begin
Result := HSLToColor(FHue, FSat, FLuminance);
if WebSafe then
Result := GetWebSafe(Result);
end;
function TLColorPicker.GetSelectedValue: integer;
begin
Result := GetLuminance();
end;
function TLColorPicker.LumFromArrowPos(p: integer): integer;
var
L: integer;
begin
case Layout of
lyHorizontal : L := Round( p / (Width - 12) * FMaxLum);
lyVertical : L := Round((1.0 - p /(Height - 12)) * FMaxLum);
end;
Clamp(L, 0, FMaxLum);
Result := L;
end;
procedure TLColorPicker.SetHue(H: integer);
begin
Clamp(H, 0, FMaxHue);
if GetHue() <> H then
begin
FHue := H / FMaxHue;
CreateGradient;
Invalidate;
DoChange;
end;
end;
procedure TLColorPicker.SetLuminance(L: integer);
begin
Clamp(L, 0, FMaxLum);
if GetLuminance() <> L then
begin
FLuminance := L / FMaxLum;
FArrowPos := ArrowPosFromLum(L);
Invalidate;
DoChange;
end;
end;
procedure TLColorPicker.SetMaxHue(H: Integer);
begin
if H = FMaxHue then
exit;
FMaxHue := H;
CreateGradient;
Invalidate;
// if FChange and Assigned(OnChange) then OnChange(Self);
end;
procedure TLColorPicker.SetMaxLum(L: Integer);
begin
if L = FMaxLum then
exit;
FMaxLum := L;
FGradientWidth := FMaxLum + 1; // 0 .. FMaxHue --> FMaxHue + 1 pixels
CreateGradient;
Invalidate;
// if FChange and Assigned(OnChange) then OnChange(Self);
end;
procedure TLColorPicker.SetMaxSat(S: Integer);
begin
if S = FMaxSat then
exit;
FMaxSat := S;
CreateGradient;
Invalidate;
DoChange;
end;
procedure TLColorPicker.SetSat(S: integer);
begin
Clamp(S, 0, FMaxSat);
if GetSat() <> S then
begin
FSat := S / FMaxSat;
CreateGradient;
Invalidate;
DoChange;
end;
end;
procedure TLColorPicker.SetSelectedColor(c: TColor);
var
H, S, L: Double;
needNewGradient: Boolean;
begin
if WebSafe then
c := GetWebSafe(c);
if c = GetSelectedColor then
exit;
// ColortoHSL(c, H, S, L); // not working in HSLPicker
ColorToHSL(c, H, S, L);
needNewGradient := (H <> FHue) or (S <> FSat);
FHue := H;
FSat := S;
FLuminance := L;
if needNewGradient then
CreateGradient;
Invalidate;
DoChange;
end;
end.

204
components/mbColorLib/OfficeMoreColorsDialog.dfm
View File

@@ -1,204 +0,0 @@
object OfficeMoreColorsWin: TOfficeMoreColorsWin
Left = 194
Top = 112
Width = 331
Height = 358
ActiveControl = OKbtn
BorderIcons = [biSystemMenu]
Caption = 'More colors...'
Color = clBtnFace
Constraints.MinHeight = 358
Constraints.MinWidth = 331
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnResize = FormResize
DesignSize = (
315
319)
PixelsPerInch = 96
TextHeight = 13
object Label4: TLabel
Left = 268
Top = 218
Width = 21
Height = 13
Anchors = [akRight, akBottom]
Caption = 'New'
Transparent = True
end
object Label5: TLabel
Left = 260
Top = 306
Width = 37
Height = 13
Anchors = [akRight, akBottom]
Caption = 'Current'
Transparent = True
end
object Pages: TPageControl
Left = 6
Top = 6
Width = 227
Height = 316
ActivePage = Standard
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 0
OnChange = PagesChange
object Standard: TTabSheet
Caption = 'Standard'
DesignSize = (
219
288)
object Label2: TLabel
Left = 6
Top = 7
Width = 34
Height = 13
Caption = '&Colors:'
FocusControl = Hexa
Transparent = True
end
object Hexa: THexaColorPicker
Left = 6
Top = 26
Width = 209
Height = 207
Anchors = [akLeft, akTop, akRight, akBottom]
HintFormat = 'RGB(%r, %g, %b)'#13'Hex: %h'
IntensityText = 'Intensity'
TabOrder = 0
Constraints.MinHeight = 85
Constraints.MinWidth = 93
OnChange = HexaChange
end
end
object Custom: TTabSheet
Caption = 'Custom'
ImageIndex = 1
DesignSize = (
219
288)
object Label1: TLabel
Left = 6
Top = 7
Width = 34
Height = 13
Caption = '&Colors:'
FocusControl = HSL
end
object Label3: TLabel
Left = 6
Top = 178
Width = 60
Height = 13
Anchors = [akLeft, akBottom]
Caption = 'Color mo&del:'
FocusControl = ColorModel
end
object LRed: TLabel
Left = 6
Top = 204
Width = 23
Height = 13
Anchors = [akLeft, akBottom]
Caption = '&Red:'
end
object LGreen: TLabel
Left = 6
Top = 230
Width = 33
Height = 13
Anchors = [akLeft, akBottom]
Caption = '&Green:'
end
object LBlue: TLabel
Left = 6
Top = 256
Width = 24
Height = 13
Anchors = [akLeft, akBottom]
Caption = '&Blue:'
end
object HSL: THSLColorPicker
Left = 6
Top = 20
Width = 211
Height = 152
HSPickerHintFormat = 'H: %h S: %s'#13'Hex: %hex'
LPickerHintFormat = 'Luminance: %l'
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 0
OnChange = HSLChange
DesignSize = (
211
152)
end
object ColorModel: TComboBox
Left = 74
Top = 172
Width = 92
Height = 21
Style = csDropDownList
Anchors = [akLeft, akBottom]
ItemHeight = 13
ItemIndex = 0
TabOrder = 1
Text = 'RGB'
OnChange = ColorModelChange
Items.Strings = (
'RGB'
'HSL')
end
end
end
object OKbtn: TButton
Left = 242
Top = 6
Width = 73
Height = 23
Anchors = [akTop, akRight]
Caption = 'OK'
ModalResult = 1
TabOrder = 1
end
object Cancelbtn: TButton
Left = 242
Top = 36
Width = 73
Height = 23
Anchors = [akTop, akRight]
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 2
end
object NewSwatch: TmbColorPreview
Left = 246
Top = 238
Width = 68
Height = 32
Hint = 'RGB(255, 255, 255)'
Anchors = [akRight, akBottom]
ShowHint = True
ParentShowHint = False
OnColorChange = NewSwatchColorChange
end
object OldSwatch: TmbColorPreview
Left = 246
Top = 269
Width = 68
Height = 32
Hint = 'RGB(255, 255, 255)'#13#10'Hex: FFFFFF'
Anchors = [akRight, akBottom]
ShowHint = True
ParentShowHint = False
OnColorChange = OldSwatchColorChange
end
end

26
components/mbColorLib/ScreenWin.dfm
View File

@@ -1,26 +0,0 @@
object ScreenForm: TScreenForm
Left = 198
Top = 117
Align = alClient
BorderIcons = []
BorderStyle = bsNone
Caption = 'Pick a color...'
ClientHeight = 96
ClientWidth = 149
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
Position = poDefault
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnMouseMove = FormMouseMove
OnMouseUp = FormMouseUp
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
end

267
components/mbColorLib/VColorPicker.pas
View File

@@ -1,267 +0,0 @@
unit VColorPicker;
interface
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
uses
LCLIntf, LCLType, SysUtils, Classes, Controls, Forms, Graphics,
{RGBHSVUtils,} mbTrackBarPicker, HTMLColors;
type
TVColorPicker = class(TmbTrackBarPicker)
private
FHue, FSat, FVal: Double;
FMaxHue, FMaxSat, FMaxVal: Integer;
function ArrowPosFromVal(v: integer): integer;
function ValFromArrowPos(p: integer): integer;
function GetHue: Integer;
function GetSat: Integer;
function GetValue: Integer;
procedure SetHue(h: integer);
procedure SetMaxHue(h: Integer);
procedure SetMaxSat(s: Integer);
procedure SetMaxVal(v: Integer);
procedure SetSat(s: integer);
procedure SetValue(v: integer);
protected
procedure Execute(tbaAction: integer); override;
function GetArrowPos: integer; override;
function GetGradientColor(AValue: Integer): TColor; override;
function GetSelectedColor: TColor; override;
function GetSelectedValue: integer; override;
procedure SetSelectedColor(c: TColor); override;
public
constructor Create(AOwner: TComponent); override;
published
property Hue: integer read GetHue write SetHue;
property Saturation: integer read GetSat write SetSat;
property Value: integer read GetValue write SetValue;
property MaxHue: Integer read FMaxHue write SetMaxHue default 359;
property MaxSaturation: Integer read FMaxSat write SetMaxSat default 255;
property MaxValue: Integer read FMaxVal write SetMaxVal default 255;
property SelectedColor default clRed;
property HintFormat;
end;
implementation
uses
mbUtils, mbColorConv;
{TVColorPicker}
constructor TVColorPicker.Create(AOwner: TComponent);
begin
inherited;
FMaxHue := 359;
FMaxSat := 255;
FMaxVal := 255;
FGradientWidth := FMaxVal + 1;
FGradientHeight := 1;
FHue := 0;
FSat := 0;
SetValue(FMaxVal);
HintFormat := 'Value: %value (selected)';
end;
function TVColorPicker.ArrowPosFromVal(v: integer): integer;
var
a: integer;
begin
if Layout = lyHorizontal then
begin
a := Round((Width - 12) * v / FMaxVal);
if a > Width - FLimit then a := Width - FLimit;
end
else
begin
a := Round((Height - 12) * (FMaxVal - v) / FMaxVal);
if a > Height - FLimit then a := Height - FLimit;
end;
if a < 0 then a := 0;
Result := a;
end;
procedure TVColorPicker.Execute(tbaAction: integer);
begin
case tbaAction of
TBA_Resize:
SetValue(GetValue());
TBA_MouseMove:
SetValue(ValFromArrowPos(FArrowPos));
TBA_MouseDown:
SetValue(ValFromArrowPos(FArrowPos));
TBA_MouseUp:
SetValue(ValFromArrowPos(FArrowPos));
TBA_WheelUp:
SetValue(GetValue() + Increment);
TBA_WheelDown:
SetValue(GetValue() - Increment);
TBA_VKRight:
SetValue(GetValue() + Increment);
TBA_VKCtrlRight:
SetValue(FMaxVal);
TBA_VKLeft:
SetValue(GetValue() - Increment);
TBA_VKCtrlLeft:
SetValue(0);
TBA_VKUp:
SetValue(GetValue() + Increment);
TBA_VKCtrlUp:
SetValue(FMaxVal);
TBA_VKDown:
SetValue(GetValue() - Increment);
TBA_VKCtrlDown:
SetValue(0);
else
inherited;
end;
end;
function TVColorPicker.GetArrowPos: integer;
begin
if FMaxVal = 0 then
Result := inherited GetArrowPos
else
Result := ArrowPosFromVal(GetValue());
end;
function TVColorPicker.GetGradientColor(AValue: Integer): TColor;
begin
Result := HSVtoColor(FHue, FSat, AValue / FMaxVal);
end;
function TVColorPicker.GetHue: Integer;
begin
Result := round(FHue * FMaxHue);
end;
function TVColorPicker.GetSat: Integer;
begin
Result := round(FSat * FMaxSat);
end;
function TVColorPicker.GetSelectedColor: TColor;
begin
Result := HSVtoColor(FHue, FSat, FVal);
if WebSafe then
Result := GetWebSafe(Result);
end;
function TVColorPicker.GetSelectedValue: integer;
begin
Result := GetValue();
end;
function TVColorPicker.GetValue: Integer;
begin
Result := round(FVal * FMaxVal);
end;
procedure TVColorPicker.SetHue(h: integer);
begin
if h > FMaxHue+1 then h := FMaxHue + 1;
if h < 0 then h := 0;
if GetHue() <> h then
begin
FHue := h / (FMaxHue + 1);
CreateGradient;
Invalidate;
DoChange;
end;
end;
procedure TVColorPicker.SetMaxHue(h: Integer);
begin
if h = FMaxHue then
exit;
FMaxHue := h;
CreateGradient;
Invalidate;
// if FChange and Assigned(OnChange) then OnChange(Self);
end;
procedure TVColorPicker.SetMaxSat(s: Integer);
begin
if s = FMaxSat then
exit;
FMaxSat := s;
CreateGradient;
Invalidate;
// if FChange and Assigned(OnChange) then OnChange(Self);
end;
procedure TVColorPicker.SetMaxVal(v: Integer);
begin
if v = FMaxVal then
exit;
FMaxVal := v;
FGradientWidth := FMaxVal + 1;
CreateGradient;
Invalidate;
// if FChange and Assigned(OnChange) then OnChange(Self);
end;
procedure TVColorPicker.SetSat(s: integer);
begin
if s > FMaxSat then s := FMaxSat;
if s < 0 then s := 0;
if GetSat() <> s then
begin
FSat := s / FMaxSat;
CreateGradient;
Invalidate;
DoChange;
end;
end;
procedure TVColorPicker.SetSelectedColor(c: TColor);
var
h, s, v: Double;
needNewGradient: Boolean;
begin
if WebSafe then
c := GetWebSafe(c);
if c = GetSelectedColor then
exit;
RGBToHSV(GetRValue(c), GetGValue(c), GetBValue(c), h, s, v);
needNewGradient := (h <> FHue) or (s <> FSat);
FHue := h;
FSat := s;
FVal := v;
if needNewGradient then
CreateGradient;
Invalidate;
DoChange;
end;
procedure TVColorPicker.SetValue(V: integer);
begin
if v < 0 then v := 0;
if v > FMaxVal then v := FMaxVal;
if GetValue() <> v then
begin
FVal := v / FMaxVal;
FArrowPos := ArrowPosFromVal(v);
Invalidate;
DoChange;
end;
end;
function TVColorPicker.ValFromArrowPos(p: integer): integer;
var
v: integer;
begin
case Layout of
lyHorizontal : v := Round(p / (Width - 12) * FMaxVal);
lyVertical : v := Round(FMaxVal - p / (Height - 12) * FMaxVal);
end;
Clamp(v, 0, FMaxVal);
Result := v;
end;
end.

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

@@ -603,14 +603,14 @@ object Form1: TForm1
end end
object TabSheet4: TTabSheet object TabSheet4: TTabSheet
Caption = 'HSLRingPicker' Caption = 'HSLRingPicker'
ClientHeight = 365 ClientHeight = 376
ClientWidth = 420 ClientWidth = 468
ImageIndex = 3 ImageIndex = 3
object HSLRingPicker1: THSLRingPicker object HSLRingPicker1: THSLRingPicker
Left = 50 Left = 50
Height = 351 Height = 362
Top = 6 Top = 6
Width = 322 Width = 370
Luminance = 240 Luminance = 240
RingPickerHintFormat = 'Hue: %h' RingPickerHintFormat = 'Hue: %h'
SLPickerHintFormat = 'S: %hslS V: %v'#13'Hex: %hex' SLPickerHintFormat = 'S: %hslS V: %v'#13'Hex: %hex'
@@ -637,6 +637,7 @@ object Form1: TForm1
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
Luminance = 128
Saturation = 0 Saturation = 0
OnChange = HSVColorPicker1Change OnChange = HSVColorPicker1Change
end end
@@ -691,7 +692,7 @@ object Form1: TForm1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Button5 AnchorSideBottom.Control = Button5
Left = 238 Left = 238
Height = 339 Height = 347
Top = 0 Top = 0
Width = 230 Width = 230
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@@ -703,7 +704,7 @@ object Form1: TForm1
AnchorSideRight.Control = Bevel1 AnchorSideRight.Control = Bevel1
AnchorSideBottom.Control = Button5 AnchorSideBottom.Control = Button5
Left = 0 Left = 0
Height = 339 Height = 347
Top = 0 Top = 0
Width = 230 Width = 230
InfoLabelText = 'Color Values:' InfoLabelText = 'Color Values:'
@@ -783,7 +784,7 @@ object Form1: TForm1
OnClick = OfficeColorDialogButtonClick OnClick = OfficeColorDialogButtonClick
TabOrder = 1 TabOrder = 1
end end
object LColorPicker1: TLColorPicker object LVColorPicker2: TLVColorPicker
Left = 34 Left = 34
Height = 25 Height = 25
Top = 265 Top = 265
@@ -792,12 +793,12 @@ object Form1: TForm1
SelectionIndicator = siRect SelectionIndicator = siRect
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
TabOrder = 2 TabOrder = 2
Hue = 0
Saturation = 240
Luminance = 120 Luminance = 120
HintFormat = 'Luminance: %l (selected)' Saturation = 240
LHintFormat = 'Luminance: %l (selected)'
VHintFormat = 'Value: %v (selected)'
end end
object VColorPicker1: TVColorPicker object LVColorPicker3: TLVColorPicker
Left = 34 Left = 34
Height = 21 Height = 21
Top = 233 Top = 233
@@ -807,10 +808,9 @@ object Form1: TForm1
SelectionIndicator = siRect SelectionIndicator = siRect
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
TabOrder = 3 TabOrder = 3
Hue = 0
Saturation = 255 Saturation = 255
Value = 255 LHintFormat = 'Luminance: %l (selected)'
HintFormat = 'Value: %v (selected)' VHintFormat = 'Value: %v (selected)'
end end
object HColorPicker1: THColorPicker object HColorPicker1: THColorPicker
Left = 34 Left = 34

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

@@ -8,14 +8,13 @@ uses
Dialogs, HSLColorPicker, ComCtrls, StdCtrls, ExtCtrls, mbColorPreview, Dialogs, HSLColorPicker, ComCtrls, StdCtrls, ExtCtrls, mbColorPreview,
HexaColorPicker, mbColorPalette, HSLRingPicker, HSVColorPicker, PalUtils, HexaColorPicker, mbColorPalette, HSLRingPicker, HSVColorPicker, PalUtils,
SLHColorPicker, mbDeskPickerButton, mbOfficeColorDialog, SColorPicker, SLHColorPicker, mbDeskPickerButton, mbOfficeColorDialog, SColorPicker,
HColorPicker, LVColorPicker, mbTrackBarPicker, LColorPicker, HRingPicker, HColorPicker, LVColorPicker, mbTrackBarPicker, HRingPicker, SLColorPicker,
SLColorPicker, HSColorPicker, IniFiles, mbColorPickerControl, BColorPicker, HSColorPicker, IniFiles, mbColorPickerControl, BColorPicker, GColorPicker,
GColorPicker, RColorPicker, KColorPicker, YColorPicker, MColorPicker, RColorPicker, KColorPicker, YColorPicker, MColorPicker, CColorPicker,
CColorPicker, CIEBColorPicker, CIEAColorPicker, Typinfo, CIELColorPicker, CIEBColorPicker, CIEAColorPicker, Typinfo, CIELColorPicker, BAxisColorPicker,
BAxisColorPicker, GAxisColorPicker, RAxisColorPicker, mbColorTree, GAxisColorPicker, RAxisColorPicker, mbColorTree, mbColorList;
mbColorList, mbBasicPicker,
VColorPicker; { vmbColorList, mbBasicPicker, }
type type
@@ -58,8 +57,8 @@ type
mbDeskPickerButton1: TmbDeskPickerButton; mbDeskPickerButton1: TmbDeskPickerButton;
mbOfficeColorDialog1: TmbOfficeColorDialog; mbOfficeColorDialog1: TmbOfficeColorDialog;
OfficeColorDialogButton: TButton; OfficeColorDialogButton: TButton;
LColorPicker1: TLColorPicker; LVColorPicker2: TLVColorPicker;
VColorPicker1: TVColorPicker; LVColorPicker3: TLVColorPicker;
HColorPicker1: THColorPicker; HColorPicker1: THColorPicker;
SColorPicker1: TSColorPicker; SColorPicker1: TSColorPicker;
HSColorPicker1: THSColorPicker; HSColorPicker1: THSColorPicker;
@@ -426,7 +425,7 @@ begin
else if PageControl1.ActivePage = Tabsheet5 then else if PageControl1.ActivePage = Tabsheet5 then
begin begin
HSVColorPicker1.Enabled := CbEnabled.Checked; HSVColorPicker1.Enabled := CbEnabled.Checked;
VColorPicker1.Enabled := CbEnabled.Checked; LVColorPicker1.Enabled := CbEnabled.Checked;
end end
else if PageControl1.ActivePage = Tabsheet6 then else if PageControl1.ActivePage = Tabsheet6 then
SLHColorPicker1.Enabled := CbEnabled.Checked SLHColorPicker1.Enabled := CbEnabled.Checked
@@ -439,8 +438,8 @@ begin
begin begin
mbDeskPickerButton1.Enabled := CbEnabled.Checked; mbDeskPickerButton1.Enabled := CbEnabled.Checked;
OfficeColorDialogButton.Enabled := CbEnabled.Checked; OfficeColorDialogButton.Enabled := CbEnabled.Checked;
LColorPicker1.Enabled := CbEnabled.Checked; LVColorPicker2.Enabled := CbEnabled.Checked;
VColorPicker1.Enabled := CbEnabled.Checked; LVColorPicker3.Enabled := CbEnabled.Checked;
HColorPicker1.Enabled := CbEnabled.Checked; HColorPicker1.Enabled := CbEnabled.Checked;
SColorPicker1.Enabled := CbEnabled.Checked; SColorPicker1.Enabled := CbEnabled.Checked;
end end

181
components/mbColorLib/examples/trackbars/main.lfm
View File

@@ -14,10 +14,10 @@ object Form1: TForm1
Height = 429 Height = 429
Top = 0 Top = 0
Width = 400 Width = 400
ActivePage = tabVertical ActivePage = tabHorizontal
Align = alClient Align = alClient
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
TabIndex = 0 TabIndex = 1
TabOrder = 0 TabOrder = 0
object tabVertical: TTabSheet object tabVertical: TTabSheet
Caption = 'vertical' Caption = 'vertical'
@@ -177,37 +177,20 @@ object Form1: TForm1
Caption = 'R' Caption = 'R'
ParentColor = False ParentColor = False
end end
object VColorPickerV: TVColorPicker object LVColorPickerV: TLVColorPicker
AnchorSideTop.Control = HColorPickerV
Left = 368
Height = 279
Top = 23
Width = 22
HintFormat = 'Value: %value'
Layout = lyVertical
Visible = False
TabOrder = 5
OnChange = SLVPickerV_Change
Hue = 0
Saturation = 0
Value = 255
SelectedColor = clWhite
end
object LColorPickerV: TLColorPicker
AnchorSideTop.Control = HColorPickerV AnchorSideTop.Control = HColorPickerV
Left = 350 Left = 350
Height = 279 Height = 279
Top = 23 Top = 23
Width = 22 Width = 22
HintFormat = 'Luminance: %value' SelectedColor = 14869218
Layout = lyVertical Layout = lyVertical
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
TabOrder = 6 TabOrder = 5
OnChange = SLVPickerV_Change OnChange = SLVPickerV_Change
Hue = 0
Saturation = 0
Luminance = 226 Luminance = 226
SelectedColor = 14869218 LHintFormat = 'Luminance: %l'
VHintFormat = 'Value: %v'
end end
object HColorPickerV: THColorPicker object HColorPickerV: THColorPicker
AnchorSideTop.Control = LblH AnchorSideTop.Control = LblH
@@ -216,14 +199,12 @@ object Form1: TForm1
Height = 279 Height = 279
Top = 23 Top = 23
Width = 22 Width = 22
HintFormat = 'Hue: %value'
Layout = lyVertical Layout = lyVertical
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
TabOrder = 7 TabOrder = 6
OnChange = HPickerV_Change OnChange = HPickerV_Change
Hue = 0 Luminance = 128
Saturation = 255 HintFormat = 'Hue: %value'
Value = 255
end end
object KColorPickerV: TKColorPicker object KColorPickerV: TKColorPicker
AnchorSideTop.Control = CColorPickerV AnchorSideTop.Control = CColorPickerV
@@ -231,13 +212,13 @@ object Form1: TForm1
Height = 297 Height = 297
Top = 23 Top = 23
Width = 22 Width = 22
HintFormat = 'Black: %value' SelectedColor = 16711422
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
TabOrder = 8 TabOrder = 7
OnChange = CMYKPickerV_Change OnChange = CMYKPickerV_Change
Cyan = 0 Cyan = 0
Black = 1 Black = 1
SelectedColor = 16711422 HintFormat = 'Black: %value'
end end
object YColorPickerV: TYColorPicker object YColorPickerV: TYColorPicker
AnchorSideTop.Control = CColorPickerV AnchorSideTop.Control = CColorPickerV
@@ -245,11 +226,11 @@ object Form1: TForm1
Height = 297 Height = 297
Top = 23 Top = 23
Width = 22 Width = 22
HintFormat = 'Yellow: %value'
Anchors = [akTop, akLeft, akBottom]
TabOrder = 9
OnChange = CMYKPickerV_Change
SelectedColor = clYellow SelectedColor = clYellow
Anchors = [akTop, akLeft, akBottom]
TabOrder = 8
OnChange = CMYKPickerV_Change
HintFormat = 'Yellow: %value'
end end
object MColorPickerV: TMColorPicker object MColorPickerV: TMColorPicker
AnchorSideTop.Control = CColorPickerV AnchorSideTop.Control = CColorPickerV
@@ -257,11 +238,11 @@ object Form1: TForm1
Height = 297 Height = 297
Top = 23 Top = 23
Width = 22 Width = 22
HintFormat = 'Magenta: %value'
Anchors = [akTop, akLeft, akBottom]
TabOrder = 10
OnChange = CMYKPickerV_Change
SelectedColor = clFuchsia SelectedColor = clFuchsia
Anchors = [akTop, akLeft, akBottom]
TabOrder = 9
OnChange = CMYKPickerV_Change
HintFormat = 'Magenta: %value'
end end
object CColorPickerV: TCColorPicker object CColorPickerV: TCColorPicker
AnchorSideTop.Control = LblC AnchorSideTop.Control = LblC
@@ -270,11 +251,11 @@ object Form1: TForm1
Height = 297 Height = 297
Top = 23 Top = 23
Width = 22 Width = 22
HintFormat = 'Cyan: %value'
Anchors = [akTop, akLeft, akBottom]
TabOrder = 11
OnChange = CMYKPickerV_Change
SelectedColor = clAqua SelectedColor = clAqua
Anchors = [akTop, akLeft, akBottom]
TabOrder = 10
OnChange = CMYKPickerV_Change
HintFormat = 'Cyan: %value'
end end
object RColorPickerV: TRColorPicker object RColorPickerV: TRColorPicker
AnchorSideTop.Control = LblR AnchorSideTop.Control = LblR
@@ -283,12 +264,12 @@ object Form1: TForm1
Height = 297 Height = 297
Top = 23 Top = 23
Width = 22 Width = 22
HintFormat = 'Red: %value'
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
TabOrder = 12 TabOrder = 11
OnChange = RGBPickerV_Change OnChange = RGBPickerV_Change
Green = 0 Green = 0
Blue = 0 Blue = 0
HintFormat = 'Red: %value'
end end
object GColorPickerV: TGColorPicker object GColorPickerV: TGColorPicker
AnchorSideTop.Control = RColorPickerV AnchorSideTop.Control = RColorPickerV
@@ -296,13 +277,13 @@ object Form1: TForm1
Height = 297 Height = 297
Top = 23 Top = 23
Width = 22 Width = 22
HintFormat = 'Green: %value' SelectedColor = clLime
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
TabOrder = 13 TabOrder = 12
OnChange = RGBPickerV_Change OnChange = RGBPickerV_Change
Red = 0 Red = 0
Blue = 0 Blue = 0
SelectedColor = clLime HintFormat = 'Green: %value'
end end
object BColorPickerV: TBColorPicker object BColorPickerV: TBColorPicker
AnchorSideTop.Control = RColorPickerV AnchorSideTop.Control = RColorPickerV
@@ -310,13 +291,13 @@ object Form1: TForm1
Height = 297 Height = 297
Top = 23 Top = 23
Width = 22 Width = 22
HintFormat = 'Blue: %value' SelectedColor = clBlue
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
TabOrder = 14 TabOrder = 13
OnChange = RGBPickerV_Change OnChange = RGBPickerV_Change
Green = 0 Green = 0
Red = 0 Red = 0
SelectedColor = clBlue HintFormat = 'Blue: %value'
end end
object SColorPickerV: TSColorPicker object SColorPickerV: TSColorPicker
AnchorSideTop.Control = HColorPickerV AnchorSideTop.Control = HColorPickerV
@@ -324,14 +305,12 @@ object Form1: TForm1
Height = 279 Height = 279
Top = 23 Top = 23
Width = 22 Width = 22
HintFormat = 'Saturation: %value'
Layout = lyVertical Layout = lyVertical
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
TabOrder = 15 TabOrder = 14
OnChange = SLVPickerV_Change OnChange = SLVPickerV_Change
Hue = 0 Luminance = 128
Saturation = 255 HintFormat = 'Saturation: %value'
Value = 255
end end
end end
end end
@@ -491,35 +470,19 @@ object Form1: TForm1
Caption = 'R' Caption = 'R'
ParentColor = False ParentColor = False
end end
object VColorPickerH: TVColorPicker object LVColorPickerH: TLVColorPicker
Left = 128
Height = 22
Top = 373
Width = 224
BevelInner = bvLowered
HintFormat = 'Value: %value'
Visible = False
TabOrder = 5
OnChange = SLVPickerH_Change
Hue = 0
Saturation = 0
Value = 255
SelectedColor = clWhite
end
object LColorPickerH: TLColorPicker
Left = 24 Left = 24
Height = 22 Height = 22
Top = 344 Top = 344
Width = 301 Width = 301
BevelInner = bvLowered
HintFormat = 'Luminance: %value'
Anchors = [akTop, akLeft, akRight]
TabOrder = 6
OnChange = SLVPickerH_Change
Hue = 0
Saturation = 0
Luminance = 226
SelectedColor = 14869218 SelectedColor = 14869218
BevelInner = bvLowered
Anchors = [akTop, akLeft, akRight]
TabOrder = 5
OnChange = SLVPickerH_Change
Luminance = 226
LHintFormat = 'Luminance: %l'
VHintFormat = 'Value: %v'
end end
object SColorPickerH: TSColorPicker object SColorPickerH: TSColorPicker
Left = 24 Left = 24
@@ -527,13 +490,11 @@ object Form1: TForm1
Top = 312 Top = 312
Width = 301 Width = 301
BevelOuter = bvLowered BevelOuter = bvLowered
HintFormat = 'Saturation: %value'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 7 TabOrder = 6
OnChange = SLVPickerH_Change OnChange = SLVPickerH_Change
Hue = 0 Luminance = 128
Saturation = 255 HintFormat = 'Saturation: %value'
Value = 255
end end
object HColorPickerH: THColorPicker object HColorPickerH: THColorPicker
Left = 24 Left = 24
@@ -541,104 +502,102 @@ object Form1: TForm1
Top = 282 Top = 282
Width = 301 Width = 301
BevelOuter = bvLowered BevelOuter = bvLowered
HintFormat = 'Hue: %value'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 8 TabOrder = 7
OnChange = HPickerH_Change OnChange = HPickerH_Change
Hue = 0 Luminance = 128
Saturation = 255 HintFormat = 'Hue: %value'
Value = 255
end end
object KColorPickerH: TKColorPicker object KColorPickerH: TKColorPicker
Left = 24 Left = 24
Height = 22 Height = 22
Top = 224 Top = 224
Width = 301 Width = 301
HintFormat = 'Black: %value' SelectedColor = 16711422
Layout = lyHorizontal Layout = lyHorizontal
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 9 TabOrder = 8
OnChange = CMYKPickerH_Change OnChange = CMYKPickerH_Change
Cyan = 0 Cyan = 0
Black = 1 Black = 1
SelectedColor = 16711422 HintFormat = 'Black: %value'
end end
object MColorPickerH: TMColorPicker object MColorPickerH: TMColorPicker
Left = 24 Left = 24
Height = 22 Height = 22
Top = 160 Top = 160
Width = 301 Width = 301
HintFormat = 'Magenta: %value' SelectedColor = clFuchsia
Layout = lyHorizontal Layout = lyHorizontal
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 10 TabOrder = 9
OnChange = CMYKPickerH_Change OnChange = CMYKPickerH_Change
SelectedColor = clFuchsia HintFormat = 'Magenta: %value'
end end
object YColorPickerH: TYColorPicker object YColorPickerH: TYColorPicker
Left = 24 Left = 24
Height = 22 Height = 22
Top = 192 Top = 192
Width = 301 Width = 301
HintFormat = 'Yellow: %value' SelectedColor = clYellow
Layout = lyHorizontal Layout = lyHorizontal
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 11 TabOrder = 10
OnChange = CMYKPickerH_Change OnChange = CMYKPickerH_Change
SelectedColor = clYellow HintFormat = 'Yellow: %value'
end end
object CColorPickerH: TCColorPicker object CColorPickerH: TCColorPicker
Left = 24 Left = 24
Height = 22 Height = 22
Top = 128 Top = 128
Width = 301 Width = 301
HintFormat = 'Cyan: %value' SelectedColor = clAqua
Layout = lyHorizontal Layout = lyHorizontal
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 12 TabOrder = 11
OnChange = CMYKPickerH_Change OnChange = CMYKPickerH_Change
SelectedColor = clAqua HintFormat = 'Cyan: %value'
end end
object BColorPickerH: TBColorPicker object BColorPickerH: TBColorPicker
Left = 24 Left = 24
Height = 22 Height = 22
Top = 80 Top = 80
Width = 301 Width = 301
HintFormat = 'Blue: %value' SelectedColor = clBlue
Layout = lyHorizontal Layout = lyHorizontal
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 13 TabOrder = 12
OnChange = RGBPickerH_Change OnChange = RGBPickerH_Change
Green = 0 Green = 0
Red = 0 Red = 0
SelectedColor = clBlue HintFormat = 'Blue: %value'
end end
object GColorPickerH: TGColorPicker object GColorPickerH: TGColorPicker
Left = 24 Left = 24
Height = 22 Height = 22
Top = 48 Top = 48
Width = 301 Width = 301
HintFormat = 'Green: %value' SelectedColor = clLime
Layout = lyHorizontal Layout = lyHorizontal
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 14 TabOrder = 13
OnChange = RGBPickerH_Change OnChange = RGBPickerH_Change
Red = 0 Red = 0
Blue = 0 Blue = 0
SelectedColor = clLime HintFormat = 'Green: %value'
end end
object RColorPickerH: TRColorPicker object RColorPickerH: TRColorPicker
Left = 24 Left = 24
Height = 22 Height = 22
Top = 16 Top = 16
Width = 301 Width = 301
HintFormat = 'Red: %value'
Layout = lyHorizontal Layout = lyHorizontal
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 15 TabOrder = 14
OnChange = RGBPickerH_Change OnChange = RGBPickerH_Change
Green = 0 Green = 0
Blue = 0 Blue = 0
HintFormat = 'Red: %value'
end end
end end
end end

122
components/mbColorLib/examples/trackbars/main.pas
View File

@@ -8,7 +8,7 @@ uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
StdCtrls, ExtCtrls, BColorPicker, GColorPicker, RColorPicker, CColorPicker, StdCtrls, ExtCtrls, BColorPicker, GColorPicker, RColorPicker, CColorPicker,
YColorPicker, MColorPicker, KColorPicker, HColorPicker, SColorPicker, YColorPicker, MColorPicker, KColorPicker, HColorPicker, SColorPicker,
LColorPicker, VColorPicker, mbColorPreview; LVColorPicker, mbColorPreview;
type type
@@ -49,8 +49,6 @@ type
Label7: TLabel; Label7: TLabel;
LblH: TLabel; LblH: TLabel;
Label9: TLabel; Label9: TLabel;
LColorPickerH: TLColorPicker;
LColorPickerV: TLColorPicker;
CMYKh: TmbColorPreview; CMYKh: TmbColorPreview;
HSLVh: TmbColorPreview; HSLVh: TmbColorPreview;
Panel1: TPanel; Panel1: TPanel;
@@ -72,8 +70,8 @@ type
SColorPickerV: TSColorPicker; SColorPickerV: TSColorPicker;
tabVertical: TTabSheet; tabVertical: TTabSheet;
tabHorizontal: TTabSheet; tabHorizontal: TTabSheet;
VColorPickerH: TVColorPicker; LVColorPickerH: TLVColorPicker;
VColorPickerV: TVColorPicker; LVColorPickerV: TLVColorPicker;
YColorPickerH: TYColorPicker; YColorPickerH: TYColorPicker;
YColorPickerV: TYColorPicker; YColorPickerV: TYColorPicker;
procedure CMYKPickerV_Change(Sender: TObject); procedure CMYKPickerV_Change(Sender: TObject);
@@ -96,12 +94,18 @@ type
var var
Form1: TForm1; Form1: TForm1;
const
MaxHue = 360;
MaxSat = 255;
MaxLum = 255;
MaxVal = 255;
implementation implementation
{$R *.lfm} {$R *.lfm}
uses uses
LCLType, LCLIntf, ScanLines, RGBCMYKUtils, RGBHSLUtils, RGBHSVUtils; LCLType, LCLIntf, ScanLines, RGBCMYKUtils, mbColorConv;
{ TForm1 } { TForm1 }
@@ -124,8 +128,9 @@ begin
'Cyan: %d - Magenta: %d - Yellow: %d - Black: %d'#13 + 'Cyan: %d - Magenta: %d - Yellow: %d - Black: %d'#13 +
'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [ 'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [
GetRValue(c), GetGValue(c), GetBValue(c), GetRValue(c), GetGValue(c), GetBValue(c),
GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c), GetCValue(c), GetMValue(c), GetYValue(c), GetKValue(c),
GetHValue(c), GetSValue(c), GetLValue(c), GetVValue(c) round(GetRelHValue(c)*MaxHue), round(GetRelSValueHSL(c)*MaxSat),
round(GetRelLValue(c)*MaxLum), round(GetRelVValue(c)*MaxVal)
]); ]);
end; end;
@@ -149,26 +154,13 @@ begin
'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [ 'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [
GetRValue(c), GetGValue(c), GetBValue(c), GetRValue(c), GetGValue(c), GetBValue(c),
GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c), GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c),
GetHValue(c), GetSValue(c), GetLValue(c), GetVValue(c) round(GetRelHValue(c)*MaxHue), round(GetRelSValueHSL(c)*MaxSat),
round(GetRelLValue(c)*MaxLum), round(GetRelVValue(c)*MaxVal)
]); ]);
end; end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
begin begin
MaxHue := 359;
MaxSat := 240;
MaxLum := 240;
VColorPickerH.Left := LColorPickerH.Left;
VColorPickerH.Top := LColorPickerH.Top;
VColorPickerH.Width := LColorPickerH.Width;
VColorPickerH.Anchors := [akLeft, akTop, akRight];
VColorPickerV.Left := LColorPickerV.Left;
VColorPickerV.Top := LColorPickerV.Top;
VColorPickerV.Height := LColorPickerV.Height;
VColorPickerV.Anchors := [akLeft, akTop, akBottom];
RGBPickerH_Change(nil); RGBPickerH_Change(nil);
CMYKPickerH_Change(nil); CMYKPickerH_Change(nil);
SLVPickerH_Change(nil); SLVPickerH_Change(nil);
@@ -180,20 +172,21 @@ end;
procedure TForm1.HPickerH_Change(Sender: TObject); procedure TForm1.HPickerH_Change(Sender: TObject);
begin begin
exit; if ComponentState <> [] then
exit;
SLVPickerH_Change(nil); SLVPickerH_Change(nil);
SColorPickerH.Hue := HColorPickerH.Hue; SColorPickerH.Hue := HColorPickerH.Hue;
LColorPickerH.Hue := HColorPickerH.Hue; LVColorPickerH.Hue := HColorPickerH.Hue;
VColorPickerH.Hue := HColorPickerH.Hue;
end; end;
procedure TForm1.HPickerV_Change(Sender: TObject); procedure TForm1.HPickerV_Change(Sender: TObject);
begin begin
if ComponentState <> [] then
exit;
SLVPickerV_Change(nil); SLVPickerV_Change(nil);
SColorPickerV.Hue := HColorPickerV.Hue; SColorPickerV.Hue := HColorPickerV.Hue;
LColorPickerV.Hue := HColorPickerV.Hue; LVColorPickerV.Hue := HColorPickerV.Hue;
VColorPickerV.Hue := HColorPickerV.Hue;
end; end;
procedure TForm1.rbHSLv_Change(Sender: TObject); procedure TForm1.rbHSLv_Change(Sender: TObject);
@@ -201,14 +194,16 @@ begin
if rbHSLv.Checked then if rbHSLv.Checked then
begin begin
lblLVv.Caption := 'L'; lblLVv.Caption := 'L';
VColorPickerV.Visible := false; HColorPickerV.BrightnessMode := bmLuminance;
LColorPickerV.Visible := true; SColorPickerV.BrightnessMode := bmLuminance;
LVColorPickerV.BrightnessMode := bmLuminance;
end; end;
if rbHSVv.Checked then if rbHSVv.Checked then
begin begin
lblLVv.Caption := 'V'; lblLVv.Caption := 'V';
LColorPickerV.Visible := false; HColorPickerV.BrightnessMode := bmValue;
VColorPickerV.Visible := true; SColorPickerV.BrightnessMode := bmValue;
LVColorPickerV.BrightnessMode := bmValue;
end; end;
HPickerV_Change(nil); HPickerV_Change(nil);
end; end;
@@ -218,14 +213,16 @@ begin
if rbHSLh.Checked then if rbHSLh.Checked then
begin begin
lblLVh.Caption := 'L'; lblLVh.Caption := 'L';
VColorPickerH.Visible := false; HColorPickerH.BrightnessMode := bmLuminance;
LColorPickerH.Visible := true; SColorPickerH.BrightnessMode := bmLuminance;
LVColorPickerH.BrightnessMode := bmLuminance;
end; end;
if rbHSVh.Checked then if rbHSVh.Checked then
begin begin
lblLVh.Caption := 'V'; lblLVh.Caption := 'V';
lColorPickerH.Visible := false; HColorPickerH.BrightnessMode := bmValue;
VColorPickerH.Visible := true; SColorPickerH.BrightnessMode := bmValue;
LVColorPickerH.BrightnessMode := bmValue;
end; end;
HPickerH_Change(nil); HPickerH_Change(nil);
end; end;
@@ -248,7 +245,8 @@ begin
'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [ 'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [
GetRValue(c), GetGValue(c), GetBValue(c), GetRValue(c), GetGValue(c), GetBValue(c),
GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c), GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c),
GetHValue(c), GetSValue(c), GetLValue(c), GetVValue(c) round(GetRelHValue(c)*MaxHue), round(GetRelSValueHSL(c)*MaxSat),
round(GetRelLValue(c)*MaxLum), round(GetRelVValue(c)*MaxVal)
]); ]);
end; end;
@@ -270,7 +268,8 @@ begin
'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [ 'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [
GetRValue(c), GetGValue(c), GetBValue(c), GetRValue(c), GetGValue(c), GetBValue(c),
GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c), GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c),
GetHValue(c), GetSValue(c), GetLValue(c), GetVValue(c) round(GetRelHValue(c)*MaxHue), round(GetRelSValueHSL(c)*MaxSat),
round(GetRelLValue(c)*MaxLum), round(GetRelVValue(c)*MaxVal)
]); ]);
end; end;
@@ -279,18 +278,16 @@ var
triple: TRGBTriple; triple: TRGBTriple;
c: TColor; c: TColor;
begin begin
if (HSLVh = nil) or (HColorPickerH = nil) or (SColorPickerH = nil) then if (HSLVh = nil) or (HColorPickerH = nil) or (SColorPickerH = nil) or
(LVColorPickerH = nil)
then
exit; exit;
if rbHSLh.Checked then begin
if (LColorPickerH = nil) then if rbHSLh.Checked then
exit; HSLVh.Color := HSLToColor(HColorPickerH.RelHue, SColorPickerH.RelSaturation, LVColorPickerH.RelLuminance);
HSLVh.Color := HSLRangeToRGB(HColorPickerH.Hue, SColorPickerH.Saturation, LColorPickerH.Luminance);
end; if rbHSVh.Checked then
if rbHSVh.Checked then begin HSLVh.Color := HSVToColor(HColorPickerH.RelHue, SColorPickerH.RelSaturation, LVColorPickerH.RelValue);
if (VColorPickerH = nil) then
exit;
HSLVh.Color := HSVRangetoColor(HColorPickerH.Hue, SColorPickerH.Saturation, VColorPickerH.Value);
end;
c := HSLVh.Color; c := HSLVh.Color;
HSLVh.Hint := Format('Red: %d - Green: %d - Blue: %d'#13 + HSLVh.Hint := Format('Red: %d - Green: %d - Blue: %d'#13 +
@@ -298,31 +295,31 @@ begin
'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [ 'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [
GetRValue(c), GetGValue(c), GetBValue(c), GetRValue(c), GetGValue(c), GetBValue(c),
GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c), GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c),
GetHValue(c), GetSValue(c), GetLValue(c), GetVValue(c) round(GetRelHValue(c)*MaxHue), round(GetRelSValueHSL(c)*MaxSat),
round(GetRelLValue(c)*MaxLum), round(GetRelVValue(c)*MaxVal)
]); ]);
end; end;
procedure TForm1.SLVPickerV_Change(Sender: TObject); procedure TForm1.SLVPickerV_Change(Sender: TObject);
var var
triple: TRGBTriple;
c: TColor; c: TColor;
begin begin
if (HSLVv = nil) or (HColorPickerV = nil) or (SColorPickerV = nil) then if (HSLVv = nil) or (HColorPickerV = nil) or (SColorPickerV = nil) or
(LVColorPickerV = nil)
then
exit; exit;
if rbHSLv.Checked then begin if rbHSLv.Checked then begin
if (LColorPickerV = nil) then if (LVColorPickerV = nil) then
exit; exit;
triple := HSLToRGBTriple(HColorPickerV.Hue, SColorPickerV.Saturation, LColorPickerV.Luminance); c := HSLToColor(HColorPickerV.RelHue, SColorPickerV.RelSaturation, LVColorPickerV.RelLuminance);
HSLVv.Color := RGBTripleToColor(triple); HSLVv.Color := c;
end; end;
if rbHSVv.Checked then begin if rbHSVv.Checked then begin
if (VColorPickerV = nil) then if (LVColorPickerV = nil) then
exit; exit;
HSLVv.Color := HSVtoColor( c := HSVtoColor(HColorPickerV.RelHue, SColorPickerV.RelSaturation, LVColorPickerV.RelValue);
HColorPickerV.Hue/HColorPickerV.MaxHue, HSLVv.Color := c;
SColorPickerV.Saturation/SColorPickerV.MaxSaturation,
VColorPickerV.Value/VColorPickerV.MaxValue
);
end; end;
c := HSLVv.Color; c := HSLVv.Color;
@@ -331,7 +328,8 @@ begin
'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [ 'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [
GetRValue(c), GetGValue(c), GetBValue(c), GetRValue(c), GetGValue(c), GetBValue(c),
GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c), GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c),
GetHValue(c), GetSValue(c), GetLValue(c), GetVValue(c) round(GetRelHValue(c)*MaxHue), round(GetRelSValueHSL(c)*MaxSat),
round(GetRelLValue(c)*MaxLum), round(GetRelVValue(c)*MaxVal)
]); ]);
end; end;

24
components/mbColorLib/mbReg.lrs
View File

@@ -406,15 +406,6 @@ LazarusResources.Add('TKColorPicker','PNG',[
+#220#162#229#255#224#217#143#182'e'#29'y%'#22#197'[r'#31#189#0#0#0#0'IEND' +#220#162#229#255#224#217#143#182'e'#29'y%'#22#197'[r'#31#189#0#0#0#0'IEND'
+#174'B`'#130 +#174'B`'#130
]); ]);
LazarusResources.Add('TLColorPicker','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0
+#0#0#9'pHYs'#0#0#11#19#0#0#11#19#1#0#154#156#24#0#0#0'bIDATH'#199#237#146#187
+#10#128'0'#12'EO'#193#255#255'=G'#199'tK'#198'nq'#176'R'#199#182'"'#10#230'@'
+' !'#185'y@ x'#155#212'Q'#227'w'#244#169's'#17#159#213#166#129'k}R7'#132#255
+#244#139'\'#213'Q'#133#156'A'#228'0'#179#230#139#180'\)l@'#6#164#154']'#252
+'3^k'#239#229#233#11'b@'#12#8#130'/'#176#3#3#136'% V"'#162#11#0#0#0#0'IEND'
+#174'B`'#130
]);
LazarusResources.Add('TmbColorList','PNG',[ LazarusResources.Add('TmbColorList','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0 #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0
+#0#0#9'pHYs'#0#0#11#19#0#0#11#19#1#0#154#156#24#0#0#0#216'IDATH'#199'c`'#160 +#0#0#9'pHYs'#0#0#11#19#0#0#11#19#1#0#154#156#24#0#0#0#216'IDATH'#199'c`'#160
@@ -631,21 +622,6 @@ LazarusResources.Add('TSLHColorPicker','PNG',[
+'?u'#29#24'c'#240#222#167#23'$/'#242'0'#159#129#23#229#127'l'#134#236#0'N'#26 +'?u'#29#24'c'#240#222#167#23'$/'#242'0'#159#129#23#229#127'l'#134#236#0'N'#26
+#216#253'+?'#253'?!R'#213'K'#11'&'#20#141#0#0#0#0'IEND'#174'B`'#130 +#216#253'+?'#253'?!R'#213'K'#11'&'#20#141#0#0#0#0'IEND'#174'B`'#130
]); ]);
LazarusResources.Add('TVColorPicker','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0
+#0#0#9'pHYs'#0#0#11#19#0#0#11#19#1#0#154#156#24#0#0#0#242'IDATH'#199#237#149
+'OJ'#196'0'#28#133#191#252'k'#133#193#201'"'#139#129'\`<J'#151#222#173'wp'
+#237#178#7#241#18'n'#132#216#233't'#146#214#137#139#142#168#168#139'*'#130'8'
+#253#224#241'H'#8#191'G'#194#131#192#194#191'G'#204'9l'#173#205'!'#4#172#181
+'8'#231#216'l6x'#239#241#222'S'#215#245#167#179#244#156#128#16#130#176#214
+#230#178',1'#198#160#181'FJ'#245#229#240#217'7xa{'#181#205#235#203'5'#206'9'
+#154#166#17#191#242#182'UU'#229'3k'#209#245#205#152'o'#239'zV'#185#133#184
+#131#225'q'#242#216'Bj'#223#248#238#253':'#181#144'^'#247#186#135'{'#136'A|h'
+#209'p'#156#188'K'#25#210'qR|:i'#132'8@'#26' '#166#147'"'#164#8#233#0#177#135
+#212'C'#220#255#172#166#223'a'#9#248'C'#1'FN'#190'*'#4'd'#9'B'#2'j'#146#208
+' '#12'H'#3#162#0'Y'#128',A%P'#23#160'F'#208'#'#168#145#238#208'._'#200#185
+#241#12'o'#213'fM'#147#161'f;'#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('TLVColorPicker','PNG',[ LazarusResources.Add('TLVColorPicker','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0 #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0
+#0#0#9'pHYs'#0#0#11#19#0#0#11#19#1#0#154#156#24#0#0#0#163'IDATH'#199#237#149 +#0#0#9'pHYs'#0#0#11#19#0#0#11#19#1#0#154#156#24#0#0#0#163'IDATH'#199#237#149

4
components/mbColorLib/mbReg.pas
View File

@@ -19,7 +19,7 @@ uses
RAxisColorPicker, GAxisColorPicker, BAxisColorPicker, RAxisColorPicker, GAxisColorPicker, BAxisColorPicker,
CColorPicker, MColorPicker, YColorPicker, KColorPicker, CColorPicker, MColorPicker, YColorPicker, KColorPicker,
HRingPicker, HRingPicker,
HColorPicker, SColorPicker, LVColorPicker, LColorPicker, VColorPicker, HColorPicker, SColorPicker, LVColorPicker, //LColorPicker, VColorPicker,
HSColorPicker, HSVColorPicker, HSLColorPicker, HSLRingPicker, HSColorPicker, HSVColorPicker, HSLColorPicker, HSLRingPicker,
SLColorPicker, SLHColorPicker, SLColorPicker, SLHColorPicker,
CIEAColorPicker, CIEBColorPicker, CIELColorPicker, CIEAColorPicker, CIEBColorPicker, CIELColorPicker,
@@ -34,7 +34,7 @@ begin
TRAxisColorPicker, TGAxisColorPicker, TBAxisColorPicker, TRAxisColorPicker, TGAxisColorPicker, TBAxisColorPicker,
TCColorPicker, TMColorPicker, TYColorPicker, TKColorPicker, TCColorPicker, TMColorPicker, TYColorPicker, TKColorPicker,
THRingPicker, THRingPicker,
THColorPicker, TSColorPicker, TLVColorPicker, TLColorPicker, TVColorPicker, THColorPicker, TSColorPicker, TLVColorPicker, //TLColorPicker, TVColorPicker,
THSColorPicker, THSVColorPicker, THSLColorPicker, THSLRingPicker, THSColorPicker, THSVColorPicker, THSLColorPicker, THSLRingPicker,
TSLColorPicker, TSLHColorPicker, TSLColorPicker, TSLHColorPicker,
TCIEAColorPicker, TCIEBColorPicker, TCIELColorPicker, TCIEAColorPicker, TCIEBColorPicker, TCIELColorPicker,

9
components/mbColorLib/mbTrackBarPicker.pas
View File

@@ -907,9 +907,18 @@ end;
procedure TmbHSLVTrackbarPicker.SetBrightnessMode(AMode: TBrightnessMode); procedure TmbHSLVTrackbarPicker.SetBrightnessMode(AMode: TBrightnessMode);
var var
c: TColor; c: TColor;
S, L, V: Double;
begin begin
c := HSLVtoColor(FHue, FSat, FLum, FVal); c := HSLVtoColor(FHue, FSat, FLum, FVal);
FBrightnessMode := AMode; FBrightnessMode := AMode;
(*
ColorToHSLV(c, FHue, S, L, V);
SetRelSat(S);
case AMode of
bmLuminance: SetRelLum(L);
bmValue : SetRelVal(V);
end;
*)
ColorToHSLV(c, FHue, FSat, FLum, FVal); ColorToHSLV(c, FHue, FSat, FLum, FVal);
CreateGradient; CreateGradient;
Invalidate; Invalidate;

53
components/mbColorLib/mbcolorconv.pas
View File

@@ -26,6 +26,14 @@ procedure RGBtoHSV(R, G, B: Integer; out H, S, V: Double);
function HSVtoColor(H, S, V: Double): TColor; function HSVtoColor(H, S, V: Double): TColor;
procedure HSVtoRGB(H, S, V: Double; out R, G, B: Integer); procedure HSVtoRGB(H, S, V: Double; out R, G, B: Integer);
{ H, S, L, V extraction }
function GetRelHValue(c: TColor): Double;
function GetRelSValueHSL(c: TColor): Double;
function GetRelSValueHSV(c: TColor): Double;
function GetRelLValue(c: TColor): Double;
function GetRelVValue(c: TColor): Double;
implementation implementation
@@ -312,5 +320,50 @@ begin
V := cmax; V := cmax;
end; end;
//==============================================================================
// H, S, L, V extraction
//==============================================================================
function GetRelHValue(c: TColor): Double;
var
H, S, L: Double;
begin
ColorToHSL(c, H, S, L); // Could also use HSV - H is the same in both models
Result := H;
end;
function GetRelSValueHSL(c: TColor): Double;
var
H, S, L: Double;
begin
ColorToHSL(c, H, S, L);
Result := S;
end;
function GetRelSValueHSV(c: TColor): Double;
var
H, S, V: Double;
begin
ColorToHSV(c, H, S, V);
Result := S;
end;
function GetRelLValue(c: TColor): Double;
var
H, S, L: Double;
begin
ColorToHSL(c, H, S, L);
result := L;
end;
function GetRelVValue(c: TColor): Double;
var
H, S, V: Double;
begin
ColorToHSV(c, H, S, V);
Result := V;
end;
end. end.

140
components/mbColorLib/mbcolorliblaz.lpk
View File

@@ -15,7 +15,7 @@
<Description Value="Comprehensive color selection library with more than 30 components"/> <Description Value="Comprehensive color selection library with more than 30 components"/>
<License Value="License is granted to use, modify and redistribute these units in your applications as you see fit. You are given COMPLETE FREEDOM with the sources found in this pack; you're free to use it in ANY kind of app without even mentioning my name, my site or any other stuff, that depends on your good will and nothing else. I will accept any modifications and incorporate them in this pack if they'll help make it better. You are under NO obligation to pay for these components to neither me nor anyone else trying to sell them in their current form. If you wish to support development of these components you can do so by contributing some source or making a donation, again this solely depends on your good will."/> <License Value="License is granted to use, modify and redistribute these units in your applications as you see fit. You are given COMPLETE FREEDOM with the sources found in this pack; you're free to use it in ANY kind of app without even mentioning my name, my site or any other stuff, that depends on your good will and nothing else. I will accept any modifications and incorporate them in this pack if they'll help make it better. You are under NO obligation to pay for these components to neither me nor anyone else trying to sell them in their current form. If you wish to support development of these components you can do so by contributing some source or making a donation, again this solely depends on your good will."/>
<Version Major="2" Minor="1"/> <Version Major="2" Minor="1"/>
<Files Count="48"> <Files Count="46">
<Item1> <Item1>
<Filename Value="PalUtils.pas"/> <Filename Value="PalUtils.pas"/>
<UnitName Value="PalUtils"/> <UnitName Value="PalUtils"/>
@@ -69,147 +69,139 @@
<UnitName Value="KColorPicker"/> <UnitName Value="KColorPicker"/>
</Item13> </Item13>
<Item14> <Item14>
<Filename Value="LColorPicker.pas"/>
<UnitName Value="LColorPicker"/>
</Item14>
<Item15>
<Filename Value="MColorPicker.pas"/> <Filename Value="MColorPicker.pas"/>
<UnitName Value="MColorPicker"/> <UnitName Value="MColorPicker"/>
</Item15> </Item14>
<Item16> <Item15>
<Filename Value="VColorPicker.pas"/>
<UnitName Value="VColorPicker"/>
</Item16>
<Item17>
<Filename Value="YColorPicker.pas"/> <Filename Value="YColorPicker.pas"/>
<UnitName Value="YColorPicker"/> <UnitName Value="YColorPicker"/>
</Item17> </Item15>
<Item18> <Item16>
<Filename Value="mbColorPreview.pas"/> <Filename Value="mbColorPreview.pas"/>
<UnitName Value="mbColorPreview"/> <UnitName Value="mbColorPreview"/>
</Item18> </Item16>
<Item19> <Item17>
<Filename Value="Scanlines.pas"/> <Filename Value="Scanlines.pas"/>
<UnitName Value="Scanlines"/> <UnitName Value="Scanlines"/>
</Item19> </Item17>
<Item20> <Item18>
<Filename Value="mbColorPickerControl.pas"/> <Filename Value="mbColorPickerControl.pas"/>
<UnitName Value="mbColorPickerControl"/> <UnitName Value="mbColorPickerControl"/>
</Item20> </Item18>
<Item21> <Item19>
<Filename Value="BAxisColorPicker.pas"/> <Filename Value="BAxisColorPicker.pas"/>
<UnitName Value="BAxisColorPicker"/> <UnitName Value="BAxisColorPicker"/>
</Item21> </Item19>
<Item22> <Item20>
<Filename Value="GAxisColorPicker.pas"/> <Filename Value="GAxisColorPicker.pas"/>
<UnitName Value="GAxisColorPicker"/> <UnitName Value="GAxisColorPicker"/>
</Item22> </Item20>
<Item23> <Item21>
<Filename Value="RAxisColorPicker.pas"/> <Filename Value="RAxisColorPicker.pas"/>
<UnitName Value="RAxisColorPicker"/> <UnitName Value="RAxisColorPicker"/>
</Item23> </Item21>
<Item24> <Item22>
<Filename Value="CIEAColorPicker.pas"/> <Filename Value="CIEAColorPicker.pas"/>
<UnitName Value="CIEAColorPicker"/> <UnitName Value="CIEAColorPicker"/>
</Item24> </Item22>
<Item25> <Item23>
<Filename Value="CIEBColorPicker.pas"/> <Filename Value="CIEBColorPicker.pas"/>
<UnitName Value="CIEBColorPicker"/> <UnitName Value="CIEBColorPicker"/>
</Item25> </Item23>
<Item26> <Item24>
<Filename Value="CIELColorPicker.pas"/> <Filename Value="CIELColorPicker.pas"/>
<UnitName Value="CIELColorPicker"/> <UnitName Value="CIELColorPicker"/>
</Item26> </Item24>
<Item27> <Item25>
<Filename Value="HRingPicker.pas"/> <Filename Value="HRingPicker.pas"/>
<UnitName Value="HRingPicker"/> <UnitName Value="HRingPicker"/>
</Item27> </Item25>
<Item28> <Item26>
<Filename Value="HexaColorPicker.pas"/> <Filename Value="HexaColorPicker.pas"/>
<UnitName Value="HexaColorPicker"/> <UnitName Value="HexaColorPicker"/>
</Item28> </Item26>
<Item29> <Item27>
<Filename Value="HSColorPicker.pas"/> <Filename Value="HSColorPicker.pas"/>
<UnitName Value="HSColorPicker"/> <UnitName Value="HSColorPicker"/>
</Item29> </Item27>
<Item30> <Item28>
<Filename Value="SLColorPicker.pas"/> <Filename Value="SLColorPicker.pas"/>
<UnitName Value="SLColorPicker"/> <UnitName Value="SLColorPicker"/>
</Item30> </Item28>
<Item31> <Item29>
<Filename Value="SLHColorPicker.pas"/> <Filename Value="SLHColorPicker.pas"/>
<UnitName Value="SLHColorPicker"/> <UnitName Value="SLHColorPicker"/>
</Item31> </Item29>
<Item32> <Item30>
<Filename Value="HSVColorPicker.pas"/> <Filename Value="HSVColorPicker.pas"/>
<UnitName Value="HSVColorPicker"/> <UnitName Value="HSVColorPicker"/>
</Item32> </Item30>
<Item33> <Item31>
<Filename Value="SelPropUtils.pas"/> <Filename Value="SelPropUtils.pas"/>
<UnitName Value="SelPropUtils"/> <UnitName Value="SelPropUtils"/>
</Item33> </Item31>
<Item34> <Item32>
<Filename Value="mbOfficeColorDialog.pas"/> <Filename Value="mbOfficeColorDialog.pas"/>
<UnitName Value="mbOfficeColorDialog"/> <UnitName Value="mbOfficeColorDialog"/>
</Item34> </Item32>
<Item35> <Item33>
<Filename Value="OfficeMoreColorsDialog.pas"/> <Filename Value="OfficeMoreColorsDialog.pas"/>
<UnitName Value="OfficeMoreColorsDialog"/> <UnitName Value="OfficeMoreColorsDialog"/>
</Item35> </Item33>
<Item36> <Item34>
<Filename Value="HSLColorPicker.pas"/> <Filename Value="HSLColorPicker.pas"/>
<UnitName Value="HSLColorPicker"/> <UnitName Value="HSLColorPicker"/>
</Item36> </Item34>
<Item37> <Item35>
<Filename Value="mbColorPalette.pas"/> <Filename Value="mbColorPalette.pas"/>
<UnitName Value="mbColorPalette"/> <UnitName Value="mbColorPalette"/>
</Item37> </Item35>
<Item38> <Item36>
<Filename Value="CColorPicker.pas"/> <Filename Value="CColorPicker.pas"/>
<UnitName Value="CColorPicker"/> <UnitName Value="CColorPicker"/>
</Item38> </Item36>
<Item39> <Item37>
<Filename Value="SColorPicker.pas"/> <Filename Value="SColorPicker.pas"/>
<UnitName Value="SColorPicker"/> <UnitName Value="SColorPicker"/>
</Item39> </Item37>
<Item40> <Item38>
<Filename Value="mbDeskPickerButton.pas"/> <Filename Value="mbDeskPickerButton.pas"/>
<UnitName Value="mbDeskPickerButton"/> <UnitName Value="mbDeskPickerButton"/>
</Item40> </Item38>
<Item41> <Item39>
<Filename Value="ScreenWin.pas"/> <Filename Value="ScreenWin.pas"/>
<UnitName Value="ScreenWin"/> <UnitName Value="ScreenWin"/>
</Item41> </Item39>
<Item42> <Item40>
<Filename Value="mbColorTree.pas"/> <Filename Value="mbColorTree.pas"/>
<UnitName Value="mbColorTree"/> <UnitName Value="mbColorTree"/>
</Item42> </Item40>
<Item43> <Item41>
<Filename Value="HSLRingPicker.pas"/> <Filename Value="HSLRingPicker.pas"/>
<UnitName Value="HSLRingPicker"/> <UnitName Value="HSLRingPicker"/>
</Item43> </Item41>
<Item44> <Item42>
<Filename Value="mbBasicPicker.pas"/> <Filename Value="mbBasicPicker.pas"/>
<UnitName Value="mbBasicPicker"/> <UnitName Value="mbBasicPicker"/>
</Item44> </Item42>
<Item45> <Item43>
<Filename Value="mbutils.pas"/> <Filename Value="mbutils.pas"/>
<UnitName Value="mbUtils"/> <UnitName Value="mbUtils"/>
</Item45> </Item43>
<Item46> <Item44>
<Filename Value="mbReg.pas"/> <Filename Value="mbReg.pas"/>
<HasRegisterProc Value="True"/> <HasRegisterProc Value="True"/>
<AddToUsesPkgSection Value="False"/> <AddToUsesPkgSection Value="False"/>
<UnitName Value="mbReg"/> <UnitName Value="mbReg"/>
</Item46> </Item44>
<Item47> <Item45>
<Filename Value="mbcolorconv.pas"/> <Filename Value="mbcolorconv.pas"/>
<UnitName Value="mbcolorconv"/> <UnitName Value="mbcolorconv"/>
</Item47> </Item45>
<Item48> <Item46>
<Filename Value="LVColorPicker.pas"/> <Filename Value="LVColorPicker.pas"/>
<UnitName Value="LVColorPicker"/> <UnitName Value="LVColorPicker"/>
</Item48> </Item46>
</Files> </Files>
<RequiredPkgs Count="3"> <RequiredPkgs Count="3">
<Item1> <Item1>