StringGadget Caret

Nubcake · **Joined:** Thu Feb 03, 2011 7:44 pm **Posts:** 164

When I use this code for a StringGadget to limit the number of characters to 2 the mouse cursor always disappears when I type anything.

Code:

Length=Len(GetGadgetText(#Input_Minutes1))
If Length>2
  SetGadgetText(#Input_Minutes1,Mid(GetGadgetText(#Input_Minutes1),0,2))
  SendMessage_(GadgetID(#Input_Minutes1),#EM_EXGETSEL,2,2)
EndIf 

How do you stop the mouse cursor from disappearing?
Edit: By cursor I mean Mouse Cursor!

IdeasVacuum · **Posted:** Sun Jul 15, 2012 10:54 pm

If your app is for Windows:

Code:

SendMessage_(GadgetID(#Input_Minutes1),#EM_SETSEL,Length,Length);Set cursor to end of string

Nubcake · **Joined:** Thu Feb 03, 2011 7:44 pm **Posts:** 164

IdeasVacuum wrote:

If your app is for Windows:

Code:

SendMessage_(GadgetID(#Input_Minutes1),#EM_SETSEL,Length,Length);Set cursor to end of string

The mouse cursor still disappears , it only reappears when you move the mouse

Edit: By cursor I mean Mouse Cursor!

Polo · **Posted:** Sun Jul 15, 2012 11:30 pm

It's supposed to disappear, it's the correct behaviour.

IdeasVacuum · **Posted:** Sun Jul 15, 2012 11:32 pm

Quote:

The mouse cursor still disappears , it only reappears when you move the mouse

But that is normal Windows behavior? The mouse cursor changes to a Caret when it enters a StringGadget - move it out of a StringGadget and it goes back to whatever it previously was (default = arrow).

RASHAD · **Joined:** Sun Apr 12, 2009 6:27 am **Posts:** 1467

If you still need it next is a workaround

Code:

  OpenWindow(0, 0, 0, 322, 205, "StringGadget Flags", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget(0, 8,  10, 306, 20, "Normal StringGadget...")
    SendMessage_(GadgetID(0),#EM_SETLIMITTEXT,2,0)
Repeat
  Select WaitWindowEvent()
      
       Case #PB_Event_CloseWindow
              Quit = 1
      
       Case #PB_Event_Gadget
          Select EventGadget()
           Case 0
                GetCursorPos_(p.POINT)
                SetCursorPos_(p\x,p\y)

          EndSelect
  EndSelect
          
Until Quit = 1

Nubcake · **Joined:** Thu Feb 03, 2011 7:44 pm **Posts:** 164

Polo wrote:

It's supposed to disappear, it's the correct behaviour.

I forgot about that.

Anyways thanks RASHAD works perfectly.

PureBasic Forum

StringGadget Caret

Who is online