aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Menu
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Menu/UDisplay.pas15
-rw-r--r--Game/Code/Menu/UMenuButton.pas5
-rw-r--r--Game/Code/Menu/UMenuText.pas5
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}