Programm-Icon in Gridbox

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.

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

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.

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

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

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.

Zitat von AHT;702052

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...

Zitat von horsthorn;701972

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...

Zitat von horsthorn;702192

...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#)

.

Zitat von horsthorn;702192

...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

Zitat

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 !

He, kein Problem.

Zitat

...aber da werden die Icons nicht so angezeigt, wie mir das vorschwebt (Frank weiß Bescheid)

Dachte, das wäre mit der neuen Version behoben?

Solche Updates würde ich separat in einem neuen Thread posten, unter Helfer & Tools.

Hab heute Höllekopfschmerzen, morgen gehts zum Campen. Werde testen, wenn ich wieder da bin.

Wie sieht es mit dem Programm aus, wofür der Code gedacht war?
So langsam könnte man die Beta mal irgendwo zum Testen hinstellen...