diff options
Diffstat (limited to 'Game/Code/Menu')
-rw-r--r-- | Game/Code/Menu/UDisplay.pas | 15 | ||||
-rw-r--r-- | Game/Code/Menu/UMenuButton.pas | 5 | ||||
-rw-r--r-- | Game/Code/Menu/UMenuText.pas | 5 |
3 files changed, 5 insertions, 20 deletions
diff --git a/Game/Code/Menu/UDisplay.pas b/Game/Code/Menu/UDisplay.pas index 74a55ea7..86b8910d 100644 --- a/Game/Code/Menu/UDisplay.pas +++ b/Game/Code/Menu/UDisplay.pas @@ -9,11 +9,6 @@ interface {$I switches.inc} uses - {$IFDEF win32} - windows, - {$ELSE} - LCLType, - {$ENDIF} ucommon, SDL, UMenu, @@ -72,9 +67,6 @@ uses {$ELSE} JPEG, {$ENDIF} - {$IFNDEF win32} - lclintf, - {$ENDIF} graphics, TextGL, // ULog, @@ -373,6 +365,7 @@ begin end; procedure TDisplay.ScreenShot; +{ var F : file; FileInfo: BITMAPINFOHEADER; @@ -380,10 +373,11 @@ var pPicData:Pointer; FileName: String; Num: Integer; +} begin // FIXME: something broken in here... quick fix... disabled it Exit; - +{ // search image-file for Num := 1 to 9999 do begin @@ -398,7 +392,7 @@ begin // prepare header memory ZeroMemory(@FileHeader, SizeOf(BITMAPFILEHEADER)); ZeroMemory(@FileInfo , SizeOf(BITMAPINFOHEADER)); - + // initialize header-data FileHeader.bfType := 19778; // $4D42 = 'BM' FileHeader.bfOffBits := SizeOf(BITMAPINFOHEADER)+SizeOf(BITMAPFILEHEADER); @@ -435,6 +429,7 @@ begin // free allocated data ... FreeMem(pPicData, FileInfo.biSizeImage); end; +} end; //------------ diff --git a/Game/Code/Menu/UMenuButton.pas b/Game/Code/Menu/UMenuButton.pas index e5a6d45b..652b5112 100644 --- a/Game/Code/Menu/UMenuButton.pas +++ b/Game/Code/Menu/UMenuButton.pas @@ -89,11 +89,6 @@ type implementation uses SysUtils, - {$IFDEF win32} - windows, - {$ELSE} - lclintf, - {$ENDIF} UDrawTexture; procedure TButton.SetX(Value: real); diff --git a/Game/Code/Menu/UMenuText.pas b/Game/Code/Menu/UMenuText.pas index 3dff321a..25264c64 100644 --- a/Game/Code/Menu/UMenuText.pas +++ b/Game/Code/Menu/UMenuText.pas @@ -57,11 +57,6 @@ type implementation uses UGraphic, - {$IFDEF win32} - windows, - {$ELSE} - lclintf, - {$ENDIF} StrUtils; {$IFDEF DARWIN} |