Width einer Canvas auslesen

[Nikolas]

Das klingt zwar etwas komisch, aber genau dass ist gerade mein Problem. Ich will an eine Procedure in einer Klasse eine Canvas übergeben. Jetzt brauche ich aber in dieser Procedure Infos über Höhe und Breite der Canvas. Nur leider hat TCanvas diese Eigenschaften nicht... Kann ich die halbwegs einfach auslesen, oder muss ich diese Werte noch zusätzlich als Parameter übergeben? :gruebel:
Vielen Dank

[mytar]

Hab genau das gleiche Problem,
bis jetzt hab ich immer ein TImage-Objekt verwendet,
und dann auf die Canvas-Instanz zugegriffen,
eine bessere Lösung würde mich sehr interessieren.

Danke :-D

[Muetze1]

Moin!

Du musst die Abmasse mit übergeben.

MfG
Muetze1

[Nikolas]

Das ist komisch :shock: Gibt's da auch eine sinnvolle Erklärung dafür, dass die Canvas nicht selbst weiss, wie groß sie ist?
Wenn ich dann sowas aufrufen will

Delphi-Quellcode:

ZeichnenAuf(image1.canvas,image1.width,image1.height)

dann wunder ich mich schon, dass es da nichts einfacheres gibt. :gruebel:

[Sprint]

TCanvas hat ein Handle vom Typ DC. Anhand dieses Handle kannst du mit WindowFromDC das dazu gehörige Fensterhandle ermitteln. Wenn du das Fensterhanlde hast, kannst du auch die Maße bestimmen.

Außerdem würde ich TControlCanvas benutzen und dieses an deine Funktion/Prozedur weiterleiten.

[Nothine]

du könntest dir mit der funktion GetClipBox die maße des canvas holen.
Es gibt zwar laut MSDN einige einschränkungen, aber für den anfang funktionierts z.B. mit Form1.Canvas janz jut.

Delphi-Quellcode:

function CanvasWidth(Canvas: TCanvas): Integer;
var R: TRect;
begin
  GetClipBox(Canvas.Handle,R);
  Result := R.Right;
end;

function CanvasHeight(Canvas: TCanvas): Integer;
var R: TRect;
begin
  GetClipBox(Canvas.Handle,R);
  Result := R.Bottom;
end;