![]() |
Re: Pathname kürtzen ohne MinimizeName aus Unit FileCtrl
Zitat:
Delphi-Quellcode:
// EDIT:
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; Wobei man für die Höhe ggf. wie im Beispiel auch nur etwas Kurzes statt des gesamten Dateinamens als schnelleren Ersatz nehmen kann. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:47 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz