Hmm..
PS: Eine Stelle kompiliert bei mir nicht weil
HitTestWithLasso(..)
an letzter Stelle einen
var
-Parameter erwartet:
Delphi-Quellcode:
function TInkDisp.HitTestWithLasso(Points: OleVariant; IntersectPercent: Single): IInkStrokes;
var
lassoPoints: OleVariant;
begin
lassoPoints := EmptyParam();
Result := DefaultInterface.HitTestWithLasso(Points, IntersectPercent, lassoPoints);
end;
Nochmal hierzu..
unter Delphi 6 ist EmptyParam so in der 'Varints' deklariert
Delphi-Quellcode:
var
EmptyParam: OleVariant; // "Empty parameter" standard constant which can be
Ich vermute, das es bei späteren Delphi Versionen zu einer 'echten' const wurde!