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: crash after copying columns in options form

Browse source
This commit is contained in:
b4rr4cuda 2008-04-17 16:04:34 +00:00
commit c6a9058ed8
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ucolumns.pas
View file

@ -696,7 +696,7 @@ begin
x:=fSet.IndexOf(SetName);
if x<>-1 then
begin
{ try
try
st:=TStringList.Create;
ini.ReadSectionValues(SetName,st);
for i:=0 to st.Count-1 do
@ -705,8 +705,10 @@ begin
end;
finally
st.Free;
end;}
fSet.AddObject(NewSetName,fset.Objects[x]);
end;
fSet.AddObject(NewSetName,TPanelColumnsClass.Create);
TPanelColumnsClass(fset.Objects[fset.Count-1]).Name:=NewSetName;
TPanelColumnsClass(fset.Objects[fset.Count-1]).Load(ini,NewSetName);
end;
end;