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

LCL/ShellListView: fix #39298 - TShellListView realign columns too aggressively

Browse Source
This commit is contained in:
Basile Burg 2021-08-08 23:26:59 +02:00 committed by wp_xyz
parent 733a0abd03
commit 09ee2173ab
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/shellctrls.pas
View File

@ -210,6 +210,7 @@ type
TCustomShellListView = class(TCustomListView)
private
FAutoSizeColumns: Boolean;
FMask: string;
FMaskCaseSensitivity: TMaskCaseSensitivity;
FObjectTypes: TObjectTypes;
@ -228,6 +229,7 @@ type
class procedure WSRegisterClass; override;
procedure PopulateWithRoot();
procedure Resize; 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;
property OnFileAdded: TCSLVFileAddedEvent read FOnFileAdded write FOnFileAdded;
@ -238,6 +240,7 @@ type
{ Methods specific to Lazarus }
function GetPathFromItem(ANode: TListItem): string;
{ Properties }
property AutoSizeColumns: Boolean read FAutoSizeColumns write SetAutoSizeColumns default true;
property Mask: string read FMask write SetMask; // Can be used to conect to other controls
property MaskCaseSensitivity: TMaskCaseSensitivity read FMaskCaseSensitivity write SetMaskCaseSensitivity default mcsPlatformDefault;
property ObjectTypes: TObjectTypes read FObjectTypes write FObjectTypes;
@ -258,6 +261,7 @@ type
{ TCustomListView properties
The same as TListView excluding data properties }
property Align;
property AutoSizeColumns;
property Anchors;
property BorderSpacing;
property BorderStyle;
@ -1488,6 +1492,7 @@ begin
ViewStyle := vsReport;
ObjectTypes := [otNonFolders];
FMaskCaseSensitivity := mcsPlatformDefault;
FAutoSizeColumns := true;
Self.Columns.Add;
Self.Columns.Add;
@ -1587,6 +1592,9 @@ begin
// will raise an exception
if Self.Columns.Count < 3 then Exit;
if (Column[0].Width <> 0) and (not AutoSizeColumns) then
Exit;
// If the space available is small,
// alloc a larger percentage to the secondary
// fields
@ -1610,6 +1618,15 @@ begin
{$endif}
end;
procedure TCustomShellListView.SetAutoSizeColumns(const Value: Boolean);
begin
if Value = FAutoSizeColumns then
Exit;
FAutoSizeColumns := Value;
if Value then
Resize();
end;
procedure TCustomShellListView.DoAddItem(const ABasePath: String;
const AFileInfo: TSearchRec; var CanAdd: Boolean);
begin