aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Menu
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Menu/UDisplay.pas20
-rw-r--r--Game/Code/Menu/UMenu.pas7
2 files changed, 21 insertions, 6 deletions
diff --git a/Game/Code/Menu/UDisplay.pas b/Game/Code/Menu/UDisplay.pas
index 6ad01406..160e8a73 100644
--- a/Game/Code/Menu/UDisplay.pas
+++ b/Game/Code/Menu/UDisplay.pas
@@ -2,7 +2,15 @@ unit UDisplay;
interface
-uses Windows, SDL, UMenu, OpenGL12, SysUtils;
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
+uses Windows,
+ SDL,
+ UMenu,
+ OpenGL12,
+ SysUtils;
type
TDisplay = class
@@ -53,10 +61,12 @@ var
implementation
uses
- {$IFNDEF FPC}
- Graphics,
+ {$IFDEF FPC}
+ lazjpeg,
+ {$ELSE}
JPEG,
{$ENDIF}
+ graphics,
TextGL,
// UFiles,
UMain,
@@ -320,8 +330,8 @@ begin
end;
glReadPixels(0, 0, ScreenW, ScreenH, GL_RGBA, GL_UNSIGNED_BYTE, @PrintScreenData[0]);
- Bitmap := TBitmap.Create;
- Bitmap.Width := ScreenW;
+ Bitmap := TBitmap.Create;
+ Bitmap.Width := ScreenW;
Bitmap.Height := ScreenH;
for Y := 0 to ScreenH-1 do
diff --git a/Game/Code/Menu/UMenu.pas b/Game/Code/Menu/UMenu.pas
index 3c50967d..1e6c1e87 100644
--- a/Game/Code/Menu/UMenu.pas
+++ b/Game/Code/Menu/UMenu.pas
@@ -154,7 +154,12 @@ const
implementation
-uses UMain, UDrawTexture, UGraphic, UDisplay, UCovers, USkins, Dialogs;
+uses UMain,
+ UDrawTexture,
+ UGraphic,
+ UDisplay,
+ UCovers,
+ USkins;
destructor TMenu.Destroy;
begin