mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-11 11:55:02 -05:00
Fixed some constrcutors (forgot to Inherit Create)
This commit is contained in:
parent
96d26f626b
commit
43c859f317
@ -275,6 +275,7 @@ end;
|
|||||||
{***implementation TMThread***}
|
{***implementation TMThread***}
|
||||||
constructor TMThread.Create(CreateSuspended: boolean; TheSyncInfo: PSyncInfo; plugin_dir: string);
|
constructor TMThread.Create(CreateSuspended: boolean; TheSyncInfo: PSyncInfo; plugin_dir: string);
|
||||||
begin
|
begin
|
||||||
|
inherited Create(CreateSuspended);
|
||||||
Client := TClient.Create(plugin_dir);
|
Client := TClient.Create(plugin_dir);
|
||||||
MInternet := TMInternet.Create(Client);
|
MInternet := TMInternet.Create(Client);
|
||||||
SyncInfo:= TheSyncInfo;
|
SyncInfo:= TheSyncInfo;
|
||||||
@ -288,8 +289,6 @@ begin
|
|||||||
Sett := nil;
|
Sett := nil;
|
||||||
|
|
||||||
Prop := TScriptProperties.Create;
|
Prop := TScriptProperties.Create;
|
||||||
|
|
||||||
inherited Create(CreateSuspended);
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
destructor TMThread.Destroy;
|
destructor TMThread.Destroy;
|
||||||
@ -298,7 +297,8 @@ begin
|
|||||||
Client.Free;
|
Client.Free;
|
||||||
Includes.free;
|
Includes.free;
|
||||||
Prop.Free;
|
Prop.Free;
|
||||||
Sett.Free;
|
if Sett <> nil then
|
||||||
|
Sett.Free;
|
||||||
inherited Destroy;
|
inherited Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -514,6 +514,7 @@ constructor TPSThread.Create(CreateSuspended : boolean; TheSyncInfo : PSyncInfo;
|
|||||||
var
|
var
|
||||||
I : integer;
|
I : integer;
|
||||||
begin
|
begin
|
||||||
|
inherited Create(CreateSuspended, TheSyncInfo, plugin_dir);
|
||||||
PSScript := TPSScript.Create(nil);
|
PSScript := TPSScript.Create(nil);
|
||||||
PSScript.UsePreProcessor:= True;
|
PSScript.UsePreProcessor:= True;
|
||||||
PSScript.OnNeedFile := @RequireFile;
|
PSScript.OnNeedFile := @RequireFile;
|
||||||
@ -525,7 +526,6 @@ begin
|
|||||||
PSScript.OnFindUnknownFile:=@PSScriptFindUnknownFile;
|
PSScript.OnFindUnknownFile:=@PSScriptFindUnknownFile;
|
||||||
// Set some defines
|
// Set some defines
|
||||||
{$I PSInc/psdefines.inc}
|
{$I PSInc/psdefines.inc}
|
||||||
inherited Create(CreateSuspended, TheSyncInfo, plugin_dir);
|
|
||||||
for i := 0 to high(ExportedMethods) do
|
for i := 0 to high(ExportedMethods) do
|
||||||
if pos('Writeln',exportedmethods[i].FuncDecl) > 0 then
|
if pos('Writeln',exportedmethods[i].FuncDecl) > 0 then
|
||||||
begin
|
begin
|
||||||
@ -806,10 +806,10 @@ constructor TCPThread.Create(CreateSuspended: Boolean; TheSyncInfo : PSyncInfo;
|
|||||||
var
|
var
|
||||||
plugin_idx: integer;
|
plugin_idx: integer;
|
||||||
begin
|
begin
|
||||||
|
inherited Create(CreateSuspended, TheSyncInfo, plugin_dir);
|
||||||
if libcpascal = 0 then
|
if libcpascal = 0 then
|
||||||
LoadCPascal(plugin_dir);
|
LoadCPascal(plugin_dir);
|
||||||
instance:= interp_init(@Interpreter_Precompiler, @Interpreter_ErrorHandler);
|
instance:= interp_init(@Interpreter_Precompiler, @Interpreter_ErrorHandler);
|
||||||
inherited Create(CreateSuspended, TheSyncInfo, plugin_dir);
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
destructor TCPThread.Destroy;
|
destructor TCPThread.Destroy;
|
||||||
|
@ -118,6 +118,7 @@ end;
|
|||||||
|
|
||||||
constructor TMMLSettings.Create(aNodes: TTreeNodes);
|
constructor TMMLSettings.Create(aNodes: TTreeNodes);
|
||||||
begin
|
begin
|
||||||
|
inherited Create;
|
||||||
Self.Nodes := aNodes;
|
Self.Nodes := aNodes;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -53,6 +53,7 @@ implementation
|
|||||||
|
|
||||||
constructor TMMLSettingsSandbox.Create(sett: TMMLSettings);
|
constructor TMMLSettingsSandbox.Create(sett: TMMLSettings);
|
||||||
begin
|
begin
|
||||||
|
inherited;
|
||||||
Self.ST := sett;
|
Self.ST := sett;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -81,7 +82,6 @@ end;
|
|||||||
|
|
||||||
function TMMLSettingsSandbox.GetKeyValue(KeyName: String): String;
|
function TMMLSettingsSandbox.GetKeyValue(KeyName: String): String;
|
||||||
begin
|
begin
|
||||||
writeln('getkeyvalue');
|
|
||||||
exit(ST.GetKeyValue(Prefix + KeyName))
|
exit(ST.GetKeyValue(Prefix + KeyName))
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -174,7 +174,10 @@ implementation
|
|||||||
|
|
||||||
constructor TWindow.Create(target: Hwnd);
|
constructor TWindow.Create(target: Hwnd);
|
||||||
begin
|
begin
|
||||||
self.create; //Call the other create
|
inherited Create;
|
||||||
|
self.buffer:= TBitmap.Create;
|
||||||
|
self.buffer.PixelFormat:= pf32bit;
|
||||||
|
keyinput:= TKeyInput.Create;
|
||||||
self.handle:= target;
|
self.handle:= target;
|
||||||
self.dc:= GetWindowDC(target);
|
self.dc:= GetWindowDC(target);
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user