Seite 1 von 2
Große Icons im ListIconGadget darstellen klappt nicht
Verfasst: 08.01.2008 21:07
von 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
Re: Große Icons im ListIconGadget darstellen klappt nicht
Verfasst: 08.01.2008 21:12
von 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
Verfasst: 08.01.2008 21:22
von NicTheQuick
Bei mir funktioniert beides.
Ich habe Win2k mit SP4 und PB V4.02
Verfasst: 08.01.2008 21:24
von 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.
Verfasst: 08.01.2008 21:34
von 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...
Verfasst: 08.01.2008 21:52
von Kiffi
JayCool hat geschrieben:es klappt immer noch nicht
Du hast meinen Code genommen?
und auch überprüft, ob das Icon existiert?
Grüße ... Kiffi
Verfasst: 08.01.2008 21:56
von scholly
Vielleicht hilft ja
dieser Thread bzw. die darin enthaltenen Querverweise ins englische Forum oder die Codeschnipsel weiter...
Verfasst: 08.01.2008 22:07
von RSBasic
Beim ExplorerListGadget funktioniert das nicht.
Verfasst: 08.01.2008 22:08
von JayCool
Kiffi hat geschrieben:JayCool hat geschrieben:es klappt immer noch nicht
Du hast meinen Code genommen?
Ja!
und auch überprüft, ob das Icon existiert?
auch Ja!
[/quote]
Verfasst: 08.01.2008 22:15
von 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