diff options
Diffstat (limited to 'Game/Code/Classes')
| -rw-r--r-- | Game/Code/Classes/UCovers.pas | 22 |
1 files changed, 18 insertions, 4 deletions
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. |