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

FIX: Use Begin/EndUpdate when adding columns, so that AutoFillColumns doesn't interefere with settings Widths until after all columns have been added. Bug [0000231].

Browse source
This commit is contained in:
cobines 2011-11-10 17:39:42 +00:00
commit 503c8a9aa3
1 changed files with 17 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/newdesign/ucolumnsfileview.pas
View file

@ -1323,18 +1323,25 @@ var
begin
ColumnsClass := GetColumnsClass;
dgPanel.Columns.Clear;
for x:= 0 to ColumnsClass.ColumnsCount - 1 do
begin
with dgPanel.Columns.Add do
dgPanel.Columns.BeginUpdate;
try
dgPanel.Columns.Clear;
for x:= 0 to ColumnsClass.ColumnsCount - 1 do
begin
if not ((x = 0) and gAutoFillColumns and (gAutoSizeColumn = 0)) then
SizePriority:= 0
else
SizePriority:= 1;
Width:= ColumnsClass.GetColumnWidth(x);
Title.Caption:= ColumnsClass.GetColumnTitle(x);
with dgPanel.Columns.Add do
begin
// SizePriority = 0 means don't modify Width with AutoFill.
// Last column is always modified if all columns have SizePriority = 0.
if (x = 0) and (gAutoSizeColumn = 0) then
SizePriority := 1
else
SizePriority := 0;
Width:= ColumnsClass.GetColumnWidth(x);
Title.Caption:= ColumnsClass.GetColumnTitle(x);
end;
end;
finally
dgPanel.Columns.EndUpdate;
end;
end;