TLabel mit hartem Umbruch

[Shark99]

Ich habe einen langen String mit Pfad/Dateinamen den ich auf begrenzten Raum darstellen will.

Ich hab zwar viel Platz in der Höhe, aber nur etwa 150 pixel in der Breite. TLabel schneidet mir also den Dateinamen einfach weg. Ich würde ihn aber gerne über mehrere Zeilen darstellen. Wordwrap kann ich nicht nehmen, weil es ja wie der Name sagt nur nach Wörtern in die nächste Zeile geht.

Hat jemand eine Idee mit welcher Komponente ich zum Ziel komme?

[Klaus01]

Hallo,

ob ein Pfadname unbedinge lesbar ist, wenn er auf mehrere Zeilen umgebrochen wird?

Kannst Du nich den komplettten Pfadnamen anzeigen wenn z.B. der Mauszeiger auf dem Label verweilt (als hint)?

Grüße
Klaus

[Union]

Setz doch die Funktion MinimizeName ein.

[Shark99]

Zitat von Klaus01:

Hallo,

ob ein Pfadname unbedinge lesbar ist, wenn er auf mehrere Zeilen umgebrochen wird?

Kannst Du nich den komplettten Pfadnamen anzeigen wenn z.B. der Mauszeiger auf dem Label verweilt (als hint)?

Grüße
Klaus

Das mit dem Hint mache ich schon, aber einige User achten nicht drauf und fragen per Email wo das File genau ist.

Zitat von Union:

Setz doch die Funktion MinimizeName ein.

Das Hilft nur bedingt. Der User soll schon den kompletten Pfad sehen (ist wichtige Info).

[Dalai]

Für solche Fälle benutze ich ein TEdit, das auf ReadOnly geschaltet wird, so dass der Nutzer da reinklicken kann, um den Pfad nicht nur komplett sehen zu können sondern auch kopieren zu können. Ich hasse es, wenn Pfade in Labels angezeigt werden, denn das erschwert oder verhindert gar die (Weiter-)Arbeit damit in anderen Programmen.

MfG Dalai

[user0815]

Delphi-Quellcode:

procedure TForm1.Label1Click(Sender: TObject);
begin
  try
    ShowMessage(PChar(TLabel(Sender).Hint));
  except
  end;
end;

oder

Delphi-Quellcode:

uses
  ShellApi;
...
procedure TForm1.Label1Click(Sender: TObject);
begin
  try
    ShellExecute(0, nil, PChar(TLabel(Sender).Hint), nil, nil, SW_SHOW);
  except
  end;
end;

[himitsu]

Warum PChar und wofür sollen die schrottigen Exceptions gut sein?

Minimize-Name ist blöde, denn was soll der Benutzer mit den Kurznamen (8.3) anfangen?

Es gibt aber eine Funktion mit Ellipsis, die in den Pfad mitten drin eingefügt werden. (Pfadangang und Dateiname werden nicht verkürzt)

Ellipsis (...) in der Caption, aber man soeine ähnliche Funktion auch beim Label aktivieren, also mit den Punkten am Ende.
und im Hint die Langversion.

Ein TEdit ohne Rahmen und mit geänderter Hintergrundfarbe und das als ReadOnly-"Label" verwenden, wo man scrollen und kopieren kann.
Bzw. im TEdit die Kurzversion anzeigen und beim OnEnter/OnExit auf die Langversion umschalten.

[Union]

@himitsu: Du verwechselst das mit ExtractShortPathName

[himitsu]

Gut, dann vielleicht verwechselt.


PS:
https://en.wikipedia.org/wiki/Zero-width_space
Einfach nach jedem Zeichen ein #8203 einfügen. (geht natürlich nur mit Unicode)
Bzw. die Breite der Zeichen berechnen und jeweils an die gewünschten Stellen ein Leerzeichen einfügen, oder besser gleich den Zeilenumbruch.

[hathor]

Delphi-Quellcode:

procedure TForm1.Label5MouseEnter(Sender: TObject);
begin
 cap:= Caption;    // cap : String; //global
 caption:= Label5.Caption;
end;

procedure TForm1.Label5MouseLeave(Sender: TObject);
begin
 Caption:= cap;
end;