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;