Control "lost focus" message

milan1612 · Post by **milan1612** » Fri May 04, 2007 4:41 pm

How can I process a "Lost Focus" Event of a StringGadget?
I tried #WM_KILLFOCUS but didn't get it to work.
Has anybody tried that already?

Regards, milan1612

Fluid Byte · Post by **Fluid Byte** » Fri May 04, 2007 4:52 pm

Code: Select all

OpenWindow(0,0,0,400,300,"untitled",#WS_OVERLAPPEDWINDOW | 1)
CreateGadgetList(WindowID(0))
StringGadget(0,5,5,200,20,"lorem ipsum")
ButtonGadget(1,5,40,100,24,"screw u")

Repeat
	EventID = WaitWindowEvent()
	
	If EventID = #PB_Event_Gadget And EventType() = #PB_EventType_LostFocus
		Debug "HAX0RS ON TEH PC!"
	EndIf
Until EventID = 16

milan1612 · Post by **milan1612** » Fri May 04, 2007 5:48 pm

Actually I didn't see it

What's going on with me

Thanks anyway

Fluid Byte · Post by **Fluid Byte** » Fri May 04, 2007 5:56 pm

LOL no problem!

Num3 · Post by **Num3** » Fri May 04, 2007 6:02 pm

My sugar version...

Code: Select all

OpenWindow(0,0,0,400,300,"untitled",#WS_OVERLAPPEDWINDOW | 1)
CreateGadgetList(WindowID(0))
StringGadget(0,5,5,200,20,"lorem ipsum")
ButtonGadget(1,5,40,100,24,"screw u")

Procedure FocusText(gadget.l,focuscolor.l=$E2E3E1,unfocuscolor.l=$FFFFFF)
  If GadgetType(gadget.l)=#PB_GadgetType_String 
    If EventType()=#PB_EventType_Focus 
      SetGadgetColor(gadget,#PB_Gadget_BackColor,focuscolor)
    ElseIf EventType()=#PB_EventType_LostFocus 
      SetGadgetColor(gadget,#PB_Gadget_BackColor,unfocuscolor)
    EndIf
  EndIf
EndProcedure


Repeat
  EventID = WaitWindowEvent()
  EventGadget = EventGadget()
  
  
  If EventID = #PB_Event_Gadget 
    FocusText(EventGadget)
    If EventType() = #PB_EventType_LostFocus
    
    Debug "HAX0RS ON TEH PC!"
  EndIf
  EndIf
Until EventID = 16

milan1612 · Post by **milan1612** » Fri May 04, 2007 6:14 pm

That's quite exactly that what I tried to do

Num3 · Post by **Num3** » Fri May 04, 2007 6:19 pm

milan1612 wrote:That's quite exactly that what I tried to do

Code: Select all

Procedure FocusText(gadget.l,focuscolor.l=$E2E3E1,unfocuscolor.l=$FFFFFF)
  If GadgetType(gadget.l)=#PB_GadgetType_String
    If EventType()=#PB_EventType_Focus
      SetGadgetColor(gadget,#PB_Gadget_BackColor,focuscolor)
    ElseIf EventType()=#PB_EventType_LostFocus
      SetGadgetColor(gadget,#PB_Gadget_BackColor,unfocuscolor)
    EndIf
  EndIf
EndProcedure

That's all ya need then !

JCV · Post by **JCV** » Sat May 05, 2007 4:15 am

Thats nice.
Added more fancy on my project.