diff options
author | jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-09-18 12:07:57 +0000 |
---|---|---|
committer | jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-09-18 12:07:57 +0000 |
commit | 611f516b33a0c109893354593e28afe10f48e7db (patch) | |
tree | b543601ebd3ee03228e38ec830b724cfa03b4b65 /Game/Code/Classes/ULyrics.pas | |
parent | 45929c1df8bab8260149eeb40b5f9c2f6bec7973 (diff) | |
download | usdx-611f516b33a0c109893354593e28afe10f48e7db.tar.gz usdx-611f516b33a0c109893354593e28afe10f48e7db.tar.xz usdx-611f516b33a0c109893354593e28afe10f48e7db.zip |
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
Diffstat (limited to 'Game/Code/Classes/ULyrics.pas')
-rw-r--r-- | Game/Code/Classes/ULyrics.pas | 27 |
1 files changed, 17 insertions, 10 deletions
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
|