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

UPD: Move function that doesn't add node when value is default to XmlConfig.

Browse source
This commit is contained in:
cobines 2012-04-20 12:19:04 +00:00
commit a32d3d70c4
4 changed files with 44 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/ukastoolitemsextended.pas
View file

@ -95,12 +95,6 @@ const
ProgramItemConfigNode = 'Program';
DriveItemConfigNode = 'Drive';
procedure SaveIfNotEmpty(Config: TXmlConfig; Node: TXmlNode; Name, Value: String);
begin
if Value <> EmptyStr then
Config.AddValue(Node, Name, Value);
end;
{ TKASDriveItem }
procedure TKASDriveItem.Assign(OtherItem: TKASToolItem);
@ -174,7 +168,7 @@ begin
inherited SaveContents(Config, Node);
Config.AddValue(Node, 'Command', Command);
for AParam in Params do
SaveIfNotEmpty(Config, Node, 'Param', AParam);
Config.AddValueDef(Node, 'Param', AParam, '');
end;
{ TKASProgramItem }
@ -223,9 +217,9 @@ end;
procedure TKASProgramItem.SaveContents(Config: TXmlConfig; Node: TXmlNode);
begin
inherited SaveContents(Config, Node);
SaveIfNotEmpty(Config, Node, 'Command', Command);
SaveIfNotEmpty(Config, Node, 'Params', Params);
SaveIfNotEmpty(Config, Node, 'StartPath', StartPath);
Config.AddValueDef(Node, 'Command', Command, '');
Config.AddValueDef(Node, 'Params', Params, '');
Config.AddValueDef(Node, 'StartPath', StartPath, '');
end;
{ TKASToolBarExtendedLoader }