Programm-Icon in Gridbox

[horsthorn]

Die Zeile habe ich von Andreas Hötker:

IconHandle&=External("SHELL32.dll","ExtractIconA",%HINSTANCE,addr(Name_der_EXE$) ,0)

Das ist eine Gridbox, die in einem Tool EXE-Dateien anzeigt:

grid00&=CREATE("GRIDBOX",%Hwnd,titel00$,1,5,25,250,320)

Wie kann ich jetzt die Gridbox "überreden", vor jeder EXE-Datei auch das dazu gehörende Icon zu zeigen
Es geht, aber bei mir ist 'Ladehemmung'
Finde einfach keinen Einstieg

[AHT]

So in der Art (kein lauffähiger Quelltext):

 
Declare Iconliste&, Iconnummer_in_der_Liste&
 
Declare Zeile#
 
Struct LVITEM=IMASK&,ITEM&,ISUBITEM&,State&,StateMask&,ITEXT&,ITEXTMAX&,IIMAGE&,ILPARAM&
 
Proc Iconliste_Erzeugen
 Parameters Handle_der_Listview&, Iconbreite&, Iconhöhe&
 Case Iconliste&<>0 : External("comctl32.dll","ImageList_Destroy",Iconliste&)
 Iconliste&=External("Comctl32.dll","ImageList_Create",Iconbreite&,Iconhöhe&,$FE | $1,4,8)
 sendmessage(Handle_der_Listview&,$1003,1,Imagelist&)
endproc
 
Proc Icon_Hinzufügen
 Parameters IconHandle&
 Iconnummer_in_der_Liste&=Iconnummer_in_der_Liste&+1
 External("comctl32.dll","ImageList_AddIcon",Iconliste&,IconHandle&)
endproc
 
