- added polish language (thx to Pit33)

- added polish fonts
- added lipsync option
- fixed drawing webcam on 2 screens
- added copy&paste for duets in editor
- some bugfixes in editor
- change language without restart


git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2730 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 26 insertions, 7 deletions

diff --git a/Game/Code/Classes/TextGL.pas b/Game/Code/Classes/TextGL.pas
index 7bb9699d..bc7e24e7 100644
--- a/Game/Code/Classes/TextGL.pas
+++ b/Game/Code/Classes/TextGL.pas
@@ -71,7 +71,7 @@ var
 

 implementation

 

-uses UMain, Windows, SysUtils, UGraphic, UFiles;

+uses UMain, Windows, SysUtils, UGraphic, UFiles, UIni;

 

 procedure BuildFont;			                // Build Our Bitmap Font

 var

@@ -290,10 +290,20 @@ var
 begin

   ActFont := 0;

   SetLength(FontFiles, 5);

-  FontFiles[0] := 'Normal.fnt';

-  FontFiles[1] := 'Bold.fnt';

-  FontFiles[2] := 'FontO.fnt';

-  FontFiles[3] := 'FontO2.fnt';

+  if (Uppercase(ILanguage[Ini.Language]) <> 'POLISH') then

+  begin

+    FontFiles[0] := 'Normal.fnt';

+    FontFiles[1] := 'Bold.fnt';

+    FontFiles[2] := 'FontO.fnt';

+    FontFiles[3] := 'FontO2.fnt';

+  end else

+  begin

+    FontFiles[0] := 'Normal_p.fnt';

+    FontFiles[1] := 'Bold_p.fnt';

+    FontFiles[2] := 'FontO_p.fnt';

+    FontFiles[3] := 'FontO2_p.fnt';

+  end;

+

   FontFiles[4] := 'HighResNumbersO.fnt';

 

   SetLength(Fonts, 5);

@@ -307,9 +317,18 @@ begin
   end;

 end;

 

-procedure KillFont;     		                // Delete The Font

+procedure KillFont;

+var

+  F, Tex:  integer;

+

 begin

-//  glDeleteLists(base, 256); 		                // Delete All 96 Characters

+  for F := 0 to Length(Fonts) - 1 do

+  begin

+    for Tex := 0 to Length(Fonts[F].Tex) - 1 do

+      Texture.UnloadTexture(Fonts[F].Tex[Tex].Name, false);

+  end;

+

+  SetLength(Fonts, 0);

 end;

 

 function glTextWidth(text: pchar): real;