PureBoard

Code: Alles auswählen

var WindowFlags = PB_Window_SystemMenu | PB_Window_ScreenCentered;

frmLogin = OpenWindow(PB_Any, 0, 0, 328, 170, "Login", WindowFlags);
lblUsername = TextGadget(PB_Any, 16, 16, 96, 24, "Username:");
txtUsername = StringGadget(PB_Any, 120, 13, 192, 25, "");
lblPassword = TextGadget(PB_Any, 16, 48, 96, 24, "Password:");
txtPassword = StringGadget(PB_Any, 120, 48, 192, 24, "", PB_String_Password);

TextGadget(PB_Any, (WindowWidth(frmLogin) - 250) / 2, 96, 250, 24, "(user: test / pass: test)", PB_Text_Center);

cmdOK = ButtonGadget(PB_Any, 144, 130, 80, 24, "OK");
cmdCancel = ButtonGadget(PB_Any, 232, 130, 80, 24, "Cancel");

EM_SetEventHandler(frmLogin, EM_Window, frmLogin_onClose, "dialogclose");
EM_SetEventHandler(cmdOK, EM_Gadget, cmdOK_Event, "mouseup");
EM_SetEventHandler(cmdCancel, EM_Gadget, cmdCancel_Event, "mouseup");

SetActiveGadget(txtUsername);

Code: Alles auswählen

  If OpenWindow(0, 0, 0, 220, 220, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    CanvasGadget(0, 10, 10, 200, 200)
    
    Repeat
      Event = WaitWindowEvent()
          
      If Event = #PB_Event_Gadget And EventGadget() = 0 
        If EventType() = #PB_EventType_LeftButtonDown Or (EventType() = #PB_EventType_MouseMove And GetGadgetAttribute(0, #PB_Canvas_Buttons) & #PB_Canvas_LeftButton)
          If StartDrawing(CanvasOutput(0))
            x = GetGadgetAttribute(0, #PB_Canvas_MouseX)
            y = GetGadgetAttribute(0, #PB_Canvas_MouseY)
            Circle(x, y, 10, RGB(Random(255), Random(255), Random(255)))
            StopDrawing()
          EndIf
        EndIf
      EndIf    
      
    Until Event = #PB_Event_CloseWindow
  EndIf