MinimizeName für TForm.Caption

[Willie1]

Hallo Leute,
kann man einen Pfad sinnvoll verkürzen wie TLabel.Caption mit MinimizeName für Caption von TForm?
Danke für Hilfe.
Gruß Willie.

[Helmi]

Hallo,

ich hab jetzt deine Frage mehr als einmal gelesen, aber verstehen tu ich sie nicht.
Was für einen Pfad meinst du?

[Insider2004]

function MinimizeName(const Filename: TFileName; Canvas: TCanvas; MaxLen: Integer): TFileName;

[Zacherl]

Das Problem wird vermutlich sein das NonClient Area Canvas zu bekommen. Das weiteren muss dir klar sein, dass die Caption im Fenstertitel deutlich länger sein kann, als die entsprechende Darstellung davon in der Taskleiste.

[Willie1]

Hallo Zacherl, ich melde mich morgen, bis dann. W.

[Willie1]

Hallo zusammen,
ich bin nur Hobbyprogrammierer, weiß aber, dass ein Dateipfad mit MinimizeName nur zusammen mit TLabel auf die Breite von TLabel.Width verkürzt werden kann. Schon bei TStaticText funktioniert das nicht. Ich habe folgende Links gefunden. Kann mir jemand helfen, einen Dateipfad für TLabel.Caption zu verkürzen. Vielen Dank für eure Hilfe!

Delphipraxis
scalabium
delphi.about

Willie

[Sir Rufo]

Und das hier hilft nicht?

http://delphi.about.com/library/rtl/...nimizeName.htm

Du benötigst zwingend den Canvas, wo du den verkürzten Dateinamen zeichnen möchtest. Denn abhängig von dem Font, Schriftgröße, etc. etc. kann doch erst die resultierenden Länge eines jeden Zeichens ermittelt werden. Einfach nur so mal eben ermitteln geht nicht, denn wie soll es ohne die Information ermittelt werden.

[Willie1]

Hallo Rufo,
die Lösung ist ganz einfach:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  sPfad: string;
begin
  sPfad:='C:\Windows\Programme\XYZABC\12345\Hinweis.exe';
  self.Caption:=MinimizeName(sPfad,Form1.Canvas,200);
end;

Dein Hinweis auf Canvas und das Beispiel haben weiter geholfen. Danke!
Willie.

[Luckie]

Aber ich glaube er meint die Caption von der Form. Und kein Label auf der Form.

[Bjoerk]

Genau. Self.Canvas.Font <> lfCaptionFont. :wink: