TextRect -> Es gibt keine überladene Version ...

[Tobinator]

Hi,

ich will einen Text über Canvas.TextRect ausgeben, aber das funktioniert nicht. Ich hab zwar ein Thema gefunden, was genau dieses Problem zu behandeln scheint, das bringt mich aber nicht weiter. Ich habs mal so wie es da steht angepasst, aber es funktioniert immer noch nicht.

Delphi-Quellcode:

procedure TMyDocumentLabel.Paint(Canvas: TCanvas; y0: integer);
  var R:TRect;
      s:AnsiString;
      t:TTextFormat;
begin
  //r:=rect(Left*scale,y0+Top*scale,(Left+width)*scale,y0+(Top+Height)*scale);
  s:='asd';
  r:=rect(10,12,130,150);
  T:=[tfCenter];
  Canvas.TextRect(R,S,[tfCenter]);
//  Canvas.TextRect(R,s,T);
end;

Es kommt der Fehler:

Zitat:

[DCC Fehler] Report2.pas(469): E2250 Es gibt keine überladene Version von 'TextRect', die man mit diesen Argumenten aufrufen kann

Die auskommentierten Anweisungen funktionieren auch nicht.

Es ist doch im Prinzip genau das selbe, wie auch in dem anderen Thema steht, oder?? Was mache ich falsch?

Danke schonmal,
Tobi.

[DeddyH]

Welcher Canvas ist denn hier gemeint? Der Parameter oder ggf. die Canvas-Eigenschaft der Klasse?

[Tobinator]

Das Canvas, was oben als Parameter steht.
Die Klasse hat kein eigenes.

[DeddyH]

Ich glaube zwar nicht wirklich, dass es etwas bringt, aber benenne den Parameter doch einmal um (aCanvas z.B.).

[Tobinator]

Bringt auch nix...
Aber zu dem anderen gibts doch eigentlich keinen unterschied, oder??
Also es sind Variablen-Parameter und Tippfehler hab ich auch nicht gefungen...

[DeddyH]

Im Moment seh ich jetzt auch nicht, was die Ursache sein könnte. Du hast aber keine eigene TCanvas-Klasse deklariert, oder?