PureBoard

Code: Alles auswählen

;******************************************************************************
; On mouse Over Demo
; Peter Kriegel http://www.network-gui.de 30.April.2005
; if the code is selfexplaining in englisch, i  use the German explanation only
;
; Demonstrate how you get easy an "on Mouse over" event from a Gadget
; only for Gadgets wich are rectangular 
; Demonstriert wie man leicht ein On Mouse Over ereignis (event) von einem Gadget bekommt
; nur für Gadgets die rechteckige werte liefern
;******************************************************************************

;Procedure delivers 1 if the Mouse is ove the Gadget and 0 if is not
;Prozedur liefert 1 wenn die Maus über dem Gadget ist und 0 wenn nicht
;******************************************************************************
Procedure.b onMouseOver(GadgedNr)
  X = GadgetX(GadgedNr) ; queries Gadget X erfragen
  Y = GadgetY(GadgedNr) ; queries Gadget Y erfragen
  Mx = WindowMouseX() ; queries Mouse X erfragen
  My =WindowMouseY() ; queries Mouse Y erfragen
  ; in the if, i do the rectangular calculation and the compare with the Mousecoordinates
  ; in der if abfrage wird das Rechteckberechnet und mit den Mausekoordinaten verglichen
  ; GadgetWidth(GadgedNr) Gadget Breite erfragen / GadgetHeight(GadgedNr) Gadget Höhe erfragen
  If Mx > X And Mx < (X + GadgetWidth(GadgedNr)) And My > Y And My < (Y + GadgetHeight(GadgedNr) )
    ProcedureReturn 1 ; Mouse is over the Gadget ; Maus ist über dem Gadget
  EndIf
  ProcedureReturn 0 ; Mouse is not over the Gadget ; Maus ist nicht über dem Gadget
EndProcedure
;******************************************************************************
; begin Create Window and Gadgets ; Beginn Fenster und Gadgets erstellen
If OpenWindow(1, 216, 0, 260, 135,  #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_Invisible , "On Mouse over Demo")
  If CreateGadgetList(WindowID())
    ButtonGadget(1, 30, 80, 50, 25, "No")
    ; Paint first Image vor the Yes Button ; Das erste Bild für den Yes Knopf malen
    If CreateImage(1, 45, 20)
      If StartDrawing(ImageOutput()) ; das malen Starten
        DrawingMode(1)
        Box(0, 0, 45, 20 ,RGB($EC,$E9,$D8))
        Locate(10, 3) 
        DrawText("Yes")
        StopDrawing(); dont forget !!  ; das malen Stoppen nicht vergessen !!
      EndIf
      ; Paint second Image vor the Yes Button ; Das zweite Bild für den Yes Knopf malen
      If CreateImage(2, 45, 20)
        If StartDrawing(ImageOutput()) ; das malen Starten
          DrawingMode(1)
          Box(0, 0, 45, 20 ,RGB($0,$80,$FF))
          Locate(5, 3) 
          DrawText("Sure?")
          StopDrawing(); dont forget !!  ; das malen Stoppen nicht vergessen !!
        EndIf
      EndIf
    ButtonImageGadget(2, 100, 80, 50, 25, UseImage(1))  ; the Yes Button ; Der Yes Knopf
    EndIf
    TextGadget(3,30,20,200,20,"Haben Sie einen kleinen Penis ?",#PB_Text_Center)
    TextGadget(4,30,50,200,20,"Do you have a tiny dick ?",#PB_Text_Center)
  EndIf
EndIf
HideWindow(1,0)
; end Window stuff + Gadget ; Ende Fenster + Gadget  
;******************************************************************************
toggle = 0 ; Position switch Variable for Jumping Button ; Position Schalt Variable für den Springenden Knopf
  Repeat 
    EventID = WaitWindowEvent() 
    If EventID <> 0 ; is true every Window event ; wird bei jedem Fensterereignis ausgeführt
      If onMouseOver(1) ; If the Mouse is over the Gadget1  then .... ; Wenn die Mause über dem Gadget1 ist dann .... 
        If toggle ; .... let the button1 jump ; .... lass den Knopf1 springen
          ResizeGadget(1,GadgetX(1) - 140 ,-1,-1,-1) ; move the Button in X - 200 ; verschiebe den Knopf in X - 200
          ;UpdateWindow_(WindowID(1)) ; winAPI perhapst needed, on winXP not ; winAPI vieleicht nötig, auf winXP nicht
          toggle = 0
        Else
          ResizeGadget(1,GadgetX(1) + 140 ,-1,-1,-1); move the Button in X + 200 ; verschiebe den Knopf in X + 200
          ;UpdateWindow_(WindowID(1)) ; winAPI perhapst needed, on winXP not ; winAPI vieleicht nötig, auf winXP nicht
          toggle = 1        
        EndIf
      EndIf
      If onMouseOver(2) ; If the Mouse is over the Gadget2  then .... ; Wenn die Mause über dem Gadget2 ist dann .... 
        SetGadgetState(2,UseImage(2)) ; .... use Image2 for the button2 .... ; .... benutze das Image2 für den Knopf2....
      Else
        SetGadgetState(2,UseImage(1))  ; .... else use Image1 for the button2 ; .... sonnst benutze das Image1 für den Knopf2
      EndIf
    EndIf
    Select EventID ; remainig Window event ; die restlichen Fensterereignisse
    Case #PB_Event_CloseWindow
      ;End ; The Window doesn´t close on this event !!; Das Fenster wird hier nicht geschlossen!!
    Case #PB_Event_Gadget
      Select EventGadgetID()
        Case 2 ; if Button Yes is Pressed ; Wenn der Yes Knopf gedrückt wurde
          MessageRequester("Poor Boy!!", "Armer Junge!!", #MB_OK|#MB_ICONWARNING)
          End ; here ends all ;Und alles zuende
      EndSelect
  EndSelect
ForEver
End

Code: Alles auswählen

Procedure IsMouseOverGadget(gadget.l) 
    wnd.l=GadgetID(gadget.l)
    GetWindowRect_(wnd,re.RECT) 
    re\Left = re\left 
    re\top  = re\top 
    re\right  = re\right 
    re\bottom  = re\bottom 
    GetCursorPos_(pt.POINT) 
    Result = PtInRect_(re,pt\x,pt\y) 
    ProcedureReturn Result 
EndProcedure 

Code: Alles auswählen

    re\Left = re\left 
    re\top  = re\top 
    re\right  = re\right 
    re\bottom  = re\bottom

Code: Alles auswählen

Procedure IsMouseOverGadget(gadget.l) 
    wnd.l=GadgetID(gadget)
    If wnd
      GetWindowRect_(wnd,re.RECT)
      GetCursorPos_(pt.POINT) 
      ProcedureReturn PtInRect_(re,pt\x,pt\y)
    EndIf
EndProcedure