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

LCL/ShellCtrls: Fix issues in resizing the width of TShellListView, issue #39447.

Browse Source
This commit is contained in:
wp_xyz 2021-10-29 11:33:40 +02:00
parent 4ef50c5d54
commit 06701d05a7
1 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/shellctrls.pas
View File

@ -227,8 +227,9 @@ type
protected
{ Methods specific to Lazarus }
class procedure WSRegisterClass; override;
procedure AdjustColWidths;
procedure PopulateWithRoot();
procedure Resize; override;
procedure DoOnResize; override;
procedure SetAutoSizeColumns(const Value: Boolean); virtual;
procedure DoAddItem(const ABasePath: String; const AFileInfo: TSearchRec; var CanAdd: Boolean);
function GetBuiltinImageIndex(const AFileName: String; ALargeImage: Boolean): Integer;
@ -1497,7 +1498,7 @@ begin
Self.Column[1].Caption := sShellCtrlsSize;
Self.Column[2].Caption := sShellCtrlsType;
// Initial sizes, necessary under Windows CE
Resize;
AdjustColWidths;
end;
destructor TCustomShellListView.Destroy;
@ -1576,15 +1577,10 @@ begin
end;
end;
procedure TCustomShellListView.Resize;
procedure TCustomShellListView.AdjustColWidths;
var
iWidth: Integer;
begin
inherited Resize;
{$ifdef DEBUG_SHELLCTRLS}
debugln(':>TCustomShellListView.HandleResize');
{$endif}
// The correct check is with count,
// if Column[0] <> nil then will raise an exception
if Self.Columns.Count < 3 then Exit;
@ -1610,12 +1606,12 @@ begin
finally
EndUpdate;
end;
end;
{$ifdef DEBUG_SHELLCTRLS}
debugln([':<TCustomShellListView.HandleResize C0.Width=',
Column[0].Width, ' C1.Width=', Column[1].Width,
' C2.Width=', Column[2].Width]);
{$endif}
procedure TCustomShellListView.DoOnResize;
begin
inherited;
AdjustColWidths;
end;
procedure TCustomShellListView.SetAutoSizeColumns(const Value: Boolean);
@ -1624,7 +1620,7 @@ begin
Exit;
FAutoSizeColumns := Value;
if Value then
Resize();
AdjustColWidths;
end;
procedure TCustomShellListView.DoAddItem(const ABasePath: String;