mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: KASColorBoxButton - optimize preferred size calculation

Browse source
This commit is contained in:
Alexander Koblov 2023-07-19 13:20:02 +03:00
commit e8f7fafdff
2 changed files with 1 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

20
components/KASToolBar/kascombobox.pas
View file

@ -91,8 +91,6 @@ type
procedure DoAutoSize; override;
procedure ButtonClick(Sender: TObject);
class function GetControlClassDefaultSize: TSize; override;
procedure CalculatePreferredSize(var PreferredWidth, PreferredHeight: integer;
WithThemeSpace: Boolean); override;
procedure CMParentColorChanged(var Message: TLMessage); message CM_PARENTCOLORCHANGED;
public
constructor Create(AOwner: TComponent); override;
@ -364,23 +362,6 @@ begin
Result.cx += Result.cy;
end;
procedure TKASColorBoxButton.CalculatePreferredSize(var PreferredWidth,
PreferredHeight: integer; WithThemeSpace: Boolean);
begin
if csDesigning in ComponentState then
begin
with GetControlClassDefaultSize do
begin
PreferredWidth:= cx;
PreferredHeight:= cy;
end;
end
else begin
FColorBox.CalculatePreferredSize(PreferredWidth, PreferredHeight, WithThemeSpace);
PreferredWidth += FButton.Width;
end;
end;
procedure TKASColorBoxButton.CMParentColorChanged(var Message: TLMessage);
begin
if inherited ParentColor then
@ -398,7 +379,6 @@ begin
inherited Create(AOwner);
ControlStyle:= ControlStyle + [csNoFocus];
FColorBox.ParentColor:= False;
BorderStyle:= bsNone;
TabStop:= True;
inherited TabStop:= False;

2
components/KASToolBar/kascomp.lpk
View file

@ -26,7 +26,7 @@
"/>
<License Value="GNU GPL 2
"/>
<Version Major="1" Minor="9" Release="3"/>
<Version Major="1" Minor="9" Release="4"/>
<Files Count="10">
<Item1>
<Filename Value="kastoolbar.pas"/>