Fixed some constrcutors (forgot to Inherit Create)

Units/MMLAddon/mmlpsthread.pas

@@ -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,6 +297,7 @@ begin
   Client.Free;
   Includes.free;
   Prop.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;

Units/MMLAddon/settings.pas

@@ -118,6 +118,7 @@ end;
 
 constructor TMMLSettings.Create(aNodes: TTreeNodes);
 begin
+  inherited Create;
   Self.Nodes := aNodes;
 end;
 

Units/MMLAddon/settingssandbox.pas

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

Units/MMLCore/os_windows.pas

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