Einzelnen Beitrag anzeigen

HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
969 Beiträge
 
Delphi 6 Professional
 
#21

AW: Stift Eingabe zum Schreiben auf Tablet

  Alt 29. Mär 2017, 13:20
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!
  Mit Zitat antworten Zitat