TCanvas für TextWidth in Komponente verwenden

[Helmi]

Hallo,

ich muss die Breite eines Textes in einem Panel wissen.
Das ganze passiert in einer Komponente.

Meine erste Version war so:

Delphi-Quellcode:

var
  Text_Width: Integer;

begin
  Text_Width := Application.MainForm.Canvas.TextWidth(S); //In "S" ist der String
end;

Da ich aber die Unit "Forms" in meiner Komponente nicht brauch und will, dacht ich mir, ich könnte ja ein Canvas erzeugen:

Delphi-Quellcode:

var
  Canvas    : TCanvas;

begin
  //Canvas ereugen
  Canvas          := TCanvas.Create;

  try
    Text_Width      := Canvas.TextWidth(S);
  finally
    FreeAndNil(Canvas);
  end;
end;

Wenn ich aber nun diesen Code ausführe, erhalte ich die Fehlermeldung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EInvalidOperation aufgetreten. Meldung: 'Leinwand/Bild erlaubt kein Zeichnen'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

Also muss ich irgendwas falsch machen mit dem Canvas. Kann mir da jemand helfen?

[Helmi]

Ach,

ich könnt mich in den Arsch beissen :-)

Wenn alles so simple wär:

Delphi-Quellcode:

var 
  Canvas    : TCanvas; 

begin 
  //Canvas ereugen 
  Canvas          := TCanvas.Create; 

  try 
    Canvas.Handle := FPanel.Handle;        //Das hat gefehlt!!  //FPanel ist das Panel

    Text_Width    := Canvas.TextWidth(S); 
  finally 
    FreeAndNil(Canvas); 
  end; 
end;

[DeddyH]

Übrigens, wenn Du von TCustomPanel ableitest, ist Dein Panel ein TCustomControl, hat also bereits einen (wenn auch versteckten) Canvas. :zwinker:

[Bernhard Geyer]

Wie wäre es mit:

Delphi-Quellcode:

Text_Width := FPanel.Canvas.TextWidth(S)

Wieso noch ein Extra Canvas erzeugen?

[Helmi]

Zitat:

Zitat von Bernhard Geyer

Wieso noch ein Extra Canvas erzeugen?

Deswegen:

Zitat:

[Fehler] MaskPanelEdit.pas(148): Undefinierter Bezeichner: 'Canvas'

[Edit]
sooo: Nach etwas rumbasteln, hab ich jetzt die Textbreite abhängig von der Schrift:

Delphi-Quellcode:

  //Canvas ereugen
  Canvas            := TCanvas.Create;

  try
    //Handle zuweisen
    Canvas.Handle   := GetWindowDC(FPanel.Handle);

    Canvas.Font     := FPanel.Font;

    Text_Width      := Canvas.TextWidth(FPanel.Caption);
  finally
    FreeAndNil(Canvas);
  end;

[Bernhard Geyer]

Falsch gelesen :wall:

[Robert Marquardt]

Vorher den Font Canvas.Font zuweisen, sonst rechnet GetTextWidth falsch.
Das TPanel hat bereits wie erwaehnt einen Canvas. Er ist aber protected und daher nicht direkt zugreifbar. In einer TPanel-Ableitung Canvas einfach public machen.
Die implementierte Version ist zwar nicht falsch, aber heftig ineffizient.

[Helmi]

Zitat:

Zitat von Robert Marquardt

Vorher den Font Canvas.Font zuweisen, sonst rechnet GetTextWidth falsch.

Mach ich doch... :gruebel: :gruebel:

[Helmi]

Zitat:

Zitat von Robert Marquardt

Das TPanel hat bereits wie erwaehnt einen Canvas. Er ist aber protected und daher nicht direkt zugreifbar. In einer TPanel-Ableitung Canvas einfach public machen.

Wie macht man das public? *dummfrag*

[DeddyH]

Delphi-Quellcode:

TMyPanel = class(TPanel)
   ...
  public
    property Canvas;
end;