1
0
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:
Raymond 2010-03-25 16:21:21 +01:00
parent 96d26f626b
commit 43c859f317
4 changed files with 11 additions and 7 deletions

View File

@ -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;

View File

@ -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;

View File

@ -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;

View File

@ -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;