moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 18:52:15 -05:00
Code Issues Releases Wiki Activity

Fixed some constrcutors (forgot to Inherit Create)

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Units/MMLAddon/mmlpsthread.pas
View File

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

1
Units/MMLAddon/settings.pas
View File

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

2
Units/MMLAddon/settingssandbox.pas
View File

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

5
Units/MMLCore/os_windows.pas
View File

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