Ach so das noch
Neue Post!
Delphi-Quellcode:
strFormat: GPSTRINGFORMAT; // Tigü: war nicht definiert
boundingBox, layoutRect: TGPRectF; // Tigü: war nicht definiert
war definiert nur nicht in der Funktion daher muss hier auch nix auf NIL gesetzt werden da GLOBAL!
Delphi-Quellcode:
var
strFormat: GPSTRINGFORMAT;
boundingBox: TGPRectF;
layoutRect: TGPRectF;
rcLayout: TGPRectF;
brush: Pointer;
Das kannst du natürlich nicht sehen.
EDIT:
Graphics: GPGRAPHICS; // Tigü: Hier war ein falscher Typ (Cardinal)
Der Typ ist nicht falsch wenn er das wäre würde mein ganzer Quelltext nicht funktionieren.
Das ist eine Auslegungs Sache wie ich Graphics definiere.
IN VB ist es Long, in PowerBasik ist es DWORD und bei mir ist es Cardinal (DWORD) wenn du so willst.
gruss