Thema: Delphi MinimizeName alternative

Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#6

Re: MinimizeName alternative

  Alt 23. Mär 2007, 09:06
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;
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat