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

fpchess: Implements obtaining the resources directory, allows running from the Bundle in Mac OS X

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1553 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-04-07 06:35:58 +00:00
parent 3304659080
commit 27ae008cc6
1 changed files with 30 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
applications/fpchess/chessconfig.pas
View File

@@ -22,11 +22,41 @@ var
implementation implementation
{$ifdef Darwin}
uses
MacOSAll;
{$endif}
const
BundleResourcesDirectory = '/Contents/Resources/';
{ TChessConfig } { TChessConfig }
function TChessConfig.GetResourcesDir: string; function TChessConfig.GetResourcesDir: string;
{$ifdef Darwin}
var
pathRef: CFURLRef;
pathCFStr: CFStringRef;
pathStr: shortstring;
{$endif}
begin begin
{$ifdef UNIX}
{$ifdef Darwin}
pathRef := CFBundleCopyBundleURL(CFBundleGetMainBundle());
pathCFStr := CFURLCopyFileSystemPath(pathRef, kCFURLPOSIXPathStyle);
CFStringGetPascalString(pathCFStr, @pathStr, 255, CFStringGetSystemEncoding());
CFRelease(pathRef);
CFRelease(pathCFStr);
Result := pathStr + BundleResourcesDirectory;
{$else}
Result := '';
{$endif}
{$endif}
{$ifdef Windows}
Result := ExtractFilePath(Application.EXEName);
{$endif}
end; end;
function TChessConfig.GetCurrentSkinDir: string; function TChessConfig.GetCurrentSkinDir: string;