From 611f516b33a0c109893354593e28afe10f48e7db Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 18 Sep 2007 12:07:57 +0000
Subject: major tidy up of Umusic ...   removes mplayer unit and dependency.

tidy up of other units in move to compile in lazarus.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@392 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/ULyrics.pas | 27 +++++++++++++++++----------
 1 file changed, 17 insertions(+), 10 deletions(-)

(limited to 'Game/Code/Classes/ULyrics.pas')

diff --git a/Game/Code/Classes/ULyrics.pas b/Game/Code/Classes/ULyrics.pas
index c3b440bc..64762265 100644
--- a/Game/Code/Classes/ULyrics.pas
+++ b/Game/Code/Classes/ULyrics.pas
@@ -1,7 +1,14 @@
 unit ULyrics;
 
 interface
-uses SysUtils, OpenGL12, UMusic;
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+uses SysUtils,
+     OpenGL12,
+     UMusic;
 
 type
   TWord = record
@@ -57,6 +64,15 @@ type
       Italic:   boolean;
       Text:     string;   // LCD
 
+      procedure AddWord(Text: string);          // Moved from published, lazarus didnt like it
+      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;
@@ -68,15 +84,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
-- 
cgit v1.2.3