[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.

hi,

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

Kreis?

Ja (mit s), so ungefähr:

markieren

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;

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).

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

Kann das das ElPack nicht?

*SCNR*

zu #5:

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

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

Zitat von Die Muhkuh:

Kann das das ElPack nicht?

*SCNR*

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

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