Sima Rev 1204, interpreter set to lape.
Latest/fresh AeroLib installed.
I'm getting Block expected at line 58 (AeroLib/misc/ezForm.simba)
Going to take a guess and assume it's because r1204 is too new?
Simba Code:
begin
for _Index to high(__eZFormArray) do
__eZFormArray[_Index].__.close();
end;
procedure eZFormShow();native; //THIS IS LINE 58
var
_BottomMost,
_RightMost:int32=-2147483647;
_LeftMost,
_TopMost:int32=2147483647;
_Index:int32;
begin
__eZForm.__.setTag(ord(eZTagForm));
if length(__eZForm.___) then
begin
for _Index to high(__eZForm.___) do
begin
if tButton(__eZForm.___[_Index].__).getVisible() and (tButton(__eZForm.___[_Index].__).getParent().getTag()=eZTagForm) then
begin
_BottomMost:=max(_BottomMost,tButton(__eZForm.___[_Index].__).getTop()+tButton(__eZForm.___[_Index].__).getHeight());
_LeftMost:=min(_LeftMost,tButton(__eZForm.___[_Index].__).getLeft());
_RightMost:=max(_RightMost,tButton(__eZForm.___[_Index].__).getLeft()+tButton(__eZForm.___[_Index].__).getWidth());
_TopMost:=min(_TopMost,tButton(__eZForm.___[_Index].__).getTop());
end;
end;
if (_BottomMost<>-2147483647) and (_LeftMost<>2147483647) and (_RightMost<>-2147483647) and (_TopMost<>2147483647) then
begin
__eZForm.__.setHeight(_BottomMost+_TopMost);
__eZForm.__.setWidth(_LeftMost+_RightMost);
end;
end;
__eZForm.__.showOnTop();
end;
ty