hedgewars/uLocale.pas
changeset 7048 0a4c88935902
parent 6700 e04da46ee43c
child 7049 35d762458d66
--- a/hedgewars/uLocale.pas	Thu May 10 22:15:31 2012 +0200
+++ b/hedgewars/uLocale.pas	Thu May 10 23:21:56 2012 +0200
@@ -29,6 +29,10 @@
 function  Format(fmt: ansistring; var arg: ansistring): ansistring;
 function  GetEventString(e: TEventId): ansistring;
 
+{$IFDEF HWLIBRARY}
+procedure LoadLocaleWrapper(str: pchar); cdecl; export;
+{$ENDIF}
+
 implementation
 uses uRandom, uUtils, uVariables, uDebug, uConsole;
 
@@ -129,9 +133,11 @@
     Format:= copy(fmt, 1, i - 1) + arg + Format(copy(fmt, i + 2, Length(fmt) - i - 1), arg)
 end;
 
+{$IFDEF HWLIBRARY}
 procedure LoadLocaleWrapper(str: pchar); cdecl; export;
 begin
     LoadLocale(Strpas(str));
 end;
+{$ENDIF}
 
 end.