mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-14 05:15:16 -05:00
b5a8426f1e
- Added the TToolBar with the old Buttons. - Removed the bug Run button. The Green Run button is now functional. Window changes: - Removed the Client: TObject parameter in TMWindow.Create, the point of TMWindow was to be client independant, so it could be used in the GUI too. This doesn't effect it's functionality in any way. Client changes: Removed the Self variable passed to TMWindow.Create. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@77 3f818213-9676-44b0-a9b4-5e4c4e03d09d
56 lines
910 B
ObjectPascal
56 lines
910 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 := MDTM.Create(self);
|
|
end;
|
|
|
|
destructor TClient.Destroy;
|
|
begin
|
|
MDTM.Free;
|
|
MBitmaps.Free;
|
|
MFinder.Free;
|
|
MFiles.Free;
|
|
MInput.Free;
|
|
MWindow.Free;
|
|
|
|
|
|
|
|
inherited;
|
|
end;
|
|
|
|
end.
|
|
|