PureBoard

Verfasst: **11.01.2005 14:57**

Hallo

Ich habe ein problem und keine Ahnung woran es liegt.
Könnte sich das mal jemand anschauen und mir einen Tipp wegen, was ich falsch gemacht habe?

Code: Alles auswählen

; PureBasic Visual Designer v3.90 build 1360
; TEMP
Dim Language$(1)
Language$(0) = "XX"
Language$(1) = "SL"


;- Window Constants
;
Enumeration
  #WND_SL
EndEnumeration

;- Gadget Constants
;
Enumeration
  #GD_BTN_SL_OK
  #GD_LICON_SL_Title
  #GD_LICON
EndEnumeration

#PO_Last_Image = 100
For x = 1 To 8
  If CreateImage(#PO_Last_Image + x, 32, 32)
    StartDrawing(ImageOutput())
    Box(0, 0, 32, 32, $888888)
    FrontColor($AA, $FF, $88)
    Locate(10, 10)
    DrawingMode(1)
    DrawText(Str(x))
    StopDrawing()
  EndIf 
Next


Procedure Show_SL()
  If OpenWindow(#WND_SL, 216, 0, 200, 320,  #PB_Window_BorderLess , "New window ( 0 )")
    If CreateGadgetList(WindowID())
      TextGadget(#GD_LICON_SL_Title, 10, 10, 180, 20, Language$(1), #PB_Text_Center)
      ButtonGadget(#GD_BTN_SL_OK, 60, 290, 74, 23, "Quit") 
      ListIconGadget(#GD_LICON, 10, 35, 130, 250, Language$(0), 100, #PB_ListIcon_MultiSelect);, #PB_ListIcon_CheckBoxes)
      
      ;- Aussehen einstellen 
      ChangeListIconGadgetDisplay(#GD_LICON, 0) ; grosse Icons
      
      ; For x = 1 To 8
      ; AddGadgetItem(#GD_LICON_Ship_Selection_List, -1, Str(x), UseImage(#PO_Last_Image + x)) 
      ; Debug #PO_Last_Image + x
      ; Next
      
      AddGadgetItem(#GD_LICON, -1, Str(1), UseImage(101)) 
      AddGadgetItem(#GD_LICON, -1, Str(2), UseImage(102)) 
      AddGadgetItem(#GD_LICON, -1, Str(3), UseImage(103)) 
      AddGadgetItem(#GD_LICON, -1, Str(4), UseImage(104)) 
      AddGadgetItem(#GD_LICON, -1, Str(5), UseImage(105)) 
      AddGadgetItem(#GD_LICON, -1, Str(6), UseImage(106)) 
      AddGadgetItem(#GD_LICON, -1, Str(7), UseImage(107)) 
      AddGadgetItem(#GD_LICON, -1, Str(8), UseImage(108)) 
      
      Repeat 
        Event = WaitWindowEvent() 
        If Event = #PB_EventGadget
          GadgetID = EventGadgetID() 
          If GadgetID = #GD_LICON
            Debug GetGadgetState(#GD_LICON)
          EndIf 
        EndIf 
      Until Event = #PB_EventCloseWindow Or GadgetID = #GD_BTN_SL_OK

    EndIf
    CloseWindow(#WND_SL)
  EndIf
EndProcedure

Show_SL()

End

Bei mir zeigt er nur 4 statt 8 Icons an. Nr 1, 3, 5, 7, die andere 4 bleiben leer.

Vielen Dank im Voraus

Verfasst: **11.01.2005 15:46**

hi Dostej,

ich konnte keinen fehler finden.
vielleicht ist es ein BUG....
weil mit ChangeListIconGadgetDisplay(#GD_LICON, 1) sehe ich alle bilder

mfG
Tobi

Verfasst: **11.01.2005 15:59**

Ich liebe diese Käfer...
(wie ist die Telefonnummer des Kammerjägers...)

AAAAARRRRRGGGGGHHHHHHHHH!!!!!!!!!!!!!!!!!!!!!!

So, jetzt geht es mir etwas besser.

Und nu?

(eher rhetorisch gemeint)

Verfasst: **11.01.2005 17:00**

Ich hab' mich auch dran versucht - nix!

Scheint wirklich ein Bug in PB zu sein. Oder das ListIcon kann nur 4 große Bilder gleichzeitig anzeigen.

Greetz Laurin

Verfasst: **11.01.2005 17:14**

wenn ich nur ein bild für alle items benutze geht es normal,
aber sobald man anfängt verschiedene bilder zu benutzen passieren komische sachen.

PureBoard

Fehler im Code - Hilfe?

Fehler im Code - Hilfe?