From b50f5d910e081bc1dd6925e84874d97b7de46d9c Mon Sep 17 00:00:00 2001 From: jaybinks Date: Tue, 2 Oct 2007 05:00:37 +0000 Subject: oops AdaptFilePaths was meant to be available to any compiler. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@462 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UCommon.pas | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'Game/Code/Classes/UCommon.pas') diff --git a/Game/Code/Classes/UCommon.pas b/Game/Code/Classes/UCommon.pas index 7337751a..5b911da0 100644 --- a/Game/Code/Classes/UCommon.pas +++ b/Game/Code/Classes/UCommon.pas @@ -32,9 +32,6 @@ type type TWndMethod = procedure(var Message: TMessage) of object; -function StringReplaceW(text, search, rep: WideString):WideString; -function AdaptFilePaths( const aPath : widestring ): widestring; - function LazFindResource( const aName, aType : String ): TLResource; function RandomRange(aMin: Integer; aMax: Integer) : Integer; @@ -45,9 +42,13 @@ function MinValue(const Data: array of Double): Double; {$IFDEF Win32} function AllocateHWnd(Method: TWndMethod): HWND; procedure DeallocateHWnd(Wnd: HWND); -{$ENDIF} +{$ENDIF} // Win32 + +{$ENDIF} // FPC Only + +function StringReplaceW(text, search, rep: WideString):WideString; +function AdaptFilePaths( const aPath : widestring ): widestring; -{$ENDIF} {$IFNDEF win32} (* -- cgit v1.2.3