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.

[Die Muhkuh]

Zitat von bigben37:

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

Oder man überlädt es und machte beide Varianten

[bigben37]

Zitat von Die Muhkuh:

Oder man überlädt es und machte beide Varianten

Wie willst du das mit überladen machen?
Ich meine, wie kannst du feststellen ob der Benutzer von oben links zeichnen will oder vom Mittelpunkt aus,
ohne noch einen 4. Parameter zu übergeben (was zu einer If-Abfrage führen würde, also auch kein überladen).

Ich würde des mit 2 unterschiedlich benannten Proceduren machen;

[Die Muhkuh]

Ach geh weg. Ich bin zu müde für das. *g*

Natürlich geht das mit überladen nicht, wo hab ich nur mein Kopf.

*still ist*

Aber wäre schon übertrieben, 3 Prozeduren zum Zeichnen eines Kreises.

[bigben37]

sind's nicht 4

-Radius Mittelpunkt
-Radius oben links
-Durchmesser Mittelpunkt
-Durchmesser oben links

[Neutral General]

Hi,

Leute, ihr habts auch mit euren Kreisen oder?
Es wird eine Kreis-Methode geben. Ich suche mir 1-2 der ca. 46 geposteten Methoden aus

Bin jetzt müde und werde dann morgen Mittag/Abend Stellung zu den einzelnen Posts nehmen

Gute Nacht

Gruß
Neutral General

[Die Muhkuh]

Dann nehmen wir noch mal vier dazu.

Einmal ist ja x,y als Parameter und einmal noch TPoint

[Neutral General]

Hi,

Zitat von 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

Das ist eine sehr gute Idee. Kommt auf meine imaginäre Todo-Liste (Auch wenn ich Unicode nicht leiden kann )

Die Circle-Methode wird auch eingebaut werden.

[Namenloser]

Was ich viel interessanter als 1001 kreis-Methoden fände, wär eine Methode Line(x1,y1,x2,y2[,farbe]). MoveTo und LineTo find ich sowas von umständlich...

[Bernhard Geyer]

Zitat von Die Muhkuh:

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

Aber wäre doch eine gute Erweiterung für das ElPack. Nachdem mit dem nächsten Major-Release vom ElPack alte Delphi-Versionen nicht mehr unterstützt werden könnten sie sowas einbauen ...