From 30f9cbaa9b36454e68cba0aabe28c42bf7ebfd08 Mon Sep 17 00:00:00 2001 From: whiteshark0 Date: Sat, 5 Apr 2008 09:57:10 +0000 Subject: Compilation on Linux fixed git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1003 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UCovers.pas | 22 ++++++++++++++++++---- 1 file changed, 18 insertions(+), 4 deletions(-) (limited to 'Game/Code/Classes/UCovers.pas') diff --git a/Game/Code/Classes/UCovers.pas b/Game/Code/Classes/UCovers.pas index d3665854..3bd9e183 100644 --- a/Game/Code/Classes/UCovers.pas +++ b/Game/Code/Classes/UCovers.pas @@ -36,8 +36,7 @@ uses OpenGL12, {$IFNDEF FPC} Graphics, {$ENDIF} - UThemes, - UTexture; + UThemes; const cCC_CoverW = 128; @@ -140,6 +139,7 @@ implementation uses UMain, // UFiles, ULog, + UTexture, DateUtils; constructor TCovers.Create(const Filename: String); @@ -450,10 +450,10 @@ begin begin If (Index[I].FileIndex.DataStart <> 0) AND {$IFDEF MSWINDOWS} - (Uppercase(Index[I].Filename) = Filename) then + (Uppercase(Index[I].Filename) = Filename) {$ELSE} (Index[I].Filename = Filename) - {$ENDIF} + {$ENDIF} then begin Result := I; Exit; @@ -512,8 +512,22 @@ begin end; Procedure TCovers.LoadTextures; +var + I: Integer; + + Function LoadCover: Integer; + begin + + end; begin + //Texture.SetCoverSize(cCC_CoverW, cCC_CoverH); + + For I := 0 to HighestID do + begin //Load all the Covers + {Index[I].TexID + Index[I].FileIndex.} + end; end; end. -- cgit v1.2.3