paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tappytux: Fixes utf-8 issue in the resources dir

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2034 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat 2011-09-28 18:58:24 +00:00
parent f0a56518e7
commit fbc473d5b1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
applications/tappytux/tappyconfig.pas
View File

@ -5,7 +5,7 @@ unit tappyconfig;
interface
uses
Classes, SysUtils, Forms, Graphics;
Classes, SysUtils, Forms, Graphics, LCLProc, FileUtil;
type
@ -13,7 +13,7 @@ type
TTappyTuxConfig = class
public
function GetResourcesDir: string;
function GetResourcesDir: utf8string;
end;
const
@ -38,7 +38,7 @@ const
{ TChessConfig }
function TTappyTuxConfig.GetResourcesDir: string;
function TTappyTuxConfig.GetResourcesDir: utf8string;
{$ifdef Darwin}
var
pathRef: CFURLRef;
@ -50,7 +50,7 @@ begin
{$ifdef Darwin}
pathRef := CFBundleCopyBundleURL(CFBundleGetMainBundle());
pathCFStr := CFURLCopyFileSystemPath(pathRef, kCFURLPOSIXPathStyle);
CFStringGetPascalString(pathCFStr, @pathStr, 255, CFStringGetSystemEncoding());
CFStringGetPascalString(pathCFStr, @pathStr, 255, kCFStringEncodingUTF8);
CFRelease(pathRef);
CFRelease(pathCFStr);
@ -61,7 +61,7 @@ begin
{$endif}
{$ifdef Windows}
Result := ExtractFilePath(Application.EXEName);
Result := SysToUTF8(ExtractFilePath(Application.EXEName));
{$endif}
end;