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: Don't read date

Browse source
This commit is contained in:
Alexander Koblov 2017-04-09 08:38:16 +00:00
commit 9c79b8b03a
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
components/synunihighlighter/source/SynUniHighlighter.pas
View file

@ -1090,6 +1090,7 @@ begin
if ChildNode2.NodeName = 'Version' then Info.Version.Version := StrToIntDef(ReadValue(ChildNode2), 0)
else if ChildNode2.NodeName = 'Revision' then Info.Version.Revision := StrToIntDef(ReadValue(ChildNode2), 0)
else if ChildNode2.NodeName = 'Date' then
{
try
AFormatSettings:= DefaultFormatSettings;
Info.Version.ReleaseDate := StrToFloat(ReadValue(ChildNode2), AFormatSettings);
@ -1101,6 +1102,7 @@ begin
// Ignore
end;
end
}
else if ChildNode2.NodeName = 'Type' then
begin
if ReadValue(ChildNode2) = 'Beta' then Info.Version.VersionType := vtBeta