PureBoard

Code: Alles auswählen

Procedure.i IsCapsLock()
  ProcedureReturn GetKeyState_(#VK_CAPITAL)
EndProcedure
Procedure.i IsNumLock()
  ProcedureReturn GetKeyState_(#VK_NUMLOCK)
EndProcedure
Procedure.i IsScrollLock()
  ProcedureReturn GetKeyState_(#VK_SCROLL)
EndProcedure

Procedure.s OnOff(State.i)
  If State
    ProcedureReturn "ON"
  Else
    ProcedureReturn "OFF"
  EndIf
EndProcedure

OpenWindow(0, #PB_Ignore, #PB_Ignore, 300, 80, "Test", #PB_Window_SystemMenu|#PB_Window_TitleBar)
  TextGadget(0, 5,  5, 150 - 5, 20, "CAPS LOCK:")   : TextGadget(1, 150,  5, 150 - 5, 20, OnOff(IsCapsLock()))
  TextGadget(2, 5, 30, 150 - 5, 20, "SCROLL LOCK:") : TextGadget(3, 150, 30, 150 - 5, 20, OnOff(IsScrollLock()))
  TextGadget(4, 5, 55, 150 - 5, 20, "NUM LOCK:")    : TextGadget(5, 150, 55, 150 - 5, 20, OnOff(IsNumLock()))

Repeat
  Event = WaitWindowEvent()
  If Event = #WM_KEYUP ;Eine Taste wurde gedrückt...
    ; Aktualisieren:
    SetGadgetText(1, OnOff(IsCapsLock()))
    SetGadgetText(3, OnOff(IsScrollLock()))
    SetGadgetText(5, OnOff(IsNumLock()))
  EndIf
Until Event = #PB_Event_CloseWindow

Code: Alles auswählen

If OpenWindow(0, 0, 0, 300, 205, "StringGadgetMultiline", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StringGadget(0, 10, 10, 250, 180, "", #ES_MULTILINE | #ES_AUTOVSCROLL | #WS_VSCROLL  | #ESB_DISABLE_LEFT | #ESB_DISABLE_RIGHT)
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Code: Alles auswählen

If OpenWindow(0, 0, 0, 322, 205, "StringGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StringGadget(0, 8,  10, 306, 20, "1px sunken StringGadget")
  SetWindowLongPtr_(GadgetID(0), #GWL_EXSTYLE, GetWindowLongPtr_(GadgetID(0), #GWL_EXSTYLE) | #WS_EX_STATICEDGE &~ #WS_EX_CLIENTEDGE)
  SetWindowPos_(GadgetID(0), 0, 0, 0, 0, 0, #SWP_NOZORDER | #SWP_NOMOVE | #SWP_NOSIZE | #SWP_FRAMECHANGED)
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf