diff --git a/lib/interfaces/gametabs/gametab.simba b/lib/interfaces/gametabs/gametab.simba index 0e8aeab..38b1e0e 100644 --- a/lib/interfaces/gametabs/gametab.simba +++ b/lib/interfaces/gametabs/gametab.simba @@ -229,6 +229,8 @@ procedure __freeGameTabs(); var i: integer; begin + print('Freeing gametabs bitmaps..'); + for i := 0 to high(gameTabs.tabs) do if (gameTabs.tabs[i]._bmpLoaded) then freeBitmap(gameTabs.tabs[i]._bmp); diff --git a/lib/interfaces/mainscreen.simba b/lib/interfaces/mainscreen.simba index 1c54157..85ee5c7 100644 --- a/lib/interfaces/mainscreen.simba +++ b/lib/interfaces/mainscreen.simba @@ -286,11 +286,11 @@ TRSMainscreen.findObject; overload; .. code-block:: pascal - function TRSMainscreen.findObject(var x, y: integer; col, tol: integer; colSettings: TColorSettings; sortFrom: TPoint; objWidth, objHeight, minCount: integer; mouseOverText: TStringArray; mouseAction: integer = MOUSE_NONE): boolean; overload; + function TRSMainscreen.findObject(var ix, iy: integer; col, tol: integer; colSettings: TColorSettings; sortFrom: TPoint; objWidth, objHeight, minCount: integer; mouseOverText: TStringArray; mouseAction: integer = MOUSE_NONE): boolean; overload; A very general object finding function. Will find and mouse an object in the mainscreen. - * x, y: The coordinates of the object if found. + * ix, iy: The coordinates of the object if found. * col: The color to be found. * tol: The tolerance on 'col'. * colSettings: The color settings (i.e. color tolerance speed and modifiers). See lib/utilities/color.simba. @@ -313,9 +313,9 @@ Example: if (mainscreen.findObject(x, y, 123457, 10, colorSetting(2, 0.02, 0.13), mainscreen.getCenterPoint(), 50, 25, 40, ['ake'])) then writeln('Clicked object!'); *) -function TRSMainscreen.findObject(var x, y: integer; col, tol: integer; colSettings: TColorSettings; sortFrom: TPoint; objWidth, objHeight, minCount: integer; mouseOverText: TStringArray; mouseAction: integer = MOUSE_NONE): boolean; overload; +function TRSMainscreen.findObject(var ix, iy: integer; col, tol: integer; colSettings: TColorSettings; sortFrom: TPoint; objWidth, objHeight, minCount: integer; mouseOverText: TStringArray; mouseAction: integer = MOUSE_NONE): boolean; overload; begin - result := self.findObject(x, y, [col], [tol], colSettings, sortFrom, objWidth, objHeight, minCount, mouseOverText, self.getBounds(), mouseAction); + result := self.findObject(ix, iy, [col], [tol], colSettings, sortFrom, objWidth, objHeight, minCount, mouseOverText, self.getBounds(), mouseAction); end; {$IFNDEF CODEINSIGHT}