Systemicons und Listview

[Lamy]

Hi! Danke dir!



Aber irgendwie öffnet der, wenn ich es kompilieren will, die Datei Comctrls im Quelltexteditor und meint "Datei nicht gefunden:ListActns.dcu"!

Die hab ich auch wirklich gar nicht obwohl ich Delphi 5 grade neu installiert hab...

P.S.: Warum steht sowas eigentlich nicht in der Source Libary :gruebel: ?

[MathiasSimmack]

"ListActns"? Die einzigen Units, die ich hinzufügen musste, waren "CommCtrl" (wg. HIMAGELIST) und "ShellAPI" (wg. "SHGetFileInfo"). Ich hab´s auch bloß mit D5 probiert.

[mirage228]

Ahja und falls du deine Icons doch gekillst hast, einfach diesen Code ausführen *g*

Delphi-Quellcode:

  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

Eigentlich wird das nur auf gerufen, wenn Dateizuordnungen sich geändert haben (und / oder die Icons geändert wurden).
Aber der gewünschte Effekt bleibt: Der Explorer lädt die Icons neu. ;)

mfG
mirage228

[Lamy]

So, das eine Problem beseitigt, kommt schon freundlicherweise das nächste:

Ich hab das ganze jetzt einfach mal per Copy'n'waste übernommen auf einem leeren Formular und hab genau das getan was du mir gesagt hast.

Aber es werden einfach keine Icons angezeigt...

[MathiasSimmack]

Ich verstehe das immer nicht wenn ihr schreibt

Zitat:

Ich hab das ganze jetzt einfach mal per Copy'n'waste übernommen auf einem leeren Formular

Ich nehme einfach mal an, die "OnCreate"- und "OnClick"-Prozeduren hast du nicht komplett übernommen, sondern du hast den Grundcode mit deinem Delphi erstellt (sprich: z.B. Doppelklick auf einen leeren Teil der Form, damit Delphi die Prozedur erstellt), und dann hast du den Inhalt der Prozedur aus meinem Posting übernommen?


Und dass du die beiden Imagelisten (ilSmall, ilBig) natürlich der List-View zuweisen musst, das versteht sich wohl auch von selbst. Soll heißen: Im Objektinspektor unter "LargeImages" und "SmallImages" die entsprechende Imageliste einstellen. Ansonsten siehst du natürlich keine Bilder.

Im Schweizer-Beitrag wird letzteres programmtechnisch geregelt.

Zitat:

Delphi-Quellcode:

ListView1.SmallImages := ImageList1;

Ich hab´s nicht erwähnt, weil ich es nicht für erwähnenswert hielt

[Lamy]

Zitat:

Zitat von MathiasSimmack

Und dass du die beiden Imagelisten (ilSmall, ilBig) natürlich der List-View zuweisen musst, das versteht sich wohl auch von selbst.
Ich hab´s nicht erwähnt, weil ich es nicht für erwähnenswert hielt

Ach du schei**...


Gar nicht drauf geachtet :wall: :wall:


Steinigt mich!
Asche auf mein Haupt!

~normalerweisevergessichdasnichtfrusttotal~

Naja, klappt jetzt :corky: , danke!

[Lamy]

das ganze lässt sich aber nicht auf meinen Client übertragen, oder?

Der lädt ja nur eine Liste runter und keine Dateierweiterungen, sodass der das ganze nicht erkennt. Deshalb zeigt der auch immer das selbe Symbol an...

Gibts dafür noch ne Mödlichkeit?


Lamy

[Lamy]

Also nochmal:

Soweit ich das verstanden habe, weist der jedem Eintrag das gleiche Icon zu, da der die Dateitypen überprüft, die angezeigt werden, aber da ja alle TListitems sind, kann er das entsprechende Icon nicht zuweisen.
Folglich müsste man irgendwie auch den Dateityp angeben, richtig?

[MathiasSimmack]

Nein, so funktioniert es nicht. Die Dateien werden mit Hilfe von "FindFirst/FindNext" ermittelt. Für jede gefundene Datei wird das Symbol ermittelt - was kein Problem ist, denn den Dateinamen hast du ja in dem Fall! Das Problem könnte und wird sein, dass das Symbol nicht erkannt wird, wenn der Pfad nicht stimmt oder nicht vollständig angegeben wurde.

"ShGetFileInfo" funktioniert IMHO leider nicht mit "Bruchstücken", sprich: bspw. nur dem Dateinamen ohne Pfad. Das hat IMHO damit zu tun, dass jede Datei (speziell EXE usw.) ihr eigenes Icon haben kann. Also muss die Funktion auch den exakten Namen wissen, damit sie dir Symbol (und ggf. andere Eigenschaften wie Typname o.ä.) zurückliefern kann.

[Lamy]

Hm, wie soll ich also vorgehen? :gruebel: