EditorGadget() placeholder text

[dige]

hi guys,

does anyone know how I can assign a placeholder text to the editor gadget?
I have not found anything with the forum search.

Chat GPT has suggested an interesting, working solution - but isn't there a simpler way?

Code: Select all

; Created by ChatGPT4


; Konstanten für die Gadget-IDs
Enumeration
  #Editor
EndEnumeration

; Initialer Platzhaltertext
Global Placeholder$ = "Bitte Text eingeben..."

; Fenster und EditorGadget erstellen
If OpenWindow(0, 100, 100, 300, 100, "Editor mit Platzhalter", #PB_Window_SystemMenu)
  EditorGadget(#Editor, 10, 10, 280, 80)
  SetGadgetText(#Editor, Placeholder$)
  
  ; Ereignisschleife
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case #Editor
            If EventType() = #PB_EventType_Focus
              If GetGadgetText(#Editor) = Placeholder$
                SetGadgetText(#Editor, "")
              EndIf
            ElseIf EventType() = #PB_EventType_LostFocus
              If Len(GetGadgetText(#Editor)) = 0
                SetGadgetText(#Editor, Placeholder$)
              EndIf
            EndIf
        EndSelect
    EndSelect
  Until Event() = #PB_Event_CloseWindow
EndIf

[RASHAD]

Hi dige
I tried to use #EM_SETCUEBANNER with the editor but I failed
Try
#1 :

Code: Select all

Enumeration
  #Editor
  #Text
EndEnumeration

; Initialer Platzhaltertext
Global Placeholder$ = "  Bitte Text eingeben..."

; Fenster und EditorGadget erstellen
If OpenWindow(0, 100, 100, 300, 200, "Editor mit Platzhalter", #PB_Window_SystemMenu)
  TextGadget(#Text,12,12,250,24,Placeholder$,#WS_CLIPSIBLINGS)
  SetGadgetColor(#Text,#PB_Gadget_BackColor,$FFFFFF)
  EditorGadget(#Editor, 10, 10, 280, 80,#WS_CLIPSIBLINGS)
  DisableGadget(#Text,1)
  ; Ereignisschleife
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case #Editor
            If EventType() = #PB_EventType_Focus
              HideGadget(#Text,1)
            ElseIf EventType() = #PB_EventType_LostFocus
              HideGadget(#Text,0)
            EndIf
        EndSelect
    EndSelect
  Until Event() = #PB_Event_CloseWindow
EndIf

#2 :

Code: Select all

Enumeration
  #Editor
  #string
EndEnumeration

; Initialer Platzhaltertext
Global Placeholder$ = "  Bitte Text eingeben..."

; Fenster und EditorGadget erstellen
If OpenWindow(0, 100, 100, 300, 200, "Editor mit Platzhalter", #PB_Window_SystemMenu)
  EditorGadget(#Editor, 10, 10, 280, 80)
  StringGadget(#string,11,11,250,24,"")
  SendMessage_(GadgetID(#string),#EM_SETCUEBANNER,1,Placeholder$)
  SetWindowLongPtr_(GadgetID(#string), #GWL_EXSTYLE, GetWindowLongPtr_(GadgetID(0), #GWL_EXSTYLE)  &~ #WS_EX_CLIENTEDGE)
  SetWindowPos_(GadgetID(#string), 0, 0, 0, 0, 0, #SWP_NOZORDER | #SWP_NOMOVE | #SWP_NOSIZE | #SWP_FRAMECHANGED)
  ; Ereignisschleife
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case #Editor
            If EventType() = #PB_EventType_Focus
              HideGadget(#string,1)
            ElseIf EventType() = #PB_EventType_LostFocus
              HideGadget(#string,0)
            EndIf
        EndSelect
    EndSelect
  Until Event() = #PB_Event_CloseWindow
EndIf

[BarryG]

Code: Select all

; Created by ChatGPT4

; Konstanten für die Gadget-IDs
Enumeration
  #Editor
EndEnumeration

; Initialer Platzhaltertext
Global Placeholder$ = "Bitte Text eingeben..."

; Fenster und EditorGadget erstellen
If OpenWindow(0, 100, 100, 300, 100, "Editor mit Platzhalter", #PB_Window_SystemMenu)
  EditorGadget(#Editor, 10, 10, 280, 80)
  SetGadgetText(#Editor, Placeholder$)
  
  ; Ereignisschleife
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case #Editor
            If EventType() = #PB_EventType_Focus
              If GetGadgetText(#Editor) = Placeholder$
                SetGadgetText(#Editor, "")
              EndIf
            ElseIf EventType() = #PB_EventType_LostFocus
              If Len(GetGadgetText(#Editor)) = 0
                SetGadgetText(#Editor, Placeholder$)
              EndIf
            EndIf
        EndSelect
    EndSelect
  Until Event() = #PB_Event_CloseWindow
EndIf

ChatGPT wrote that? That's pretty impressive! I've never seen it create compilable PureBasic code before, but you used ChatGPT 4 and I'm only on 3.5 (can't afford to pay for 4), so maybe that's why.

[Quin]

ChatGPT wrote that? That's pretty impressive! I've never seen it create compilable PureBasic code before, but you used ChatGPT 4 and I'm only on 3.5 (can't afford to pay for 4), so maybe that's why.

Yeah, GPT4 can actually generate compilable PB code. I don't pay for it myself either ($20.00 a month is incredibly steep considering how much I'd use it), but it's impressive.

[dige]

Hi dige
I tried to use #EM_SETCUEBANNER with the editor but I failed
[..]

Nevertheless, thanks RASHAD, it looks better

[jacdelad]

Nevertheless, thanks RASHAD, it looks better

You can always trust in RASHAD-GPT!

[RASHAD]

Hi jacdelad
Is that mean he should pay me $20 per month

[jacdelad]

Hi jacdelad
Is that mean he should pay me $20 per month

$20 well invested. I'll think about that.

[dige]

Hi jacdelad
Is that mean he should pay me $20 per month

RASHAD my friend! What is your bank account?