mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Columns widths after manual load

Browse source
This commit is contained in:
b4rr4cuda 2008-03-29 19:31:18 +00:00
commit f071b528e2
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
fmain.pas
View file

@ -2403,7 +2403,7 @@ begin
end;
procedure TfrmMain.ColumnsMenuClick(Sender: TObject);
var Index:integer;
var Index,x:integer;
begin
Case (Sender as TMenuItem).Tag of
1000: //This
@ -2431,6 +2431,10 @@ begin
begin
ActiveFrame.Colm.Load(gIni,ColSet.Items[(Sender as TMenuItem).Tag]);
ActiveFrame.dgPanel.ColCount:=ActiveFrame.Colm.ColumnsCount;
if ActiveFrame.Colm.ColumnsCount>0 then
for x:=0 to ActiveFrame.Colm.ColumnsCount-1 do
ActiveFrame.dgPanel.ColWidths[x]:=ActiveFrame.Colm.GetColumnWidth(x);
end;
end;