Bug bei Gadgets?

Für allgemeine Fragen zur Programmierung mit PureBasic.
Dking
Beiträge: 3
Registriert: 21.08.2005 04:15

Bug bei Gadgets?

Beitrag von Dking »

Hi,
also folgender Codeabschnitt kurzgefasst:

Code: Alles auswählen


  If CreateGadgetList(WindowID())
    ImageGadget(0, 0, 0, 640, 480, UseImage(0), #PB_Image_Border)
    ButtonGadget(1,0, Buttonposition,130,30,"Benchmarks")            : Buttonposition=Buttonposition+30
    ButtonGadget(2,0, Buttonposition,130,30,"Bild/Videobearbeitung") : Buttonposition=Buttonposition+30
    ButtonGadget(3,0, Buttonposition,130,30,"Brennsoftware")         : Buttonposition=Buttonposition+30
    ButtonGadget(4,0, Buttonposition,130,30,"Internetsoftware")      : Buttonposition=Buttonposition+30
    ButtonGadget(5,0, Buttonposition,130,30,"Office")                : Buttonposition=Buttonposition+30
    ButtonGadget(6,0, Buttonposition,130,30,"Packer")                : Buttonposition=Buttonposition+30
    ButtonGadget(7,0, Buttonposition,130,30,"Player")                : Buttonposition=Buttonposition+30
    ButtonGadget(8,0, Buttonposition,130,30,"Ripper")                : Buttonposition=Buttonposition+30
    ButtonGadget(9,0, Buttonposition,130,30,"Treiber")               : Buttonposition=Buttonposition+30
    ButtonGadget(10,0,Buttonposition,130,30,"Updates")               : Buttonposition=Buttonposition+30
    ButtonGadget(11,0,Buttonposition,130,30,"Tuning")                : Buttonposition=Buttonposition+30
    ButtonGadget(12,0,Buttonposition,130,30,"Sonstiges")             : Buttonposition=Buttonposition+30
    ButtonGadget(13,0,Buttonposition,130,30,"Beenden")
    StringGadget(14,0,460,640,20,"Hier wird Infotext zu allen Programmen angezeigt!")


  EndIf
Der Code lässt erstaunlicherweise den Mouseovereffekt der Buttons verschwinden. Wwarum das ?!

mfg
DKing
Benutzeravatar
Pelagio
Beiträge: 424
Registriert: 11.11.2004 17:52
Computerausstattung: AMD Ryzen 5 7600 6-Core Prozessor 3.80 GHz
16,0 GB Arbeitsspeicher
Windows 11 Pro Betriebssystem
Wohnort: Bremen

Beitrag von Pelagio »

@Dking

Wenn du dein ImageGadget deaktivierst (DisableGadget(0, 1)) kannst du weiterhin auf deine Button zugreifen.

Code: Alles auswählen

If CreateGadgetList(WindowID()) 
    ImageGadget (0, 0, 0,640, 480, UseImage(100), #PB_Image_Border) 
    ButtonGadget(1, 5, Buttonposition,130,30,"Benchmarks")            : Buttonposition=Buttonposition+30 
    ButtonGadget(2, 5, Buttonposition,130,30,"Bild/Videobearbeitung") : Buttonposition=Buttonposition+30 
    ButtonGadget(3, 5, Buttonposition,130,30,"Brennsoftware")         : Buttonposition=Buttonposition+30 
    ButtonGadget(4, 5, Buttonposition,130,30,"Internetsoftware")      : Buttonposition=Buttonposition+30 
    ButtonGadget(5, 5, Buttonposition,130,30,"Office")                : Buttonposition=Buttonposition+30 
    ButtonGadget(6, 5, Buttonposition,130,30,"Packer")                : Buttonposition=Buttonposition+30 
    ButtonGadget(7, 5, Buttonposition,130,30,"Player")                : Buttonposition=Buttonposition+30 
    ButtonGadget(8, 5, Buttonposition,130,30,"Ripper")                : Buttonposition=Buttonposition+30 
    ButtonGadget(9, 5, Buttonposition,130,30,"Treiber")               : Buttonposition=Buttonposition+30 
    ButtonGadget(10,5, Buttonposition,130,30,"Updates")               : Buttonposition=Buttonposition+30 
    ButtonGadget(11,5, Buttonposition,130,30,"Tuning")                : Buttonposition=Buttonposition+30 
    ButtonGadget(12,5, Buttonposition,130,30,"Sonstiges")             : Buttonposition=Buttonposition+30 
    ButtonGadget(13,5, Buttonposition,130,30,"Beenden") 
    StringGadget(14,5, 460,640,20,"Hier wird Infotext zu allen Programmen angezeigt!") 
    DisableGadget(0, 1)
EndIf
Antworten