Dateien ohne Endungen anzeigen

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
Pelagio
Beiträge: 424
Registriert: 11.11.2004 17:52
Computerausstattung: AMD Ryzen 5 7600 6-Core Prozessor 3.80 GHz
16,0 GB Arbeitsspeicher
Windows 11 Pro Betriebssystem
Wohnort: Bremen

Dateien ohne Endungen anzeigen

Beitrag von Pelagio »

Guten Morgen,

ich bin gerade dabei zu versuchen im ExplorerListGadget (Ansicht Large-Icon) Dateien anzeigen zu lassen (Verknüpfungen) deren Namen im ExplorerListGadget ohne Endungen angezeigt werden sollen, so wie es im Explorer möglich ist. Leider habe ich bis dato nichts finden können was mir dies ermöglicht hätte.
:praise:
Ohne Zeit kein Fleiß
Auf neustem Stand zu sein ist eine Kunst die nicht jeder perfektioniert [Win11Pro; PB6.20 LTS]. :allright:
Benutzeravatar
RSBasic
Admin
Beiträge: 8047
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: Dateien ohne Endungen anzeigen

Beitrag von RSBasic »

Da musst du leider dein eigenes ExplorerListGadget erstelen. D.h. ein ListIconGadget mit ExamineDirectory() und Icon laden (z.B. mit ExtractIconEx_()).
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Benutzeravatar
RSBasic
Admin
Beiträge: 8047
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: Dateien ohne Endungen anzeigen

Beitrag von RSBasic »

Es gibt einen Code von Andreas: http://www.purebasic.fr/german/viewtopi ... 61#p193661
Du musst in der LVMUpdate-Prozedur noch was austauschen:

Code: Alles auswählen

If GetExtensionPart(Buffer$) = "lnk"
Bild

Code: Alles auswählen

If GetExtensionPart(Buffer$) <> ""
Und:

Code: Alles auswählen

SendMessage_(GadgetID(Gadget),#LVM_SETITEMSTATE,I,LV);Änderung für alle Items -> 3.Parameter = -1
Bild

Code: Alles auswählen

;SendMessage_(GadgetID(Gadget),#LVM_SETITEMSTATE,I,LV);Änderung für alle Items -> 3.Parameter = -1
Dann werden alle Dateien ohne Endungen angezeigt.
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Antworten