From 05611382cba6ee713b76d0bead4b7fb6ac4e47b9 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 1 Apr 2008 18:58:01 +0000
Subject: removed unused lclintf/windows references

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@996 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Menu/UDisplay.pas | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

(limited to 'Game/Code/Menu/UDisplay.pas')

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;
 
 //------------
-- 
cgit v1.2.3