diff --git a/src/game/g_gui.pas b/src/game/g_gui.pas
index d59c838557761d29290813f3c667d366ec248151..2ead3bbbb06a9e0bf0bd7c8cbae0b5eb2d626919 100644 (file)
--- a/src/game/g_gui.pas
+++ b/src/game/g_gui.pas
interface
uses
+ mempool,
e_graphics, e_input, e_log, g_playermodel, g_basic, MAPDEF, wadreader;
const
TFontType = (FONT_TEXTURE, FONT_CHAR);
- TFont = class(TObject)
+ TFont = class(TPoolObject)
private
ID: DWORD;
FScale: Single;
TOnChangeEvent = procedure(Sender: TGUIControl);
TOnEnterEvent = procedure(Sender: TGUIControl);
- TGUIControl = class
+ TGUIControl = class(TPoolObject)
private
FX, FY: Integer;
FEnabled: Boolean;
property RightAlign: Boolean read FRightAlign write FRightAlign; // for menu
end;
- TGUIWindow = class
+ TGUIWindow = class(TPoolObject)
private
FActiveControl: TGUIControl;
FDefControl: string;
property Font: TFont read FFont write FFont;
end;
- TGUIFileListBox = class (TGUIListBox)
+ TGUIFileListBox = class(TGUIListBox)
private
FBasePath: String;
FPath: String;