MinimizeName alternative

[MrDevil]

Gibt es eine tolle alternative Funktion zu "MinimizeName"

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

[Luckie]

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

[SirThornberry]

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

[Luckie]

Da finde ich meine Lösung aber eleganter. ;)

[MrDevil]

Zitat:

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

[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.

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;

[MrDevil]

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

[turboPASCAL]

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

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

[ELFVIGO]

Zitat:

Zitat von turboPASCAL (Beitrag 603930)

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.

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 :-D .

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.