PureBasic Forums - English

Posted: **Sun Sep 14, 2014 6:37 am**

Derren wrote:I guess the "correct" way would be...

Or, simply target the entire gadget range, as what your original example seems to require:

Case #PB_Event_Gadget
  Select EventGadget()
    Case 0 To 6 
      Select EventType()
        ;... lots of redundant codes here
      EndSelect
  EndSelect

Posted: **Wed Sep 17, 2014 8:07 pm**

While WindowEvent() : Wend

http://www.purebasic.fr/english/viewtop ... ead#unread

Code: Select all

If OpenWindow(0, 0, 0, 322, 225, "StringGadget Flags", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StringGadget(0, 8,  10, 306, 20, "Normal StringGadget...")
  StringGadget(1, 8,  35, 306, 20, "1234567", #PB_String_Numeric)
  StringGadget(2, 8,  60, 306, 20, "Read-only StringGadget", #PB_String_ReadOnly)
  StringGadget(3, 8,  85, 306, 20, "lowercase...", #PB_String_LowerCase)
  StringGadget(4, 8, 110, 306, 20, "uppercase...", #PB_String_UpperCase)
  StringGadget(5, 8, 140, 306, 20, "Borderless StringGadget", #PB_String_BorderLess)
  StringGadget(6, 8, 170, 306, 20, "Password", #PB_String_Password)
  
  While WindowEvent() : Wend
  
  Repeat
    event = WaitWindowEvent()
    If event = #PB_Event_Gadget
      Select EventType()
         Case #PB_EventType_Change
            ;If EventGadget()>-1
               SetGadgetColor(EventGadget(), #PB_Gadget_BackColor, RGB(255, 200, 200))
            ;EndIf 
        Case #PB_EventType_LostFocus
          SetGadgetColor(EventGadget(), #PB_Gadget_BackColor, RGB(255, 255, 255))
      EndSelect
    EndIf
  Until event = #PB_Event_CloseWindow
EndIf

Posted: **Wed Sep 17, 2014 9:42 pm**

mestnyi wrote: While WindowEvent() : Wend

I tried this as well on Windows, but got some trouble with window painting, e.g. corrupted drawings.

Posted: **Sat Sep 20, 2014 7:13 am**

Why?Why?Why?

when you click on the gadget in no event # pb_event_gadget and Bindvent () is an event going on, if you click on the emptiness inside gadget (meaning where there is no text), then click event happens here and there

Code: Select all

Procedure Event_Gadget()
    Debug "down_and_up"
      Debug "-+-"
EndProcedure

If OpenWindow(0, 100, 100, 300, 100, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ListIconGadget(0, 5, 5, 290, 90, "Name", 100, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
  AddGadgetItem(0, -1, "Harry Rannit"+Chr(10)+"12 Parliament Way, Battle Street, By the Bay")
  
  BindEvent(#PB_Event_Gadget,@Event_Gadget())
  Repeat
    Event = WaitWindowEvent()
    If Event = #PB_Event_Gadget
      Debug "up"
      Debug "--"
    EndIf
  Until Event = #PB_Event_CloseWindow
EndIf

Posted: **Sat Sep 20, 2014 8:36 am**

mestnyi wrote:Why?Why?Why?

You need to check the event type. PureBasic's ListIconGadget supports the following event types in PB 5.2x LTS:

Code: Select all

eventType = EventType()
; #PB_EventType_LeftClick        : left click on an item, or a checkbox was checked/unchecked
; #PB_EventType_LeftDoubleClick
; #PB_EventType_RightClick
; #PB_EventType_RightDoubleClick
; #PB_EventType_Change           : the current item changed
; #PB_EventType_DragStart        : the user tried to start a Drag & Drop operation.

Is it really so difficult to understand that simple system, after so many month of using PB?

PureBasic Forums - English

EventGadget() = -1 when using default text in StringGadget()

Re: EventGadget() = -1 when using default text in StringGadg

Re: EventGadget() = -1 when using default text in StringGadg

Re: EventGadget() = -1 when using default text in StringGadg

Re: EventGadget() = -1 when using default text in StringGadg

Re: EventGadget() = -1 when using default text in StringGadg