MinimizeName alternative

[ELFVIGO]

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.

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.