Pathname kürtzen ohne MinimizeName aus Unit FileCtrl

[turboPASCAL]

Hi,

gibt es eine Function in der Windows API oder Sysutils mit der man den
Pathnamen auf eine bestimmte Länge kürtzen kann, ohne auf die Funktion
MinimizeName aus der Unit FileCtrl zurückzugreifen ?

[API]

Delphi-Quellcode:

function MinimizeName(const Filename: string; Canvas: TCanvas; MaxLen: Integer): string;
var
  b: array [0..MAX_PATH] of Char;
  R: TRect;
begin
  StrCopy(b, PChar(Filename));
  R := Rect(0, 0, MaxLen, Canvas.TextHeight('Wq'));
  if DrawText(Canvas.Handle, b, Length(Filename), R,
    DT_SINGLELINE or DT_MODIFYSTRING or DT_PATH_ELLIPSIS or DT_CALCRECT or DT_NOPREFIX) > 0 then
    Result := b
  else
    Result := Filename;
end;

[OldGrumpy]

MinimizeName entfernt einfach nur solange Unterverzeichnisse aus dem übergebenen Pfad (und ersetzt den ausgeschnittenen Teil schließlich durch "...") bis die Länge des Textes kleiner oder gleich der übergebenen Maximallänge ist. Das lässt sich in wenigen Zeilen Code auch selber schreiben sofern man unbedingt auf FileCtrl verzichten will.

Edit: OK, das ist natürlich noch eleganter :)

[turboPASCAL]

Wie MinimizeName funktioniert weis ich. Ich hoffte auf eine Windowsfunction oder eine Function aus der SysUtils...
Ich such mir schon einen Wolf...

MinimizeName möchte ich nicht nutzen da ich kein Canvas habe.

[OldGrumpy]

Wenn Du kein Canvas hast, woher weisst Du denn wieviel Platz Dir zur Verfügung steht? Du hättest ja von vorn herein diese ja nun nicht unwichtige "Nebenbedingung" erwähnen können :mrgreen:

[himitsu]

wenn es um das Anzeigen auf der GUI geht, dann kann man in neueren Delphis es direkt im TLabel machen (die Ellipsis-Option sollte ja kaum zu übersehn sein)

und in TStatic könnte man auch in älteren Delphis einfach via SetWindowLong den passenden WindowStyle setzen und dieses macht es auch alleine.

[jaenicke]

Zitat:

Zitat von turboPASCAL

Ich hoffte auf eine Windowsfunction oder eine Function aus der SysUtils...
[..]
MinimizeName möchte ich nicht nutzen da ich kein Canvas habe.

Daraus schließe ich, dass du einen DC hast? Denn genau der wird ja von der API benutzt.

Dann ersetze den Parameter TCanvas einfach durch einen HDC und übergib den statt Canvas.Handle (den DC des TCanvas). Nur für die Höhe musst du noch schauen, ob du die setzen musst.

[turboPASCAL]

Zitat:

Zitat von OldGrumpy

Wenn Du kein Canvas hast, woher weisst Du denn wieviel Platz Dir zur Verfügung steht? Du hättest ja von vorn herein diese ja nun nicht unwichtige "Nebenbedingung" erwähnen können :mrgreen:

In der Tat. Dann wäre es aber nicht so spannend geworden.

Zitat:

Zitat von himitsu

Wenn es um das Anzeigen auf der GUI geht, dann kann man in neueren Delphis es direkt im TLabel machen (die Ellipsis-Option sollte ja kaum zu übersehn sein)
und in TStatic könnte man auch in älteren Delphis einfach via SetWindowLong den passenden WindowStyle setzen und dieses macht es auch alleine.

Es geht um das Kürtzen mit wenig Aufwand des Pathes für den Fenster Titel.

Zitat:

Zitat von jaenicke

Daraus schließe ich, dass du einen DC hast? Denn genau der wird ja von der API benutzt.
Dann ersetze den Parameter TCanvas einfach durch einen HDC und übergib den statt Canvas.Handle (den DC des TCanvas). Nur für die Höhe musst du noch schauen, ob du die setzen musst.

Ja, das ist kein Problem.
Nur, ich muss halt selber ran. ;)

[Der.Kaktus]

schau mal auf die Seite von Lucki..da iss was..hatten wir die Woche schonmal son Thema ;-)

[OldGrumpy]

Zitat:

Zitat von turboPASCAL

In der Tat. Dann wäre es aber nicht so spannend geworden.

Ich bin doch kein Elektriker :mrgreen:

[jaenicke]

Zitat:

Zitat von turboPASCAL

Nur, ich muss halt selber ran. ;)

Die paar Sekunden habe ich dann doch grad mal. :mrgreen:

Delphi-Quellcode:

function MinimizeName(const Filename: string; DC: HDC; MaxLen: Integer): string;
var
  b: array [0..MAX_PATH] of Char;
  R: TRect;
  TextSize: TSize;
begin
  StrCopy(b, PChar(Filename));
  GetTextExtentPoint32(DC, PChar(FileName), Length(FileName), TextSize);
  R := Rect(0, 0, MaxLen, TextSize.cy);
  if DrawText(DC, b, Length(Filename), R,
    DT_SINGLELINE or DT_MODIFYSTRING or DT_PATH_ELLIPSIS or DT_CALCRECT or DT_NOPREFIX) > 0 then
    Result := b
  else
    Result := Filename;
end;

// EDIT:
Wobei man für die Höhe ggf. wie im Beispiel auch nur etwas Kurzes statt des gesamten Dateinamens als schnelleren Ersatz nehmen kann.