Hi all,
I hope some have knowledge of PascalScript because I'm having quite a
weird and complex problem. I'll demonstrate it here very simply so if
some have ideas...
*Problem*
I'm exporting some classes (originally a TBitmap; now a custom class)
to the ROPS engine and then interacting with the class in the
scripting engine. Everything works, except for some functions that
behave very strange. They skip/duplicate the parameters and invert
parameters.
*Simple example*
All the following code is typed in the e-mail.
TMyClass
public
procedure DrawRectangle(left, top, right, bottom: Extended);
end;
//
procedure TMyClass.DrawRectangle(left, top, right, bottom: Extended);
begin
ShowMessage('left='+FloatToStr(left)+' top='+FloatToStr(top)+
' right='+FloatToStr(right)+' bottom='+FloatToStr(bottom));
end;
//
var
MyClass: TMyClass; //I create it later
Now I call a function in the script defined as procedure
OnMyClass(myclass: TMyClass); Then I pass the class in parameters.
*Example of script*
procedure OnMyClass(myclass: TMyClass);
begin
myClass.DrawRectangle(1,2,3,4);
end;
*Results of all that*
We would expect to have a nice message displaying 'left=1 top=2
right=3 bottom=4', but in fact I'm getting 'left=4 top=3 right=2
bottom=2'. So parameter order is reversed and I'm always loosing the
first (last!?!) parameter and the second one is duplicated to the
first.
The ROPS units are compiled in delphi mode in there units. My
application is pure fpc. I'm under winXP.
I'm still doing many other tests meanwhile.
Best regards.
--
Alexandre Leclerc
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
