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

LCL/ShellListView: Reserve space for vertical scroll bar in Resize. Issue #39333, based on patches by Don Siders.

Browse Source
This commit is contained in:
wp_xyz 2021-08-18 19:16:38 +02:00
parent 10c474f730
commit 89299a2f6a
1 changed files with 21 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lcl/shellctrls.pas
View File

@ -1581,6 +1581,8 @@ begin
end;
procedure TCustomShellListView.Resize;
var
iWidth: Integer;
begin
inherited Resize;
{$ifdef DEBUG_SHELLCTRLS}
@ -1588,27 +1590,29 @@ begin
{$endif}
// The correct check is with count,
// if Column[0] <> nil then
// will raise an exception
// if Column[0] <> nil then 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
if Width < 400 then
begin
Column[0].Width := (50 * Width) div 100;
Column[1].Width := (25 * Width) div 100;
Column[2].Width := (25 * Width) div 100;
end
else
begin
Column[0].Width := (70 * Width) div 100;
Column[1].Width := (15 * Width) div 100;
Column[2].Width := (15 * Width) div 100;
iWidth := ClientWidth;
BeginUpdate;
try
// If the space available is small, alloc a larger percentage to the secondary
// fields
if Width < 400 then
begin
Column[0].Width := (50 * iWidth) div 100;
Column[1].Width := (25 * iWidth) div 100;
end
else
begin
Column[0].Width := (70 * iWidth) div 100;
Column[1].Width := (15 * iWidth) div 100;
end;
Column[2].Width := iWidth - Column[0].Width - Column[1].Width;
finally
EndUpdate;
end;
{$ifdef DEBUG_SHELLCTRLS}