Große Icons im ListIconGadget darstellen klappt nicht

[JayCool]

Hi Leute,

Ich versuche gerade, im ListIconGadget große Symbole darzustellen, aber das will irgendwie nicht klappen. Ich hab' schon verschiedene Beispiele aus dem CodeArchiv (CAV) zu diesem Thema ausprobiert, aber überall, wo große Symbole dargestellt werden sollten, erscheint lediglich der Text, der unter dem Symbol stehen soll.

Ich hab' auch mal ein Beispiel vorbereitet, in dem ein schwarzes Quadrat als großes Symbol dargestellt werden soll:

Code: Alles auswählen

If OpenWindow(0,0,0,640,500,"ListIconGadgets",#PB_Window_SystemMenu|#PB_Window_Maximize) And CreateGadgetList(WindowID(0))
  ListIconGadget(0, 50, 50, 500, 500, "Column 1",100)
  CreateImage(0,15,15,#PB_Image_DisplayFormat)
  ResizeImage(0,32,32)
  x=AddGadgetItem(0,1,"Test",ImageID(0))
  ChangeListIconGadgetDisplay(0,0)
  ;Debug Str(x)
  ImageGadget(1,700,50,100,100,ImageID(0))
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf

Könnte mir jemand verraten, wo hier der Fehler versteckt ist???

Ich vermute jedoch, dass das wohl eine Macke von Win2000 SP4 ist (oder PB4.10????).

Gruß, Jan

[Kiffi]

Code: Alles auswählen

If OpenWindow(0,0,0,640,500,"ListIconGadgets",#PB_Window_SystemMenu|#PB_Window_Maximize) And CreateGadgetList(WindowID(0))
  ListIconGadget(0, 50, 50, 500, 500, "Column 1",100)
  myIcon = LoadImage(#PB_Any, #PB_Compiler_Home + "Examples\Sources\Data\CdPlayer.ico")
  AddGadgetItem(0,1,"Test",ImageID(myIcon))
  ChangeListIconGadgetDisplay(0,0)
  ;Debug Str(x)
  Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf

... funktioniert.

Grüße ... Kiffi

[NicTheQuick]

Bei mir funktioniert beides.

Ich habe Win2k mit SP4 und PB V4.02

[JayCool]

Kann hier leider kein Bild als Beweis reinstellen, aber es klappt immer noch nicht

Ist wohl doch entweder ein Bug in PB oder in Win2k

Vielleicht guck ich aber nochmal, ob ich nicht irgendwo noch die Version 4.02 von PB hab.

[RSBasic]

Und wenn wir schon dabei sind "große Icons im...", wie siehts denn mit 64x64- und 128x128-Icons aus? Eigentlich müsste das auch funktionieren aber wie

\\Edit:
Auch mit einer Miniaturansicht wäre nicht schlecht...

[Kiffi]

es klappt immer noch nicht

Du hast meinen Code genommen?
und auch überprüft, ob das Icon existiert?

Grüße ... Kiffi

[scholly]

Vielleicht hilft ja dieser Thread bzw. die darin enthaltenen Querverweise ins englische Forum oder die Codeschnipsel weiter...

[RSBasic]

Beim ExplorerListGadget funktioniert das nicht.

[JayCool]

es klappt immer noch nicht

Du hast meinen Code genommen?

Ja!

und auch überprüft, ob das Icon existiert?

auch Ja!
[/quote]

[Kiffi]

Code: Alles auswählen

If OpenWindow(0,0,0,640,500,"ListIconGadgets",#PB_Window_SystemMenu|#PB_Window_Maximize) And CreateGadgetList(WindowID(0))
  ListIconGadget(0, 50, 50, 500, 500, "Column 1",100)
  myIcon = LoadImage(#PB_Any, #PB_Compiler_Home + "Examples\Sources\Data\CdPlayer.ico")
  If myIcon = 0 
    MessageRequester("Möp!", "Möp!")
  EndIf
  AddGadgetItem(0,1,"Test",ImageID(myIcon))
  ChangeListIconGadgetDisplay(0,0)
  Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf

kommt da ein 'Möp!'?

Grüße ... Kiffi