;Autor: mk-soft

EnableExplicit

#UIS_SET = $0001
#UIS_CLEAR = $0002
#UIS_INITIALIZE = $0003
#UISF_ACTIVE = $0004
#UISF_HIDEACCEL = $0002
#UISF_HIDEFOCUS = $0001

Macro MAKELONG(loword, hiword)
  (hiword << 16 | loword)
EndMacro

Procedure ShowFocus(window)
  SendMessage_(WindowID(Window), #WM_UPDATEUISTATE, MAKELONG(#UIS_CLEAR,#UISF_HIDEFOCUS), 0)
EndProcedure

Procedure HideFocus(window)
  SendMessage_(WindowID(Window), #WM_UPDATEUISTATE, MAKELONG(#UIS_SET,#UISF_HIDEFOCUS), 0)
EndProcedure

Procedure ShowAccel(window)
  SendMessage_(WindowID(Window), #WM_UPDATEUISTATE, MAKELONG(#UIS_CLEAR,#UISF_HIDEACCEL), 0)
EndProcedure

Procedure HideAccel(window)
  SendMessage_(WindowID(Window), #WM_UPDATEUISTATE, MAKELONG(#UIS_SET,#UISF_HIDEACCEL), 0)
EndProcedure

Define EventID

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ButtonGadget(1,10,10,200,20,"Button ohne sichtbaren Fokusrahmen",0)
  
  HideFocus(0)
  
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf