pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Display birthdate in contact edit dialog. Fix localization file not being found if its name contains the wrong path delimiter.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4865 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-29 11:02:25 +00:00
parent 08d356fd9f
commit ae8fecb42d
9 changed files with 77 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/tvplanit/source/vplocalize.pas
View File

@ -37,7 +37,7 @@ uses
Windows, // Needed for LCIDs
{$ENDIF}
{$IFDEF LCL}
LCLProc, LCLType, LCLIntf,
LCLProc, LCLType, LCLIntf, LazFileUtils,
{$ENDIF}
Classes, Dialogs,SysUtils, Graphics, StdCtrls, Forms,
VpBase, VpMisc, VpData, VpXParsr, VpPrtFmt; { For TVpAttributes }
@ -591,12 +591,16 @@ begin
FLoadingIndex := -1;
FElementIndex := -1;
Parser := TVpParser.Create (nil);
Parser := TVpParser.Create(nil);
Parser.OnAttribute := xmlLocalizeAttribute;
Parser.OnStartElement := xmlLocalizeStartElement;
Parser.OnEndElement := xmlLocalizeEndElement;
try
Parser.ParseDataSource (FileName);
{$IFDEF DELPHI}
Parser.ParseDataSource(FileName);
{$ELSE}
Parser.ParseDataSource(GetForcedPathDelims(FileName));
{$ENDIF}
finally
Parser.Free;
end;