Select text / get selection for StringGadget/EditorGadget

[Danilo]

Example using WinAPI:

Code: Select all

  ; Shows possible flags of StringGadget in action...
  If OpenWindow(0, 0, 0, 322, 205, "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, "Readonly 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)
    Repeat
        Select WaitWindowEvent()
            Case #PB_Event_CloseWindow
                Break
            Case #PB_Event_Gadget
                If EventType() = #PB_EventType_Focus And GadgetType(EventGadget())=#PB_GadgetType_String
                    SendMessage_(GadgetID(EventGadget()),#EM_SETSEL,0,-1)
                EndIf
         EndSelect
    ForEver
  EndIf

Set and get the selection for both, StringGadget and EditorGadget on all platforms.

Code: Select all

GetGadgetAttribute(#Gadget,#PB_Editor_SelectionStart)
GetGadgetAttribute(#Gadget,#PB_Editor_SelectionEnd)
GetGadgetAttribute(#Gadget,#PB_Editor_SelectedText)

SetGadgetAttribute(#Gadget,#PB_Editor_SelectionStart, startSelectionPosition)
SetGadgetAttribute(#Gadget,#PB_Editor_SelectionEnd, endSelectionPosition)

[pcfreak]

+1

Definitely a need feature in my opinion.

[IdeasVacuum]

Would be very useful to have this feature - certainly Windows Users expect to:

Select some text; Right mouse -click copy to clipboard.

Windows API:

Code: Select all

Procedure.s GetSelectedEditorText(iEdId.i)
;-----------------------------------------
Protected sSelected.s, Range.CHARRANGE, iSize.i 

               SendMessage_(GadgetID(iEdId), #EM_EXGETSEL, 0, Range)

                      iSize = (Range\cpMax - Range\cpMin)
                  sSelected = Space((iSize * 2) + 1)
          
               SendMessage_(GadgetID(iEdId),#EM_GETSELTEXT, 0, sSelected)

               ProcedureReturn(sSelected)
EndProcedure

Edit: Related to that would be to add/insert text too, à la Windows API:

Code: Select all

SendMessage_(GadgetID(#MyEditor), #WM_PASTE,0,0)

[Andre]

+1

[davido]

+1

[Shardik]

To select text or obtain selected text in a StringGadget you may use this cross-platform solution.

+1 for implementing this feature natively in PB...

[paulr]

+1 from me.

Can I also suggest:

Code: Select all

GetGadgetAttribute(#Gadget,#PB_Editor_TextLength)

...to retrieve the number of characters in the text box?

I know this can currently be achieved with Len(GetGadgetText(#Gadget)), but the above would hopefully avoid processing the whole string every time it's called.

[Maitre_Kanter]

+1 for adding this feature natively in PureBasic

[Topilno]

Set and get the selection for both, StringGadget and EditorGadget on all platforms.

Code: Select all

GetGadgetAttribute(#Gadget,#PB_Editor_SelectionStart)
GetGadgetAttribute(#Gadget,#PB_Editor_SelectionEnd)
GetGadgetAttribute(#Gadget,#PB_Editor_SelectedText)

SetGadgetAttribute(#Gadget,#PB_Editor_SelectionStart, startSelectionPosition)
SetGadgetAttribute(#Gadget,#PB_Editor_SelectionEnd, endSelectionPosition)

I'm trying this with PB 5.40/5.41b2 (EditorGadget) but it's not working.
Can't find #PB_Editor_SelectionStart and #PB_Editor_SelectionEnd.
Are they still supported, perhaps with a new name, or are they gone?
Thanks

[paulr]

This thread is a wish list, this feature doesn't exist yet. We can only hope it will one day!

In the meantime, Shardik's link above is helpful.

[Topilno]

This thread is a wish list, this feature doesn't exist yet. We can only hope it will one day!

In the meantime, Shardik's link above is helpful.

Thank you very much. Googled the code, and it looked so real i didn't realize it was from a wishlist.

[Torp]

+1

[Mesa]

+1

[collectordave]

Has this been implemented?

Just been trying the code from shardik and have it working on an editor gadget.

just need to check end of line stuff.

regards

CD

[BarryG]

+1. Please add them. And thanks, IdeasVacuum, for making it possible in the meantime.

But how do I replace selected text without putting it in the clipboard with #WM_PASTE?

[Edit] Just found it in another post:

Code: Select all

SendMessage_(GadgetID(gadget),#EM_REPLACESEL,0,@text$)

But this doesn't let me press Ctrl+Z to undo the replace, like pasting does. What to do?