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.

[bigben37]

hi,

ich find das ist eine gute Idee.
Du könntest noch z.B. eine Procedure für einen Kreiß Kreis, Dreieck erstellen.

[Die Muhkuh]

Kreis? :mrgreen:

[bigben37]

Ja (mit s), so ungefähr:

Delphi-Quellcode:

procedure Circle(x, y, r: Integer);  //x: x Position des Mittelpunkts
                                     //y: y Position des Mittelpunkts
                                     //r: Radius des Kreises
begin
  Canvas.Ellipse(x-r, y-r, x+r, y+r);
end;

[Die Muhkuh]

Hi,

dann würde ich aber zwei Prozeduren machen. Eine, die als Ursprung den Mittelpunkt hat und eine, deren Ursprung links oben ist. (Da entfällt das x-r, y-r).

[Bernhard Geyer]

Am besten auch gleich alle Methoden mit Text als Widestring/Unicode damit auch alte Delphi-Versionen in den genuss einer einfachen Full-Unicodeunterstützung kommen :-)

[Die Muhkuh]

Kann das das ElPack nicht? :mrgreen:

*SCNR*

[bigben37]

zu #5:

aber dafür muss man den Radius bei den x+r und y+r verdoppeln :wink:

und dann schreibt man am besten das Ganze noch für den Durchmesser :stupid:

[Bernhard Geyer]

Zitat:

Zitat von Die Muhkuh

Kann das das ElPack nicht? :mrgreen:

*SCNR*

Nicht auf TCanvas-Ebene. Hier wurden (aufgrund der Tatsache das bisher auch D5/6/7 unterstützt wurde) keine Class Helper verwendet.

[Die Muhkuh]

Das sollte ein Witz sein, Bernhard, weil Du das ElPack recht oft erwähnst :zwinker: