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: Saving of WDX plugins

Browse source
This commit is contained in:
Alexander Koblov 2008-09-13 12:15:10 +00:00
commit e00268d1bb
5 changed files with 1042 additions and 1031 deletions
Download patch file Download diff file Expand all files Collapse all files

12
fcolumnssetconf.pas
View file

@ -949,17 +949,17 @@ begin
MI:=TMenuItem.Create(pmFields);
MI.Caption:='Plugins';
pmFields.Items.Add(MI);
for i:=0 to WdxPlugins.Count-1 do
for i:=0 to gWdxPlugins.Count-1 do
begin
MI:=TMenuItem.Create(pmFields);
MI.Caption:=WdxPlugins.GetWdxModule(i).Name;
MI.Caption:=gWdxPlugins.GetWdxModule(i).Name;
pmFields.Items.Items[1].Add(MI);
//Load fields list
if WdxPlugins.GetWdxModule(i).IsLoaded=false then
if not (WdxPlugins.GetWdxModule(i).LoadModule) then break;
for j:=0 to WdxPlugins.GetWdxModule(i).FieldList.Count-1 do
if gWdxPlugins.GetWdxModule(i).IsLoaded=false then
if not (gWdxPlugins.GetWdxModule(i).LoadModule) then break;
for j:=0 to gWdxPlugins.GetWdxModule(i).FieldList.Count-1 do
begin
with WdxPlugins.GetWdxModule(i) do
with gWdxPlugins.GetWdxModule(i) do
begin
MI:=TMenuItem.Create(pmFields);
MI.Tag:=1;

2
foptions.pas
View file

@ -1828,7 +1828,7 @@ begin
{ Save plugins lists }
tmpDSXPlugins.Save(gIni);
gWCXPlugins.Assign(tmpWCXPlugins);
tmpWDXPlugins.Save(gIni);
gWDXPlugins.Assign(tmpWDXPlugins);
gWFXPlugins.Assign(tmpWFXPlugins);
tmpWLXPlugins.Save(gIni);
end;

2036
ucolumns.pas
View file

File diff suppressed because it is too large Load diff

12
uglobs.pas
View file

@ -46,7 +46,7 @@ var
gPOFileName : String;
{ WDX plugins }
WdxPlugins:TWDXModuleList;
gWdxPlugins:TWDXModuleList;
{ WCX plugins }
gWCXPlugins: TWCXModuleList;
{ WFX plugins }
@ -377,8 +377,8 @@ begin
FreeAndNil(gExts);
if Assigned(gIni) then
FreeAndNil(gIni);
if Assigned(WdxPlugins) then
WdxPlugins.Free;
if Assigned(gWdxPlugins) then
gWdxPlugins.Free;
if Assigned(gWCXPlugins) then
FreeAndNil(gWCXPlugins);
if Assigned(gWFXPlugins) then
@ -526,8 +526,8 @@ begin
{Wdx Plugins and columns}
//---------------------
WdxPlugins:=TWDXModuleList.Create;
WdxPlugins.Load(gIni);
gWdxPlugins:=TWDXModuleList.Create;
gWdxPlugins.Load(gIni);
ColSet:=TPanelColumnsList.Create;
ColSet.Load(gIni);
//---------------------
@ -673,7 +673,7 @@ begin
//HotMan.Save();
{ Plugins }
WdxPlugins.Save(gIni);
gWdxPlugins.Save(gIni);
gWFXPlugins.Save(gIni);
gWCXPlugins.Save(gIni);

11
uwdxmodule.pas
View file

@ -225,6 +225,7 @@ type
constructor Create;
destructor Destroy; override;
//---------------------
procedure Assign(Source: TWDXModuleList);
procedure Clear;
procedure Load(FileName:string);overload;
procedure Load(Ini:TIniFileEx); overload;
@ -278,6 +279,16 @@ begin
inherited Destroy;
end;
procedure TWDXModuleList.Assign(Source: TWDXModuleList);
begin
if Assigned(Source) then
begin
Clear;
FList.Assign(Source.FList);
Source.FList.Clear;
end;
end;
procedure TWDXModuleList.Clear;
begin
while Flist.Count>0 do