mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: KASColorBoxButton - allow default color

Browse source
This commit is contained in:
Alexander Koblov 2023-07-12 20:09:18 +03:00
commit 3d4529d1b5
2 changed files with 30 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

30
components/KASToolBar/kascombobox.pas
View file

@ -30,6 +30,10 @@ uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
ColorBox, Buttons, LMessages, Types;
const
DEF_COLOR_STYLE = [cbStandardColors, cbExtendedColors,
cbSystemColors, cbPrettyNames];
type
{ TComboBoxWithDelItems }
@ -62,6 +66,11 @@ type
WithThemeSpace: Boolean); override;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
public
constructor Create(AOwner: TComponent); override;
published
property DefaultColorColor default clNone;
property Style default DEF_COLOR_STYLE;
end;
{ TKASColorBoxButton }
@ -69,8 +78,10 @@ type
TKASColorBoxButton = class(TCustomControl)
private
function GetSelected: TColor;
function GetStyle: TColorBoxStyle;
function GetOnChange: TNotifyEvent;
procedure SetSelected(AValue: TColor);
procedure SetStyle(AValue: TColorBoxStyle);
procedure SetOnChange(AValue: TNotifyEvent);
protected
FButton: TSpeedButton;
@ -91,6 +102,7 @@ type
property TabOrder;
property AutoSize default True;
property OnChange: TNotifyEvent read GetOnChange write SetOnChange;
property Style: TColorBoxStyle read GetStyle write SetStyle default DEF_COLOR_STYLE;
end;
procedure Register;
@ -253,6 +265,13 @@ begin
inherited DoAutoAdjustLayout(AMode, 1.0, AYProportion);
end;
constructor TKASColorBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Style:= DEF_COLOR_STYLE;
DefaultColorColor:= clNone;
end;
{ TKASColorBoxButton }
function TKASColorBoxButton.GetSelected: TColor;
@ -260,6 +279,11 @@ begin
Result:= FColorBox.Selected;
end;
function TKASColorBoxButton.GetStyle: TColorBoxStyle;
begin
Result:= FColorBox.Style;
end;
function TKASColorBoxButton.GetOnChange: TNotifyEvent;
begin
Result:= FColorBox.OnChange;
@ -270,6 +294,11 @@ begin
FColorBox.SetCustomColor(AValue);
end;
procedure TKASColorBoxButton.SetStyle(AValue: TColorBoxStyle);
begin
FColorBox.Style:= AValue;
end;
procedure TKASColorBoxButton.SetOnChange(AValue: TNotifyEvent);
begin
FColorBox.OnChange:= AValue;
@ -370,7 +399,6 @@ begin
Align:= alClient;
ParentColor:= False;
ParentFont:= True;
Style:= Style + [cbPrettyNames];
Parent:= Self;
end;

1
src/frames/foptionscolors.lfm
View file

@ -140,6 +140,7 @@ inherited frmOptionsColors: TfrmOptionsColors
Top = 157
Width = 240
TabOrder = 3
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbPrettyNames]
end
end
object pgDiffer: TPage