renamed Ulyrics.bak.pas hack to Ulyrics_bak.pas for lazarus compatiblity.

minor changes to get code base compiling in Lazarus(win) and Delphi

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@415 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 21 insertions, 11 deletions

diff --git a/Game/Code/Classes/ULyrics.bak.pas b/Game/Code/Classes/ULyrics_bak.pas
index e432f7e5..43fa46f5 100644
--- a/Game/Code/Classes/ULyrics.bak.pas
+++ b/Game/Code/Classes/ULyrics_bak.pas
@@ -1,7 +1,17 @@
-unit ULyrics.bak;

+unit ULyrics_bak;

 

 interface

-uses SysUtils, OpenGL12, UMusic, UTexture;

+

+{$IFDEF FPC}

+  {$MODE DELPHI}

+{$ENDIF}

+

+{$I switches.inc}

+

+uses SysUtils,

+     OpenGL12,

+     UMusic,

+     UTexture;

 

 type

   TWord = record

@@ -74,6 +84,15 @@ type
       Text:     string;   // LCD

 

       constructor Create;

+      

+      procedure AddWord(Text: string);

+      procedure AddCzesc(NrCzesci: integer);

+

+      function SelectedLetter: integer;  // LCD

+      function SelectedLength: integer;  // LCD

+

+      procedure Clear;

+      procedure Draw;

     published

       property X: real write SetX;

       property Y: real write SetY;

@@ -85,15 +104,6 @@ type
       property Scale: real write SetScale;

       property Style: integer write SetStyle;

       property FontStyle: integer write SetFStyle;

-      procedure AddWord(Text: string);

-      procedure AddCzesc(NrCzesci: integer);

-

-      function SelectedLetter: integer;  // LCD

-      function SelectedLength: integer;  // LCD

-

-      procedure Clear;

-      procedure Draw;

-

   end;

 

 var