Gibt es eine tolle alternative Funktion zu "MinimizeName"

Da ich "TJvStaticText" verwende und die - zumindest infde ich es nicht - Canvas hat!

Das dürfte ein Static sein. Einfach mit SetWindowLong den Stil SS_PATHELIPSIS hinzufügen.

du kannst auch einfach eine Canvas (zum Beispiel per TBitmap) anlegen, die Font assignen und dann auf die erzeuge Canvas die Funktion anwenden.

Da finde ich meine Lösung aber eleganter.

Zitat von Luckie:

Das dürfte ein Static sein. Einfach mit SetWindowLong den Stil SS_PATHELIPSIS hinzufügen.

Sorry aber verstehe gerade nur Bahnhof - was ich machen soll - ich ahbe nach "SS_PATHELIPSIS" hier im Forum gesucht aber nur diesen Beitrag gefunden und selbst google kennt das nur einmal ;-(

Wäre super wenn Du mir das genauer erklären könntest

Dir kann geholfen werden.

Ich bin der selben Meinung wie Luckie, mit Hilfe von SS_PATHELIPSIS ist es recht einfach und schneller
einen Pathnamen ausf das Wesentliche zu kürzten.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFormX.SetStaticTextPathEllipsis(aStaticText: TStaticText);
var scStyle: Integer;
begin
  scStyle := GetWindowLong(aStaticText.Handle, GWL_STYLE);
  scStyle := scStyle or SS_PATHELLIPSIS or SS_LEFTNOWORDWRAP;
  SetWindowLong(aStaticText.Handle, GWL_STYLE, scStyle);
end;

procedure TFormX.FormShow(Sender: TObject);
begin
  SetStaticTextPathEllipsis(StaticText1);
end;

das hat bei mir keine Auswirkung


Edit : hat es doch aber NUR im OnShow .. aber es mnuss auch zur Laufzeit funktionieren, wenn der Pfad sich mal ändert

Es sollte funktionieren, auf jeden Fall mit Delphi 6 (7).

Das Statictext.Autosize := FALSE; hast du gesetzt ?

Zitat von turboPASCAL:

Dir kann geholfen werden.

Ich bin der selben Meinung wie Luckie, mit Hilfe von SS_PATHELIPSIS ist es recht einfach und schneller
einen Pathnamen ausf das Wesentliche zu kürzten.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFormX.SetStaticTextPathEllipsis(aStaticText: TStaticText);
var scStyle: Integer;
begin
  scStyle := GetWindowLong(aStaticText.Handle, GWL_STYLE);
  scStyle := scStyle or SS_PATHELLIPSIS or SS_LEFTNOWORDWRAP;
  SetWindowLong(aStaticText.Handle, GWL_STYLE, scStyle);
end;

procedure TFormX.FormShow(Sender: TObject);
begin
  SetStaticTextPathEllipsis(StaticText1);
end;

Dank von Vigo, Spanien.

Thank you very much from Vigo, Spain.

Sorry, but I don't know german, so I have to write to you in English.

I used your code to put in a Inno Setup installer and it works well. I registered in your forum to thank you .

Our installer is used to install mods in World of Tanks game: http://wotanksmods.com/dex-modpack/.

Thank you very much, on e more time.