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: Add new column

Browse source
This commit is contained in:
Alexander Koblov 2009-01-02 14:32:34 +00:00
commit 767c310041
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
framepanel.pas
View file

@ -259,6 +259,8 @@ begin
UpDatelblInfo;
FLastMark:= '*.*';
FLastAutoSelect:= False;
if dgPanel.RowCount < Integer(gTabHeader) then
dgPanel.RowCount:= Integer(gTabHeader);
dgPanel.FixedRows:= Integer(gTabHeader);
dgPanel.Tag:= dgPanel.DefaultRowHeight;
dgPanel.DefaultRowHeight:= gIconsSize;
@ -512,9 +514,9 @@ end;
procedure TFrameFilePanel.UpdateColCount(NewColCount: Integer);
begin
while dgPanel.ColCount < NewColCount do
while dgPanel.Columns.Count < NewColCount do
dgPanel.Columns.Add;
while dgPanel.ColCount > NewColCount do
while dgPanel.Columns.Count > NewColCount do
dgPanel.Columns.Delete(0);
end;