moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 09:12:19 -05:00
Code Issues Releases Wiki Activity

DTM shell with some comments.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@75 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-09-22 08:14:43 +00:00
parent 4a6987a777
commit f1a223473d
2 changed files with 62 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Units/MMLCore/client.pas
View File

@ -5,7 +5,7 @@ unit Client;
interface
uses
Classes, SysUtils, MufasaTypes, Window, Input, Files, Finder,Bitmaps;
Classes, SysUtils, MufasaTypes, Window, Input, Files, Finder, Bitmaps, dtm;
type
TClient = class(TObject)
@ -18,6 +18,7 @@ type
MFiles: TMFiles;
MFinder: TMFinder;
MBitmaps : TMBitmaps;
MDTM: TMDTM;
end;
@ -33,10 +34,12 @@ begin
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;
@ -44,6 +47,7 @@ begin
MWindow.Free;
inherited;
end;

57
Units/MMLCore/dtm.pas Normal file
View File

@ -0,0 +1,57 @@
unit dtm;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
TMDTM = class(TObject)
constructor Create(Owner: TObject);
destructor Destroy; override;
private
Client: TObject;
end;
{
I am not sure wether I should simply copy and paste the old DTM implementation,
or rewrite it from scratch.
I recall there was something partially wrong with SCAR-alike DTM conversions
to Mufasa DTM's...
The old DTM system problaby doesn't perform that well, but seems to be quite
stable and complete.
If I would rewrite it from scratch, it would probably be faster, and
hopefully more efficient.That won't be too hard, especially since I have
direct data access now. (TClient FTW!)
Rewrite from scratch it will be, I guess.
And AreaShape will be turned into a {$I }, inline simply doesn't cut it.
~Wizz
}
implementation
uses
Client;
constructor TMDTM.Create(Owner: TObject);
begin
inherited Create;
Self.Client := Owner;
end;
destructor TMDTM.Destroy;
begin
//Something
inherited Destroy;
end;
end.