TCanvasEx (TCanvas Class-Helper Addon)

[Neutral General]

Hi,

Hier stelle ich mein TCanvas "Addon" vor. Dies ist die absolut erste Version, d.h. ca. Alpha 0.0.0.0.1

Vorraussetzungen:

• Delphi-Version, die Class-Helper unterstützt.

Neue Methoden:

• procedure TextOut(x,y: Integer; Text: String; Angle: Integer); overload;
  • TCanvas.TextOut wurde überladen. Mit dieser Version kann man gedrehte Texte ausgeben.
• function TextWidth(Text: String; Angle: Integer): Integer; overload;
  • TCanvas.TextWidth wurde überladen. Mit dieser Version wird die Breite eines gedrehten Texts ermittelt.
• function TextHeight(Text: String; Angle: Integer): Integer; overload;
  • TCanvas.TextHeight wurde überladen. Mit dieser Version wird die Höhe eines gedrehten Texts ermittelt.

Bugs:

• Die überladenen TextWidth/TextHeight Methoden sind z.T. um bis zu 4 Pixel (manuell getestet) ungenau.

Ich werde diese Unit aber noch weiterentwickeln.