mirror of
https://github.com/moparisthebest/Simba
synced 2025-02-25 16:01:48 -05:00
33b416a939
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@99 3f818213-9676-44b0-a9b4-5e4c4e03d09d
56 lines
911 B
ObjectPascal
56 lines
911 B
ObjectPascal
unit Client;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, MufasaTypes, Window, Input, Files, Finder, Bitmaps, dtm;
|
|
|
|
type
|
|
TClient = class(TObject)
|
|
constructor Create;
|
|
destructor Destroy; override;
|
|
|
|
public
|
|
MWindow: TMWindow;
|
|
MInput: TMInput;
|
|
MFiles: TMFiles;
|
|
MFinder: TMFinder;
|
|
MBitmaps : TMBitmaps;
|
|
MDTM: TMDTM;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
// Possibly pass arguments to a default window.
|
|
constructor TClient.Create;
|
|
begin
|
|
inherited Create;
|
|
|
|
MWindow := TMWindow.Create;
|
|
MInput := TMInput.Create(Self);
|
|
MFiles := TMFiles.Create;
|
|
MFinder := TMFinder.Create(Self);
|
|
MBitmaps := TMBitmaps.Create(self);
|
|
MDTM := TMDTM.Create(self);
|
|
end;
|
|
|
|
destructor TClient.Destroy;
|
|
begin
|
|
MDTM.Free;
|
|
MBitmaps.Free;
|
|
MFinder.Free;
|
|
MFiles.Free;
|
|
MInput.Free;
|
|
MWindow.Free;
|
|
|
|
|
|
|
|
inherited;
|
|
end;
|
|
|
|
end.
|
|
|