Canvas.Textwidth liefert falschen Wert

[EmWieMichael]

Zitat von himitsu:

Kein Ressourcenschutzblock?

Das ist ein Beispiel; Übergabe von Fontgröße und -eigenschaften fehlt auch.

Zitat:

Und warum nicht gleich direkt den vorhandenen Font des Bitmaps verwenden?

Müsste auch funktionieren. Man kann so aber auch ein TFont an die Funktion übergeben.

Zitat:

Oder das Canvas des Labels? (wobei TLabel, TImage, TPaintBox und paar Andere eigentlich keine eigene Zeichenfläche besitzen, sie alle Zeichenoperationen an ihren Parent durchreichen und sich auf ihn drauf malen)

Du hast die Frage selber beantwortet.

[nahpets]

Um die Mindestgröße eines Buttons zu ermitteln gehe ich im Prinzip so vor:

Delphi-Quellcode:

function TfrmDGB.SetButton;
var
          lb : TLabel;
begin
  lb              := TLabel.Create(Self);
  lb.Font         := btnFilter.Font;
  lb.AutoSize     := True;
  lb.Caption      := btnFilter.Caption;
  btnFilter.Width := lb.Width + 16;
  lb.Free;
end;

Mit dieser Methode haben die Buttons auch dann noch eine korrekte Breite, wenn die Schriftgröße zur Laufzeit verändert wird.

Verallgemeinert könnte das dann eventuell ungefähr so aussehen:

Delphi-Quellcode:

function GetWidth(c : TControl; Caption : String) : Integer;
var
          lb : TLabel;
begin
  lb          := TLabel.Create(Nil);
  lb.Font     := c.Font;
  lb.AutoSize := True;
  lb.Caption  := Caption;
  Result      := lb.Width + 16;
  lb.Free;
end;

Bei Labels, die automatisch die richtige Breite haben sollen, setze ich AutoSize auf True. Damit links und rechts ein kleiner Rand bleibt (was meiner Meinung nach besser aussieht), setze ich die Caption immer in der Form Leerzeichen + Text + Leerzeichen . Damit sieht das eigentlich in allen Anwendungen ordentlich aus.

[himitsu]

Falls dem gemeinsamen DeviceContext grade nicht de korrekte Font zugewiesen ist, dann kann man das ja leicht ändern.

Delphi-Quellcode:

Label1.Canvas.Font.Assign(Label1.Font);
Result := Label1.Canvas.TextWidth(DerText);

Aber da wir hier ja von "gemeinsam" reden und andere Prozeduren, so wie unsere, nicht immer alles korrekt initilisieren/zurücksetzen ....... nicht dass der Nächste dann mit unserem Font weiterarbeitet, obwohl er 'nen Anderen hätte.

Delphi-Quellcode:

with TFontRecall.Create(Label1.Canvas.Font) do
  try
    Label1.Canvas.Font.Assign(Label1.Font);
    Result := Label1.Canvas.TextWidth(DerText);
  finally
    Free;
  end;

[p80286]

Ich wollte mich nur kurz für die vielen Anregungen bedanken. Da ich z.Zt. auffe Arbeit bin und es sich hier um eine private Bastelei handelt, kome ich z.Zt. nicht dazu, mich darum zu kümmern.
Nur soviel. 'Autosize' geht in die Hose wenn man auf D7 125% Bildschirm losläßt, darum ja auch das selberbasteln, der Größe.
das mit dem Durchreichen, scheint das richtige Stichwort zu sein, es handelt sich um ein Label auf einem Panel auf einem Form. (ParantFont sollte Null sein, da ich beim Entwurf darauf geachtet habe).

Sobald ich Zeit habe mich zu kümmern, melde ich mich wieder.

Gruß
K-H

[p80286]

Das "Durchreichen" wahr wohl der richtige Tip.

Delphi-Quellcode:

  self.Font.Name:='Webdings';
  self.Font.Size:=16;
  self.L_Left.Width:=self.Canvas.TextWidth(peakline[18]);
  self.L_Right.Width:=self.L_Left.Width;
....
  self.L_Left.Font.Name:='Webdings';

So funktioniert alles wie notwendig;

Gruß
K-H

[Benmik]

Diese Frage habe ich mit Interesse gelesen, da bei mir TextExtent auch immer nicht funktioniert hat und ich dann zu GetTextExtentPoint32 gegriffen habe, was aber auch immer zu niedrige Werte lieferte.

Nun habe ich das hier ausgegraben, das zunächst mal gut funktioniert. Ist das nicht die viel bessere Lösung?

Delphi-Quellcode:

function  ErmittleTextlänge(Fnt:TFont; const Txt:string): Integer;
var DC:HDC; Size:Windows.TSize;
begin
  DC := GetDC(0);
  SelectObject(DC, Fnt.Handle);
  GetTextExtentPoint32(DC, PChar(Txt), Length(Txt), Size);
  ReleaseDC(0, DC);
  Result := Size.cx;
end;