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.