Minor bugfixes

Author: ollydev

Source/script/simba.script_compiler.pas

@@ -681,12 +681,20 @@ function TScriptCompiler.addClass(Name, Parent: String; LazClassType: TClass): T
     LapeException(lpeExpectedPointerType);
 
   if (PointerType.ClassType = TLapeType_Pointer) then
-    Result := addManagedType(TClassPointer.Create(Self, nil, False))
+  begin
+    Result := addManagedType(TClassPointer.Create(Self, nil, False));
+    Result.inheritManagedDecls(PointerType);
+  end
   else
     Result := addManagedType(PointerType.CreateCopy(True));
 
-  Result := addGlobalType(Result, Name);
+  TClassPointer(Result).Name := Name;
   TClassPointer(Result).ClassTyp := LazClassType;
+
+  GlobalDeclarations.addDeclaration(Result);
+
+  if (FDump <> nil) then
+    DumpType(Name, 'type ' + Parent);
 end;
 
 function TScriptCompiler.Compile: Boolean;

Source/simba.component_imagebox.pas

@@ -100,7 +100,7 @@   TSimbaImageScrollBox = class(TCustomControl)
   TImageBoxPaintEvent = procedure(Sender: TSimbaImageBox; Canvas: TSimbaImageBoxCanvas; R: TRect) of object;
   TImageBoxEvent = procedure(Sender: TSimbaImageBox) of object;
   TImageBoxClickEvent = procedure(Sender: TSimbaImageBox; X, Y: Integer) of object;
-  TImageBoxKeyEvent = procedure(Sender: TSimbaImageBox; var Key: Word; Shift: TShiftState);
+  TImageBoxKeyEvent = procedure(Sender: TSimbaImageBox; var Key: Word; Shift: TShiftState) of object;
   TImageBoxMouseEvent = procedure(Sender: TSimbaImageBox; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;
   TImageBoxMouseMoveEvent = procedure(Sender: TSimbaImageBox; Shift: TShiftState; X, Y: Integer) of object;