paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 16:38:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Add ColorRectWidth property to TCustomColorBox. Issue #24761, patch from Michael Fuchs

Browse Source 
git-svn-id: trunk@42131 -
This commit is contained in:
juha 2013-07-18 13:04:41 +00:00
parent 4aecd50e0f
commit ccd509acfc
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/colorbox.pas
View File

@ -40,6 +40,7 @@ type
TCustomColorBox = class(TCustomComboBox)
private
FColorRectWidth: Integer;
FDefaultColorColor: TColor;
FNoneColorColor: TColor;
FOnGetColors: TGetColorsEvent;
@ -48,6 +49,7 @@ type
function GetColor(Index : Integer): TColor;
function GetColorName(Index: Integer): string;
function GetSelected: TColor;
procedure SetColorRectWidth(AValue: Integer);
procedure SetDefaultColorColor(const AValue: TColor);
procedure SetNoneColorColor(const AValue: TColor);
procedure SetSelected(Value: TColor);
@ -64,7 +66,7 @@ type
function PickCustomColor: Boolean; virtual;
public
constructor Create(AOwner: TComponent); override;
property ColorRectWidth: Integer read FColorRectWidth write SetColorRectWidth default 14;
property Style: TColorBoxStyle read FStyle write SetStyle
default [cbStandardColors, cbExtendedColors, cbSystemColors];
property Colors[Index: Integer]: TColor read GetColor;
@ -79,6 +81,7 @@ type
TColorBox = class(TCustomColorBox)
published
property ColorRectWidth;
property DefaultColorColor;
property NoneColorColor;
property Selected;
@ -353,6 +356,7 @@ begin
inherited Style := csOwnerDrawFixed;
inherited ReadOnly := True;
FColorRectWidth := 14;
FStyle := [cbStandardColors, cbExtendedColors, cbSystemColors];
FNoneColorColor := clBlack;
FDefaultColorColor := clBlack;
@ -388,6 +392,13 @@ begin
Result := FSelected;
end;
procedure TCustomColorBox.SetColorRectWidth(AValue: Integer);
begin
if FColorRectWidth = AValue then Exit;
FColorRectWidth := AValue;
Invalidate;
end;
procedure TCustomColorBox.SetDefaultColorColor(const AValue: TColor);
begin
if FDefaultColorColor <> AValue then
@ -540,7 +551,7 @@ begin
r.top := Rect.top + 3;
r.bottom := Rect.bottom - 3;
r.left := Rect.left + 3;
r.right := r.left + 14;
r.right := r.left + FColorRectWidth;
Exclude(State, odPainted);
with Canvas do
@ -567,7 +578,7 @@ begin
Pen.Color := PenColor;
end;
r := Rect;
r.left := r.left + 20;
r.left := r.left + FColorRectWidth + 4;
inherited DrawItem(Index, BidiFlipRect(r, Rect, UseRightToLeftAlignment), State);
end;