Detect StringGadget Readonly

[mx101]

hi....

how can detect StringGadget readonly on fly???

can anyone help me?

thanks

[Arctic Fox]

Windows only

Code: Select all

OpenWindow(0, 100, 100, 300, 300, "")
StringGadget(0, 5, 5, 100, 20, "", #PB_String_ReadOnly)
StringGadget(1, 5, 35, 100, 20, "")

Debug (GetWindowLong_(GadgetID(0), #GWL_STYLE) & #ES_READONLY) / #ES_READONLY
Debug (GetWindowLong_(GadgetID(1), #GWL_STYLE) & #ES_READONLY) / #ES_READONLY

SendMessage_(GadgetID(0), #EM_SETREADONLY, 0, 0)
SendMessage_(GadgetID(1), #EM_SETREADONLY, 1, 0)

Debug (GetWindowLong_(GadgetID(0), #GWL_STYLE) & #ES_READONLY) / #ES_READONLY
Debug (GetWindowLong_(GadgetID(1), #GWL_STYLE) & #ES_READONLY) / #ES_READONLY

Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
End

[mx101]

Windows only

Code: Select all

OpenWindow(0, 100, 100, 300, 300, "")
StringGadget(0, 5, 5, 100, 20, "", #PB_String_ReadOnly)
StringGadget(1, 5, 35, 100, 20, "")

Debug (GetWindowLong_(GadgetID(0), #GWL_STYLE) & #ES_READONLY) / #ES_READONLY
Debug (GetWindowLong_(GadgetID(1), #GWL_STYLE) & #ES_READONLY) / #ES_READONLY

SendMessage_(GadgetID(0), #EM_SETREADONLY, 0, 0)
SendMessage_(GadgetID(1), #EM_SETREADONLY, 1, 0)

Debug (GetWindowLong_(GadgetID(0), #GWL_STYLE) & #ES_READONLY) / #ES_READONLY
Debug (GetWindowLong_(GadgetID(1), #GWL_STYLE) & #ES_READONLY) / #ES_READONLY

Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
End

thank you very much.