PureBasic Forums - English

Posted: **Thu Apr 18, 2013 10:02 pm**

PB5.11 Don't know if this is related or not but I have a ToggleImageGadgetButton in a container and it vanishes when the program starts and re-appears when you hover the mouse over it.

Previous versions of PB were okay.

Standard ImageButtons seem to be okay.

Posted: **Fri Apr 19, 2013 7:40 am**

Hi Fangles!

Fangbeast wrote:...
Standard ImageButtons seem to be okay.

Don't think so. Try this:

Code: Select all

EnableExplicit

Enumeration
  #MainWindow
EndEnumeration

Enumeration
  #Toolbar
EndEnumeration

Enumeration
  #myImgButton
  #myNrmButton
EndEnumeration

Define Quit.i, Event.i

OpenWindow(#MainWindow, 10, 10, 300, 300, "Test")

CreateToolBar(#Toolbar, WindowID(#MainWindow))

ButtonImageGadget(#myImgButton, WindowWidth(#MainWindow)-30, 1, 24, 24, 0);, #PB_Button_Toggle)
SetParent_(GadgetID(#myImgButton), ToolBarID(#Toolbar))

ButtonGadget(#myNrmButton, WindowWidth(#MainWindow)-60, 1, 24, 24, "", #PB_Button_Toggle)
SetParent_(GadgetID(#myNrmButton), ToolBarID(#Toolbar))


Quit=0

Repeat
Event=WaitWindowEvent()
Select Event
    Case #PB_Event_CloseWindow
      Quit=#True
  EndSelect
Until Quit

End

I just commented out the flag on ButtonImageGadget
in my first example. Same behaviour.

Posted: **Fri Apr 19, 2013 9:09 am**

ImageButtonGadget with toggle flag, on a container, button vanishes on startup.
ImageButtonGadget with no flag, on a container, button is okay.

PB 5.11, Windows 8 PRO.

And I can reliably reproduce this. It's always the button with the toggle flag.

Posted: **Fri Apr 19, 2013 9:21 am**

See if the next works fine with you Fangles

Code: Select all

;EnableExplicit

Enumeration
  #MainWindow
EndEnumeration

Enumeration
  #Toolbar
  #TBB1
  #TBB2
  #TBB3
EndEnumeration

Enumeration
  #myImgButton = 100
  #myNrmButton = 101
EndEnumeration


  CreateImage(0, 24, 24)
  StartDrawing(ImageOutput(0))
  Box(0, 0, 24, 24, $F0F0F0)
  LineXY(0,0, 23,23, $0000FF)
  LineXY(0,23, 23,0, $0000FF)
  StopDrawing()
  
  CreateImage(1, 24, 24)
  StartDrawing(ImageOutput(1))
  Box(0, 0, 24, 24, $F0F0F0)
  DrawingMode(#PB_2DDrawing_Outlined)
  Circle(12, 12, 4, $0000FF)
  StopDrawing()

Define Quit.i, Event.i

OpenWindow(#MainWindow, 10, 10, 300, 300, "Test")

CreateToolBar(#Toolbar, WindowID(#MainWindow))
ToolBarStandardButton(#TBB1, #PB_ToolBarIcon_New)
ToolBarStandardButton(#TBB2, #PB_ToolBarIcon_Open)
ToolBarStandardButton(#TBB3, #PB_ToolBarIcon_Save)

ButtonImageGadget(#myImgButton, WindowWidth(#MainWindow)-30, 1, 24, 24, ImageID(1), #PB_Button_Toggle)
SetParent_(GadgetID(#myImgButton), ToolBarID(#Toolbar))

ButtonGadget(#myNrmButton, WindowWidth(#MainWindow)-60, 1, 24, 24, "", #PB_Button_Toggle)
SetParent_(GadgetID(#myNrmButton), ToolBarID(#Toolbar))


Quit=0
Image = 1

Repeat
Event=WaitWindowEvent()
Select Event
    Case #PB_Event_CloseWindow
      Quit=#True
      
    Case #PB_Event_Gadget
        Select EventGadget()
          Case #myImgButton
            Image ! 1
            SetGadgetAttribute(#myImgButton,#PB_Button_Image,ImageID(Image))
        EndSelect
      
    Case #WM_KEYDOWN
        If EventwParam() = 9
           InvalidateRect_(GadgetID(#myImgButton),0,1)
        EndIf
  EndSelect
Until Quit

End

Posted: **Fri Apr 19, 2013 10:30 am**

Hi Rashad!

RASHAD wrote:See if the next works fine with you Fangles
...

I'm not Rashad, but your code still does'nt work for me.
PB 5.11 (and 5.10) x86, Win7 Ultimate, SP1 x64

Posted: **Fri Apr 19, 2013 10:45 am**

Hi Lord

Yes you said that before
That is why I am talking to Fangles
Because it works here with PB 5.11 Win XP SP2,Win 7 x64 & Win 8 x64
So let us here from Fangles maybe we can isolate the problem

PureBasic Forums - English

ButtonImageGadget disappears

Re: ButtonImageGadget disappears

Re: ButtonImageGadget disappears

Re: ButtonImageGadget disappears

Re: ButtonImageGadget disappears

Re: ButtonImageGadget disappears

Re: ButtonImageGadget disappears