mvColorLib: Improved fix layout glitches in OfficeMoreColorsDialog, activate rgb/hsl edit's OnChange event handlers.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5468 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
parent
5795461441
commit
d92495fe69
@ -1,76 +1,70 @@
|
||||
object OfficeMoreColorsWin: TOfficeMoreColorsWin
|
||||
Left = 194
|
||||
Height = 300
|
||||
Top = 112
|
||||
Width = 331
|
||||
Height = 358
|
||||
ActiveControl = OKbtn
|
||||
BorderIcons = [biSystemMenu]
|
||||
Caption = 'More colors...'
|
||||
Color = clBtnFace
|
||||
Constraints.MinHeight = 358
|
||||
ClientHeight = 300
|
||||
ClientWidth = 331
|
||||
Constraints.MinHeight = 300
|
||||
Constraints.MinWidth = 331
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Shell Dlg 2'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
OnCreate = FormCreate
|
||||
OnKeyDown = FormKeyDown
|
||||
OnResize = FormResize
|
||||
DesignSize = (
|
||||
315
|
||||
319)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
Position = poMainFormCenter
|
||||
LCLVersion = '1.7'
|
||||
object Label4: TLabel
|
||||
Left = 268
|
||||
Top = 218
|
||||
Width = 21
|
||||
Left = 264
|
||||
Height = 13
|
||||
Anchors = [akRight, akBottom]
|
||||
Top = 72
|
||||
Width = 21
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'New'
|
||||
Transparent = True
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 260
|
||||
Top = 306
|
||||
Width = 37
|
||||
Left = 256
|
||||
Height = 13
|
||||
Anchors = [akRight, akBottom]
|
||||
Top = 160
|
||||
Width = 37
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Current'
|
||||
Transparent = True
|
||||
ParentColor = False
|
||||
end
|
||||
object Pages: TPageControl
|
||||
Left = 6
|
||||
Height = 280
|
||||
Top = 6
|
||||
Width = 227
|
||||
Height = 316
|
||||
ActivePage = Standard
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
ActivePage = Custom
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
TabIndex = 1
|
||||
TabOrder = 0
|
||||
OnChange = PagesChange
|
||||
object Standard: TTabSheet
|
||||
Caption = 'Standard'
|
||||
DesignSize = (
|
||||
219
|
||||
288)
|
||||
ClientHeight = 254
|
||||
ClientWidth = 219
|
||||
object Label2: TLabel
|
||||
Left = 6
|
||||
Height = 13
|
||||
Top = 7
|
||||
Width = 34
|
||||
Height = 13
|
||||
Caption = '&Colors:'
|
||||
FocusControl = Hexa
|
||||
Transparent = True
|
||||
ParentColor = False
|
||||
end
|
||||
object Hexa: THexaColorPicker
|
||||
Left = 6
|
||||
Left = 0
|
||||
Height = 227
|
||||
Top = 26
|
||||
Width = 209
|
||||
Height = 207
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
Width = 216
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
HintFormat = 'RGB(%r, %g, %b)'#13'Hex: %h'
|
||||
IntensityText = 'Intensity'
|
||||
TabOrder = 0
|
||||
@ -81,88 +75,90 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
|
||||
end
|
||||
object Custom: TTabSheet
|
||||
Caption = 'Custom'
|
||||
ClientHeight = 254
|
||||
ClientWidth = 219
|
||||
ImageIndex = 1
|
||||
DesignSize = (
|
||||
219
|
||||
288)
|
||||
object Label1: TLabel
|
||||
Left = 6
|
||||
Height = 13
|
||||
Top = 7
|
||||
Width = 34
|
||||
Height = 13
|
||||
Caption = '&Colors:'
|
||||
FocusControl = HSL
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 6
|
||||
Top = 178
|
||||
Width = 60
|
||||
Height = 13
|
||||
Top = 154
|
||||
Width = 60
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'Color mo&del:'
|
||||
FocusControl = ColorModel
|
||||
ParentColor = False
|
||||
end
|
||||
object LRed: TLabel
|
||||
object LRedOrHue: TLabel
|
||||
Left = 6
|
||||
Top = 204
|
||||
Width = 23
|
||||
Height = 13
|
||||
Top = 180
|
||||
Width = 23
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = '&Red:'
|
||||
ParentColor = False
|
||||
end
|
||||
object LGreen: TLabel
|
||||
object LGreenOrSat: TLabel
|
||||
Left = 6
|
||||
Top = 230
|
||||
Width = 33
|
||||
Height = 13
|
||||
Top = 206
|
||||
Width = 33
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = '&Green:'
|
||||
ParentColor = False
|
||||
end
|
||||
object LBlue: TLabel
|
||||
object LBlueOrLum: TLabel
|
||||
Left = 6
|
||||
Top = 256
|
||||
Width = 24
|
||||
Height = 13
|
||||
Top = 232
|
||||
Width = 24
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = '&Blue:'
|
||||
ParentColor = False
|
||||
end
|
||||
object HSL: THSLColorPicker
|
||||
Left = 6
|
||||
Height = 128
|
||||
Top = 20
|
||||
Width = 211
|
||||
Height = 152
|
||||
Width = 203
|
||||
HSPickerHintFormat = 'H: %h S: %s'#13'Hex: %hex'
|
||||
LPickerHintFormat = 'Luminance: %l'
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
TabOrder = 0
|
||||
OnChange = HSLChange
|
||||
DesignSize = (
|
||||
211
|
||||
152)
|
||||
end
|
||||
object ColorModel: TComboBox
|
||||
Left = 74
|
||||
Top = 172
|
||||
Width = 92
|
||||
Height = 21
|
||||
Style = csDropDownList
|
||||
Top = 148
|
||||
Width = 92
|
||||
Anchors = [akLeft, akBottom]
|
||||
ItemHeight = 13
|
||||
ItemIndex = 0
|
||||
TabOrder = 1
|
||||
Text = 'RGB'
|
||||
OnChange = ColorModelChange
|
||||
Items.Strings = (
|
||||
'RGB'
|
||||
'HSL')
|
||||
'HSL'
|
||||
)
|
||||
OnChange = ColorModelChange
|
||||
Style = csDropDownList
|
||||
TabOrder = 1
|
||||
Text = 'RGB'
|
||||
end
|
||||
end
|
||||
end
|
||||
object OKbtn: TButton
|
||||
Left = 242
|
||||
Height = 23
|
||||
Top = 6
|
||||
Width = 73
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'OK'
|
||||
ModalResult = 1
|
||||
@ -170,9 +166,9 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
|
||||
end
|
||||
object Cancelbtn: TButton
|
||||
Left = 242
|
||||
Height = 23
|
||||
Top = 36
|
||||
Width = 73
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
@ -180,23 +176,23 @@ object OfficeMoreColorsWin: TOfficeMoreColorsWin
|
||||
TabOrder = 2
|
||||
end
|
||||
object NewSwatch: TmbColorPreview
|
||||
Left = 246
|
||||
Top = 238
|
||||
Width = 68
|
||||
Left = 242
|
||||
Height = 32
|
||||
Hint = 'RGB(255, 255, 255)'
|
||||
Anchors = [akRight, akBottom]
|
||||
Top = 92
|
||||
Width = 68
|
||||
Anchors = [akTop, akRight]
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
OnColorChange = NewSwatchColorChange
|
||||
end
|
||||
object OldSwatch: TmbColorPreview
|
||||
Left = 246
|
||||
Top = 269
|
||||
Width = 68
|
||||
Left = 242
|
||||
Height = 32
|
||||
Hint = 'RGB(255, 255, 255)'#13#10'Hex: FFFFFF'
|
||||
Anchors = [akRight, akBottom]
|
||||
Top = 123
|
||||
Width = 68
|
||||
Anchors = [akTop, akRight]
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
OnColorChange = OldSwatchColorChange
|
||||
|
||||
@ -27,9 +27,9 @@ type
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
ColorModel: TComboBox;
|
||||
LRed: TLabel;
|
||||
LGreen: TLabel;
|
||||
LBlue: TLabel;
|
||||
LRedOrHue: TLabel;
|
||||
LGreenOrSat: TLabel;
|
||||
LBlueOrLum: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
OKbtn: TButton;
|
||||
@ -38,19 +38,26 @@ type
|
||||
OldSwatch: TmbColorPreview;
|
||||
procedure ColorModelChange(Sender: TObject);
|
||||
procedure HSLChange(Sender: TObject);
|
||||
procedure ERedChange(Sender: TObject);
|
||||
procedure EGreenChange(Sender: TObject);
|
||||
procedure EBlueChange(Sender: TObject);
|
||||
procedure FormKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure ERedOrHueChange(Sender: TObject);
|
||||
procedure EGreenOrSatChange(Sender: TObject);
|
||||
procedure EBlueOrLumChange(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
|
||||
procedure FormResize(Sender: TObject);
|
||||
function GetHint(c: TColor): string;
|
||||
procedure HexaChange(Sender: TObject);
|
||||
procedure NewSwatchColorChange(Sender: TObject);
|
||||
procedure OldSwatchColorChange(Sender: TObject);
|
||||
function GetHint(c: TColor): string;
|
||||
procedure SetAllToSel(c: TColor);
|
||||
procedure PagesChange(Sender: TObject);
|
||||
procedure FormResize(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure SetAllToSel(c: TColor);
|
||||
private
|
||||
{$IFDEF mbXP_Lib}
|
||||
ERedOrHue, EGreenOrSat, EBlueOrLum: TmbXPSpinEdit;
|
||||
grip: TmbXPSizeGrip;
|
||||
{$ELSE}
|
||||
ERedOrHue, EGreenOrSat, EBlueOrLum: TSpinEdit;
|
||||
{$ENDIF}
|
||||
FLockChange: Integer;
|
||||
protected
|
||||
procedure CreateParams(var Params: TCreateParams); override;
|
||||
procedure CreateWnd; override;
|
||||
@ -58,13 +65,6 @@ type
|
||||
|
||||
var
|
||||
OfficeMoreColorsWin: TOfficeMoreColorsWin;
|
||||
h, s, l: integer;
|
||||
{$IFDEF mbXP_Lib}
|
||||
ERed, EGreen, EBlue: TmbXPSpinEdit;
|
||||
grip: TmbXPSizeGrip;
|
||||
{$ELSE}
|
||||
ERed, EGreen, EBlue: TSpinEdit;
|
||||
{$ENDIF}
|
||||
|
||||
implementation
|
||||
|
||||
@ -89,32 +89,34 @@ begin
|
||||
end;
|
||||
|
||||
procedure TOfficeMoreColorsWin.ColorModelChange(Sender: TObject);
|
||||
var
|
||||
h, s, l: Integer;
|
||||
begin
|
||||
case ColorModel.ItemIndex of
|
||||
0:
|
||||
begin
|
||||
LRed.Caption := '&Red:';
|
||||
LGreen.Caption := '&Green:';
|
||||
LBlue.Caption := '&Blue:';
|
||||
ERed.MaxValue := 255;
|
||||
EGreen.MaxValue := 255;
|
||||
EBlue.MaxValue := 255;
|
||||
ERed.Value := GetRValue(NewSwatch.Color);
|
||||
EGreen.Value := GetGValue(NewSwatch.Color);
|
||||
EBlue.Value := GetBValue(NewSwatch.Color);
|
||||
LRedOrHue.Caption := '&Red:';
|
||||
LGreenOrSat.Caption := '&Green:';
|
||||
LBlueOrLum.Caption := '&Blue:';
|
||||
ERedOrHue.MaxValue := 255;
|
||||
EGreenOrSat.MaxValue := 255;
|
||||
EBlueOrLum.MaxValue := 255;
|
||||
ERedOrHue.Value := GetRValue(NewSwatch.Color);
|
||||
EGreenOrSat.Value := GetGValue(NewSwatch.Color);
|
||||
EBlueOrLum.Value := GetBValue(NewSwatch.Color);
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
LRed.Caption := 'H&ue:';
|
||||
LGreen.Caption := '&Sat:';
|
||||
LBlue.Caption := '&Lum:';
|
||||
ERed.MaxValue := 238;
|
||||
EGreen.MaxValue := 240;
|
||||
EBlue.MaxValue := 240;
|
||||
LRedOrHue.Caption := 'H&ue:';
|
||||
LGreenOrSat.Caption := '&Sat:';
|
||||
LBlueOrLum.Caption := '&Lum:';
|
||||
ERedOrHue.MaxValue := MaxHue; //238;
|
||||
EGreenOrSat.MaxValue := MaxSat; //240;
|
||||
EBlueOrLum.MaxValue := MaxLum; //240;
|
||||
RGBtoHSLRange(NewSwatch.Color, h, s, l);
|
||||
ERed.Value := h;
|
||||
EGreen.Value := s;
|
||||
EBlue.Value := l;
|
||||
ERedOrHue.Value := h;
|
||||
EGreenOrSat.Value := s;
|
||||
EBlueOrLum.Value := l;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
@ -125,70 +127,77 @@ begin
|
||||
case ColorModel.ItemIndex of
|
||||
0:
|
||||
begin
|
||||
ERed.Value := HSL.RValue;
|
||||
EGreen.Value := HSL.GValue;
|
||||
EBlue.Value := HSL.BValue;
|
||||
ERedOrHue.Value := HSL.RValue;
|
||||
EGreenOrSat.Value := HSL.GValue;
|
||||
EBlueOrLum.Value := HSL.BValue;
|
||||
NewSwatch.Color := HSL.SelectedColor;
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
ERed.Value := HSL.HValue;
|
||||
EGreen.Value := HSL.SValue;
|
||||
EBlue.Value := HSL.LValue;
|
||||
ERedOrHue.Value := HSL.HValue;
|
||||
EGreenOrSat.Value := HSL.SValue;
|
||||
EBlueOrLum.Value := HSL.LValue;
|
||||
NewSwatch.Color := HSL.SelectedColor;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TOfficeMoreColorsWin.ERedChange(Sender: TObject);
|
||||
procedure TOfficeMoreColorsWin.ERedOrHueChange(Sender: TObject);
|
||||
begin
|
||||
if (ERed.Text <> '') and
|
||||
(ERed.Focused {$IFDEF DELPHI} or ERed.Button.Focused{$ENDIF})
|
||||
inc(FLockChange);
|
||||
if (ERedOrHue.Text <> '') and
|
||||
(ERedOrHue.Focused {$IFDEF DELPHI} or ERedOrHue.Button.Focused{$ENDIF})
|
||||
then
|
||||
case ColorModel.ItemIndex of
|
||||
0: begin
|
||||
HSL.RValue := ERed.Value;
|
||||
NewSwatch.Color := RGB(ERed.Value, EGreen.Value, EBlue.Value);
|
||||
HSL.RValue := ERedOrHue.Value;
|
||||
NewSwatch.Color := RGB(ERedOrHue.Value, EGreenOrSat.Value, EBlueOrLum.Value);
|
||||
end;
|
||||
1: begin
|
||||
HSL.HValue := ERed.Value;
|
||||
NewSwatch.Color := HSLRangeToRGB(ERed.Value, EGreen.Value, EBlue.Value);
|
||||
HSL.HValue := ERedOrHue.Value;
|
||||
NewSwatch.Color := HSLRangeToRGB(ERedOrHue.Value, EGreenOrSat.Value, EBlueOrLum.Value);
|
||||
end;
|
||||
end;
|
||||
dec(FLockChange);
|
||||
end;
|
||||
|
||||
procedure TOfficeMoreColorsWin.EGreenChange(Sender: TObject);
|
||||
procedure TOfficeMoreColorsWin.EGreenOrSatChange(Sender: TObject);
|
||||
begin
|
||||
if (EGreen.Text <> '') and
|
||||
(EGreen.Focused {$IFDEF DELPHI}or EGreen.Button.Focused{$ENDIF})
|
||||
inc(FLockChange);
|
||||
NewSwatch.OnColorChange := nil;
|
||||
if (EGreenOrSat.Text <> '') and
|
||||
(EGreenOrSat.Focused {$IFDEF DELPHI}or EGreen.ButtonOrSat.Focused{$ENDIF})
|
||||
then
|
||||
case ColorModel.ItemIndex of
|
||||
0: begin
|
||||
HSL.GValue := EGreen.Value;
|
||||
NewSwatch.Color := RGB(ERed.Value, EGreen.Value, EBlue.Value);
|
||||
HSL.GValue := EGreenOrSat.Value;
|
||||
NewSwatch.Color := RGB(ERedOrHue.Value, EGreenOrSat.Value, EBlueOrLum.Value);
|
||||
end;
|
||||
1: begin
|
||||
HSL.SValue := EGreen.Value;
|
||||
NewSwatch.Color := HSLRangeToRGB(ERed.Value, EGreen.Value, EBlue.Value);
|
||||
end;
|
||||
HSL.SValue := EGreenOrSat.Value;
|
||||
NewSwatch.Color := HSLRangeToRGB(ERedOrHue.Value, EGreenOrSat.Value, EBlueOrLum.Value);
|
||||
end;
|
||||
end;
|
||||
dec(FLockChange);
|
||||
end;
|
||||
|
||||
procedure TOfficeMoreColorsWin.EBlueChange(Sender: TObject);
|
||||
procedure TOfficeMoreColorsWin.EBlueOrLumChange(Sender: TObject);
|
||||
begin
|
||||
if (EBlue.Text <> '') and
|
||||
(EBlue.Focused {$IFDEF DELPHI} or EBlue.Button.Focused{$ENDIF})
|
||||
inc(FLockChange);
|
||||
if (EBlueOrLum.Text <> '') and
|
||||
(EBlueOrLum.Focused {$IFDEF DELPHI} or EBlueOrLum.Button.Focused{$ENDIF})
|
||||
then
|
||||
case ColorModel.ItemIndex of
|
||||
0: begin
|
||||
HSL.BValue := EBlue.Value;
|
||||
NewSwatch.Color := RGB(ERed.Value, EGreen.Value, EBlue.Value);
|
||||
HSL.BValue := EBlueOrLum.Value;
|
||||
NewSwatch.Color := RGB(ERedOrHue.Value, EGreenOrSat.Value, EBlueOrLum.Value);
|
||||
end;
|
||||
1: begin
|
||||
HSL.LValue := EBlue.Value;
|
||||
NewSwatch.Color := HSLRangeToRGB(ERed.Value, EGreen.Value, EBlue.Value);
|
||||
HSL.LValue := EBlueOrLum.Value;
|
||||
NewSwatch.Color := HSLRangeToRGB(ERedOrHue.Value, EGreenOrSat.Value, EBlueOrLum.Value);
|
||||
end;
|
||||
end;
|
||||
dec(FLockChange);
|
||||
end;
|
||||
|
||||
procedure TOfficeMoreColorsWin.FormKeyDown(Sender: TObject; var Key: Word;
|
||||
@ -202,17 +211,38 @@ end;
|
||||
|
||||
procedure TOfficeMoreColorsWin.HexaChange(Sender: TObject);
|
||||
begin
|
||||
NewSwatch.Color := Hexa.SelectedColor;
|
||||
NewSwatch.Color := Hexa.SelectedColor;
|
||||
end;
|
||||
|
||||
function TOfficeMoreColorsWin.GetHint(c: TColor): string;
|
||||
begin
|
||||
Result := Format('RGB(%u, %u, %u)'#13'Hex: %s', [GetRValue(c), GetGValue(c), GetBValue(c), ColorToHex(c)]);
|
||||
Result := Format('RGB(%u, %u, %u)'#13'Hex: %s', [
|
||||
GetRValue(c), GetGValue(c), GetBValue(c), ColorToHex(c)
|
||||
]);
|
||||
end;
|
||||
|
||||
procedure TOfficeMoreColorsWin.NewSwatchColorChange(Sender: TObject);
|
||||
var
|
||||
r,g,b: Integer;
|
||||
h,s,l: Integer;
|
||||
begin
|
||||
NewSwatch.Hint := GetHint(NewSwatch.Color);
|
||||
NewSwatch.Hint := GetHint(NewSwatch.Color);
|
||||
if (ERedOrHue = nil) or (EBlueOrLum = nil) or (EGreenOrSat = nil) or
|
||||
(FLockChange <> 0)
|
||||
then
|
||||
exit;
|
||||
|
||||
if ColorModel.ItemIndex = 0 then // RGB
|
||||
begin
|
||||
ERedOrHue.Value := GetRValue(NewSwatch.Color);
|
||||
EGreenOrSat.Value := GetGValue(NewSwatch.Color);
|
||||
EBlueOrLum.Value := GetBValue(NewSwatch.Color);
|
||||
end else
|
||||
begin
|
||||
ERedOrHue.Value := GetHValue(NewSwatch.Color);
|
||||
EGreenOrSat.Value := GetSValue(NewSwatch.Color);
|
||||
EBlueOrLum.Value := GetLValue(NewSwatch.Color);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TOfficeMoreColorsWin.OldSwatchColorChange(Sender: TObject);
|
||||
@ -222,6 +252,8 @@ begin
|
||||
end;
|
||||
|
||||
procedure TOfficeMoreColorsWin.SetAllToSel(c: TColor);
|
||||
var
|
||||
h, s, l: Integer;
|
||||
begin
|
||||
case Pages.ActivePageIndex of
|
||||
// Standard Page
|
||||
@ -233,16 +265,16 @@ begin
|
||||
case ColorModel.ItemIndex of
|
||||
0:
|
||||
begin
|
||||
ERed.Value := GetRValue(c);
|
||||
EGreen.Value := GetGValue(c);
|
||||
EBlue.Value := GetBValue(c);
|
||||
ERedOrHue.Value := GetRValue(c);
|
||||
EGreenOrSat.Value := GetGValue(c);
|
||||
EBlueOrLum.Value := GetBValue(c);
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
RGBtoHSLRange(c, h, s, l);
|
||||
ERed.Value := h;
|
||||
EGreen.Value := s;
|
||||
EBlue.Value := l;
|
||||
ERedOrHue.Value := h;
|
||||
EGreenOrSat.Value := s;
|
||||
EBlueOrLum.Value := l;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
@ -252,79 +284,73 @@ end;
|
||||
|
||||
procedure TOfficeMoreColorsWin.PagesChange(Sender: TObject);
|
||||
begin
|
||||
SetAllToSel(NewSwatch.Color);
|
||||
SetAllToSel(NewSwatch.Color);
|
||||
end;
|
||||
|
||||
procedure TOfficeMoreColorsWin.FormResize(Sender: TObject);
|
||||
begin
|
||||
{$IFDEF mbXP_Lib}
|
||||
grip.Left := ClientWidth - 15;
|
||||
grip.Top := ClientHeight - 15;
|
||||
grip.Left := ClientWidth - 15;
|
||||
grip.Top := ClientHeight - 15;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
procedure TOfficeMoreColorsWin.FormCreate(Sender: TObject);
|
||||
begin
|
||||
{$IFDEF mbXP_Lib}
|
||||
ERed := TmbXPSpinEdit.CreateParented(Custom.Handle);
|
||||
EGreen := TmbXPSpinEdit.CreateParented(Custom.Handle);
|
||||
EBlue := TmbXPSpinEdit.CreateParented(Custom.Handle);
|
||||
grip := TmbXPSizeGrip.CreateParented(Self.Handle);
|
||||
ERedOrHue := TmbXPSpinEdit.CreateParented(Custom.Handle);
|
||||
EGreenOrSat := TmbXPSpinEdit.CreateParented(Custom.Handle);
|
||||
EBlueOrLum := TmbXPSpinEdit.CreateParented(Custom.Handle);
|
||||
grip := TmbXPSizeGrip.CreateParented(Self.Handle);
|
||||
{$ELSE}
|
||||
ERed := TSpinEdit.CreateParented(Custom.Handle);
|
||||
EGreen := TSpinEdit.CreateParented(Custom.Handle);
|
||||
EBlue := TSpinEdit.CreateParented(Custom.Handle);
|
||||
ERedOrHue := TSpinEdit.CreateParented(Custom.Handle);
|
||||
EGreenOrSat := TSpinEdit.CreateParented(Custom.Handle);
|
||||
EBlueOrLum := TSpinEdit.CreateParented(Custom.Handle);
|
||||
{$ENDIF}
|
||||
with ERed do
|
||||
with ERedOrHue do
|
||||
begin
|
||||
Name := 'ERed';
|
||||
Width := 47;
|
||||
Height := 22;
|
||||
Left := 74;
|
||||
Top := 198;
|
||||
Top := LRedOrHue.Top - 4; //198;
|
||||
Anchors := [akLeft, akBottom];
|
||||
MaxValue := 255;
|
||||
MinValue := 0;
|
||||
Value := 0;
|
||||
{ to do
|
||||
OnChange := ERedChange;
|
||||
}
|
||||
OnChange := @ERedOrHueChange;
|
||||
end;
|
||||
with EGreen do
|
||||
with EGreenOrSat do
|
||||
begin
|
||||
Name := 'EGreen';
|
||||
Width := 47;
|
||||
Height := 22;
|
||||
Left := 74;
|
||||
Top := 224;
|
||||
Top := LGreenOrSat.Top - 3; //224;
|
||||
Anchors := [akLeft, akBottom];
|
||||
MaxValue := 255;
|
||||
MinValue := 0;
|
||||
Value := 0;
|
||||
{ to do
|
||||
OnChange := EGreenChange;
|
||||
}
|
||||
OnChange := @EGreenOrSatChange;
|
||||
end;
|
||||
with EBlue do
|
||||
with EBlueOrLum do
|
||||
begin
|
||||
Name := 'EBlue';
|
||||
Width := 47;
|
||||
Height := 22;
|
||||
Left := 74;
|
||||
Top := 251;
|
||||
Top := LBlueOrLum.Top - 4; //251;
|
||||
Anchors := [akLeft, akBottom];
|
||||
MaxValue := 255;
|
||||
MinValue := 0;
|
||||
Value := 0;
|
||||
{ to do
|
||||
OnChange := EBlueChange;
|
||||
}
|
||||
OnChange := @EBlueOrLumChange;
|
||||
end;
|
||||
Custom.InsertControl(ERed);
|
||||
Custom.InsertControl(EGreen);
|
||||
Custom.InsertControl(EBlue);
|
||||
Custom.InsertControl(ERedOrHue);
|
||||
Custom.InsertControl(EGreenOrSat);
|
||||
Custom.InsertControl(EBlueOrLum);
|
||||
{$IFDEF mbXP_Lib}
|
||||
with grip do
|
||||
with grip do
|
||||
begin
|
||||
Name := 'grip';
|
||||
Width := 15;
|
||||
|
||||
@ -15,9 +15,9 @@ uses
|
||||
Graphics, Math, Scanlines;
|
||||
|
||||
var //set these variables to your needs, e.g. 360, 255, 255
|
||||
MaxHue: integer = 239;
|
||||
MaxSat: integer = 240;
|
||||
MaxLum: integer = 240;
|
||||
MaxHue: integer = 359; //239;
|
||||
MaxSat: integer = 100; //240;
|
||||
MaxLum: integer = 100; //240;
|
||||
|
||||
function HSLtoRGB (H, S, L: double): TColor;
|
||||
function HSLRangeToRGB (H, S, L: integer): TColor;
|
||||
|
||||
@ -56,7 +56,7 @@ object Form1: TForm1
|
||||
Height = 287
|
||||
Top = 8
|
||||
Width = 377
|
||||
SelectedColor = 422918
|
||||
SelectedColor = 488198
|
||||
HSPickerHintFormat = 'H: %h S: %s'#13'Hex: %hex'
|
||||
LPickerHintFormat = 'Luminance: %l'
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
|
||||
Loading…
Reference in New Issue
Block a user