You've already forked lazarus-ccr
mbColorLib: Use single registration file (instead of one for each component). Facilitate usage of Layout for trackbars. Reformat code.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5462 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -47,22 +47,11 @@ type
|
||||
property OnChange;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R BAxisColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TBAxisColorPicker]);
|
||||
end;
|
||||
|
||||
{TBAxisColorPicker}
|
||||
|
||||
constructor TBAxisColorPicker.Create(AOwner: TComponent);
|
||||
|
||||
@ -44,21 +44,12 @@ type
|
||||
property Layout default lyVertical;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R BColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TBColorPicker]);
|
||||
end;
|
||||
|
||||
{TBColorPicker}
|
||||
|
||||
@ -67,17 +58,12 @@ begin
|
||||
inherited;
|
||||
FGradientWidth := 256;
|
||||
FGradientHeight := 12;
|
||||
SetInitialBounds(0, 0, 22, 268);
|
||||
{
|
||||
Width := 22;
|
||||
Height := 268;
|
||||
}
|
||||
Layout := lyVertical;
|
||||
FRed := 122;
|
||||
FGreen := 122;
|
||||
FBlue := 255;
|
||||
FArrowPos := ArrowPosFromBlue(255);
|
||||
FChange := false;
|
||||
Layout := lyVertical;
|
||||
SetBlue(255);
|
||||
HintFormat := 'Blue: %value';
|
||||
FManual := false;
|
||||
|
||||
@ -43,22 +43,11 @@ type
|
||||
property Layout default lyVertical;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R CColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TCColorPicker]);
|
||||
end;
|
||||
|
||||
{TCColorPicker}
|
||||
|
||||
constructor TCColorPicker.Create(AOwner: TComponent);
|
||||
@ -66,16 +55,13 @@ begin
|
||||
inherited;
|
||||
FGradientWidth := 256;
|
||||
FGradientHeight := 12;
|
||||
SetInitialBounds(0, 0, 22, 267);
|
||||
//Width := 22;
|
||||
//Height := 267;
|
||||
Layout := lyVertical;
|
||||
FCyan := 255;
|
||||
FMagenta := 0;
|
||||
FYellow := 0;
|
||||
FBlack := 0;
|
||||
FArrowPos := ArrowPosFromCyan(255);
|
||||
FChange := false;
|
||||
Layout := lyVertical;
|
||||
SetCyan(255);
|
||||
HintFormat := 'Cyan: %value';
|
||||
FManual := false;
|
||||
|
||||
@ -47,21 +47,12 @@ type
|
||||
property OnChange;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R CIEAColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TCIEAColorPicker]);
|
||||
end;
|
||||
|
||||
{TCIEAColorPicker}
|
||||
|
||||
|
||||
@ -50,21 +50,12 @@ type
|
||||
property OnChange;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R CIEBColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TCIEBColorPicker]);
|
||||
end;
|
||||
|
||||
{TCIEBColorPicker}
|
||||
|
||||
|
||||
@ -47,22 +47,12 @@ type
|
||||
property OnChange;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R CIELColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TCIELColorPicker]);
|
||||
end;
|
||||
|
||||
{TCIELColorPicker}
|
||||
|
||||
constructor TCIELColorPicker.Create(AOwner: TComponent);
|
||||
|
||||
@ -46,6 +46,7 @@ object Form1: TForm1
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
TabIndex = 0
|
||||
TabOrder = 0
|
||||
OnMouseMove = PageControl1MouseMove
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'HSLColorPicker'
|
||||
ClientHeight = 303
|
||||
@ -55,7 +56,7 @@ object Form1: TForm1
|
||||
Height = 287
|
||||
Top = 8
|
||||
Width = 377
|
||||
SelectedColor = 494343
|
||||
SelectedColor = 424966
|
||||
HSPickerHintFormat = 'H: %h S: %s'#13'Hex: %hex'
|
||||
LPickerHintFormat = 'Luminance: %l'
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
@ -217,7 +218,7 @@ object Form1: TForm1
|
||||
Left = 0
|
||||
Height = 234
|
||||
Top = 0
|
||||
Width = 360
|
||||
Width = 364
|
||||
Align = alTop
|
||||
Colors.Strings = (
|
||||
'clBlack'
|
||||
@ -585,14 +586,14 @@ object Form1: TForm1
|
||||
end
|
||||
object TabSheet5: TTabSheet
|
||||
Caption = 'HSVColorPicker'
|
||||
ClientHeight = 299
|
||||
ClientWidth = 389
|
||||
ClientHeight = 303
|
||||
ClientWidth = 391
|
||||
ImageIndex = 4
|
||||
object HSVColorPicker1: THSVColorPicker
|
||||
Left = 24
|
||||
Height = 285
|
||||
Height = 289
|
||||
Top = 6
|
||||
Width = 297
|
||||
Width = 328
|
||||
HintFormat = 'H: %h S: %s V: %v'#13'Hex: %hex'
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
TabOrder = 0
|
||||
@ -600,11 +601,12 @@ object Form1: TForm1
|
||||
OnChange = HSVColorPicker1Change
|
||||
end
|
||||
object VColorPicker2: TVColorPicker
|
||||
Left = 332
|
||||
Height = 293
|
||||
Left = 360
|
||||
Height = 302
|
||||
Top = 2
|
||||
Width = 22
|
||||
HintFormat = 'Value: %v'
|
||||
Layout = lyVertical
|
||||
NewArrowStyle = True
|
||||
Anchors = [akTop, akRight, akBottom]
|
||||
TabOrder = 1
|
||||
@ -614,14 +616,14 @@ object Form1: TForm1
|
||||
end
|
||||
object TabSheet6: TTabSheet
|
||||
Caption = 'SLHColorPicker'
|
||||
ClientHeight = 299
|
||||
ClientWidth = 389
|
||||
ClientHeight = 303
|
||||
ClientWidth = 391
|
||||
ImageIndex = 5
|
||||
object SLHColorPicker1: TSLHColorPicker
|
||||
Left = 5
|
||||
Height = 287
|
||||
Height = 291
|
||||
Top = 6
|
||||
Width = 379
|
||||
Width = 381
|
||||
HPickerHintFormat = 'Hue: %h'
|
||||
SLPickerHintFormat = 'S: %s L: %l'#13'Hex: %hex'
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
@ -701,7 +703,6 @@ object Form1: TForm1
|
||||
Top = 192
|
||||
Width = 343
|
||||
HintFormat = 'Luminance: %l'
|
||||
Layout = lyHorizontal
|
||||
SelectionIndicator = siRect
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
TabOrder = 2
|
||||
@ -715,7 +716,6 @@ object Form1: TForm1
|
||||
Top = 160
|
||||
Width = 343
|
||||
HintFormat = 'Value: %v'
|
||||
Layout = lyHorizontal
|
||||
ArrowPlacement = spBefore
|
||||
NewArrowStyle = True
|
||||
SelectionIndicator = siRect
|
||||
|
||||
@ -103,6 +103,8 @@ type
|
||||
Memo1: TMemo;
|
||||
Label9: TLabel;
|
||||
CheckBox4: TCheckBox;
|
||||
procedure PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
procedure tb1Change(Sender: TObject);
|
||||
procedure tb2Change(Sender: TObject);
|
||||
procedure HSLColorPicker1Change(Sender: TObject);
|
||||
@ -192,7 +194,7 @@ end;
|
||||
procedure TForm1.HexaColorPicker1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
uc.color := hexacolorpicker1.ColorUnderCursor;
|
||||
uc.color := hexacolorpicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button1Click(Sender: TObject);
|
||||
@ -224,7 +226,7 @@ end;
|
||||
procedure TForm1.HSLRingPicker1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
uc.color := HSLRingPicker1.ColorUnderCursor;
|
||||
uc.color := HSLRingPicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HSVColorPicker1Change(Sender: TObject);
|
||||
@ -248,7 +250,7 @@ end;
|
||||
procedure TForm1.SLHColorPicker1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
uc.color := SLHColorPicker1.ColorUnderCursor;
|
||||
uc.color := SLHColorPicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.mbDeskPickerButton1SelColorChange(Sender: TObject);
|
||||
@ -257,32 +259,38 @@ sc.color := mbDeskPickerButton1.SelectedColor;
|
||||
uc.color := mbDeskPickerButton1.SelectedColor;
|
||||
end;
|
||||
|
||||
procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
begin
|
||||
uc.color := HSLColorpicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button3Click(Sender: TObject);
|
||||
begin
|
||||
if mbOfficeColorDialog1.Execute then
|
||||
sc.color := mbOfficeColorDialog1.SelectedColor;
|
||||
if mbOfficeColorDialog1.Execute then
|
||||
sc.color := mbOfficeColorDialog1.SelectedColor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HSColorPicker1Change(Sender: TObject);
|
||||
begin
|
||||
sc.color := HSColorPicker1.SelectedColor;
|
||||
sc.color := HSColorPicker1.SelectedColor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HSColorPicker1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
uc.color := HSColorpicker1.ColorUnderCursor;
|
||||
uc.color := HSColorpicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.SLColorPicker1Change(Sender: TObject);
|
||||
begin
|
||||
sc.color := SLColorPicker1.SelectedColor;
|
||||
sc.color := SLColorPicker1.SelectedColor;
|
||||
end;
|
||||
|
||||
procedure TForm1.SLColorPicker1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
uc.color := slcolorpicker1.ColorUnderCursor;
|
||||
uc.color := slcolorpicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HRingPicker1Change(Sender: TObject);
|
||||
|
||||
@ -47,22 +47,11 @@ type
|
||||
property OnChange;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R GAxisColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TGAxisColorPicker]);
|
||||
end;
|
||||
|
||||
{TGAxisColorPicker}
|
||||
|
||||
constructor TGAxisColorPicker.Create(AOwner: TComponent);
|
||||
|
||||
@ -39,22 +39,11 @@ type
|
||||
property Layout default lyVertical;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R GColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TGColorPicker]);
|
||||
end;
|
||||
|
||||
{TGColorPicker}
|
||||
|
||||
constructor TGColorPicker.Create(AOwner: TComponent);
|
||||
@ -62,15 +51,12 @@ begin
|
||||
inherited;
|
||||
FGradientWidth := 256;
|
||||
FGradientHeight := 12;
|
||||
SetInitialBounds(0, 0, 22, 268);
|
||||
//Width := 22;
|
||||
//Height := 268;
|
||||
Layout := lyVertical;
|
||||
FRed := 122;
|
||||
FGreen := 255;
|
||||
FBlue := 122;
|
||||
FArrowPos := ArrowPosFromGreen(255);
|
||||
FChange := false;
|
||||
Layout := lyVertical;
|
||||
SetGreen(255);
|
||||
HintFormat := 'Green: %value';
|
||||
FManual := false;
|
||||
|
||||
@ -40,22 +40,12 @@ type
|
||||
property SelectedColor: TColor read GetSelectedColor write SetSelectedColor default clRed;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R HColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [THColorPicker]);
|
||||
end;
|
||||
|
||||
{THColorPicker}
|
||||
|
||||
constructor THColorPicker.Create(AOwner: TComponent);
|
||||
@ -63,12 +53,6 @@ begin
|
||||
inherited;
|
||||
FGradientWidth := 360;
|
||||
FGradientHeight := 12;
|
||||
{$IFDEF DELPHI}
|
||||
Width := 267;
|
||||
Height := 22;
|
||||
{$ELSE}
|
||||
SetInitialBounds(0, 0, 267, 22);
|
||||
{$ENDIF}
|
||||
FSat := 255;
|
||||
FVal := 255;
|
||||
FArrowPos := ArrowPosFromHue(0);
|
||||
|
||||
@ -61,23 +61,12 @@ type
|
||||
property OnChange;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R HRingPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [THRingPicker]);
|
||||
end;
|
||||
|
||||
|
||||
{ THRingPicker }
|
||||
|
||||
constructor THRingPicker.Create(AOwner: TComponent);
|
||||
|
||||
@ -51,22 +51,11 @@ type
|
||||
property OnChange;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R HSColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [THSColorPicker]);
|
||||
end;
|
||||
|
||||
{THSColorPicker}
|
||||
|
||||
constructor THSColorPicker.Create(AOwner: TComponent);
|
||||
|
||||
@ -9,114 +9,103 @@ interface
|
||||
{$I mxs.inc}
|
||||
|
||||
uses
|
||||
{$IFDEF FPC}
|
||||
LCLIntf, LCLType, LMessages,
|
||||
{$ELSE}
|
||||
Windows, Messages,
|
||||
{$ENDIF}
|
||||
SysUtils, Classes, Controls, Graphics, Forms, Menus,
|
||||
{$IFDEF DELPHI_7_UP} Themes, {$ENDIF}
|
||||
RGBHSLUtils, HSColorPicker, LColorPicker, HTMLColors, mbBasicPicker;
|
||||
{$IFDEF FPC}
|
||||
LCLIntf, LCLType, LMessages,
|
||||
{$ELSE}
|
||||
Windows, Messages,
|
||||
{$ENDIF}
|
||||
SysUtils, Classes, Controls, Graphics, Forms, Menus,
|
||||
{$IFDEF DELPHI_7_UP} Themes, {$ENDIF}
|
||||
RGBHSLUtils, HSColorPicker, LColorPicker, HTMLColors, mbBasicPicker;
|
||||
|
||||
type
|
||||
THSLColorPicker = class(TmbBasicPicker)
|
||||
private
|
||||
FOnChange: TNotifyEvent;
|
||||
FHSPicker: THSColorPicker;
|
||||
FLPicker: TLColorPicker;
|
||||
FSelectedColor: TColor;
|
||||
FHValue, FSValue, FLValue: integer;
|
||||
FRValue, FGValue, FBValue: integer;
|
||||
FHSHint, FLHint: string;
|
||||
FLMenu, FHSMenu: TPopupMenu;
|
||||
FLumIncrement: integer;
|
||||
FHSCursor, FLCursor: TCursor;
|
||||
PBack: TBitmap;
|
||||
|
||||
function GetManual: boolean;
|
||||
procedure SetLumIncrement(i: integer);
|
||||
procedure SelectColor(c: TColor);
|
||||
procedure SetH(v: integer);
|
||||
procedure SetS(v: integer);
|
||||
procedure SetL(v: integer);
|
||||
procedure SetR(v: integer);
|
||||
procedure SetG(v: integer);
|
||||
procedure SetB(v: integer);
|
||||
procedure SetHSHint(h: string);
|
||||
procedure SetLHint(h: string);
|
||||
procedure SetLMenu(m: TPopupMenu);
|
||||
procedure SetHSMenu(m: TPopupMenu);
|
||||
procedure SetHSCursor(c: TCursor);
|
||||
procedure SetLCursor(c: TCursor);
|
||||
procedure SetSelectedColor(Value: TColor);
|
||||
protected
|
||||
procedure CreateWnd; override;
|
||||
procedure Resize; override;
|
||||
procedure Paint; override;
|
||||
procedure PaintParentBack; override;
|
||||
procedure WMSetFocus(var Message: {$IFDEF FPC}TLMSetFocus{$ELSE}TWMSetFocus{$ENDIF});
|
||||
message {$IFDEF FPC}LM_SETFOCUS{$ELSE}WM_SETFOCUS{$ENDIF};
|
||||
procedure DoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
||||
procedure HSPickerChange(Sender: TObject);
|
||||
procedure LPickerChange(Sender: TObject);
|
||||
procedure DoChange;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
function GetColorUnderCursor: TColor;
|
||||
function GetHexColorUnderCursor: string;
|
||||
function GetSelectedHexColor: string;
|
||||
property ColorUnderCursor: TColor read GetColorUnderCursor;
|
||||
property HValue: integer read FHValue write SetH default 0;
|
||||
property SValue: integer read FSValue write SetS default 240;
|
||||
property LValue: integer read FLValue write SetL default 120;
|
||||
property RValue: integer read FRValue write SetR default 255;
|
||||
property GValue: integer read FGValue write SetG default 0;
|
||||
property BValue: integer read FBValue write SetB default 0;
|
||||
property Manual: boolean read GetManual;
|
||||
published
|
||||
property LuminanceIncrement: integer read FLumIncrement write SetLumIncrement default 1;
|
||||
property SelectedColor: TColor read FSelectedColor write SetSelectedColor default clRed;
|
||||
property HSPickerPopupMenu: TPopupMenu read FHSMenu write SetHSMenu;
|
||||
property LPickerPopupMenu: TPopupMenu read FLMenu write SetLMenu;
|
||||
property HSPickerHintFormat: string read FHSHint write SetHSHint;
|
||||
property LPickerHintFormat: string read FLHint write SetLHint;
|
||||
property HSPickerCursor: TCursor read FHSCursor write SetHSCursor default crDefault;
|
||||
property LPickerCursor: TCursor read FLCursor write SetLCursor default crDefault;
|
||||
property TabStop default true;
|
||||
property ShowHint;
|
||||
property ParentShowHint;
|
||||
property Anchors;
|
||||
property Align;
|
||||
property Visible;
|
||||
property Enabled;
|
||||
property TabOrder;
|
||||
property Color;
|
||||
property ParentColor default true;
|
||||
{$IFDEF DELPHI_7_UP}{$IFDEF DELPHI}
|
||||
property ParentBackground default true;
|
||||
{$ENDIF}{$ENDIF}
|
||||
|
||||
property OnChange: TNotifyEvent read FOnChange write FOnChange;
|
||||
property OnMouseMove;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
THSLColorPicker = class(TmbBasicPicker)
|
||||
private
|
||||
FOnChange: TNotifyEvent;
|
||||
FHSPicker: THSColorPicker;
|
||||
FLPicker: TLColorPicker;
|
||||
FSelectedColor: TColor;
|
||||
FHValue, FSValue, FLValue: integer;
|
||||
FRValue, FGValue, FBValue: integer;
|
||||
FHSHint, FLHint: string;
|
||||
FLMenu, FHSMenu: TPopupMenu;
|
||||
FLumIncrement: integer;
|
||||
FHSCursor, FLCursor: TCursor;
|
||||
PBack: TBitmap;
|
||||
function GetManual: boolean;
|
||||
procedure SetLumIncrement(i: integer);
|
||||
procedure SelectColor(c: TColor);
|
||||
procedure SetH(v: integer);
|
||||
procedure SetS(v: integer);
|
||||
procedure SetL(v: integer);
|
||||
procedure SetR(v: integer);
|
||||
procedure SetG(v: integer);
|
||||
procedure SetB(v: integer);
|
||||
procedure SetHSHint(h: string);
|
||||
procedure SetLHint(h: string);
|
||||
procedure SetLMenu(m: TPopupMenu);
|
||||
procedure SetHSMenu(m: TPopupMenu);
|
||||
procedure SetHSCursor(c: TCursor);
|
||||
procedure SetLCursor(c: TCursor);
|
||||
procedure SetSelectedColor(Value: TColor);
|
||||
protected
|
||||
procedure CreateWnd; override;
|
||||
procedure Resize; override;
|
||||
procedure Paint; override;
|
||||
procedure PaintParentBack; override;
|
||||
procedure WMSetFocus(var Message: {$IFDEF FPC}TLMSetFocus{$ELSE}TWMSetFocus{$ENDIF});
|
||||
message {$IFDEF FPC}LM_SETFOCUS{$ELSE}WM_SETFOCUS{$ENDIF};
|
||||
procedure DoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
||||
procedure HSPickerChange(Sender: TObject);
|
||||
procedure LPickerChange(Sender: TObject);
|
||||
procedure DoChange;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
function GetColorUnderCursor: TColor;
|
||||
function GetHexColorUnderCursor: string;
|
||||
function GetSelectedHexColor: string;
|
||||
property ColorUnderCursor: TColor read GetColorUnderCursor;
|
||||
property HValue: integer read FHValue write SetH default 0;
|
||||
property SValue: integer read FSValue write SetS default 240;
|
||||
property LValue: integer read FLValue write SetL default 120;
|
||||
property RValue: integer read FRValue write SetR default 255;
|
||||
property GValue: integer read FGValue write SetG default 0;
|
||||
property BValue: integer read FBValue write SetB default 0;
|
||||
property Manual: boolean read GetManual;
|
||||
published
|
||||
property LuminanceIncrement: integer read FLumIncrement write SetLumIncrement default 1;
|
||||
property SelectedColor: TColor read FSelectedColor write SetSelectedColor default clRed;
|
||||
property HSPickerPopupMenu: TPopupMenu read FHSMenu write SetHSMenu;
|
||||
property LPickerPopupMenu: TPopupMenu read FLMenu write SetLMenu;
|
||||
property HSPickerHintFormat: string read FHSHint write SetHSHint;
|
||||
property LPickerHintFormat: string read FLHint write SetLHint;
|
||||
property HSPickerCursor: TCursor read FHSCursor write SetHSCursor default crDefault;
|
||||
property LPickerCursor: TCursor read FLCursor write SetLCursor default crDefault;
|
||||
property TabStop default true;
|
||||
property ShowHint;
|
||||
property ParentShowHint;
|
||||
property Anchors;
|
||||
property Align;
|
||||
property Visible;
|
||||
property Enabled;
|
||||
property TabOrder;
|
||||
property Color;
|
||||
property ParentColor default true;
|
||||
{$IFDEF DELPHI_7_UP}{$IFDEF DELPHI}
|
||||
property ParentBackground default true;
|
||||
{$ENDIF}{$ENDIF}
|
||||
property OnChange: TNotifyEvent read FOnChange write FOnChange;
|
||||
property OnMouseMove;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R HSLColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [THSLColorPicker]);
|
||||
end;
|
||||
|
||||
{THSLColorPicker}
|
||||
|
||||
uses
|
||||
mbTrackbarPicker;
|
||||
|
||||
constructor THSLColorPicker.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
@ -155,6 +144,7 @@ begin
|
||||
InsertControl(FLPicker);
|
||||
with FLPicker do
|
||||
begin
|
||||
Layout := lyVertical;
|
||||
SetInitialBounds(184, 0, 25, 146);
|
||||
{
|
||||
Height := 146;
|
||||
@ -178,169 +168,169 @@ end;
|
||||
|
||||
destructor THSLColorPicker.Destroy;
|
||||
begin
|
||||
PBack.Free;
|
||||
FHSPicker.Free;
|
||||
FLPicker.Free;
|
||||
inherited Destroy;
|
||||
PBack.Free;
|
||||
FHSPicker.Free;
|
||||
FLPicker.Free;
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.HSPickerChange(Sender: TObject);
|
||||
begin
|
||||
FLPicker.Hue := FHSPicker.HueValue;
|
||||
FLPicker.Saturation := FHSPicker.SaturationValue;
|
||||
DoChange;
|
||||
FLPicker.Hue := FHSPicker.HueValue;
|
||||
FLPicker.Saturation := FHSPicker.SaturationValue;
|
||||
DoChange;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.LPickerChange(Sender: TObject);
|
||||
begin
|
||||
FHSPicker.Lum := FLPicker.Luminance;
|
||||
FSelectedColor := FLPicker.SelectedColor;
|
||||
DoChange;
|
||||
FHSPicker.Lum := FLPicker.Luminance;
|
||||
FSelectedColor := FLPicker.SelectedColor;
|
||||
DoChange;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.DoChange;
|
||||
begin
|
||||
FHValue := FLPicker.Hue;
|
||||
FSValue := FLPicker.Saturation;
|
||||
FLValue := FLPicker.Luminance;
|
||||
FRValue := GetRValue(FLPicker.SelectedColor);
|
||||
FGValue := GetGValue(FLPicker.SelectedColor);
|
||||
FBValue := GetBValue(FLPicker.SelectedColor);
|
||||
if Assigned(FOnChange) then
|
||||
FOnChange(Self);
|
||||
FHValue := FLPicker.Hue;
|
||||
FSValue := FLPicker.Saturation;
|
||||
FLValue := FLPicker.Luminance;
|
||||
FRValue := GetRValue(FLPicker.SelectedColor);
|
||||
FGValue := GetGValue(FLPicker.SelectedColor);
|
||||
FBValue := GetBValue(FLPicker.SelectedColor);
|
||||
if Assigned(FOnChange) then
|
||||
FOnChange(Self);
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SelectColor(c: TColor);
|
||||
begin
|
||||
FSelectedColor := c;
|
||||
FHSPicker.SelectedColor := c;
|
||||
FLPicker.SelectedColor := c;
|
||||
FSelectedColor := c;
|
||||
FHSPicker.SelectedColor := c;
|
||||
FLPicker.SelectedColor := c;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetH(v: integer);
|
||||
begin
|
||||
FHValue := v;
|
||||
FHSPicker.HueValue := v;
|
||||
FLPicker.Hue := v;
|
||||
FHValue := v;
|
||||
FHSPicker.HueValue := v;
|
||||
FLPicker.Hue := v;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetS(v: integer);
|
||||
begin
|
||||
FSValue := v;
|
||||
FHSPicker.SaturationValue := v;
|
||||
FLPicker.Saturation := v;
|
||||
FSValue := v;
|
||||
FHSPicker.SaturationValue := v;
|
||||
FLPicker.Saturation := v;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetL(v: integer);
|
||||
begin
|
||||
FLValue := v;
|
||||
FLPicker.Luminance := v;
|
||||
FLValue := v;
|
||||
FLPicker.Luminance := v;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetR(v: integer);
|
||||
begin
|
||||
FRValue := v;
|
||||
SetSelectedColor(RGB(FRValue, FGValue, FBValue));
|
||||
FRValue := v;
|
||||
SetSelectedColor(RGB(FRValue, FGValue, FBValue));
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetG(v: integer);
|
||||
begin
|
||||
FGValue := v;
|
||||
SetSelectedColor(RGB(FRValue, FGValue, FBValue));
|
||||
FGValue := v;
|
||||
SetSelectedColor(RGB(FRValue, FGValue, FBValue));
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetB(v: integer);
|
||||
begin
|
||||
FBValue := v;
|
||||
SetSelectedColor(RGB(FRValue, FGValue, FBValue));
|
||||
FBValue := v;
|
||||
SetSelectedColor(RGB(FRValue, FGValue, FBValue));
|
||||
end;
|
||||
|
||||
function THSLColorPicker.GetSelectedHexColor: string;
|
||||
begin
|
||||
Result := ColorToHex(FSelectedColor);
|
||||
Result := ColorToHex(FSelectedColor);
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetHSHint(h: string);
|
||||
begin
|
||||
FHSHint := h;
|
||||
FHSPicker.HintFormat := h;
|
||||
FHSHint := h;
|
||||
FHSPicker.HintFormat := h;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetLHint(h: string);
|
||||
begin
|
||||
FLHint := h;
|
||||
FLPicker.HintFormat := h;
|
||||
FLHint := h;
|
||||
FLPicker.HintFormat := h;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetLMenu(m: TPopupMenu);
|
||||
begin
|
||||
FLMenu := m;
|
||||
FLPicker.PopupMenu := m;
|
||||
FLMenu := m;
|
||||
FLPicker.PopupMenu := m;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetHSMenu(m: TPopupMenu);
|
||||
begin
|
||||
FHSMenu := m;
|
||||
FHSPicker.PopupMenu := m;
|
||||
FHSMenu := m;
|
||||
FHSPicker.PopupMenu := m;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetLumIncrement(i: integer);
|
||||
begin
|
||||
FLumIncrement := i;
|
||||
FLPicker.Increment := i;
|
||||
FLumIncrement := i;
|
||||
FLPicker.Increment := i;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.DoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
if Assigned(OnMouseMove) then
|
||||
OnMouseMove(Self, Shift, x, y);
|
||||
inherited;
|
||||
if Assigned(OnMouseMove) then
|
||||
OnMouseMove(Self, Shift, x, y);
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function THSLColorPicker.GetColorUnderCursor: TColor;
|
||||
begin
|
||||
Result := FHSPicker.GetColorUnderCursor;
|
||||
Result := FHSPicker.GetColorUnderCursor;
|
||||
end;
|
||||
|
||||
function THSLColorPicker.GetHexColorUnderCursor: string;
|
||||
begin
|
||||
Result := FHSPicker.GetHexColorUnderCursor;
|
||||
Result := FHSPicker.GetHexColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetHSCursor(c: TCursor);
|
||||
begin
|
||||
FHSCursor := c;
|
||||
FHSPicker.Cursor := c;
|
||||
FHSCursor := c;
|
||||
FHSPicker.Cursor := c;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetLCursor(c: TCursor);
|
||||
begin
|
||||
FLCursor := c;
|
||||
FLPicker.Cursor := c;
|
||||
FLCursor := c;
|
||||
FLPicker.Cursor := c;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.WMSetFocus(
|
||||
var Message: {$IFDEF FPC}TLMSetFocus{$ELSE}TWMSetFocus{$ENDIF} );
|
||||
begin
|
||||
FHSPicker.SetFocus;
|
||||
Message.Result := 1;
|
||||
FHSPicker.SetFocus;
|
||||
Message.Result := 1;
|
||||
end;
|
||||
|
||||
function THSLColorPicker.GetManual:boolean;
|
||||
begin
|
||||
Result := FHSPicker.Manual or FLPicker.Manual;
|
||||
Result := FHSPicker.Manual or FLPicker.Manual;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.PaintParentBack;
|
||||
begin
|
||||
if PBack = nil then
|
||||
if PBack = nil then
|
||||
begin
|
||||
PBack := TBitmap.Create;
|
||||
PBack.PixelFormat := pf32bit;
|
||||
PBack := TBitmap.Create;
|
||||
PBack.PixelFormat := pf32bit;
|
||||
end;
|
||||
PBack.Width := Width;
|
||||
PBack.Height := Height;
|
||||
PaintParentBack(PBack);
|
||||
PBack.Width := Width;
|
||||
PBack.Height := Height;
|
||||
PaintParentBack(PBack);
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.Resize;
|
||||
@ -360,23 +350,23 @@ end;
|
||||
|
||||
procedure THSLColorPicker.CreateWnd;
|
||||
begin
|
||||
inherited;
|
||||
PaintParentBack;
|
||||
inherited;
|
||||
PaintParentBack;
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.Paint;
|
||||
begin
|
||||
PaintParentBack;
|
||||
Canvas.Draw(0, 0, PBack);
|
||||
PaintParentBack;
|
||||
Canvas.Draw(0, 0, PBack);
|
||||
end;
|
||||
|
||||
procedure THSLColorPicker.SetSelectedColor(Value: TColor);
|
||||
begin
|
||||
if FSelectedColor <> Value then
|
||||
if FSelectedColor <> Value then
|
||||
begin
|
||||
SelectColor(Value);
|
||||
//FLPicker.Hue := FHSPicker.HueValue;
|
||||
//FLPicker.Saturation := FHSPicker.SaturationValue;
|
||||
SelectColor(Value);
|
||||
//FLPicker.Hue := FHSPicker.HueValue;
|
||||
//FLPicker.Saturation := FHSPicker.SaturationValue;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -9,110 +9,96 @@ interface
|
||||
{$I mxs.inc}
|
||||
|
||||
uses
|
||||
{$IFDEF FPC}
|
||||
LCLIntf, LCLType, LMessages,
|
||||
{$ELSE}
|
||||
Windows, Messages,
|
||||
{$ENDIF}
|
||||
SysUtils, Classes, Controls, Graphics, Forms, Menus, Math,
|
||||
{$IFDEF DELPHI_7_UP}Themes,{$ENDIF}
|
||||
RGBHSLUtils, HRingPicker, SLColorPicker, HTMLColors, mbBasicPicker;
|
||||
{$IFDEF FPC}
|
||||
LCLIntf, LCLType, LMessages,
|
||||
{$ELSE}
|
||||
Windows, Messages,
|
||||
{$ENDIF}
|
||||
SysUtils, Classes, Controls, Graphics, Forms, Menus, Math,
|
||||
{$IFDEF DELPHI_7_UP}Themes,{$ENDIF}
|
||||
RGBHSLUtils, HRingPicker, SLColorPicker, HTMLColors, mbBasicPicker;
|
||||
|
||||
type
|
||||
THSLRingPicker = class(TmbBasicPicker)
|
||||
private
|
||||
FOnChange: TNotifyEvent;
|
||||
FRingPicker: THRingPicker;
|
||||
FSLPicker: TSLColorPicker;
|
||||
FSelectedColor: TColor;
|
||||
FHValue, FSValue, FLValue: integer;
|
||||
FRValue, FGValue, FBValue: integer;
|
||||
FRingHint, FSLHint: string;
|
||||
FSLMenu, FRingMenu: TPopupMenu;
|
||||
FSLCursor, FRingCursor: TCursor;
|
||||
PBack: TBitmap;
|
||||
|
||||
function GetManual: boolean;
|
||||
procedure SelectColor(c: TColor);
|
||||
procedure SetH(v: integer);
|
||||
procedure SetS(v: integer);
|
||||
procedure SetL(v: integer);
|
||||
procedure SetR(v: integer);
|
||||
procedure SetG(v: integer);
|
||||
procedure SetB(v: integer);
|
||||
procedure SetRingHint(h: string);
|
||||
procedure SetSLHint(h: string);
|
||||
procedure SetSLMenu(m: TPopupMenu);
|
||||
procedure SetRingMenu(m: TPopupMenu);
|
||||
procedure SetRingCursor(c: TCursor);
|
||||
procedure SetSLCursor(c: TCursor);
|
||||
protected
|
||||
procedure CreateWnd; override;
|
||||
procedure Paint; override;
|
||||
procedure DoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
||||
procedure RingPickerChange(Sender: TObject);
|
||||
procedure SLPickerChange(Sender: TObject);
|
||||
procedure DoChange;
|
||||
procedure Resize; override;
|
||||
{$IFDEF DELPHI}
|
||||
procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
|
||||
{$ELSE}
|
||||
procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS;
|
||||
{$ENDIF}
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
function GetColorUnderCursor: TColor;
|
||||
function GetHexColorUnderCursor: string;
|
||||
function GetSelectedHexColor: string;
|
||||
property ColorUnderCursor: TColor read GetColorUnderCursor;
|
||||
property HValue: integer read FHValue write SetH default 0;
|
||||
property SValue: integer read FSValue write SetS default 240;
|
||||
property LValue: integer read FLValue write SetL default 120;
|
||||
property RValue: integer read FRValue write SetR default 255;
|
||||
property GValue: integer read FGValue write SetG default 0;
|
||||
property BValue: integer read FBValue write SetB default 0;
|
||||
property Manual: boolean read GetManual;
|
||||
published
|
||||
property SelectedColor: TColor read FSelectedColor write SelectColor default clRed;
|
||||
property RingPickerPopupMenu: TPopupMenu read FRingMenu write SetRingMenu;
|
||||
property SLPickerPopupMenu: TPopupMenu read FSLMenu write SetSLMenu;
|
||||
property RingPickerHintFormat: string read FRingHint write SetRingHint;
|
||||
property SLPickerHintFormat: string read FSLHint write SetSLHint;
|
||||
property RingPickerCursor: TCursor read FRingCursor write SetRingCursor default crDefault;
|
||||
property SLPickerCursor: TCursor read FSLCursor write SetSLCursor default crDefault;
|
||||
property TabStop default true;
|
||||
property ShowHint;
|
||||
property ParentShowHint;
|
||||
property Anchors;
|
||||
property Align;
|
||||
property Visible;
|
||||
property Enabled;
|
||||
property TabOrder;
|
||||
property Color;
|
||||
property ParentColor default true;
|
||||
{$IFDEF DELPHI_7_UP} {$IFDEF DELPHI}
|
||||
property ParentBackground default true;
|
||||
{$ENDIF} {$ENDIF}
|
||||
|
||||
property OnChange: TNotifyEvent read FOnChange write FOnChange;
|
||||
property OnMouseMove;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
THSLRingPicker = class(TmbBasicPicker)
|
||||
private
|
||||
FOnChange: TNotifyEvent;
|
||||
FRingPicker: THRingPicker;
|
||||
FSLPicker: TSLColorPicker;
|
||||
FSelectedColor: TColor;
|
||||
FHValue, FSValue, FLValue: integer;
|
||||
FRValue, FGValue, FBValue: integer;
|
||||
FRingHint, FSLHint: string;
|
||||
FSLMenu, FRingMenu: TPopupMenu;
|
||||
FSLCursor, FRingCursor: TCursor;
|
||||
PBack: TBitmap;
|
||||
function GetManual: boolean;
|
||||
procedure SelectColor(c: TColor);
|
||||
procedure SetH(v: integer);
|
||||
procedure SetS(v: integer);
|
||||
procedure SetL(v: integer);
|
||||
procedure SetR(v: integer);
|
||||
procedure SetG(v: integer);
|
||||
procedure SetB(v: integer);
|
||||
procedure SetRingHint(h: string);
|
||||
procedure SetSLHint(h: string);
|
||||
procedure SetSLMenu(m: TPopupMenu);
|
||||
procedure SetRingMenu(m: TPopupMenu);
|
||||
procedure SetRingCursor(c: TCursor);
|
||||
procedure SetSLCursor(c: TCursor);
|
||||
protected
|
||||
procedure CreateWnd; override;
|
||||
procedure Paint; override;
|
||||
procedure DoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
||||
procedure RingPickerChange(Sender: TObject);
|
||||
procedure SLPickerChange(Sender: TObject);
|
||||
procedure DoChange;
|
||||
procedure Resize; override;
|
||||
{$IFDEF DELPHI}
|
||||
procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
|
||||
{$ELSE}
|
||||
procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS;
|
||||
{$ENDIF}
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
function GetColorUnderCursor: TColor;
|
||||
function GetHexColorUnderCursor: string;
|
||||
function GetSelectedHexColor: string;
|
||||
property ColorUnderCursor: TColor read GetColorUnderCursor;
|
||||
property HValue: integer read FHValue write SetH default 0;
|
||||
property SValue: integer read FSValue write SetS default 240;
|
||||
property LValue: integer read FLValue write SetL default 120;
|
||||
property RValue: integer read FRValue write SetR default 255;
|
||||
property GValue: integer read FGValue write SetG default 0;
|
||||
property BValue: integer read FBValue write SetB default 0;
|
||||
property Manual: boolean read GetManual;
|
||||
published
|
||||
property SelectedColor: TColor read FSelectedColor write SelectColor default clRed;
|
||||
property RingPickerPopupMenu: TPopupMenu read FRingMenu write SetRingMenu;
|
||||
property SLPickerPopupMenu: TPopupMenu read FSLMenu write SetSLMenu;
|
||||
property RingPickerHintFormat: string read FRingHint write SetRingHint;
|
||||
property SLPickerHintFormat: string read FSLHint write SetSLHint;
|
||||
property RingPickerCursor: TCursor read FRingCursor write SetRingCursor default crDefault;
|
||||
property SLPickerCursor: TCursor read FSLCursor write SetSLCursor default crDefault;
|
||||
property TabStop default true;
|
||||
property ShowHint;
|
||||
property ParentShowHint;
|
||||
property Anchors;
|
||||
property Align;
|
||||
property Visible;
|
||||
property Enabled;
|
||||
property TabOrder;
|
||||
property Color;
|
||||
property ParentColor default true;
|
||||
{$IFDEF DELPHI_7_UP} {$IFDEF DELPHI}
|
||||
property ParentBackground default true;
|
||||
{$ENDIF} {$ENDIF}
|
||||
property OnChange: TNotifyEvent read FOnChange write FOnChange;
|
||||
property OnMouseMove;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R HSLRingPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [THSLRingPicker]);
|
||||
end;
|
||||
|
||||
{THSLRingPicker}
|
||||
|
||||
constructor THSLRingPicker.Create(AOwner: TComponent);
|
||||
@ -192,8 +178,8 @@ end;
|
||||
|
||||
procedure THSLRingPicker.Resize;
|
||||
var
|
||||
circ: TPoint;
|
||||
ctr: double;
|
||||
circ: TPoint;
|
||||
ctr: double;
|
||||
begin
|
||||
inherited;
|
||||
if (FRingPicker = nil) or (FSLPicker = nil) then
|
||||
|
||||
@ -71,23 +71,11 @@ type
|
||||
property OnChange;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R HSVColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [THSVColorPicker]);
|
||||
end;
|
||||
|
||||
|
||||
{ THSVColorPicker }
|
||||
|
||||
constructor THSVColorPicker.Create(AOwner: TComponent);
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -43,22 +43,11 @@ type
|
||||
property Layout default lyVertical;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R KColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TKColorPicker]);
|
||||
end;
|
||||
|
||||
{TKColorPicker}
|
||||
|
||||
constructor TKColorPicker.Create(AOwner: TComponent);
|
||||
@ -66,16 +55,13 @@ begin
|
||||
inherited;
|
||||
FGradientWidth := 256;
|
||||
FGradientHeight := 12;
|
||||
SetInitialBounds(0, 0, 22, 267);
|
||||
//Width := 22;
|
||||
//Height := 267;
|
||||
Layout := lyVertical;
|
||||
FCyan := 0;
|
||||
FMagenta := 0;
|
||||
FYellow := 0;
|
||||
FBlack := 255;
|
||||
FArrowPos := ArrowPosFromBlack(255);
|
||||
FChange := false;
|
||||
Layout := lyVertical;
|
||||
SetBlack(255);
|
||||
HintFormat := 'Black: %value';
|
||||
FManual := false;
|
||||
|
||||
@ -38,25 +38,13 @@ type
|
||||
property Saturation: integer read FSat write SetSat default 240;
|
||||
property Luminance: integer read FLuminance write SetLuminance default 120;
|
||||
property SelectedColor: TColor read GetSelectedColor write SetSelectedColor default clRed;
|
||||
property Layout default lyVertical;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R LColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TLColorPicker]);
|
||||
end;
|
||||
|
||||
{TLColorPicker}
|
||||
|
||||
constructor TLColorPicker.Create(AOwner: TComponent);
|
||||
@ -64,8 +52,6 @@ begin
|
||||
inherited;
|
||||
FGradientWidth := 256;
|
||||
FGradientHeight := 12;
|
||||
SetInitialBounds(0, 0, 22, 267);
|
||||
Layout := lyVertical;
|
||||
FHue := 0;
|
||||
FSat := MaxSat;
|
||||
FArrowPos := ArrowPosFromLum(MaxLum div 2);
|
||||
|
||||
@ -43,22 +43,11 @@ type
|
||||
property Layout default lyVertical;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R MColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TMColorPicker]);
|
||||
end;
|
||||
|
||||
{TMColorPicker}
|
||||
|
||||
constructor TMColorPicker.Create(AOwner: TComponent);
|
||||
@ -66,16 +55,13 @@ begin
|
||||
inherited;
|
||||
FGradientWidth := 256;
|
||||
FGradientHeight := 12;
|
||||
// Width := 22;
|
||||
// Height := 267;
|
||||
SetInitialBounds(0, 0, 22, 267);
|
||||
Layout := lyVertical;
|
||||
FCyan := 0;
|
||||
FMagenta := 255;
|
||||
FYellow := 0;
|
||||
FBlack := 0;
|
||||
FArrowPos := ArrowPosFromMagenta(255);
|
||||
FChange := false;
|
||||
Layout := lyVertical;
|
||||
SetMagenta(255);
|
||||
HintFormat := 'Magenta: %value';
|
||||
FManual := false;
|
||||
|
||||
@ -47,22 +47,11 @@ type
|
||||
property OnChange;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R RAxisColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TRAxisColorPicker]);
|
||||
end;
|
||||
|
||||
{TRAxisColorPicker}
|
||||
|
||||
constructor TRAxisColorPicker.Create(AOwner: TComponent);
|
||||
|
||||
@ -44,21 +44,12 @@ type
|
||||
property Layout default lyVertical;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R RColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TRColorPicker]);
|
||||
end;
|
||||
|
||||
{TRColorPicker}
|
||||
|
||||
@ -67,15 +58,12 @@ begin
|
||||
inherited;
|
||||
FGradientWidth := 256;
|
||||
FGradientHeight := 12;
|
||||
SetInitialBounds(0, 0, 22, 268);
|
||||
// Width := 22;
|
||||
// Height := 268;
|
||||
Layout := lyVertical;
|
||||
FRed := 255;
|
||||
FGreen := 122;
|
||||
FBlue := 122;
|
||||
FArrowPos := ArrowPosFromRed(255);
|
||||
FChange := false;
|
||||
Layout := lyVertical;
|
||||
SetRed(255);
|
||||
HintFormat := 'Red: %value';
|
||||
FManual := false;
|
||||
|
||||
@ -40,22 +40,12 @@ type
|
||||
property SelectedColor: TColor read GetSelectedColor write SetSelectedColor default clRed;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R SColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TSColorPicker]);
|
||||
end;
|
||||
|
||||
{ TSColorPicker }
|
||||
|
||||
constructor TSColorPicker.Create(AOwner: TComponent);
|
||||
@ -63,8 +53,6 @@ begin
|
||||
inherited;
|
||||
FGradientWidth := 256;
|
||||
FGradientHeight := 12;
|
||||
Width := 267;
|
||||
Height := 22;
|
||||
FHue := 0;
|
||||
FVal := 255;
|
||||
FArrowPos := ArrowPosFromSat(0);
|
||||
|
||||
@ -50,21 +50,12 @@ type
|
||||
property OnChange;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R SLColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
ScanLines, RGBHSLUtils, HTMLColors, mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TSLColorPicker]);
|
||||
end;
|
||||
{ TSLColorPicker }
|
||||
|
||||
constructor TSLColorPicker.Create(AOwner: TComponent);
|
||||
begin
|
||||
|
||||
@ -95,14 +95,8 @@ type
|
||||
property OnMouseMove;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R SLHColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
const
|
||||
WSL = 255;
|
||||
HSL = 255;
|
||||
@ -110,11 +104,6 @@ const
|
||||
DIST = 2;
|
||||
VDELTA = 8;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TSLHColorPicker]);
|
||||
end;
|
||||
|
||||
{TSLHColorPicker}
|
||||
|
||||
constructor TSLHColorPicker.Create(AOwner: TComponent);
|
||||
@ -144,6 +133,7 @@ begin
|
||||
// Hue picker
|
||||
with FHPicker do
|
||||
begin
|
||||
Layout := lyVertical; // put before setting width and height
|
||||
{$IFDEF DELPHI}
|
||||
Left := 257;
|
||||
Top := 0;
|
||||
|
||||
@ -19,13 +19,10 @@ type
|
||||
TVColorPicker = class(TmbTrackBarPicker)
|
||||
private
|
||||
FHue, FSat, FVal: integer;
|
||||
// FVBmp: TBitmap;
|
||||
|
||||
function ArrowPosFromVal(l: integer): integer;
|
||||
function ValFromArrowPos(p: integer): integer;
|
||||
function GetSelectedColor: TColor;
|
||||
procedure SetSelectedColor(c: TColor);
|
||||
// procedure CreateVGradient;
|
||||
procedure SetHue(h: integer);
|
||||
procedure SetSat(s: integer);
|
||||
procedure SetValue(v: integer);
|
||||
@ -36,31 +33,15 @@ type
|
||||
function GetSelectedValue: integer; override;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
// destructor Destroy; override;
|
||||
published
|
||||
property Hue: integer read FHue write SetHue default 0;
|
||||
property Saturation: integer read FSat write SetSat default 0;
|
||||
property Value: integer read FVal write SetValue default 255;
|
||||
property SelectedColor: TColor read GetSelectedColor write SetSelectedColor default clRed;
|
||||
property Layout default lyVertical;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R VColorPicker.dcr}
|
||||
|
||||
{uses
|
||||
IntfGraphics, fpimage;}
|
||||
{$ENDIF}
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TVColorPicker]);
|
||||
end;
|
||||
|
||||
{TVColorPicker}
|
||||
|
||||
constructor TVColorPicker.Create(AOwner: TComponent);
|
||||
@ -68,15 +49,6 @@ begin
|
||||
inherited;
|
||||
FGradientWidth := 256;
|
||||
FGradientHeight := 12;
|
||||
{
|
||||
FVBmp := TBitmap.Create;
|
||||
FVBmp.PixelFormat := pf32bit;
|
||||
FVBmp.SetSize(12, 255);
|
||||
}
|
||||
// Width := 22;
|
||||
// Height := 267;
|
||||
SetInitialBounds(0, 0, 22, 267);
|
||||
Layout := lyVertical;
|
||||
FHue := 0;
|
||||
FSat := 0;
|
||||
FArrowPos := ArrowPosFromVal(255);
|
||||
|
||||
@ -44,22 +44,11 @@ type
|
||||
property Layout default lyVertical;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R YColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TYColorPicker]);
|
||||
end;
|
||||
|
||||
{TYColorPicker}
|
||||
|
||||
constructor TYColorPicker.Create(AOwner: TComponent);
|
||||
@ -67,15 +56,13 @@ begin
|
||||
inherited;
|
||||
FGradientWidth := 255;
|
||||
FGradientHeight := 12;
|
||||
Width := 22;
|
||||
Height := 267;
|
||||
Layout := lyVertical;
|
||||
FYellow := 255;
|
||||
FMagenta := 0;
|
||||
FCyan := 0;
|
||||
FBlack := 0;
|
||||
FArrowPos := ArrowPosFromYellow(255);
|
||||
FChange := false;
|
||||
Layout := lyVertical;
|
||||
SetYellow(255);
|
||||
HintFormat := 'Yellow: %value';
|
||||
FManual := false;
|
||||
|
||||
@ -127,19 +127,8 @@ type
|
||||
property OnStartDrag;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R mbColorList.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TmbColorList]);
|
||||
end;
|
||||
|
||||
//taken from GraphUtil, only for Delphi 5
|
||||
{$IFNDEF DELPHI_6_UP}
|
||||
|
||||
|
||||
@ -170,18 +170,9 @@ type
|
||||
property OnClick;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R mbColorPalette.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TmbColorPalette]);
|
||||
end;
|
||||
{ TmbColorPalette }
|
||||
|
||||
constructor TmbColorPalette.Create(AOwner: TComponent);
|
||||
begin
|
||||
|
||||
@ -71,21 +71,12 @@ type
|
||||
property OnDblClick;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R mbColorPreview.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
PalUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TmbColorPreview]);
|
||||
end;
|
||||
{ TmbColorPreview }
|
||||
|
||||
constructor TmbColorPreview.Create(AOwner: TComponent);
|
||||
begin
|
||||
|
||||
@ -160,22 +160,11 @@ type
|
||||
property Items;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R mbColorTree.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
PalUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TmbColorTree]);
|
||||
end;
|
||||
|
||||
//taken from GraphUtil, only for Delphi 5
|
||||
{$IFNDEF DELPHI_6_UP}
|
||||
|
||||
|
||||
@ -44,20 +44,9 @@ type
|
||||
property ShowScreenHint: boolean read FShowScreenHint write FShowScreenHint default false;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R mbDeskPickerButton.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TmbDeskPickerButton]);
|
||||
end;
|
||||
|
||||
constructor TmbDeskPickerButton.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -29,18 +29,9 @@ type
|
||||
property UseHints: boolean read FUseHint write FUseHint default false;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R mbOfficeColorDialog.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TmbOfficeColorDialog]);
|
||||
end;
|
||||
{ TmbOfficeColorDialog }
|
||||
|
||||
constructor TmbOfficeColorDialog.Create(AOwner: TComponent);
|
||||
begin
|
||||
|
||||
648
components/mbColorLib/mbReg.lrs
Normal file
648
components/mbColorLib/mbReg.lrs
Normal file
@ -0,0 +1,648 @@
|
||||
LazarusResources.Add('TYColorPicker','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#165'IDATH'#199#213#149
|
||||
+'A'#14#130'@'#12'E_'#21'%'#17't'#225'1='#11#135'%'#209#141#2#214#133#24'!'
|
||||
+#154#129#228#15#209#233#174#179#248'o'#218#254#206#192#194'a'#195#196#189'tY'
|
||||
+#208'.#'#205'l'#233#10#178'`'#26#31'p'#4#26'An'#3#212'!'#192#1#184#10#128'|'
|
||||
+#170#130#157#216#166#237#20#160#4'nQ'#1'/K'#245#246'<G'#24#235'~'#164'='#172
|
||||
+#192#220'O'#174#14#217#12'{_'#248'k'#139'T'#23#253#168'E'#246'|**'#135'VZ'
|
||||
+#171#190'E!'#155#182#241#246#246#243#164#0':'#1#176#158#179#7'i'#3#10#224'.'
|
||||
+#0'V'#127#1'P>5'#155'3'#131#180#127#180#4#227#1#247'N'#30#229#173#6'b$'#0#0#0
|
||||
+#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TBAxisColorPicker','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#1#24'IDATH'#199#237#212
|
||||
+'=/'#195'Q'#20#199#241'O'#169#191'RM'#212'b'#177'1'#216'L4X'#172#18#3#226#13
|
||||
+'X'#12'^'#5'#'#139#25#139#23'P'#27#131'Z4a"'#18#155#135#196#210#178#136'g'#29
|
||||
+'<$5 %R"'#237'_"q'#146#147#220#156'{s'#191#249#157'''B'#182#8'D'#31#139#197
|
||||
+'&'#188#247#248#171''''#202#156#191'z'#251#22#15#234'"'#145'('#184#11'O'#193
|
||||
+'/'#1#10'a'#3'n'#255#188#130'o'#0#205'1j'#159#240'T'#229#20'5'#199#152#25' '
|
||||
+#17#16#171#227#224#148#204#246#207'@e'#21'$c,'#12'2'#181#202#197#229'K'#127
|
||||
+#143'u3'#146'b%S'#5#192'x'#15'K['#228#242'/'#159#195#218#6#19#163#180'%'#185
|
||||
+#202'W8'#7#173#13#236#158'}'#190'+\'#19#175#225#234#174'B'#192#241#9#253#237
|
||||
+#236#239#149'b'#245#245't'#180#147'M'#19#220'W'#8#152'_fv'#130#201'a'#142#14
|
||||
+'ii'#164'7'#197#238'&'#15#231#4#213'h'#211#233'9'#134#250#232#234#228#161'@z'
|
||||
+#145#155'\'#169'&U'#153#131#236':;'#235#31#183#229#255#170#248#223#166'e'#0
|
||||
+#197#16#1#145#16'S'#20#186'='#3'J'#10'OT'#224'a'#206#144#0#0#0#0'IEND'#174'B'
|
||||
+'`'#130
|
||||
]);
|
||||
LazarusResources.Add('TBColorPicker','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#142'IDATH'#199'c`'#160
|
||||
+'1`$VaU'#213#239#255#164#24#220#214#198#202#200#192#192#192#192'B'#188#150'/'
|
||||
+'d'#249'`0Y'#240#149#214#22'|'#30#242'>'#160#208#130'5+f'#194#147'aHD:#U'#131
|
||||
+'h'#205#138#153#255#131#195#211#224#130'k'#24#24#254'cZB'#197' '#10#14'O'#195
|
||||
+'b'#9#149#227#0#211#18#26#228#3'TKh`'#193#218#149#179#24'h'#230#3'T'#195#169
|
||||
+#28#7#152#134'ShAHD:'#227#26#6#6#218#229#3#220#134#14#165#162'b$'#148#166#131
|
||||
+#180#202#164'9'#0#0#188#212'<{Tp~_'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TBColorPicker1','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#142'IDATH'#199'c`'#160
|
||||
+'1`$VaU'#213#239#255#164#24#220#214#198#202#200#192#192#192#192'B'#188#150'/'
|
||||
+'d'#249'`0Y'#240#149#214#22'|'#30#242'>'#160#208#130'5+f'#194#147'aHD:#U'#131
|
||||
+'h'#205#138#153#255#131#195#211#224#130'k'#24#24#254'cZB'#197' '#10#14'O'#195
|
||||
+'b'#9#149#227#0#211#18#26#228#3'TKh`'#193#218#149#179#24'h'#230#3'T'#195#169
|
||||
+#28#7#152#134'ShAHD:'#227#26#6#6#218#229#3#220#134#14#165#162'b$'#148#166#131
|
||||
+#180#202#164'9'#0#0#188#212'<{Tp~_'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TCColorPicker','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'rIDATH'#199#237#148'1'
|
||||
+#10#128'0'#12'E_'#160#155']'#245#178#158#197#11#218'+'#8'q'#144'B'#219#193
|
||||
+#197'Dh5['#151#23#222''''#191#224'<R>fU}'#10'L"'#21'3x'#27'T'#11'&'#3'`'#186
|
||||
+'['#16#189#13'b'#15#17#189'n'#144'OJ'#1'v'#3#224#210#176'K'#3'Y'#13'z'#192
|
||||
+#213#3#29'/"'#1#216#236'"'#26#232'L'#127#131#175#25't'#253#155#2'p'#24'494Mv'
|
||||
+#159#19'y'#240#21#254#153#205#127#188#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TCIEAColorPicker','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#2#191'IDATH'#199#181#149
|
||||
+#191'k'#20'A'#28#197'?'#179#247'#'#151'_"'#193#132'C!'#255#129#127#130'E'#210
|
||||
+#8#9#130#133#152'B'#136#169#18'll'#131#173#144#194#198'J'#8#218'i'#151#194'F'
|
||||
+#137#149#228#138#148#218#4'S'#152'B'#252#1#134'h'#226#253#218#217#157#189#221
|
||||
+#187']'#139#253#238'eo'#189#187#196'"'#3#143'9n'#231#222#155#247#222#236#13
|
||||
+'\'#240'P'#0#209#195'("'#128#30#180'S'#8#128'v'#7#130#26#4''''#208'>'#145#249
|
||||
+#15't'#142#5#191#161's'#8#209#1'D?!'#2#245#29#149#7#224#4#240'Sh'#1#30'`'#4
|
||||
+#30#224#25'hih'#11':N'#140'H'#128#11'h'#160#217#227' '#22#248'%D'#182'@'#203
|
||||
+'z_'#28#16#200#151#26'pRp3'#179'-sV'#224#11'P'#151#223#183#179')F'#25#210#132
|
||||
+'0A'#218#166#13#132'}'#4#190#13#171#201#19'e'#187#143#131#180#152'#'#207#233
|
||||
+'#0pt'#134'D'#147'u'#144'|'#254'/'#1#247#28#228#201#236'Hi'#231#22'heZw'#134
|
||||
+#20'ldMt^'#129'0E'#234#14#217#189#151':'#207'^_'#166'|'#146't'#174'o4'#195
|
||||
+#242'7'#25#17#127#176'@'#3#152#0#138' '#11#237#12#185#238#227' '#237#194#200
|
||||
+'6'#7#8#212#229#241'8!#8'#228#254'!w3'#153#167'b'#185'z'#25#180#13#205#240'l'
|
||||
+#129#0'C'#9#155#18#154#2#154#28#26'k'#208#9#154')'#193#206#11#152#186#4#19
|
||||
+#163#176#189#13#171#171'`'#219#131#4'|'#2'!/'#161')'#226'P'#16#228'p'#176'p'
|
||||
+#177'pQ'#24#212'L'#9'u'#240#10'n,'#193#254'G'#160#6'O6`k'#11#22#22#250#9#132
|
||||
+#132'8'#180#209#180'ph'#225'P'#196'!'#143'CQ'#136's'#184#228'0(\'#198#30'? |'
|
||||
+#244#148'`'#127#31#133#31#251'__g'#180'R!'#152#155#163'S'#169#196#127#211#167
|
||||
+#2#134#16'['#28#216#226'@S'#16#145'\'#202#133#194'02;'#141#253#230#7#6#31#133
|
||||
+#1'"'#20'`'#29#29'a'#202#229#158#247'9'#15'PC'#19#162#9#208#140#138#139#196
|
||||
+'A'#28#145#139#133#193#194#160#240#24#255#244#153#252#157#155#212#223#189#22
|
||||
+#7'`MNrmq'#145#175'kk='#175'[W B'#211#198#193'OE'#20';p'#187#2#10#131#133'Gc'
|
||||
+'}'#131#235'o'#159'S~'#249#140#250#206'{'#242'SS'#148'WV8'#220#220#164#214'l'
|
||||
+#158#222'd'#137'@U'#206'}'#220'Ao'#201#249'T'#193#137#136#162#197#238#173#219
|
||||
+#204#222#191#203#244#252'<A'#181#202#135#229'e'#236#189#189'.'#185'J_'#153'K'
|
||||
+#236'FW'#168'2I'#149'1'#26#148#168'R'#160'N'#129#6'y'#26'X4'#5'6'#10#23#176
|
||||
+'Q4'#186#217#247#144#165#4#238'!W'#230'1'#26#11'M'#7#7#31'M'#169#27#145'+'#5
|
||||
+#187#221#252#193#160#208'(!'#239#183'c'#149#237#224'PN'#13'RtK'#142'g\'#176
|
||||
+#145#130'='#20#158#144#183'{'#200#212#25'"'#23':'#254#2#132'T'#179'('#228''''
|
||||
+#128#226#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TCIEBColorPicker','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#3'WIDATH'#199#189#149#203
|
||||
+#139#28'U'#20#135#191#234#231'tUw'#143#153'!'#147'8'#139'YE'#196#165'('#226
|
||||
+'F$'#130#16'F'#144#8#179'7'#136#248#216#185#11'Y'#184#25#204'" '#248#31#248
|
||||
+#218#168#11#21#18#12'Yh'#130#11'7'#130#207#140#139'@'#16#196't'#156#153'd:'
|
||||
+#221'U5]'#213'U'#247'V'#185#184#167#186'nu'#26'f'#165#23#14'U'#171#243#221
|
||||
+#223#239'<.'#252#199#199#1' '''#7'x'#2'8'#3'<'#14'l'#0#235#192#163#192'*P'
|
||||
+#207#128#20#152#2#145#21#161#132#15#12#129#3#224'.'#240';8'#223#225'4l'#218#0
|
||||
+#216#5'N'#0#203#128#11't2h'#165#176#156#128#19#11' '#150#228#19#224#16#8#4
|
||||
+#224#3'#'#129#220'69+'#0#31#248#27#216#200'`Y'#131#171#160#147'@3'#129'F'#2
|
||||
+#221#233#17#128#177#0#238'J'#204#0'Y'#25#3#13#15#20#28'S'#224'%'#224#166#208
|
||||
+'N'#161#149'@s'#10#237'E'#128#208#130#140#128#191#196#206#25' '#4#20#160'aOb'
|
||||
+'E'#129#151#26'@+-U'#28#155'Bk'#190#6#190#165'`O'#188#198#6#248'&9'#26'&'#26
|
||||
+#254#209#176#174#160''''#16'[A='#129'G"h'#20#128#192'R0'#6#238#136#178#10' '
|
||||
+#16'@f'#148#236'j'#24#9#192'M'#161#173'D'#193#20'j'#9#212'#'#232'G'#230'['
|
||||
+#177#231#160'z'#251#18'0'#150#228#162#226#190#134'{'#26#250#150#130'Fj,'#170
|
||||
+'M'#165#155'"'#232'M'#160'a'#23'x 0'#22')'#200'J'#200'D k'#10#130#20#150#148
|
||||
+#169'CK,'#170#197'P'#147'"'#247#15#161#30'Jqw'#31#30#180'*@'#151#223'{'#26
|
||||
+#198#26'z'#22#160')'#10'j18E'#23#5#208#243#161#177'/J'#22#2#252'j'#171#162
|
||||
+#225#129#134#145#134'ee'#0#205#194'"'#25'8''2-'#154#7#144#251#208#219#131'f~'
|
||||
+#148#130#188#4'D'#2'x'#204']G'#167'!a'#232#211'J-'#139'&'#162' '#132'|'#8#217
|
||||
+#24#250'@'#139#163'j'#144#27#192#241#206#26'_'#189'~'#157#213#206#10'n'#187
|
||||
+#203#31';'#223'p'#245#211'7'#8#194'`fQ.'#10#178'}'#200#180'q'#184#15','#205
|
||||
+#150#156'mQ^*Xs'#215#184#245#206'-6?x'#142#236#206#14#199#21#188'u'#246#18'['
|
||||
+#175'}'#193'g'#23'7'#169'I'#23#229'!'#228'#s{'#171'|'#244#0#143#249'I'#206'J'
|
||||
+#200#246#203#219'\'#248#242#2#191#222#222#225#148#134#137#130#143'>9'#207#197
|
||||
+'wop'#242#212'i'#246#127#188#129'S'#172#137'!'#228#186'"~'#22#139'k'#144#195
|
||||
+'F'#127#131#203#131#203#232#0#226#12'"e'#134#237#224#254'.m'#247'$'#225#161
|
||||
+#241'?'#27#139'EVReEUA^Bn'#254'y'#147#173#167#182#248#246#251#171#168#12#18#5
|
||||
+'N'#187#199#147#207#188#196#135#219'oR/n?6'#153'd'#1#204'@6'#192#212#226#12
|
||||
+'y'#165#139'r'#184#242#222#21'|'#127#200'/?]'#231'Dw'#133#179#155#231#248#249
|
||||
+#135'k|'#254#254'y'#188#24'<'#31#188#3#240#180#241#219#5#186'T'#255'O'#131'c'
|
||||
+#0#207#11'`.'#222#222'|'#149#23#159'~'#129'p4'#228#218#215#31'3'#216#249#141
|
||||
+'N'#10'n'#4#238#8#220#216'$+'#194#179#0#30#240#202#12#240#236#28'@Z'#162#171
|
||||
+'aU'#155'[.i3p'#237#4':'#135'&'#150'ry'#245',H'#199#130#156#163'x2'#211#185
|
||||
+#228#197#234#206#204#171#214'Tf'#217#165#169#12'Yll\'#212'9'#133#255'i'#165
|
||||
+#200#234#225#228'(3<'#190'<8'#245')'#212'c'#168'+'#168'Y'#131#196#220#221#138
|
||||
+#228#138#255#233#252#11#27#193#232#22'\'#223'1}'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TCIELColorPicker','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#2#218'IDATH'#199#189#214
|
||||
+#207'k\U'#24#198#241#207'9w&I'#155#164'41'#134#154#250#3#197#31#168')'#5'AD*'
|
||||
+'T'#131'h1'#180#27'A7'#174#252#15'D'#196#133#160#11'ES'#20#10'uc'#187'J'#187
|
||||
+#20#17#165#24'Pj]t'''#232'V'#4#23'5'#139#180'L'#200#216'4i2'#153'$3.'#230#204
|
||||
+#204#157#201#196#154#133#30'x'#224#156#195#220#231#251#158#247#158#251#190
|
||||
+#195#127'<'#2#168#171#195'Sx'#9#143#226'~'#220#147'4'#210#252'u'#13#27'XOZ'
|
||||
+#195'm'#172#226#22#254#194#18#174#227'7'#194#183'B!O'#171'`'#19#219'I'#181
|
||||
+#164'z+'#146#158#225#253'S'#232':'#0'k'#168'b'#235'N'#128#208'='#15#200#146
|
||||
+']'#145#208'G'#232#199#194'N@E'#176'%'#216#22'm'#11'j'#162#186','#25'dm'#163
|
||||
+'P'#236'4T'#204')'#237#183#1'O"ZI'#170#202'l'#202'l'#137#182'dj'#162#172#3#16
|
||||
+#147'r'#243#208'T'#214'^'#183'S4'#137'`]P'#22'T'#5#155#130'M1'#157'&('#10#132
|
||||
+#144#30#12#201#164'k'#157#223#235#4#28'n%t1'#129'6r'#160'm!'#153'$'#133#164
|
||||
+#214':'#230#246#210'<'#134'<`'#162#5#184#142#155'-'#8#213#4#26'l'#1't'#194'z'
|
||||
+#129#155#192'6`'#188#245#240#146#160#132#135#4#149#4#152'_'#184#201#208#128
|
||||
+#145#225#253#201'@'#151'ah'#25#182#230'1'#246#6'l'#226#154#224#9#220'(-{k'
|
||||
+#234#29#183#203#183#172#175'VLO?'#227#252#231'o'#27'.'#238#207#165'('#7#139#9
|
||||
+#190'3E'#227#29#151#251#15#193#159#165#178#153#199#222't'#246#234#172#231'&'
|
||||
+#31'1'#129#143#222'='#227#245'7f'#204'}'#249'E'#219'('#232'|''A'#195'<'#235#0
|
||||
+#220#221#241#5'-'#225#135#247'?s'#226#147#247#140'M>k=}'#229'3'#167'?6'#245
|
||||
+#252#171'~'#186#250#187#23#158'>'#182#19#16#147'y'#12#141#27#188#27#160#142
|
||||
+#210#252#162#218#169#199'-'#27#179#146'J'#206#1#28':t'#159#27#165'5'#220#149
|
||||
+#3#232#154#235'NQ'#255#142'R'#178'q'#228#168#159#191#250#198#241'WN'#25#193
|
||||
+'A'#20'VV|77'#231#220#153#243#132#194#174#151#169#245#29#182'C'#174#215'{'
|
||||
+#213#171#190#147'''=<:'#234#216#212#148#129'r'#217#229#217'Y'#211'/'#159#240
|
||||
+#233#7#167#219#21#181'YMW'#176#140'2J'#184'F8'#23':'#171'i'#247#168'^'#186
|
||||
+#164'z'#225#130'_'#175'\qxt'#212#135#23'/z'#241#200#209#198#11#137'='#148#143
|
||||
+#190#240'/N'#208'L'#222'k8'#158#250#196#3'u&*'#20'*]''X'#197#205#212#19#22'1'
|
||||
+'O8{'#135#19'H'#253#229'G'#220#155#26#207'phh'#164'W'#206'cW'#29#236#238#7
|
||||
+#187#141#5'\Nwm'#16'C'#145#193'H_'#175#244'4'#11'nq'#15#0#248#5#15#166#219'4'
|
||||
+#28#27#167#24'o'#22#211'^'#209'g{'#4#212#240'='#198'0'#20#26#167#216#23'9'
|
||||
+#208#203'8k;'#23#246#242#15'a'#25'_'#227'`d_` '#210#159#212#234'='#185#206
|
||||
+#249#191#140#191#1#242#234#186#197'c'#177']'#238#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TGAxisColorPicker','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#1':IDATH'#199'c`'#160'1`'
|
||||
+'d```'#248#253#159#229'?'#3#3#15#3'*'#230#134'b^'#28'l|j!'#226#172#140'l'#140
|
||||
+','#12#12#12#12'_h'#232#3#250'X'#240#149#214#22'|'#30'H'#31#188'y'#246#157
|
||||
+#129#147#135#141#129#155#143#202#22'|x'#245#155#161#202#233#16#195#231'w'#127
|
||||
+#25#190#127#249#195'`'#234#173#200#144'7'#203#143#129#147#151#155#242' '#250
|
||||
+#244#234#15'C'#161#250#5#134#134#195#150#12#178':R'#12#12#12#220#12#203#202
|
||||
+'/0'#180#132#175'g'#168#216#150'D'#185#15#150#214'=e'#8'jWd'#16#210#225#133
|
||||
+#203#249'wZ3t9nb8'#187#255#30#131#134#163'.e'#22#188'~'#244#139'A'#211#143#3
|
||||
+'C'#156'['#130#155#225#213#139'/'#12#178#148#230#3#17']N'#134#211'k^3'#200'y'
|
||||
+'!'#140#250#249#249#23#195#213#173'w'#24'|g'#134#144#148'o'#176'Z`'#211')'
|
||||
+#195#176#202#247'>'#195#242#248#139#12#10'N2'#12#223#223'10\Zp'#151#193'0'
|
||||
+#211#136#225'7'#31';'#195'oj'#228'd'#175#205':'#12#215#23#190'g'#184#179#239
|
||||
+'%'#3#187#16'7'#131#203'"W'#6#17'}E'#146's='#222'| '#23'/'#195' '#23#143'('
|
||||
+#224#190#142#22#21#163#165#233#192#6#209#127#218#6#17'#'#195#144#5#0#132'\f'
|
||||
+#134#223#178#204'Y'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TGColorPicker','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#142'IDATH'#199'c`'#160
|
||||
+'1`$Va'#213#239#170#255#164#24#220#198#218#198#200#192#192#192#192'B'#180#142
|
||||
+'/'#228#249'`'#16'Y'#240#149#214#22'|'#30#242'>'#160#212#130'5+f'#194#147'aH'
|
||||
+'D:#U'#131'h'#205#138#153#255#131#195#211#224#130'k'#24#24#254'cXB'#205' '#10
|
||||
+#14'O'#195#180#132#218'q'#128'a'#9'-'#242#1#138'%'#180#176'`'#237#202'Y'#12
|
||||
+'4'#243#1#138#225#212#142#3#12#195')'#181' $"'#157'q'#13#3#3#237#242#1'NC'
|
||||
+#135'TQ1'#2'J'#211#193'Ze'#210#28#0#0#208#222'<{'#227'0'#150#239#0#0#0#0'IEN'
|
||||
+'D'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('THColorPicker','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#1#194'IDATH'#199#237#211
|
||||
+'='#142#28'U'#20#197#241#223#171#143#238'j$'#220'A'#7#131'z'#3#198'B'#4'$ '
|
||||
+#193#6'f5$l'#194#249#196#236'cv'#0'N-YHdD&Bj'#144#166#171#234'}\'#130#246'80'
|
||||
+'3'#1'H$0Gz'#201#13#238#255#158#163#243'x'#210#127'^'#233#195#193'~'#191#143
|
||||
+#211#233'd'#191#223';'#28#14#174#174#174#28#143'G'#199#227#209#205#205'M'#250
|
||||
+#187#128#225#195#193#233'tJ'#251#253'>'#182#219#173'q'#28#13#195#160#235#250
|
||||
+#127#180#252'A'#7#247'z'#254#233#243'x'#246#241'3'#135#195#193#237#237'm'#250
|
||||
+'W'#242#187#190#190#142#167#22#189#207'6'#127#255'm'#248#188#242'b'#246#203
|
||||
+'n'#246'*-~'#176'z'#227'kc'#250'F'#171'_'#136#159'>'#146'^'#209#253#200'''o'
|
||||
+#249'r'#8'_m'#248'l[l'#166#159'E'#247#154#195#175#198#151#223#165#191#182'('
|
||||
+#207'R>'#19'g5'#157#157#205'~O'#171#179#234#15'YE'#20#210#29#253#137#233'7'
|
||||
+#238#198'$oB'#154'H'#187#194#174#136'y~'#164#166'5'#211'V,'#154'YI'#139#197
|
||||
+#236#206#170#168'*'#180'D'#14#253#204'|G'#222#16#241#238#216'.'#232#10#185'<'
|
||||
+#12'He}'#15#136#180#170'f'#139#217#156#178#162'*BTRN'#134#153'e&'#183#208#238
|
||||
+#131#238#131#161'J'#235'#'#0#173'J'#145'qy'#213#170#164'lQdMA{w'#228#176#178
|
||||
+','#212#148#180'..['#134#144'r'#19#173'>'#226#160#21#162#18'U('#154#162#200
|
||||
+#178'j'#209'd'#180'F'#151#25'WJ'#166#246'D'#143'B'#170'M'#212'F'#169#143'9h'
|
||||
+#23'@jB'#213#210#5'QTY'#179#138#11#160'^'#22#150#194#253'M*'#26'jH-'#30#6#4
|
||||
+'R'#191'C'#213#169'Fa'#210'4'#197#164#215'K'#214#142#205#200#184'e'#154#24
|
||||
+''''#186#29'&l;:'#164#244#244#249#255'o'#250#19#184't'#236#196'k'#131'4&'#0#0
|
||||
+#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('THexaColorPicker','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#2'lIDATH'#199#237#149'!s'
|
||||
+#219'@'#16#133'?'#205#4#172#216#29';A'#149#25#134#6#186',e'#13'Ka~B'#203#250
|
||||
+#23#26#214#192#192#154#181#172#134#130#9#139'Y'#205'b(3'#29#211#178'-'#184
|
||||
+#147'e;v'#198'-'#235'LoFs'#214'z'#230#189'{'#239#237#173#224'__'#197#177'?n'
|
||||
+#204#236#151#2'-'#148#17#186#22'|'#132#190#3'm'#193'+'#180'+p'#17#188#192'|^'
|
||||
+#28#196':;F'#240#29'%"'#160#164'''&2Z`'#149#247'u'#250'-'#175'(8H0'#181'gkX1'
|
||||
+#145#9'T'#185#232#242'>'#16'n-]A]'#155'5'#171#151'*'#14#18'4,'#8#212#8'k*'#23
|
||||
+'FP'#205'D='#187#181#144#148'|'#185'6'#251'4'#219'%yA0'#177'o'#182'D)'#233
|
||||
+#240#8#14#135'w'#130'v '#14'4'#131#138#130#246'iGA#t'#205#9#22'-y"P'#227#16#4
|
||||
+#143'''RIHF'#251'|'#226'~+'#23#7'ti'#239#215#240#243#198#236#221#253#168'b'
|
||||
+#151#192#222#155#160'x"'#30#143#163'E'#16#28#130#175#28#189'B'#233'3'#176'dk'
|
||||
+'zRNYI'#188'?'#162#224#218'>'#219#140#134'*'#3':'#28#30#193#19#17#132' '#142
|
||||
+'2'#7#222';({FB'#205'5'#133'>'#194#243#212#236'M'#147'Tl'#8'~0C'#16#4#165'D'
|
||||
+#17'b'#182#137#13#145's.'#217#225'S'#22'a'#200'a'#168'E'#8#14#180#217'S &'
|
||||
+#166#180#212#212#184#12'\!'#148#8#21#30#161#203#137#8#206#167#187#161#29'H'#6
|
||||
+#149#172'L]'#14#127#171#149#207#0#180#208'"'#152#152#208#230#211#10'B'#153#21
|
||||
+#8#30#144#156#9#221#216'Et }'#206'$n'#213#244'@'#6'WLy`'#190'Q0'#16#185'L'
|
||||
+#228#145't'#180#12#146#186#168#7'-'#211'{7'#16#245'p^'#193'b'#143#224#174#152
|
||||
+#23#151#134#141#253#159#172#241#184#156#135#135#184#26#219#179#203#29#212#178
|
||||
+'['#3#138#197#219#195'm'#250#129#143'<p'#187#241#187'B'#210'm'#166'L'#224#29
|
||||
+#208#234#8#24'3x'#187#165#232#250#2'f'#175'L'#211#175#22'L'#136'T'#212#212'T'
|
||||
+'x'#2#1#159#6#220'zk'#224#13'Co'#168#173#20#196'Q'#196#219#215'G'#197#5'W,'
|
||||
+#185#163#162#203'wI jzv'#188#222#187#213#170'0'#157#194#252#132#239#193#147
|
||||
+#157#27','#152'P#'#234#198#19#238'+'#24#222#151#10'!P'#172#31#139#147'?8'#173
|
||||
+#137#5#20#214#146#192#143'Z'#3#168'P'#160#127#246#193#9'\'#2#139'd'#129'Hjn/'
|
||||
+#163#29#165#203#205'/i'#204'>>'#242#127#253#213#250#13'Z'#161')'#152#11#8#251
|
||||
+'V'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('THRingPicker','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#2'0IDATH'#199#221#149'!s'
|
||||
+#27'1'#16'F'#159'f'#10'$vb''xa'#23#230'@CCC'#7#6'6'#176#204'e'#13',lX'#242#19
|
||||
+#2#29'h'#24#232'2'#135#213','#130':'#166'c'#18#219#2#221#164'u'#226'$v'#130
|
||||
+'Z'#161#187#145'Fo'#247#219'o'#181#240#175'/'#181#207#161'+'#153'K`'#133#161
|
||||
+#163#6#28'5-c'#142#212#165#250#16'`*'#19#9#172'i'#208'8'#12#14'='#0'2'#14#168
|
||||
+'H8N0j'#249#226'='#159'^'#218#168'e$'#27'<'#21#150#12'd '#17#201#143''''#12
|
||||
+#22#139'f'#131#196'Z'#148#237#212#222#128'J'#166'b'#134#239#158#128#5#192'b'
|
||||
+#168#176#128'&'#163#201'@'#132'l '#26'dU'#139#26'?'#135#168#231#145#207#197
|
||||
+#144'I'#4#192#227#208#156'2'#230#226#137#222'Q~H'#197#2#186#14'B'#130'h'#160
|
||||
+'K'#168#179'm'#200#214#207'Dn'#196#19#128'H'#162#227#24#205#157#186'~'#181'N'
|
||||
+#242'0'#21#252#6#186#146#16#186'E'#157#255#169#201#150'Dk'#192#226'H'#128#195
|
||||
+'r'#167#190#190#237#146#163#165#146#197'D'#136#30'z '#174'wK4'#151#7#185#193
|
||||
+#3#25'C'#198#171'Su'#136#223#229'[+'#244#185#184'a4C})'#146'>f'#176#2#12#142
|
||||
+'D'#166'zOGe'#7#193#3#26#238'7'#207']'#228'qX2'#9#6#215#28#184#250#10'|'#2
|
||||
+#173'!'#132#29'6'#205'z0 '#232#247#0#162#134'`'#192#234#2'y'#10'p='#244#9't.'
|
||||
+'g'#15#207#192#2'M'#9#207'9'#184#255#185#13#24'''Xv@*fxW'#6#166#129#156#160
|
||||
+#29#193'rG'#31#212#11#17#147'!%8'#6#238#206#213'^N'#146#217'BJa'#19#164#30
|
||||
+#213']'#239#238#131'c'#192'G '#128#207'0'#251'.r{'#241':D>'#255#18'V~'#144
|
||||
+''''#194'I'#243#24#253#238#167'b.b'#128#228#193'dh5,owCd'#154#4#223'C'#244'`'
|
||||
+#226#16#253#153'z'#243#185#174'g'#131'T'#1'L_ M'#5#173'-q'#218#8'u.'#198#208
|
||||
+#165'}!u'#168'n'#172#246#158#7#245#168'@'#170'\'#250#162'IP'#15'B8'#160'1'#12
|
||||
+'3'#129#225'r'#167#14#154#7#221#189'R'#211#169'HXCe@[0'#127'7n'#134#152'@'
|
||||
+#159#128'Y:'#245#177#145'9'#23#233'7'#160'C'#137#186'v'#208#180'pt'#169#20
|
||||
+#255#253#250#13#251#14#233#227'o'#203#226'H'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('THSColorPicker','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#1#213'IDATH'#199#237#148
|
||||
+#173'r'#27'A'#16#132'?U'#25#204'2'#9#6#10#198#204'a2T'#152'h'#30#195#175#16
|
||||
+#24'('#152#176#208'<'#130#12#15'J'#204#134#130#134'2;'#177'm'#230#128#253#191
|
||||
+#189'$0'#196#163#146'jk'#231#167'gzz'#5#239#246#191'm'#1#240#182#249#248#198
|
||||
+#167#17#182#192#22#206'Kx'#4#6#196#19'+'#196#6'K'#206#215'5'#28'A'#3#216#0
|
||||
+#183#23#216'ZH'#189'C'#24#3'0'#192#234#153#197'yX'#220#0#232':'#130#174' @ '
|
||||
+#229'#bD'#241#3#2'/'#24#129'1'#196#249#244#133#24'C'#204#244#0#4#0's19'#220
|
||||
+#203'B'#152#1#134#229'q'#175#171'['#0#150'?Gp'#148#160#220'Lj'#203#192#185#26
|
||||
+#192#154'H'#175#194#161#203#149#202#165#165#179#129'+'#248#248#216'u'#13'|'#3
|
||||
+#224#157#129#185#233't1'#198'p'#213#20#1#180#10'p5'#188#240#25#220#10#0'f'
|
||||
+#168#154'@'#170#27#177'N'#25'&%'#254'R'#157#152'ZMY'#3#8#23#156'j'#217'(;'#8
|
||||
+'m'#222'='#29'`'#252#0'g'#165'Qr'#172'&'#0'i'#178#188#131'<'#129#15#193'_'
|
||||
+#239'OU'#207'''6'#199'}'#131'~'#250'q'#15#192'3A'#210#191'6'#199#232#241'=E2'
|
||||
+#240'-'#153#157'9'#159#248#243#127#12#152#243#132'%cY'#154'('#0'~;'#236'x'#1
|
||||
+'.'#0#172#179#250'B'#3'b'#247'p'#128#11','#5'k'#202';'#176'D'#148#213'2u13v'
|
||||
+#239''';H'#10'y'#252#252#5#128#221#254#144'e'#232#154#21#171#8#185#165'h'#178
|
||||
+'-'#254#161#162'Z'#5#180'2'#213#220#146'CJ'#187#228#246#161#217'<'#128'k='
|
||||
+#138'D'#245'25'#195'['#191#228'@'#156'U4'#196#186#242#249#29#208#253#251#204
|
||||
+#189'd'#11#133#210'"'#165'i\'#248'}'#248#190#15#231'k'#161#168#157#160'G'#136
|
||||
+#15#205#138#179'+>'#181'I'#25#155#222#170#159#128#213'*'#180'm}q7'#7'g'#181
|
||||
+'d'#251#13'u'#163#189#219#223#236'7f'#251#200#174#158'I'#0'm'#0#0#0#0'IEND'
|
||||
+#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('THSLColorPicker','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#2#10'IDATH'#199#221#148
|
||||
+'!t'#26'A'#16#134#191#188'W1'#235#238'\'#145#169'C'#6#23'$u'#196#129#11#146
|
||||
+#186#171'C'#158'E"'#139'#'#146#184#196#17#7'2'#178'u'#197#21'I'#221#226'v'
|
||||
+#220'T'#236#221#5'Bh_'#2#21#237#190#183#239'v'#231'f'#255#127#254#153#217#133
|
||||
+#127'm'#228#163#185#229#163#185#253#21#240#193'pnff'#131#225#220#6#195#19#145
|
||||
+#244#243#153#1'd'#249#204#204#204#178'|fY>'#183',?'#1#193#245' '#130#246#183
|
||||
+#190#229',}'#206#222#10#222#201'fv'#247#165']'#237'{'#159#31#170#245#237#248
|
||||
+#234#236'h'#2#128'N'#255#206#144']'#219#253#184#187#131#249'f'#130'v'#255#206
|
||||
+'f'#147#14'W'#159#238#247#254'='#220't'#143'S'#208#186#158#218'|z]'#237'?'
|
||||
+#246#158'H'#22#183#221#163#178#194'egj'#219#227#178'3'#181#210'~t'#215'\'#180
|
||||
+'w'#193'/'#218#211#211']'#168'zk'#178#3'^oO^'#7#30'.'#196'l*'#182#14'b'#185
|
||||
+'a'#239'CbXfb'#223#237#252#25#248'ykbFf6'#24#26'@i'#127#9#247']'#185'P'#17'4'
|
||||
+#128#223#0'"8'#132'D!m/'#248#241#152'U'#7'>4ox\6'#217#240#13#145#162'GW'#203
|
||||
+#131#129'W'#4#222#165'8@'#3#16'@'#136'3l9'#215#154'c'#134'?'#187#132'tM'#0'R'
|
||||
+'W'#16',W'#127'&P'#17'TA7'#17'9AX'#247#234#248#175#25#181#198#24#128#134#182
|
||||
+'P'#241'lP$'#21'4y'#133#130#141'$Q'#137#2#10#14#168#143'W'#164#141'1'#245#172
|
||||
+#1#11#144#213'&'#6#131'G'#21'D'#220'!'#5'V'#222#177#138' H'#26#15'{@'#20')'
|
||||
+#222#128#230#168#6#203#128':'#16#23#213'y'#20'<$E'#138#212#251#231#224'/(p'#2
|
||||
+#10#170#128#10'I'#20#2#196#195'"'#224#146'hS'#20#210#162'H'#192#178#240#220
|
||||
+'z'#29'l'#191#200#18#139#28'<@'#192#17#195'u'#5'k '#2'8'#135''''#128#7'-'#24
|
||||
+'V'#186#151#250#179#195'EV'#160'HP'#145#0#192'#'#2#146#198#232#21'E'#211'B'
|
||||
+#22#176#250#205#253#218'+2'#177#142'$'#149'KQ'#245''''#198#232#162#130#150'M'
|
||||
+#196#255'<~'#1#218#159'.'#233#250#178'['#4#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('THSLRingPicker','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#2#151'IDATH'#199#221#149
|
||||
+'/{'#27'9'#16#135#223'y'#158#3#18'['#177#21't'#153#195'\'#22#195'@'#195#20#22
|
||||
+'6'#240#152#143']?'#194#149#245'>B'#161#11#13#3#19#230#176#152'UPb'#187'L'
|
||||
+#195#230#128'6'#142#221'$'#189#220'St'#29#180#251'hV'#239#252#249#205#14#252
|
||||
+#223'M^'#227#244#217#214#150#185#193'S'#232#129'H'#207#156'%o'#228#147#252#20
|
||||
+'`e'#23#150#217'1'#195#17#241'D'#220#4'P"'#208'Q'#137#188#197#203#246#197'{~'
|
||||
+'{'#233#160#183#133#237'It'#4#20'P'#160'2'#160#7#15'O '#224#216'cCo'#18#138
|
||||
+#188#26#208#217#202#252#244'<'#146#9#0#4'<'#29#1'p('#14#5#6'P'#15#131#199'nz'
|
||||
+#147#229'S'#136'<'#141'|m'#30#165#146#129'D'#196#241#142'%'#31#191#171#247'`'
|
||||
+#127'Y'#199#6'J'#129'\a'#240'P*'#242#254#20'r'#242'ra_,'#145#129#129'J'#225
|
||||
+#12#199#181#252#253#195'>'#217#183#149#145#246'PZB'#184'9r'#245#216#147#147
|
||||
+#18#237#128'@'#164#2#145#192#181#252'!'#185'V'#203#170'$ '#3#25#165#0#9#168
|
||||
+#14#196'G'#177#205#133'1$'#24#129'a'#247'|'#137#214#246#205#190#144#0#197#163
|
||||
+'$y'''#0#187#251'{K'#170'S'#193#30#1#25'P'#7#233'l)'#0#246#231#220#24#181#169
|
||||
+'aq'#137#252#222'Jz'#200#224#6#240'D*Jw'#20'AJ'#137'<'#1#198#233'R'#0'U'#5
|
||||
+#231#30#29'5BN'#128#131#187#253'S'#21'%"'#1#165#194#164#154'f9g'#146#142'-'
|
||||
+#251#131'\'#161#170#226#187#163'P'#198#14'Rm'#208#156#159#145#169#186'I'#128
|
||||
+#224#142#1'S'#6#138#30' '#227'AJ'#245'HV'#14#178#135#224'N2;'#0#226#8'c'#5
|
||||
+#167#205#247#193'J)'#148'a'#160'N'#209'?d'#160'(>'#196#163#12#2'0k'#225#197#8
|
||||
+'w'#183#167#128'e'#133'mi_'#143#223#247'`'#24#14#23's'#12#26#245'4'#3'?'#3
|
||||
+#173'0_'#192#246#153'9'#232'7f^'#161'V8'#3#174#175'D'#206#207#207#173#140#227
|
||||
+#19#253'W v'#29'w'#183#183'b'#151#27'k'#141#173'PG'#164'<'#206#206#233#160'm'
|
||||
+#204'R'#134#154#193'+,'#2'|'#253'(?'#30#180#15#247#198'M'#2#157':4w'#200#246
|
||||
+'J^'#254'U'#172#205'<PS'#131#204#29'l'#191'>'#15#177'U5'#210#8'C'#2'?L'#209
|
||||
+#191#151#127#253']'#247#151'S'#169'2'#248#177'Af'#29#204'Ckc'#24#160#215'&'
|
||||
+#12#247#160#173'Z'#144#178#148'W'#239#131'~'#209' '#157#182#185#152'U'#232
|
||||
+''''#157'D`'#230#153'v'#2#211#229'Q'#254#211'>(w"'#171#149'Y'#222'A'#231#193
|
||||
+#5#240'G'#231#170'm'#12#220'['#240#219'(?'#183'2'#215'f'#227#30'\nQ'#247#17
|
||||
+'fsx'#243'I'#132'_'#222#254#1#178#190'J'#1#137#1#236#23#0#0#0#0'IEND'#174'B`'
|
||||
+#130
|
||||
]);
|
||||
LazarusResources.Add('THSVColorPicker','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#3#10'IDATH'#199#237#213
|
||||
+'K'#139#28'U'#24#135#241#223#169#174#174#190'U'#247'\23'#153#196#4'Ds'#129'H'
|
||||
+#196#184#18#220#138'K?'#129#11#23#174'D'#252#6#174'u-'#238#252#22'~'#7#193
|
||||
+#149#10'FA&'#184#136#8'c'#152'L'#166#167'oU'#221'Uu\t'#2#145'Lb'#162'+'#193
|
||||
+#23#254#20#156'*'#158#135'S'#231#173'z'#249#175'Wx'#158#135'>'#188#127'#'#142
|
||||
+#182#167#246#31'_'#147#129#237'p'#231#153#140#244'Y7_'#137'{'#241#154'mA'#207
|
||||
+#208#200'Hb_'#176'c'#233#158#210#158#185#250#240#181#216#218#255')'#188#176
|
||||
+#224'z|;n'#137'r'#29'C}C'#153'\0@'#174'6R'#200#205'%'#249'X'#252#238'V'#12'o'
|
||||
+'~'#31#158'[p#~'#16'w'#144'+'#12'D}='#185#174#161'D.'#26#168#228#10#233'j'
|
||||
+#198#180'Cv,~'#253'F'#12#239#253#16#254'Vp-~'#26'w'#180'l'#170'm('#13'UzR'#3
|
||||
+']'#3#169#1#134#150#186#230#194#162#203#180#205#20#142#196'/n'#196#240#201
|
||||
+#207#225#169#130#203#241#171#184')'#24#137'6'#213#182#212'6'#172#228#26#3#29
|
||||
+#185#204'P4TH'#203#233'Cx'#194#180#226'tE'#245#135#248#241#245#24#190#252'%'
|
||||
+#156')'#200']'#144#11'r'#209'H'#180'%'#218'V'#25#169#244'%r'#153#145#168#27
|
||||
+#23#194#188#187#134'O'#234'5'#252#180'`<'#163':<'#251#21#189'~x;'#182','#244
|
||||
+'$'#250#162#28'Cljl'#169#140'D'#185#182#190'FR'#206#152#165#15#225'%'''#5#227
|
||||
+#30''']'#198#221#179#5#199#231#183#189'$j'#11#218#200#208#195'@'#180')'#218
|
||||
+#22'mHdu'#193'$'#229#164#228'A'#151#227#140#251')G'#173'u'#238'%'#226#213#183
|
||||
+'b8'#248'6'#252'E'#16#236'H"!'#144#160#133'4'#210#14't"}'#244'$'#146#197')'
|
||||
+#227#146#7#157'5'#252'8'#227'8'#229#232#177'$'#197#25#135'|'#191#189'&#>'#150
|
||||
+'&P7'#148'X!['#12#132#249#6#139#5'E'#193#178#160'|t-'#215'kfO'#10'~'#219#9'a'
|
||||
+#255'v'#140'UB'#133'e'#164#8',"'#167'5'#237#134'~'#139'N'#147'iOF'#204#23#172
|
||||
+'J'#150'K'#170#138'jE'#189#162#169#132#131'o'#206#238#162#226#144'"YC'#231#13
|
||||
+#19'd'#13#150#180#19#242#140#188'!]'#244#132#241'h'#221'9'#211#130'E'#249'p'
|
||||
+#23'%e'#253#244#15'mv'#200#28#179'H'#175'Y'#195#195#10'5'#253#14#211#140'IC'
|
||||
+#167'h'#233'L'#6#156#140#152#20#235#204#22#204'K'#225#238'g!jb'#144#132''''#4
|
||||
+#191#190#31#194#224#243#24#179'@Z'#19'WTK'#210#22#155'='#166#233'Z'#208'['
|
||||
+#210#158'w$'#211#156#147'9'#227#5#147#197#186'e'#241#8#254#212#223#245#173
|
||||
+#143'b'#220'j'#24#149#156'k'#184#212']'#231'B'#139#243#13#187#21#187#5#189'i'
|
||||
+')'#140#143'89'#226#232'H8x''<'#247'<'#184#249'n'#140'[5'#23'R.'#247#185#212
|
||||
+'a?'#176'g-'#216'+97'#163'5'#25's|$'#220#185#18'^x'#224#220#188#26#227#203'9'
|
||||
+#151'{\L'#217'O8'#143#221#154#221#146#221#5#249#184#150#220'M'#195'?'#26'8?'
|
||||
+#30#132'p'#229'b'#140#147#222#250#128#167#24#160'W'#145#205'y'#245#247#16#252
|
||||
+'_'#255#182#254#4'leR'#175#234#10''''#210#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TKColorPicker','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'{IDATH'#199#237#149#177
|
||||
+#10#192'0'#8'DOp'#138#201'W'#250'/'#249#223'@2'#219#169#144#20':%R'#210#214
|
||||
+#205#229#158''''#135#2#206'E}#"6+'#216'Z'#27'4'#217#219#193#0'`f_@JiZ'#176
|
||||
+#148'r'#15#136'1'#250':'#16#17'_'#128#135#131'3R'#6#0#181#214'i'#193'nH'#186
|
||||
+': U'#181'EC'#219#251'VD'#0#144's'#182#213#231'gXQ'#8'a'#191#152#254#128#15
|
||||
+#220#162#229#255#224#217#143#182'e'#29'y%'#22#197'[r'#31#189#0#0#0#0'IEND'
|
||||
+#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',[
|
||||
#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
|
||||
+'1`d```'#144#203#221#253#159#22#134'?'#154#236#202#200#2#227'<'#156#228'BU'
|
||||
+#195#229#243#246'00000'#176#160'x'#167#27'S'#225#255'R'#202',b'#161'u'#28#16
|
||||
+'eAJz'#1#3#3#3#3#195#156#153#19'p'#178')'#178#0'fXJz'#1#10#155#144#225'$'#5
|
||||
+#17#178'A'#132#12#197'i'#1#165#17#138#215#2'X'#178#162#153#5't'#201#7#146#23
|
||||
+'[1'#20'>'#215#175#166'O>@O5TME'#216#210'>2'#159'*'#249#0'W'#18#165'Z>'#160
|
||||
+'J'#28'P'#26#161'# '#31'006b'#169#16#234#233'S\#''Id'#26'Wjz4'#217#149#17#165
|
||||
+'N~8'#201#5#171#15#24#25#26#24'a'#236#228#180#252#255#216#138'qd'#195#25#25
|
||||
+#25#25'1*}b'#193#255#255#255#255'c3'#8'&'#142'n8]'#0#0#198'nf'#182'P'#151#230
|
||||
+#136#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TmbColorPalette','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#1'^IDATH'#199#237#148#161
|
||||
+'r'#2'1'#16#134'?f*6.'#231'nep'#224#168#172#197#21'Y'#137'<'#28#18#30#1#28
|
||||
+''''#235#138'<\%u'#215'G('#174'uE"'#193#17'GE'#174#208'2'#215#153'F'#212't'
|
||||
+#216#153#136'l6'#255#159#236'7'#9'\'#226#223'G'#163'.'#217#25'>'#28'j'#171
|
||||
+#253#207'B'#171#249#160'V'#235#170'.)'#192#206'eX'#129'D'#224'y1'#165'S'#142
|
||||
+'p'#128#243#144#247'r'#246#233#8#12'`'#225#198#23'?'#26#215#26#24#12'F'#8#6#6
|
||||
+'D'#228'('#222#254'<A%N'#2'l'#136'3@'#192'&'#160#149#9'r'#18'O'#241#136#200
|
||||
+'I'#220#130#217#154'8'#6#183#163#226#240#178#222#252#26#228#181'S'#158#242'~'
|
||||
+#4#3#17'6'#143'3'#194#153';4'#251#142#247'bx\o'#246#239'i'#21'+'#20'K'#234
|
||||
+#149#213'$'#182'E'#6#192#1'-'#188'w'#200'Y'#7#196#128#243')J'#130'EyC'#226#12
|
||||
+'B'#185#195#7#180#200#25'EAP'#148#20'E'#177#136#217#197'1'#200'f'#203#195'k'
|
||||
+#4#131#182'S'#230#227'^'#12#3#200#214#25'F'#193#166#144#251#5#229'|'#8#206
|
||||
+#129'st'#221#29#229'x'#9'(^'#18#198's'#141'm'#145'`,X'#11#146#128#221#2#170
|
||||
+#199'!'#2#160'a'#145#180#154#199#24'H'#216'+'#10#137'z'#196'K'#16#175'n`}('
|
||||
+#240#164'@'#18#222'E'#12#131'IQ~'#255#139#246#245#155#191#166#167#131'n'#227
|
||||
+#242#181'_'#226'o'#226#3'>'#136'Q'#190#246#21'f`'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TmbColorPreview','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#1'3IDATH'#199#237#210'/s'
|
||||
+#219'@'#20#4#240#159'g'#10'N'#172#208'T'#208#208#208#180#208'e'#22#171#161
|
||||
+#202#2#221#143#208#143#224#176#22#10'J,'#129#161'a'#133#13'K'#168'a'#152#142
|
||||
+#189#2'_3v3'#245't&'#164'@'#139#238#221#159#221#183'{'#143#9#19#254'{'#204'N'
|
||||
+#139'z'#179#143#148'HU'#146'P'#165'J'#130't'#172#211#177'P'#253#201#146#25
|
||||
+#127'/s6\7/'#188#239'N'#239#165#196#207#238#234'M'#29#127#252'<'#252#253'p'
|
||||
+#217'~'#11#8#251#8'u'#132'e'#132'>F'#17#157#136#149#8')'#194'.'#194'c'#132'x'
|
||||
+#12#177#11'1'#143'E'#136'}'#136'u'#219#199')'#231#185#3#132'>'#248'ZvZ3'#205
|
||||
+#236'FD'#143'{'#216'`'#139#250#128#1#183#230#14#182'h0'#140#231'M'#159#9#28#3
|
||||
+#255#142#7#236#176#245#195'U\'#227#22'>'#20#242'e'#198#29'z'#201#131#166#232
|
||||
+#206#159'^'#167'r&P'#169#10'U'#139#214#147#247'z'#220' /'#240#9'k'#133#188
|
||||
+#195#189'u'#209'\<'#23'C'#242#5#7#20#134#214#179#218'P'#222#28#230'E'#179'Q'
|
||||
+#130#26'p'#247'bh'#165#244#213'1'#214#23'&`'#189#235#227#173'Xm'#186#203#159
|
||||
+#220'|'#25#254'i'#222'e'#178','#151'D'#242#248':'#158#9#19'&'#28#241#11#242
|
||||
+'&'#180#220't'#165#184'7'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TmbColorTree','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#252'IDATH'#199#197'U1'
|
||||
+#14#194'0'#12'<K}'#4']'#202#19#248#4#188#132#138'N@'#23'&f&'#22#4#19#18'?)'
|
||||
+#159'`'#224#1'0$'#252#194'L'#166'IZJ'#219#208#214'RT;'#141#238'd'#159#157#0
|
||||
+#29#27#1'@'#180#204#184#11#240#231'iF'#129#4#143#227#244#175#224#227#213#21#0
|
||||
+#16'X'#233#236#139#7'y'#227'G'#20't'#173'A-'#130'8I'#1#0#151#243#225#171'ODy'
|
||||
+#214#204#205#8#4',NR'#203#151#127#2'JD'#22'x'#163#18#9#144#235'[z1W'#151#200
|
||||
+'W'#208'J'#13#164#173':#'#232'e'#14#194#219#174'pPO'#182#253#204#129#219'5n'
|
||||
+#12#160'}'#23#149#245#190#25#155's'#224#146#4#190'-j'#206#193#240'W'#133#175
|
||||
+#160#149#4'/'#173#135#185#236'Fa'#216#18#250#158#187#209'2c'#173'T'#233'bf'
|
||||
+#158'/'#214#172#149#170#245#21#179'^I!'#248'h'#225#16#180'1+'#25#247'M'#22'p'
|
||||
+'7'#233'_'#25'pI'#175'R'#147#170#154#0'd'#188'0'#178'o'#238#245'fo'#241'7'#20
|
||||
+#19#9#221#163#161#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TmbDeskPickerButton','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#1#202'IDATH'#199#237#147
|
||||
+'-p'#226'P'#20#133'?f*'#222's['#137#220'uHp '#193#165'.8'#144'Y'#151':'#214
|
||||
+'%'#18'I]'#227#136'L'#29#184#224#130'l]+'#215'ue'#234'R'#151#231#238#138#132
|
||||
+#148#0#195#176#133'5;{f2y'#247#230#190's'#238'_'#224'?v'#224#205#18#241'f'
|
||||
+#137#252#21#242#201'4'#17#17#145#201'4'#145#201#244'B"'#142#23#11#128#235#197
|
||||
+'""'#226'z'#177#184'^"'#174'w'#1#129#209#164' u'#182#222#155'g'#19#211#248','
|
||||
+#185#237#198#178#184#183'*{|'#187#170#206#15#193'M'#227'l'#1#0#219'Y'#8#170
|
||||
+#238'['#6#195#26#231#167#5',g!'#241#220#230#230#251'r'#239#219'*'#28#158'WA'
|
||||
+#127#20'I'#18#141'*{0'#254#16'Y?'#12#207#234#10'];'#146'mt'#237'H6'#254#179
|
||||
+#183#166'm'#213#201#219'Vt'#185#31#170#213#159#215#200'['#214#252'$'#242#6
|
||||
+#192'W'#251'^'#148#2#165#21#10#208'J'#23#203#161#10#251#229'%'#227'5q'#170'K'
|
||||
+#223#6'!'#253'n'#19#12#228#165#207#24#179#183'A'#0'W%'#15#241#221#248'`'#6#3
|
||||
+';'#226#245#209#253' '#239#133'$'#203#225'^'#220#173#191'>x'#191#16#208#138
|
||||
+#183','#195#15#158#152#186#221'Z@'#190'un'#246#2#150#161#197'['#150#157#220
|
||||
+#218'B'#0#248#149#26#0#166#225#19'c'#171#13#128#251'cM'#246#236#210#236#4#0
|
||||
+#220#205#250'U'#220'.L~D'#0#5#233#251';'#10'P('#22#171#159#244'zM|'#191#195
|
||||
+'u'''#192#247';@'#17#243#167#184#2#208'h'#178',/'#134#1#180'Z_H'#179'"%'#199
|
||||
+'i'#145#166#167#180#196#28#169#160#132'*'#201#141#169'_2'#7'xv'#233'rsl'#6'J'
|
||||
+'q'#173'5'#189#142#198#0'Z'#151#227#205#21'y)'#188'+'#169#142#230'}`'#200#143
|
||||
+#207'i'#217'!'#133'>P}'#190'u6'#152#170#202'b'#184#134#127#23#191#1'O'#251
|
||||
+#234'E4'#251#146#172#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TmbOfficeColorDialog','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#1#219'IDATH'#199#181'U-{'
|
||||
+#194'0'#16'~'#251'<'#136#139'+'#14#203#28#252#4'dq'#212#129#219'dq'#240#19
|
||||
+#248#9#200#204'ev'#174's'#212#21#9#142#185'Mb'#145's'#156#235'D'#210#210#134
|
||||
+#244'c'#207#30#206#164'M.'#247#222#189'w'#151#3#30',^'#254'!'#229'5c'#214#223
|
||||
+#249'z'#189'V'#255#153#169#229#252#182#238#247#158'W'#0'Hy'#205#0' '#152'i'
|
||||
+#141#228#131#156'F'#244#158#27'$'#218'0^7'#132#152'C'#132#216#21' ='#0' 2'
|
||||
+#168#201#205#176'K'#180#30#3#160#226#142#16#26'DPYI/E'#4'J'#233#8'\'#161#214
|
||||
+'SA'#173'T%'#137#137'@'#8'`>'#255'['#242'r'#15#235'$'#12#245#218#171'^",'#151
|
||||
+#211#138#162'R'#169's'#207#150#178#142'Ri'#225'@'#207'V'#178'/w'#221#171#147
|
||||
+'^'#151'p'#237#8'\'#30#219#128#206#8'\'#210#230#233'r9'#5'3c'#189#14#157'w'
|
||||
+#12#0#23#245']'#150''''#179#235'Ot!'#164'%,'#207#3#178#236#31#20#229#198#203
|
||||
+#229#189'X'#0'q'#236'6$'#229#14' *'#244#133#176'('#226'R'#135#141'_'#199#198
|
||||
+'8'#225#180':'#1#7#224#18#190#3'D'#184#172#9#3'9s'#163'0'#223'y'#235#204#1
|
||||
+#129'@vX>'#1#162#157#18'f'#6#17'U'#147'l'#219':'#173'N'#0#166#134#160#5#240
|
||||
+'B'#24#8#161#21#165#236#4#146#147#219'PE'#169'6'#14#210#132'v4^'#130#233'R'
|
||||
+#166'&'#163#234#254#164#173#130'*'#20#9#139#219#253'y'#15#0#8#134#1'~.'#223
|
||||
+#136'w'#159'8'#30#223#160'T'#10'O?'#243#200','#4#26#14#181'!'#223#7#31#14#205
|
||||
+'I'#174#228'v0B'#20#141#16'E'#207#205#138#253#190'v'#219#184#222#216#201#193
|
||||
+'0'#168#181#147#213'p3'#241#191#10#156#24'\'#223'h'#174'w'#167#139#244#251'&'
|
||||
+'b'#31#245'}'#176#221#198#141'Ykz'#19#227#184':'#10#239':'#249'|Fe\'#218'S'
|
||||
+#10#224#187#161#159#235#241#173'*'#27'G'#238'C'#228#23#239'+'#214'l'#163#233
|
||||
+#136#170#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TMColorPicker','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'gIDATH'#199'c`'#160'1`'
|
||||
+'D'#230#252#23#253#255#159'b'#3'_3'#162#152#201'Bk'#31#208#217#2#30'*'#152
|
||||
+#248#154#214#22#224#245#1#247'P'#8'"'#28#201#20#146'<_Q'#193'D1T'#179#145'}'
|
||||
+#192#248#191#136#10#249#128#129#145#17#238#224'a'#21'D'#140#12#12#12#12#255
|
||||
+#167'R-'#136#6'*'#153#14#197'|0j'#193'h$'#211#203#2'F'#134#193#11#0#179'O'#17
|
||||
+#244'Y'#169#152#229#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TRAxisColorPicker','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#1'=IDATH'#199'c`'#160'1`'
|
||||
+'d```'#248#255#155#229'?'#3#3#15#3'*'#230#134'b^'#28'l|j!'#226#140#172'l'#140
|
||||
+','#12#12#12#12#12'_h'#231#3':Y'#240#149#214#22'|'#30'@'#31'<{'#243#157#129
|
||||
+#135#147#141#129#143#155#202#22#188#250#240#155#193#169#234#16#195#187#207
|
||||
+#127#25#190'|'#255#195#224'm'#170#200'0+'#207#143#129#151#147#155#242' z'#245
|
||||
+#233#15#131'z'#225#5#134#195#13#150#12':'#178'R'#12#12#12#220#12#229#203'.0'
|
||||
+#132#183#172'g'#216'V'#145'D'#185#15#234#150'>eh'#15'Rd'#208#17#226#133#203
|
||||
+'u'#250'[38vmb'#216#127#246#30#131#163#134'.e'#22'<z'#253#139#193'O'#147#3'C'
|
||||
+'\'#130#155#155#225#197#171'/'#12#12#178#20#230#3']'#17'N'#134'5'#167'_3x'
|
||||
+#201'!L'#250#252#243#23#195#214#171'w'#24'f'#250#134#144#148'o'#176'Z'#208'i'
|
||||
+'#'#195#224#187#234'>C'#252#242#139#12'N'#10'2'#12#239#190'30,'#184't'#151'!'
|
||||
+#211#208#136#129#239'7;'#3#195'o*'#228#228#205'^:'#12#11#175#191'g'#216'w'
|
||||
+#231'%'#131#16';7'#195'"'#23'W'#6'}'#17'E'#146's='#222'|'#16'/'''#195#16'/'
|
||||
+#135'T'#192'}'#29'-*FK'#211#129#13#162#255'4'#13'"F'#134'!'#11#0'i'#226'f'
|
||||
+#134#237#131#128'6'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TRColorPicker','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#143'IDATH'#199'c`'#160
|
||||
+'1`$V'#225#239#170#170#255#164#24#204#218#214#198#200#192#192#192#192'B'#172
|
||||
+#134'/d'#250'`'#240'X'#240#149#214#22'|'#166#212#130'5+f'#194'#1$"'#157#145
|
||||
+#170'>X'#179'b'#230#255#224#240'4'#184#224#26#6#134#255#232#150'P5'#136#130
|
||||
+#195#211'0,'#249'L'#237'8@'#183#132'&'#145#140'l'#9'M,X'#187'r'#22'<'#194#169
|
||||
+#158#15#144#13#167#186#5#232#134'SlAHD:'#227#26#6#6#218#229#3'\'#134#14#173
|
||||
+#162'b'#192#11#187#209' '#26#186'U&'#205#1#0'C'#2'<{?'#184#187'_'#0#0#0#0'IE'
|
||||
+'ND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TSColorPicker','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#140'IDATH'#199#237#146
|
||||
+'1'#10#3'!'#16'E'#159#144'-'#236#4'At'#147#173#189#136'7'#245#26#150'^'#198
|
||||
+#206'e'#3#150#166'X'#2#233#146#144'l'#147#248#154#153#15#195'|'#254'00'#248
|
||||
+'y'#196#179#1#239'}/'#165'PkE)'#133'1'#134#249'<'#179'\'#22'b'#140#226'c'#3#0
|
||||
+#231'\o'#173'!'#165'Dk'#141#181#150#148#146#248'J'#130#199'$'#211'4'#161#148
|
||||
+'"'#231','#14#185'g'#8#161#255#241#23#245#190'v'#216#128'+{'#189#247#239#234
|
||||
+'m_,V'#1'p::'#193'0'#24#6#131#193#11#220#0']'#214','#236#161'*'#153#199#0#0#0
|
||||
+#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TSLColorPicker','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#1#143'IDATH'#199#221#148
|
||||
+'-w'#194'0'#20#134#31#206#153#232'~'#194'$'#146'J'#28'H*+'#145#200#225#138#27
|
||||
+#18'9'#139'c'#14#228'$'#18#217#202#226#192#129#156#156'l\'#174'c'#130#211#144
|
||||
+#182#233#199#228'v#'#146'&'#233#251'qs'#207#133#191#30#189'|'#161#181#190')'
|
||||
+#20#26#141'B!'#8#25'Ya'#254#213#249#179#244#0#158'r'#2'%'#238#159#237#161#209
|
||||
+#8'r'#23#132#6'0'#223#229'9'#15'C'#160'3]'#1'*'#175#237#209#4#234'$P'#162#12
|
||||
+'`'#238#162'Ld'#196'8'#156#148#215#21#2'Q'#197#180'4'#185#200'U'#219#202#235
|
||||
+'\'#24#130'L'#187#193#203'oa'#171'w'#17'5:'#232#10#238'J[+A&'#237'`mj'#155#29
|
||||
+'d'#237#224'vZ'#186#10'xT'#145'R'#5' '#23'x'#29'a'''#7'Z'#235'J'#149'D'#175
|
||||
+#17#131#151#1#215#239'+'#171#221#170#150#176#28#246'^'#193#129'm'#127#183#217
|
||||
+#225#225#17'.B'#14#155#3#251#247'='#147#197#196'Y=M'#143#253'x'#3'yT'#197#242
|
||||
+'my'#7#159#135#8'B0'#15#136#183'1'#235'hM'#180#142#10#10#203'-'#163#190#138
|
||||
+#178#204'\'#28#244#7#4#211#160#0'0'#156#14'I?SS'#12#174#148#184'H'#10#14#242
|
||||
+#11#231#235#153'x'#31'3'#12#135#230#226#233'p'#226'x>"'#210#158#22'g'#187#30
|
||||
+#141'F7[E'#154#164'x'#158#135'?'#246#185#164#23'D'#4#127#226#215#166#165#178
|
||||
+'>'#210#171'u'#0#224#143'}'#182#31'[N'#201#137#228#152'0'#139'f'#181#149#210
|
||||
+#212#147#140#131'~'#191#127'k'#234#138'm'#229'X'#217#251'*9'#200#31#25#0#143
|
||||
+'N`]'#206#11')'#178'n'#255#26#232#255#198#15'y'#189#200#229#17'+'#148'C'#0#0
|
||||
+#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('TSLHColorPicker','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#2'cIDATH'#199#237#149'!T'
|
||||
+'#1'#16#134#191'}'#175'"'#184#226'8y'#178'8'#144#149#135'ke'#229'J'#234#192
|
||||
+#29#18#137'<\%'#200#226'*'#139'c'#229#213#129#187#202#147#212'%.'#191#235#137
|
||||
+'d'#147#236'R'#222#249'{'#23#147'd'#178#249'g'#254#127'f'#178#240#127#252'eT'
|
||||
+#0#222#239#247'N'#194#3'N o'#176#206#225'0x@'#2#231#193#11'\'#220#251'h'#19
|
||||
+'`'#21'l'#24#195#246#186#170#246'g''{'#222#161#218#237#170#1#128#147#203#23#4
|
||||
+'V'#226#221'Z'#4#192'1N'#17'$'#130#219#246#187#214'y'#180#153#163#24#246#183
|
||||
+']'#152#239'a'#0#224#173#13#145#23#151#0#16#8#139'W\{'#18#163#246#27#137'h'
|
||||
+#12#193#0'P'#155#176#191#23#145#129#144#20#162#140#209#169#0#18#193'N\S8'#164
|
||||
+#216#183#195#157#229#253#0'@'#206'%'#218#165#166#130#142'=1'#1#188#207' >1'
|
||||
+#14#139#231'"'#201#3#0#235'=rJ'#242#180#17#251#130'I'#146#166#136'Z%'#163'b,'
|
||||
+#251#14#228'\'#150#167#7'H'#187'>t'#214#130'G'#167'GX'#0#26'L:'#12#12'$d}'
|
||||
+#146#135'X'#174#208#211#249#208#220'9o'#203'h'#18#231#167#200#192'Z'#156#148
|
||||
+'%'#241#133#230't'#147#222'aC'#150#17#1#166#245':'#235'9'#144#240'V'#9#228
|
||||
+#242'j'#194#232#203#136#237#251#150#187#251#231#156#228'B'#166'4'#202'rM'#180
|
||||
+'&'#189'$G'#6#18','#22'w'#24#12#179#249#13#171#135#31','#23'#'#166#245#237#7
|
||||
+#221#197#1#169'L'#212#190'1'#189'2'#149#144#19'W'#223'/'#3'x}'#141#128#139
|
||||
+#217'5/'#171#5'w'#183'3'#174'n'#150#185#228#149'1s'#142#4#12'[eRnB'#163'9'
|
||||
+#135#181#158#209#215#17#211'Y'#157'4'#245#192'xZ'#211#172#30'A'#139#220'O>'
|
||||
+#231#182','#209#212#15#235'^'#163'y'#239#145#28'o'#219'7'#214#171'%'#227#139
|
||||
+'i'#186#251#250#178'f'#243#182'A'#222'u'#28''''#236'R'#174#232'a'#236#130#189
|
||||
+'i_'#211#201'd'#178#183#177'>'#155'f'#141'1'#134#211#241#5#191'~'#190' '#137
|
||||
+#211#241'4!'#246#171#182't0<1'#236'6'#207#213#131#217#239#17#204#169#170#156
|
||||
+#3#133#215#243#252'|'#204#226#241#7#175#205#154'f'#211'0'#191#188#9#160#250
|
||||
+#160'H'#17'y'#203#198't'#138't'#222#169'"'#231#210#197#186#158'wZ?%'#242#16
|
||||
+'x'#167#249'B'#146#135#252#238#150#169's.'#228#225#224#237'OM'#249#236'C'#151
|
||||
+'?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
|
||||
]);
|
||||
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
|
||||
]);
|
||||
51
components/mbColorLib/mbReg.pas
Normal file
51
components/mbColorLib/mbReg.pas
Normal file
@ -0,0 +1,51 @@
|
||||
unit mbReg;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
//{$R mbReg.res}
|
||||
|
||||
uses
|
||||
RColorPicker, GColorPicker, BColorPicker,
|
||||
RAxisColorPicker, GAxisColorPicker, BAxisColorPicker,
|
||||
CColorPicker, YColorPicker, MColorPicker, KColorPicker,
|
||||
HRingPicker,
|
||||
HColorPicker, SColorPicker, LColorPicker, VColorPicker,
|
||||
HSColorPicker, HSVColorPicker, HSLColorPicker, HSLRingPicker,
|
||||
SLColorPicker, SLHColorPicker,
|
||||
CIEAColorPicker, CIEBColorPicker, CIELColorPicker,
|
||||
HexaColorPicker, mbColorPreview, mbColorList, mbColorTree, mbColorPalette,
|
||||
mbOfficeColorDialog, mbDeskPickerButton,
|
||||
LResources;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [
|
||||
TRColorPicker, TGColorPicker, TBColorPicker,
|
||||
TRAxisColorPicker, TGAxisColorPicker, TBAxisColorPicker,
|
||||
TCColorPicker, TYColorPicker, TMColorPicker, TKColorPicker,
|
||||
THRingPicker,
|
||||
THColorPicker, TSColorPicker, TLColorPicker, TVColorPicker,
|
||||
THSColorPicker, THSVColorPicker, THSLColorPicker, THSLRingPicker,
|
||||
TSLColorPicker, TSLHColorPicker,
|
||||
TCIEAColorPicker, TCIEBColorPicker, TCIELColorPicker,
|
||||
THexaColorPicker, TmbColorPreview, TmbColorList, TmbColorTree, TmbColorPalette,
|
||||
TmbOfficeColorDialog, TmbDeskPickerButton]);
|
||||
end;
|
||||
|
||||
|
||||
{$IFDEF FPC}
|
||||
initialization
|
||||
{$I mbReg.lrs}
|
||||
{$ENDIF}
|
||||
|
||||
end.
|
||||
|
||||
@ -9,157 +9,153 @@ interface
|
||||
{$I mxs.inc}
|
||||
|
||||
uses
|
||||
{$IFDEF FPC}LCLIntf, LCLType, LMessages,
|
||||
{$ELSE} Windows, Messages,
|
||||
{$ENDIF}
|
||||
SysUtils, Classes, Controls, Graphics, Forms,
|
||||
{$IFDEF DELPHI_7_UP} Themes, {$ENDIF} ExtCtrls, PalUtils, mbBasicPicker;
|
||||
{$IFDEF FPC}
|
||||
LCLIntf, LCLType, LMessages,
|
||||
{$ELSE}
|
||||
Windows, Messages,
|
||||
{$ENDIF}
|
||||
SysUtils, Classes, Controls, Graphics, Forms,
|
||||
{$IFDEF DELPHI_7_UP} Themes, {$ENDIF} ExtCtrls, PalUtils, mbBasicPicker;
|
||||
|
||||
const
|
||||
TBA_Resize = 0;
|
||||
TBA_Paint = 1;
|
||||
TBA_MouseMove = 2;
|
||||
TBA_MouseDown = 3;
|
||||
TBA_MouseUp = 4;
|
||||
TBA_WheelUp = 5;
|
||||
TBA_WheelDown = 6;
|
||||
TBA_VKUp = 7;
|
||||
TBA_VKCtrlUp = 8;
|
||||
TBA_VKDown = 9;
|
||||
TBA_VKCtrlDown = 10;
|
||||
TBA_VKLeft = 11;
|
||||
TBA_VKCtrlLeft = 12;
|
||||
TBA_VKRight = 13;
|
||||
TBA_VKCtrlRight = 14;
|
||||
TBA_RedoBMP = 15;
|
||||
TBA_Resize = 0;
|
||||
TBA_Paint = 1;
|
||||
TBA_MouseMove = 2;
|
||||
TBA_MouseDown = 3;
|
||||
TBA_MouseUp = 4;
|
||||
TBA_WheelUp = 5;
|
||||
TBA_WheelDown = 6;
|
||||
TBA_VKUp = 7;
|
||||
TBA_VKCtrlUp = 8;
|
||||
TBA_VKDown = 9;
|
||||
TBA_VKCtrlDown = 10;
|
||||
TBA_VKLeft = 11;
|
||||
TBA_VKCtrlLeft = 12;
|
||||
TBA_VKRight = 13;
|
||||
TBA_VKCtrlRight = 14;
|
||||
TBA_RedoBMP = 15;
|
||||
|
||||
type
|
||||
TTrackBarLayout = (lyHorizontal, lyVertical);
|
||||
TSliderPlacement = (spBefore, spAfter, spBoth);
|
||||
TSelIndicator = (siArrows, siRect);
|
||||
TTrackBarLayout = (lyHorizontal, lyVertical);
|
||||
TSliderPlacement = (spBefore, spAfter, spBoth);
|
||||
TSelIndicator = (siArrows, siRect);
|
||||
|
||||
TmbTrackBarPicker = class(TmbBasicPicker)
|
||||
private
|
||||
mx, my: integer;
|
||||
FOnChange: TNotifyEvent;
|
||||
FIncrement: integer;
|
||||
FHintFormat: string;
|
||||
FLayout: TTrackBarLayout;
|
||||
FPlacement: TSliderPlacement;
|
||||
FNewArrowStyle: boolean;
|
||||
Aw, Ah: integer;
|
||||
FDoChange: boolean;
|
||||
FSelIndicator: TSelIndicator;
|
||||
FWebSafe: boolean;
|
||||
FBevelInner: TBevelCut;
|
||||
FBevelOuter: TBevelCut;
|
||||
FBevelWidth: TBevelWidth;
|
||||
FBorderStyle: TBorderStyle;
|
||||
TmbTrackBarPicker = class(TmbBasicPicker)
|
||||
private
|
||||
mx, my: integer;
|
||||
FOnChange: TNotifyEvent;
|
||||
FIncrement: integer;
|
||||
FHintFormat: string;
|
||||
FPlacement: TSliderPlacement;
|
||||
FNewArrowStyle: boolean;
|
||||
Aw, Ah: integer;
|
||||
FDoChange: boolean;
|
||||
FSelIndicator: TSelIndicator;
|
||||
FWebSafe: boolean;
|
||||
FBevelInner: TBevelCut;
|
||||
FBevelOuter: TBevelCut;
|
||||
FBevelWidth: TBevelWidth;
|
||||
FBorderStyle: TBorderStyle;
|
||||
|
||||
procedure SetBevelInner(Value: TBevelCut);
|
||||
procedure SetBevelOuter(Value: TBevelCut);
|
||||
procedure SetBevelWidth(Value: TBevelWidth);
|
||||
procedure SetBorderStyle(Value: TBorderStyle);
|
||||
procedure SetWebSafe(s: boolean);
|
||||
function XToArrowPos(p: integer): integer;
|
||||
function YToArrowPos(p: integer): integer;
|
||||
procedure SetLayout(Value: TTrackBarLayout);
|
||||
procedure SetNewArrowStyle(s: boolean);
|
||||
procedure SetPlacement(Value: TSliderPlacement);
|
||||
procedure DrawMarker(p: integer);
|
||||
procedure SetSelIndicator(Value: TSelIndicator);
|
||||
procedure CalcPickRect;
|
||||
protected
|
||||
FArrowPos: integer;
|
||||
FManual: boolean;
|
||||
FChange: boolean;
|
||||
FPickRect: TRect;
|
||||
FLimit: integer;
|
||||
procedure SetBevelInner(Value: TBevelCut);
|
||||
procedure SetBevelOuter(Value: TBevelCut);
|
||||
procedure SetBevelWidth(Value: TBevelWidth);
|
||||
procedure SetBorderStyle(Value: TBorderStyle);
|
||||
procedure SetWebSafe(s: boolean);
|
||||
function XToArrowPos(p: integer): integer;
|
||||
function YToArrowPos(p: integer): integer;
|
||||
procedure SetLayout(Value: TTrackBarLayout);
|
||||
procedure SetNewArrowStyle(s: boolean);
|
||||
procedure SetPlacement(Value: TSliderPlacement);
|
||||
procedure DrawMarker(p: integer);
|
||||
procedure SetSelIndicator(Value: TSelIndicator);
|
||||
procedure CalcPickRect;
|
||||
protected
|
||||
FArrowPos: integer;
|
||||
FManual: boolean;
|
||||
FChange: boolean;
|
||||
FPickRect: TRect;
|
||||
FLayout: TTrackBarLayout;
|
||||
FLimit: integer;
|
||||
procedure CreateGradient; override;
|
||||
procedure Paint; override;
|
||||
procedure DrawFrames; dynamic;
|
||||
procedure Resize; override;
|
||||
procedure CreateWnd; override;
|
||||
procedure Execute(tbaAction: integer); dynamic;
|
||||
function GetArrowPos: integer; dynamic;
|
||||
function GetHintStr: string;
|
||||
function GetSelectedValue: integer; virtual; abstract;
|
||||
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
|
||||
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
|
||||
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
|
||||
procedure CMHintShow(var Message: TCMHintShow); message CM_HINTSHOW;
|
||||
procedure WheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
|
||||
procedure WheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
|
||||
{$IFDEF DELPHI}
|
||||
procedure CNKeyDown(var Message: TWMKeyDown); message CN_KEYDOWN;
|
||||
procedure CMGotFocus(var Message: TCMGotFocus); message CM_ENTER;
|
||||
procedure CMLostFocus(var Message: TCMLostFocus); message CM_EXIT;
|
||||
{$ELSE}
|
||||
procedure CNKeyDown(var Message: TLMKeyDown); message CN_KEYDOWN;
|
||||
procedure CMGotFocus(var Message: TLMessage); message CM_ENTER;
|
||||
procedure CMLostFocus(var Message: TLMessage); message CM_EXIT;
|
||||
{$ENDIF}
|
||||
|
||||
procedure CreateGradient; override;
|
||||
procedure Paint; override;
|
||||
procedure DrawFrames; dynamic;
|
||||
procedure Resize; override;
|
||||
procedure CreateWnd; override;
|
||||
procedure Execute(tbaAction: integer); dynamic;
|
||||
function GetArrowPos: integer; dynamic;
|
||||
function GetHintStr: string;
|
||||
function GetSelectedValue: integer; virtual; abstract;
|
||||
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
|
||||
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
|
||||
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
property Manual: boolean read FManual;
|
||||
|
||||
procedure CMHintShow(var Message: TCMHintShow); message CM_HINTSHOW;
|
||||
procedure WheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
|
||||
procedure WheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
|
||||
{$IFDEF DELPHI}
|
||||
procedure CNKeyDown(var Message: TWMKeyDown); message CN_KEYDOWN;
|
||||
procedure CMGotFocus(var Message: TCMGotFocus); message CM_ENTER;
|
||||
procedure CMLostFocus(var Message: TCMLostFocus); message CM_EXIT;
|
||||
{$ELSE}
|
||||
procedure CNKeyDown(var Message: TLMKeyDown); message CN_KEYDOWN;
|
||||
procedure CMGotFocus(var Message: TLMessage); message CM_ENTER;
|
||||
procedure CMLostFocus(var Message: TLMessage); message CM_EXIT;
|
||||
{$ENDIF}
|
||||
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
property Manual: boolean read FManual;
|
||||
|
||||
published
|
||||
property BevelInner: TPanelBevel read FBevelInner write SetBevelInner default bvNone;
|
||||
property BevelOuter: TPanelBevel read FBevelOuter write SetBevelOuter default bvNone;
|
||||
property BevelWidth: TBevelWidth read FBevelWidth write SetBevelWidth default 1;
|
||||
property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsNone;
|
||||
|
||||
property HintFormat: string read FHintFormat write FHintFormat;
|
||||
property Increment: integer read FIncrement write FIncrement default 1;
|
||||
property Layout: TTrackBarLayout read FLayout write SetLayout default lyHorizontal;
|
||||
property ArrowPlacement: TSliderPlacement read FPlacement write SetPlacement default spAfter;
|
||||
property NewArrowStyle: boolean read FNewArrowStyle write SetNewArrowStyle default false;
|
||||
property SelectionIndicator: TSelIndicator read FSelIndicator write SetSelIndicator default siArrows;
|
||||
property WebSafe: boolean read FWebSafe write SetWebSafe default false;
|
||||
property TabStop default true;
|
||||
property ShowHint;
|
||||
property Color;
|
||||
property ParentColor;
|
||||
{$IFDEF DELPHI_7_UP}
|
||||
{$IFDEF DELPHI}
|
||||
property ParentBackground default true;
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
property ParentShowHint default true;
|
||||
property Anchors;
|
||||
property Align;
|
||||
property Visible;
|
||||
property Enabled;
|
||||
property PopupMenu;
|
||||
property TabOrder;
|
||||
property DragCursor;
|
||||
property DragMode;
|
||||
property DragKind;
|
||||
property Constraints;
|
||||
|
||||
property OnChange: TNotifyEvent read FOnChange write FOnChange;
|
||||
property OnContextPopup;
|
||||
property OnMouseDown;
|
||||
property OnMouseMove;
|
||||
property OnMouseUp;
|
||||
property OnMouseWheel;
|
||||
property OnMouseWheelUp;
|
||||
property OnMouseWheelDown;
|
||||
property OnKeyDown;
|
||||
property OnKeyPress;
|
||||
property OnKeyUp;
|
||||
property OnDragDrop;
|
||||
property OnDragOver;
|
||||
property OnEndDrag;
|
||||
property OnEnter;
|
||||
property OnExit;
|
||||
property OnResize;
|
||||
property OnStartDrag;
|
||||
end;
|
||||
published
|
||||
property BevelInner: TPanelBevel read FBevelInner write SetBevelInner default bvNone;
|
||||
property BevelOuter: TPanelBevel read FBevelOuter write SetBevelOuter default bvNone;
|
||||
property BevelWidth: TBevelWidth read FBevelWidth write SetBevelWidth default 1;
|
||||
property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsNone;
|
||||
property HintFormat: string read FHintFormat write FHintFormat;
|
||||
property Increment: integer read FIncrement write FIncrement default 1;
|
||||
property Layout: TTrackBarLayout read FLayout write SetLayout default lyHorizontal;
|
||||
property ArrowPlacement: TSliderPlacement read FPlacement write SetPlacement default spAfter;
|
||||
property NewArrowStyle: boolean read FNewArrowStyle write SetNewArrowStyle default false;
|
||||
property SelectionIndicator: TSelIndicator read FSelIndicator write SetSelIndicator default siArrows;
|
||||
property WebSafe: boolean read FWebSafe write SetWebSafe default false;
|
||||
property TabStop default true;
|
||||
property ShowHint;
|
||||
property Color;
|
||||
property ParentColor;
|
||||
{$IFDEF DELPHI_7_UP}{$IFDEF DELPHI}
|
||||
property ParentBackground default true;
|
||||
{$ENDIF}{$ENDIF}
|
||||
property ParentShowHint default true;
|
||||
property Anchors;
|
||||
property Align;
|
||||
property Visible;
|
||||
property Enabled;
|
||||
property PopupMenu;
|
||||
property TabOrder;
|
||||
property DragCursor;
|
||||
property DragMode;
|
||||
property DragKind;
|
||||
property Constraints;
|
||||
property OnChange: TNotifyEvent read FOnChange write FOnChange;
|
||||
property OnContextPopup;
|
||||
property OnMouseDown;
|
||||
property OnMouseMove;
|
||||
property OnMouseUp;
|
||||
property OnMouseWheel;
|
||||
property OnMouseWheelUp;
|
||||
property OnMouseWheelDown;
|
||||
property OnKeyDown;
|
||||
property OnKeyPress;
|
||||
property OnKeyUp;
|
||||
property OnDragDrop;
|
||||
property OnDragOver;
|
||||
property OnEndDrag;
|
||||
property OnEnter;
|
||||
property OnExit;
|
||||
property OnResize;
|
||||
property OnStartDrag;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
@ -178,23 +174,14 @@ const
|
||||
|
||||
BDR_OUTER = 3;
|
||||
BDR_INNER = 12;
|
||||
BDR_RAISED = 5;
|
||||
BDR_SUNKEN = 10;
|
||||
|
||||
{ Border flags }
|
||||
BF_LEFT = 1;
|
||||
BF_TOP = 2;
|
||||
BF_RIGHT = 4;
|
||||
BF_BOTTOM = 8;
|
||||
|
||||
BF_TOPLEFT = (BF_TOP or BF_LEFT);
|
||||
BF_TOPRIGHT = (BF_TOP or BF_RIGHT);
|
||||
BF_BOTTOMLEFT = (BF_BOTTOM or BF_LEFT);
|
||||
BF_BOTTOMRIGHT = (BF_BOTTOM or BF_RIGHT);
|
||||
BF_RECT = (BF_LEFT or BF_TOP or BF_RIGHT or BF_BOTTOM);
|
||||
|
||||
BF_DIAGONAL = $10;
|
||||
|
||||
|
||||
{TmbTrackBarPicker}
|
||||
|
||||
@ -410,29 +397,29 @@ end;
|
||||
|
||||
procedure TmbTrackBarPicker.DrawFrames;
|
||||
var
|
||||
flags: cardinal;
|
||||
R: TRect;
|
||||
i: integer;
|
||||
flags: cardinal;
|
||||
R: TRect;
|
||||
i: integer;
|
||||
begin
|
||||
flags := 0;
|
||||
if (FBorderStyle = bsNone) or (FBevelWidth = 0) then Exit;
|
||||
case FBevelInner of
|
||||
bvNone: flags := 0;
|
||||
bvRaised: flags := BDR_RAISEDINNER;
|
||||
bvLowered: flags := BDR_SUNKENINNER;
|
||||
bvSpace: flags := BDR_INNER;
|
||||
end;
|
||||
case FBevelOuter of
|
||||
bvRaised: flags := flags or BDR_RAISEDOUTER;
|
||||
bvLowered: flags := flags or BDR_SUNKENOUTER;
|
||||
bvSpace: flags := flags or BDR_OUTER;
|
||||
end;
|
||||
R := FPickRect;
|
||||
InflateRect(R, -FBevelWidth + 1, -FBevelWidth + 1);
|
||||
for i := 0 to FBevelWidth do
|
||||
flags := 0;
|
||||
if (FBorderStyle = bsNone) or (FBevelWidth = 0) then Exit;
|
||||
case FBevelInner of
|
||||
bvNone: flags := 0;
|
||||
bvRaised: flags := BDR_RAISEDINNER;
|
||||
bvLowered: flags := BDR_SUNKENINNER;
|
||||
bvSpace: flags := BDR_INNER;
|
||||
end;
|
||||
case FBevelOuter of
|
||||
bvRaised: flags := flags or BDR_RAISEDOUTER;
|
||||
bvLowered: flags := flags or BDR_SUNKENOUTER;
|
||||
bvSpace: flags := flags or BDR_OUTER;
|
||||
end;
|
||||
R := FPickRect;
|
||||
InflateRect(R, -FBevelWidth + 1, -FBevelWidth + 1);
|
||||
for i := 0 to FBevelWidth do
|
||||
begin
|
||||
DrawEdge(Canvas.Handle, R, flags, BF_RECT);
|
||||
InflateRect(R, 1, 1);
|
||||
DrawEdge(Canvas.Handle, R, flags, BF_RECT);
|
||||
InflateRect(R, 1, 1);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -520,7 +507,7 @@ begin
|
||||
Canvas.Polygon([Point(x, y), Point(x - 4, y + 4), Point(x - 4, y + 6),
|
||||
Point(x - 3, y + 7), Point(x + 3, y + 7), Point(x + 4, y + 6),
|
||||
Point(x + 4, y + 4) ]);
|
||||
y := Aw;
|
||||
y := Aw;
|
||||
if not FNewArrowStyle then
|
||||
Canvas.Polygon([Point(x, y), Point(x - 4, y - 6), Point(x +4, y - 6) ])
|
||||
else
|
||||
@ -655,105 +642,105 @@ end;
|
||||
|
||||
procedure TmbTrackBarPicker.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
{$IFDEF DELPHI}
|
||||
ClipCursor(nil);
|
||||
{$ENDIF}
|
||||
if Button <> mbLeft then Exit;
|
||||
mx := x;
|
||||
my := y;
|
||||
if FLayout = lyHorizontal then
|
||||
FArrowPos := XToArrowPos(x)
|
||||
else
|
||||
FArrowPos := YToArrowPos(y);
|
||||
Execute(TBA_MouseUp);
|
||||
FManual := true;
|
||||
FDoChange := true;
|
||||
Invalidate;
|
||||
inherited;
|
||||
{$IFDEF DELPHI}
|
||||
ClipCursor(nil);
|
||||
{$ENDIF}
|
||||
if Button <> mbLeft then
|
||||
exit;
|
||||
mx := x;
|
||||
my := y;
|
||||
if FLayout = lyHorizontal then
|
||||
FArrowPos := XToArrowPos(x)
|
||||
else
|
||||
FArrowPos := YToArrowPos(y);
|
||||
Execute(TBA_MouseUp);
|
||||
FManual := true;
|
||||
FDoChange := true;
|
||||
Invalidate;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TmbTrackBarPicker.CNKeyDown(
|
||||
var Message: {$IFDEF FPC}TLMKeyDown{$ELSE}TWMKeyDown{$ENDIF});
|
||||
var
|
||||
Shift: TShiftState;
|
||||
FInherited: boolean;
|
||||
Shift: TShiftState;
|
||||
FInherited: boolean;
|
||||
begin
|
||||
FInherited := false;
|
||||
Shift := KeyDataToShiftState(Message.KeyData);
|
||||
case Message.CharCode of
|
||||
VK_UP:
|
||||
begin
|
||||
if FLayout = lyHorizontal then
|
||||
begin
|
||||
inherited;
|
||||
Exit;
|
||||
end;
|
||||
FChange := false;
|
||||
if not (ssCtrl in Shift) then
|
||||
Execute(TBA_VKUp)
|
||||
FInherited := false;
|
||||
Shift := KeyDataToShiftState(Message.KeyData);
|
||||
case Message.CharCode of
|
||||
VK_UP:
|
||||
begin
|
||||
if FLayout = lyHorizontal then
|
||||
begin
|
||||
inherited;
|
||||
Exit;
|
||||
end;
|
||||
FChange := false;
|
||||
if not (ssCtrl in Shift) then
|
||||
Execute(TBA_VKUp)
|
||||
else
|
||||
Execute(TBA_VKCtrlUp);
|
||||
FManual := true;
|
||||
FChange := true;
|
||||
if Assigned(FOnChange) then FOnChange(Self);
|
||||
end;
|
||||
VK_LEFT:
|
||||
begin
|
||||
if FLayout = lyVertical then
|
||||
begin
|
||||
inherited;
|
||||
Exit;
|
||||
end;
|
||||
FChange := false;
|
||||
if not (ssCtrl in Shift) then
|
||||
Execute(TBA_VKLeft)
|
||||
else
|
||||
Execute(TBA_VKCtrlLeft);
|
||||
FManual := true;
|
||||
FChange := true;
|
||||
if Assigned(FOnChange) then FOnChange(Self);
|
||||
end;
|
||||
VK_RIGHT:
|
||||
begin
|
||||
if FLayout = lyVertical then
|
||||
begin
|
||||
inherited;
|
||||
Exit;
|
||||
end;
|
||||
FChange := false;
|
||||
if not (ssCtrl in Shift) then
|
||||
Execute(TBA_VKRight)
|
||||
else
|
||||
Execute(TBA_VKCtrlRight);
|
||||
FManual := true;
|
||||
FChange := true;
|
||||
if Assigned(FOnChange) then FOnChange(Self);
|
||||
end;
|
||||
VK_DOWN:
|
||||
begin
|
||||
if FLayout = lyHorizontal then
|
||||
begin
|
||||
inherited;
|
||||
Exit;
|
||||
end;
|
||||
FChange := false;
|
||||
if not (ssCtrl in Shift) then
|
||||
Execute(TBA_VKDown)
|
||||
else
|
||||
Execute(TBA_VKCtrlDown);
|
||||
FManual := true;
|
||||
FChange := true;
|
||||
if Assigned(FOnChange) then FOnChange(Self);
|
||||
end
|
||||
else
|
||||
Execute(TBA_VKCtrlUp);
|
||||
FManual := true;
|
||||
FChange := true;
|
||||
if Assigned(FOnChange) then FOnChange(Self);
|
||||
end;
|
||||
VK_LEFT:
|
||||
begin
|
||||
if FLayout = lyVertical then
|
||||
begin
|
||||
inherited;
|
||||
Exit;
|
||||
end;
|
||||
FChange := false;
|
||||
if not (ssCtrl in Shift) then
|
||||
Execute(TBA_VKLeft)
|
||||
else
|
||||
Execute(TBA_VKCtrlLeft);
|
||||
FManual := true;
|
||||
FChange := true;
|
||||
if Assigned(FOnChange) then FOnChange(Self);
|
||||
end;
|
||||
VK_RIGHT:
|
||||
begin
|
||||
if FLayout = lyVertical then
|
||||
begin
|
||||
inherited;
|
||||
Exit;
|
||||
end;
|
||||
FChange := false;
|
||||
if not (ssCtrl in Shift) then
|
||||
Execute(TBA_VKRight)
|
||||
else
|
||||
Execute(TBA_VKCtrlRight);
|
||||
FManual := true;
|
||||
FChange := true;
|
||||
if Assigned(FOnChange) then FOnChange(Self);
|
||||
end;
|
||||
VK_DOWN:
|
||||
begin
|
||||
if FLayout = lyHorizontal then
|
||||
begin
|
||||
inherited;
|
||||
Exit;
|
||||
end;
|
||||
FChange := false;
|
||||
if not (ssCtrl in Shift) then
|
||||
Execute(TBA_VKDown)
|
||||
else
|
||||
Execute(TBA_VKCtrlDown);
|
||||
FManual := true;
|
||||
FChange := true;
|
||||
if Assigned(FOnChange) then FOnChange(Self);
|
||||
end
|
||||
else
|
||||
begin
|
||||
FInherited := true;
|
||||
inherited;
|
||||
end;
|
||||
end;
|
||||
if not FInherited then
|
||||
if Assigned(OnKeyDown) then
|
||||
OnKeyDown(Self, Message.CharCode, Shift);
|
||||
begin
|
||||
FInherited := true;
|
||||
inherited;
|
||||
end;
|
||||
end; // case
|
||||
if not FInherited and Assigned(OnKeyDown) then
|
||||
OnKeyDown(Self, Message.CharCode, Shift);
|
||||
end;
|
||||
|
||||
procedure TmbTrackBarPicker.CMHintShow(var Message: TCMHintShow);
|
||||
@ -811,11 +798,16 @@ begin
|
||||
if Assigned(FOnChange) then FOnChange(Self);
|
||||
end;
|
||||
|
||||
{ IMPORTANT: If pickers are created at designtime the layout must be set before
|
||||
defining the picker width and height because using a non-default layout will
|
||||
flip the bounding rectangle !!! }
|
||||
procedure TmbTrackBarPicker.SetLayout(Value: TTrackBarLayout);
|
||||
begin
|
||||
if FLayout <> Value then
|
||||
begin
|
||||
FLayout := Value;
|
||||
if not (csLoading in ComponentState) then
|
||||
SetBounds(Left, Top, Height, Width); // flip rectangle
|
||||
Execute(TBA_RedoBMP);
|
||||
Invalidate;
|
||||
end;
|
||||
|
||||
@ -15,7 +15,7 @@
|
||||
<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."/>
|
||||
<Version Major="2" Release="2"/>
|
||||
<Files Count="45">
|
||||
<Files Count="46">
|
||||
<Item1>
|
||||
<Filename Value="PalUtils.pas"/>
|
||||
<UnitName Value="PalUtils"/>
|
||||
@ -42,7 +42,6 @@
|
||||
</Item6>
|
||||
<Item7>
|
||||
<Filename Value="mbColorList.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="mbColorList"/>
|
||||
</Item7>
|
||||
<Item8>
|
||||
@ -51,52 +50,42 @@
|
||||
</Item8>
|
||||
<Item9>
|
||||
<Filename Value="BColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="BColorPicker"/>
|
||||
</Item9>
|
||||
<Item10>
|
||||
<Filename Value="GColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="GColorPicker"/>
|
||||
</Item10>
|
||||
<Item11>
|
||||
<Filename Value="RColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="RColorPicker"/>
|
||||
</Item11>
|
||||
<Item12>
|
||||
<Filename Value="HColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="HColorPicker"/>
|
||||
</Item12>
|
||||
<Item13>
|
||||
<Filename Value="KColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="KColorPicker"/>
|
||||
</Item13>
|
||||
<Item14>
|
||||
<Filename Value="LColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="LColorPicker"/>
|
||||
</Item14>
|
||||
<Item15>
|
||||
<Filename Value="MColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="MColorPicker"/>
|
||||
</Item15>
|
||||
<Item16>
|
||||
<Filename Value="VColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="VColorPicker"/>
|
||||
</Item16>
|
||||
<Item17>
|
||||
<Filename Value="YColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="YColorPicker"/>
|
||||
</Item17>
|
||||
<Item18>
|
||||
<Filename Value="mbColorPreview.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="mbColorPreview"/>
|
||||
</Item18>
|
||||
<Item19>
|
||||
@ -109,62 +98,50 @@
|
||||
</Item20>
|
||||
<Item21>
|
||||
<Filename Value="BAxisColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="BAxisColorPicker"/>
|
||||
</Item21>
|
||||
<Item22>
|
||||
<Filename Value="GAxisColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="GAxisColorPicker"/>
|
||||
</Item22>
|
||||
<Item23>
|
||||
<Filename Value="RAxisColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="RAxisColorPicker"/>
|
||||
</Item23>
|
||||
<Item24>
|
||||
<Filename Value="CIEAColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="CIEAColorPicker"/>
|
||||
</Item24>
|
||||
<Item25>
|
||||
<Filename Value="CIEBColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="CIEBColorPicker"/>
|
||||
</Item25>
|
||||
<Item26>
|
||||
<Filename Value="CIELColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="CIELColorPicker"/>
|
||||
</Item26>
|
||||
<Item27>
|
||||
<Filename Value="HRingPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="HRingPicker"/>
|
||||
</Item27>
|
||||
<Item28>
|
||||
<Filename Value="HexaColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="HexaColorPicker"/>
|
||||
</Item28>
|
||||
<Item29>
|
||||
<Filename Value="HSColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="HSColorPicker"/>
|
||||
</Item29>
|
||||
<Item30>
|
||||
<Filename Value="SLColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="SLColorPicker"/>
|
||||
</Item30>
|
||||
<Item31>
|
||||
<Filename Value="SLHColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="SLHColorPicker"/>
|
||||
</Item31>
|
||||
<Item32>
|
||||
<Filename Value="HSVColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="HSVColorPicker"/>
|
||||
</Item32>
|
||||
<Item33>
|
||||
@ -173,7 +150,6 @@
|
||||
</Item33>
|
||||
<Item34>
|
||||
<Filename Value="mbOfficeColorDialog.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="mbOfficeColorDialog"/>
|
||||
</Item34>
|
||||
<Item35>
|
||||
@ -182,27 +158,22 @@
|
||||
</Item35>
|
||||
<Item36>
|
||||
<Filename Value="HSLColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="HSLColorPicker"/>
|
||||
</Item36>
|
||||
<Item37>
|
||||
<Filename Value="mbColorPalette.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="mbColorPalette"/>
|
||||
</Item37>
|
||||
<Item38>
|
||||
<Filename Value="CColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="CColorPicker"/>
|
||||
</Item38>
|
||||
<Item39>
|
||||
<Filename Value="SColorPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="SColorPicker"/>
|
||||
</Item39>
|
||||
<Item40>
|
||||
<Filename Value="mbDeskPickerButton.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="mbDeskPickerButton"/>
|
||||
</Item40>
|
||||
<Item41>
|
||||
@ -211,12 +182,10 @@
|
||||
</Item41>
|
||||
<Item42>
|
||||
<Filename Value="mbColorTree.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="mbColorTree"/>
|
||||
</Item42>
|
||||
<Item43>
|
||||
<Filename Value="HSLRingPicker.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="HSLRingPicker"/>
|
||||
</Item43>
|
||||
<Item44>
|
||||
@ -225,8 +194,14 @@
|
||||
</Item44>
|
||||
<Item45>
|
||||
<Filename Value="mbutils.pas"/>
|
||||
<UnitName Value="mbutils"/>
|
||||
<UnitName Value="mbUtils"/>
|
||||
</Item45>
|
||||
<Item46>
|
||||
<Filename Value="mbReg.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<AddToUsesPkgSection Value="False"/>
|
||||
<UnitName Value="mbReg"/>
|
||||
</Item46>
|
||||
</Files>
|
||||
<RequiredPkgs Count="2">
|
||||
<Item1>
|
||||
|
||||
Reference in New Issue
Block a user