mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-14 13:25:14 -05:00
490c3e1871
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@100 3f818213-9676-44b0-a9b4-5e4c4e03d09d
82 lines
1.6 KiB
ObjectPascal
82 lines
1.6 KiB
ObjectPascal
unit MMLThread;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, client;
|
|
|
|
type
|
|
TMMLThread = class(TThread)
|
|
protected
|
|
Client: TClient;
|
|
|
|
procedure Execute; override;
|
|
public
|
|
constructor Create(CreateSuspended: Boolean);
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{
|
|
Note to Raymond: For PascalScript, Create it on the .Create,
|
|
Execute it on the .Execute, and don't forget to Destroy it on .Destroy.
|
|
|
|
Furthermore, all the wrappers can be in the unit "implementation" section.
|
|
Better still to create an .inc for it, otherwise this unit will become huge.
|
|
(You can even split up the .inc's in stuff like color, bitmap, etc. )
|
|
|
|
Also, don't add PS to this unit, but make a seperate unit for it.
|
|
Unit "MMLPSThread", perhaps?
|
|
|
|
See the TestUnit for use of this thread, it's pretty straightforward.
|
|
|
|
It may also be wise to turn the "Importing of wrappers" into an include as
|
|
well, it will really make the unit more straightforward to use and read.
|
|
}
|
|
|
|
|
|
constructor TMMLThread.Create(CreateSuspended : boolean);
|
|
begin
|
|
Client := TClient.Create;
|
|
// Create Stuff here
|
|
|
|
FreeOnTerminate := True;
|
|
inherited Create(CreateSuspended);
|
|
end;
|
|
|
|
destructor TMMLThread.Destroy;
|
|
begin
|
|
Client.Destroy;
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TMMLThread.Execute;
|
|
var
|
|
i,w,h: Integer;
|
|
|
|
begin
|
|
w := 0;
|
|
h := 0;
|
|
i := 0;
|
|
while (not Terminated) and (i < 10) do
|
|
begin
|
|
Sleep(1000);
|
|
Client.MWindow.GetDimensions(W, H);
|
|
writeln(inttostr(w) + ', ' + inttostr(h));
|
|
Inc(i);
|
|
end;
|
|
end;
|
|
|
|
{ Include stuff here? }
|
|
|
|
//{$I inc/colors.inc}
|
|
//{$I inc/bitmaps.inc}
|
|
|
|
|
|
end.
|
|
|
|
|