mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-29 12:32:14 -05:00
42 lines
580 B
ObjectPascal
42 lines
580 B
ObjectPascal
|
unit Client;
|
||
|
|
|
||
|
|
{$mode objfpc}{$H+}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Classes, SysUtils, MufasaTypes, Window, Input;
|
||
|
|
|
||
|
|
type
|
||
|
|
TClient = class(TObject)
|
||
|
|
constructor Create;
|
||
|
|
destructor Destroy; override;
|
||
|
|
|
||
|
|
public
|
||
|
|
MWindow: TMWindow;
|
||
|
|
MInput: TMInput;
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
// Possibly pass arguments to a default window.
|
||
|
|
constructor TClient.Create;
|
||
|
|
begin
|
||
|
|
inherited Create;
|
||
|
|
|
||
|
|
MWindow := TMWindow.Create(Self);
|
||
|
|
MInput := TMInput.Create(Self);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TClient.Destroy;
|
||
|
|
begin
|
||
|
|
MWindow.Destroy;
|
||
|
|
MInput.Destroy;
|
||
|
|
|
||
|
|
inherited;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|
||
|
|
|