EditCaption - markieren ohne Extension

[Migo]

Hallo,

mir fehlt hier die Umsetzungsidee? -> Ich habe eine ListView mit Dateinamen und möchte einen Eintrag markieren (EditCaption), jedoch ohne die Extension.
Z.B. Dateiname lautet: "Filename.txt" und davon soll dann nur markiert werden "Filename".

Ich nutze Delphi 11 Community Edition.


Lieben Dank für Hilfe(ansatz),
Migo

[himitsu]

* letzten Punkt suchen
* oder ExtractFileExt bzw. TPath.GetExtension
* oder ChangeFileExt/[QUOTE]TPath.ChangeExtension[/OH] zu ''
* oder TPath.GetFilenNmeWithoutExtension
* oder ...
https://docwiki.embarcadero.com/RADS...fadbearbeitung

und schon weißt du, was oder wie weit markiert werden muß.



Aber eventuell/vermutlich mußt du dann auch noch ein CustomDraw nutzen, um die Items selbst zu markieren malen.
TCanvas.TextWidth

[jaenicke]

Das dürfte mit der normalen VCL TListView nicht so einfach möglich sein. Ich empfehle die TVirtualStringTree:
https://github.com/JAM-Software/Virtual-TreeView

Da kannst du z.B. einen eigenen Editor erstellen, mit dem du die Erweiterung entfernst vor dem Editieren und wieder hinzufügst nach dem Editieren, nur entsprechend markierst, usw., hast aber auch Events wie OnEditing, OnEditCancelled, OnEdited.

Die Einarbeitung dauert zwar länger, aber es lohnt sich.

[KodeZwerg]

Hilft Dir das vielleicht weiter?

Delphi-Quellcode:

procedure TFormXYZ.ListView1Editing(Sender: TObject; Item: TListItem;
  var AllowEdit: Boolean);
var
  name, ext, new: string;
begin
  ext := ExtractFileExt(Item.Caption);
  name := Copy(Item.Caption, 1, Length(Item.Caption) - Length(Ext));
  new := InputBox('Edit name...', 'Modify', name);
  Item.Caption := new + ext;
  AllowEdit := False;
end;

[uligerhardt]

Du könntest anstelle von TListItem.EditCaption direkt ListView_EditLabel aufrufen. Dessen Rückgabewert ist das Handle der Editbox. Damit könntest du vermutlich auf API-Ebene den gewünschten Text vorselektieren.

[Migo]

Vielen Dank an alle für die Hinweise. Ich arbeite alle mal ab...

Viele Grüße,
Migo