Hallo!

In meinem Programm versuche ich zur Zeit Strings in die StatusPanels einer StatusBar richtig einzufügen. Das ist nicht besonders schwierig, nur habe ich ein Problem. Die Strings werden dynamisch erzeugt, z.B. Windows User-Name, und somit muss ich die Breite der Panels setzen.
Gibt es eine Funktion, welche die Breite eines Strings in Pixel zurückgibt? Habe wirklich keinen Plan, wie so etwas funktionieren könnte. Habe schon im Forum gesucht, doch (noch) nichts gefunden ...

Hi,
ein Canvas besitzt die Funktion TextWidth, die dir zu der Schrift des Canvas die Breite eines Strings zurück gibt

Gruß Der Unwissende

Schalte doch Autosize der Panels, sowie des Labels auf true.

Mist, R2D2 war schneller, aber trotzdem hier nochmal ausführlicher:

Alternativ kannst du einfach ein Label auf ein Formular legen, die Eigenschaft "visible" auf False und die Eigenschaft "Autosize" auf true setzen.
Dadurch wird das Label in der Größe immer an den enthaltenen Text angepasst.
Zur Laufzeit kannst du dann deinen String in die Eigenschaft "Caption" des Labels eintragen & danach über die Eigenschaft "Width" abfragen, wie breit das Label ist.

Zitat von KrasserChecker:

Alternativ kannst du einfach ein Label auf ein Formular legen, die Eigenschaft "visible" auf False und die Eigenschaft "Autosize" auf true setzen.

Nimm den Tipp von Der_Unwissende, das letzte funtioniert zwar, aber muß das sein ... ständig ein meißt sinloses Label auf der Form?

Code-Library -> Sonstiges -> Länge und Höhe eines Textes (String)
oder gleich die Canvas der StatusBar .. ich denk mal die hat eines
StatusBar1.Canvas.TextWidth(S);[i], oder so ähnlich (da hast du auch gleich die passende Font drin, damit richtig gemessen wird)

@himitsu:
Stimmt muss nicht sein
Aber man könnte sich bei Bedarf ja auch kurz manuell ein Label erzeugen, dass gar nicht erst auf dem Formular angezeigt wird. Nach dem Ermitteln der Breite kann es dann ja gleich wieder freigegeben werden.

Hallo,
folgendende Funktionen verwende ich für das Thema

zusammenfalten · markieren

Delphi-Quellcode:

function GetFontHeight( Font : TFont ) : Integer;
var
  Canvas : TCanvas;
begin
  Canvas := TCanvas.Create;
  Try
    Canvas.Handle := GetDC( 0 );
    Try
    Canvas.Font := Font;
    Result := Canvas.TextHeight( 'Yy' );
    Finally
      ReleaseDC( 0, Canvas.Handle );
    end;
  Finally
    Canvas.Free;
  end;
end;

function GetTextwidth(const T : String; Font : TFont ) : Integer;
var
  Canvas : TCanvas;
begin
  Canvas := TCanvas.Create;
  Try
    Canvas.Handle := GetDC( 0 );
    Try
    Canvas.Font := Font;
    Result := Canvas.TextWidth(T);
    Finally
      ReleaseDC( 0, Canvas.Handle );
    end;
  Finally
    Canvas.Free;
  end;
end;

Laut Sharky (http://www.delphipraxis.net/internal...=430254#430254) hat die StatusBar wirklich schon ein Canvas und du mußt somit nicht erst noch etwas neues Canvas erstellen/löschen.

markieren

Delphi-Quellcode:

// SB = deine StatusBar
// S = der Text, von welchem du die länge brauchst
SB.Canvas.TextWidth(S);

Danke an alle!

So viele Antworten schon nach so kurzer Zeit!!

Habe es über die TextWidth-Eigenschaft der Canvas der StatusBar gemacht ... manchmal ist die Lösung viel einfacher als man denkt!

ohne einen schon ewig geschlossenen Thread wieder aufwärmen zu wollen
eine Anmerkung noch:

unter Delphi XE2/3 Firemonkey klappt der Tipp mit dem Label auf der Form nur dann, wenn es auch visible ist. Ansonsten wird label.width nicht aktualisiert, egal was man da an Text reinpackt und was man auch probiert.

meine Lösung war dafür:
- Label auf Form packen
- visible auf true, Opacity = 0, autosize = true
- zur Laufzeit: label.Text + label.Font ändern auf das was man ermitteln möchte
- dann ganz wichtig: label.updateStyle einmal aufrufen
- erst dann kann mit label.width die Breite in Pixel abgelesen werden, vorher steht sonst noch der original width-Wert der Entwurfszeit drin