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