Proc Listviewzeile_hinzufügen
 Parameters Lvhndl&,Index&,spalte&,Text$,Image&
 Dim Zeile#,LVITEM
 Clear Zeile#
 IF Image&=0
  Zeile#.IMASK&=$0001
 else
  Zeile#.IMASK&=$000B
  Zeile#.IIMAGE&=IMAGE&
 endif
 Zeile#.ITEM&=Index&
 Zeile#.ITEXT&=Addr(Text$)
 Zeile#.ITEXTMAX&=Len(Text$)
 IF spalte&=0
  ItemNumber&=Sendmessage(Lvhndl&,$1007,0,Zeile#)
 else
  Zeile#.ISUBITEM&=spalte&
  ItemNumber&=Sendmessage(Lvhndl&,$102E,Index&,Zeile#)
 endif
 Dispose Zeile#
Endproc
 
Clear Iconliste&
Iconnummer_in_der_Liste&=-1
grid00&=CREATE("GRIDBOX",%Hwnd,titel00$,1,5,25,250 ,320) 
Iconliste_Erzeugen grid00&,17,17
'........
IconHandle&=External("SHELL32.dll","ExtractIconA", %HINSTANCE,addr(Name_der_EXE$),0)
Icon_Hinzufügen IconHandle&
DeleateObject IconHandle&
Listviewzeile_hinzufügen grid00&,0,0,"Name_der_EXE",Iconnummer_in_der_Liste&
'........
IconHandle&=External("SHELL32.dll","ExtractIconA", %HINSTANCE,addr(Name_der_EXE$),0)
Icon_Hinzufügen IconHandle&
DeleateObject IconHandle&
Listviewzeile_hinzufügen grid00&,1,0,"Name_der_EXE",Iconnummer_in_der_Liste&

Vielleicht geht's auf Xprofan11 einfacher.

[Bangkok]

Hallo Horst,

Ich habe sowas mal für einen Datei-Commander gemacht. Leider habe ich den Code durch einen Crash verloren.

Vom Weg her habe ich eine leere Imageliste angelegt dann jede Datei über die
API ExtractAssociatedIcon geschickt und das Iconhandle der Imageliste zugefügt und dann das jeweilige Icon der Datei zugefügt. So bekommst du das Icon für alle Dateien, nicht nur Exe-Dateien.
In die Listview habe ich dann die Datei mit Icon mit folgendem Code eingefügt.
Aufruf ist Add_Item(Handle,feld1,feld2,usw,Iconnummer)

proc Add_item
Declare NewIndex&,Count&,Line&,LV_ITEM#,hdl&
hdl& = @&(1)
If (getcount(hdl&) < 0)
Line& = getcount(hdl&)+1
Else
Line& = getcount(hdl&)
EndIf
SendMessage(hdl&, 11, 0, 0)
Dim LV_ITEM#, 500
Let Count& = 0
Long LV_ITEM#,0 = 11
Long LV_ITEM#,4 = Line&
Long LV_ITEM#,8 = Count&
Long LV_ITEM#,12 = 0
Long LV_ITEM#,16 = 0
Long LV_ITEM#,20 = (LV_ITEM#+36)'text
Long LV_ITEM#,24 = 261
Long LV_ITEM#,28 = @&(%Pcount)
Long LV_ITEM#,32 = 0
let Count&=count&+2
String LV_ITEM#,36 = @$(Count&)
Let NewIndex& = @SendMessage(hdl&,$1007,0,LV_ITEM#)
Long LV_ITEM#,28 = 0
While (Count& < %PCount)
Long LV_ITEM#,8 = Count&-1
Inc Count&
String LV_ITEM#,36 = @$(Count&)
@Sendmessage(hdl&,4142,NewIndex&,LV_ITEM#)
EndWhile
dispose LV_ITEM#
SendMessage(hdl&, 11, 1, 0)
Return NewIndex&
endproc

Gruß

Dieter

[Frabbing]

Die Listview.dll benutzt die API SHGetFileInfo, um die Iconhandle zu erhalten. Habe damit die besseren Erfahrungen gemacht, die Qualität der Icons betreffend.
Einsetzen ins Listview geht mit der Message LVM_SETITEM.

[Uwe 'Pascal']

Hi Leute!

Hier ein Beispiel für Xprofan 11:

window 450,300
$H Messages.ph
$H Windows.ph
$H commctrl.ph
declare Lv#
struct Lv=Mask&,Item&,SubItem&,State&,StateMask&,Text&,TextMax&,Image&
dim Lv#,Lv
 
proc LvSetIcon'---------------------------------------------LvSetIcon
Lv#.Item&=&(2)
Lv#.SubItem&=&(3)
Lv#.Mask&=~LVIF_IMAGE
Lv#.Image&=%(4)
sendmessage(&(1),~LVM_SETITEM,0,Lv#)
endproc'-------------------------------------------------------------
 
var IcoList&=create("ImageList",16,16)
ImageList("AddIcon",IcoList&,~LoadIcon(0,32512))
ImageList("AddIcon",IcoList&,~LoadIcon(0,32513))
ImageList("AddIcon",IcoList&,~LoadIcon(0,32514))
ImageList("AddIcon",IcoList&,~LoadIcon(0,32515))
var a$="Spalte 1;0;120;Spalte 2;0;120;Spalte 3;0;120"
var Lv&=create("gridbox",%hwnd,a$,0,10,30,400,200)
sendmessage(Lv&,~LVM_SETIMAGELIST,~LVSIL_SMALL,IcoList&)
sendmessage(Lv&,~LVM_SETEXTENDEDLISTVIEWSTYLE,0,~LVS_EX_SUBITEMIMAGES | ~LVS_EX_GRIDLINES)
'--Gitterlinien überzeichnen Icons teilweise!
 
'--Lv ohne Header:
'setstyle Lv&,getstyle(Lv&) | ~LVS_NOCOLUMNHEADER
 
a$="Test x a|Test x b|Test x c|Test x d|Test x e"
whileloop 1,5
    addstring(Lv&,translate$(a$,"x",str$(&loop)))
endwhile
 
LvSetIcon(Lv&,0,0,1)'--Aufruf: LvSetIcon(Handle&,Zeile%,Spalte%,Icon%)
LvSetIcon(Lv&,1,1,2)'--Werte für Zeile,Spalte,Icon 0-basiert!
LvSetIcon(Lv&,2,2,3)
LvSetIcon(Lv&,3,0,getcount(IcoList&))
LvSetIcon(Lv&,4,0,99)
LvSetIcon(Lv&,4,2,0)
 
while 1
    waitinput
endwhile

HTH
Pascal

[horsthorn]

@Hallo Pascal
Schön, dass du dich auch mal meldest.
Den Code, den du postest, habe ich. Aber der nützt mir nichts.
Die Gridbox, auf die es bei mir ankommt, listet EXE-Dateien auf, die auf der Festplatte des jeweiligen Systems vorhanden sind.
Jede EXE-Datei hat normal ein Programm-Icon (XProfan z. B. das "P") und dieses Icon möchte ich vor dem EXE-Eintrag in der Gridbox anzeigen.
Es ist möglich, aber ich habe "keinen Dunst", wie das gehen soll !

[AHT]

Hab dir grad was geschickt. Musste erst XProfanFree installieren, deswegen hat's etwas gedauert.

[horsthorn]

Hallo an alle Tipp-Geber
Andreas Hötker hat den Zuschlag - Mit seinem Tipp geht die Sache in die "Endrunde"
Danke noch mal für alle Tipps

[AHT]

Ich wusste ja, wofür du das brauchst, hab's darauf zugeschnitten.

PS: Vor dem Neuscannen evtl. die Iconliste (Imageliste) neu erstellen, damit nicht immer wieder die sowieso schon vorhandenen Icons neu hinzugefügt werden. Das Ding wird sonst suf Dauer zum Speicherfresser.

[Frabbing]

Zitat von AHT

Ich wusste ja, wofür du das brauchst, hab's darauf zugeschnitten.

PS: Vor dem Neuscannen evtl. die Iconliste (Imageliste) neu erstellen, damit nicht immer wieder die sowieso schon vorhandenen Icons neu hinzugefügt werden. Das Ding wird sonst suf Dauer zum Speicherfresser.

Ja, und vor allem die Iconhandle freigeben...

[horsthorn]

...Ja, ja und vor allen Dingen der XProfan-Gridbox ihr komisches Sortieren abgewöhnen - anscheinend sortiert die nämlich nach dem Einlesen der Icons nach den Werten der Icons
Da muss Roland noch mal ran

Auf dem ScreenShot weiter oben sieht man das - es wird nicht alphabetisch sortiert

[AHT]

Zitat von horsthorn

Hallo an alle Tipp-Geber
Andreas Hötker hat den Zuschlag - Mit seinem Tipp geht die Sache in die "Endrunde"

Hallo Horst - hab grad deinen Screenshot entdeckt.
Vielleicht wäre es ganz günstig, das erste Icon von den dreien in der Liste durch ein rotes Warnicon zu ersetzen, wenn dort etwas nicht stimmt und ansonsten immer ein grünes Icon für OK zu verwenden...

[AHT]

Zitat von horsthorn

...Ja, ja und vor allen Dingen der XProfan-Gridbox ihr komisches Sortieren abgewöhnen - anscheinend sortiert die nämlich nach dem Einlesen der Icons nach den Werten der Icons
Da muss Roland noch mal ran

Auf dem ScreenShot weiter oben sieht man das - es wird nicht alphabetisch sortiert

Windows sortiert das Listview nach dem bei der Erstellung angegebenen Listviewstil. Fügst du eine Zeile hinzu, bleibt diese Zeile bei einer alphabetischen Sortierung nicht an dem Ort, den du anfangs zugewiesen hast. Willst du dieser Zeile weitere Elemente zuordnen (zum Beispiel ein neues Icon), musst du die Zeilennumer in der Listview wissen, in der sich das Element nach der Sortierung befindet.
Ohne Sortierung listet das Tool die Prozesse so, wie sie gestartet wurden. Das ist bei einem Tool, das unter anderem Hinweise auf Malware geben soll, vorteilhafter, als die Prozesse nach dem Alphabet zu sortieren.

Die Zeilennumer, an der sich die jeweilige Zeile nach der Sortierung befindet, ist das Ergebnis der Message

Sendmessage(Lvhndl&,$1007,0,Zeile#)

.

[RGH]

Zitat von horsthorn

...Ja, ja und vor allen Dingen der XProfan-Gridbox ihr komisches Sortieren abgewöhnen - anscheinend sortiert die nämlich nach dem Einlesen der Icons nach den Werten der Icons
Da muss Roland noch mal ran

Da müßtest Du Dich schon an Microsoft wenden. Wenn die Listbox den Stil "sortiert" hat, sortiert sie nach der ersten Spalte.

Wenn Du es anders möchtest, ist "Handarbeit" angesagt ... oder Franks ListView.DLL, die diese für Dich rasend schnell abnimmt.

Gruß
Roland

[horsthorn]

@Roland
Da Frank weiß, daß ich ein Fan von der LISTVIEW.DLL bin, wird er mir verzeihen, wenn ich sage, ich will ein "Stand-Allone"-Programm schreiben! Also ohne DLL !
...und da ich ein sturer alter Mann bin und Andreas Hötker immer noch "1 Ass im Ärmel hat", werde ich das auch hinkriegen

Ich hab ja schon eine Version mit DLL geschrieben - aber da werden die Icons nicht so angezeigt, wie mir das vorschwebt (Frank weiß Bescheid)