wie temoräres Canvas erstellen und nutzen?

[himitsu]

Eigentlich wollte ich mir bei der internen Initialisierung 'ner Komponente
nur kurz ein Canvas erstellen, um darüber die Größe bestimmter Texte/Buchstaben abhängig eine bestimmten Fonts ermitteln.

nur leider geht das nicht so, wie ich wollte.

Zitat:

Zitat von EInvalidOperation

Leinwand/Bild erlaubt kein Zeichnen

das wäre mir ja egal, da ich doch eh nicht zeichnen wollte ... nur auslesen.

z.B.

Delphi-Quellcode:

Canvas := TCanvas.Create;
Try
  ...
  GetTextExtentPoint32W(Canvas.Handle,
  ...
Finally
  Canvas.Free;
End;

Aber anscheinend macht da das Handle, bzw. csAllValid nicht mit:

Delphi-Quellcode:

function TCanvas.GetHandle: HDC;
begin
  Changing;
  RequiredState(csAllValid);
  Result := FHandle;
end;

wie komm ich nun am Einfachsten ein nettes Handle ran, wo ich in Ruhe auslesen kann?

Das Canvas, wo später alles ausgegeben werden soll, ist zu diesem Zeitpunkt noch nicht Verfügbar.

:angel:

[taaktaak]

Hmm, ist TControlCanvas eine Alternative?

[DeddyH]

Oder eine temporäre Bitmap?

[turboPASCAL]

Oder dem Canvas ein temp. HDC zuweisen... ? :gruebel:

[Sunlight7]

Delphi-Quellcode:

var Canvas:TCanvas;
begin
   Canvas:=TCanvas.Create;
   Canvas.Handle:=GetDC(GetDesktopWindow);
...

[Assertor]

Hi himitsu,

müsstest Du jetzt nicht etwas :oops: werden, bist doch auch schon länger dabei :mrgreen:

Harter Typcast auf eine eigene TCanvas-Klasse und RequiredState überschreiben.

Beispiel (von TntUnicode):

Delphi-Quellcode:

type
  TAccessCanvas = class(TCanvas);

function WideDCTextExtent(hDC: THandle; const Text: UnicodeString): TSize;
begin
  Result.cx := 0;
  Result.cy := 0;
  Windows.GetTextExtentPoint32W(hDC, PWideChar(Text), Length(Text), Result);
end;

function WideCanvasTextExtent(Canvas: TCanvas;
  const Text: UnicodeString): TSize;
begin
  with TAccessCanvas(Canvas) do begin
    RequiredState([csHandleValid, csFontValid]);
    Result := WideDCTextExtent(Handle, Text);
  end;
end;

Gruß Assertor

Edits: Tippfehler...

[taaktaak]

Oh, oh, das ist wieder einmal so ein Moment, wo sich die Spreu vom Weizen trennt :(

[DeddyH]

Macht nichts, Ralph, nobody' s perfect (ich schon lange nicht) :zwinker:

[taaktaak]

Danke, Detlef, das hast du lieb gesagt!
Arbeiten wir also weiter an unserer Fortbildung!
:cheers:

[himitsu]

Kennt ihr diesen Satz mit dem Wald und den Bäumen?


So, ich probier es gleich mal direkt mit GetDC(GetDesktopWindow) und ohne eine Canvas dazwischen.

Kann ich auf den Desktop eigentlich immer zugreifen?
(nicht daß ich unter Vista/Win7 mal Probleme bekomm)