Pathname kürtzen ohne MinimizeName aus Unit FileCtrl

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