PureBoard

Code: Alles auswählen

; Editorgadget mit PopUpMenue
EnableExplicit
Enumeration
  #Window
  #RTF_Editor_Gadget
  #S_PopUp_TextZoom            ;CreatePopupMenu
  #S_PopUp_TextZoom_Rueckgangig
  #S_PopUp_TextZoom_Ausschneiden
  #S_PopUp_TextZoom_Kopieren
  #S_PopUp_TextZoom_Einfuegen
  #S_PopUp_TextZoom_Loeschen
  #S_PopUp_TextZoom_Markieren
EndEnumeration
Global Window_0
Global Editor_0
Procedure Windows_PopUpNotiz()
EndProcedure
Procedure Windows_Callback(hwnd, uMsg, wParam, lParam) 
  Protected result
  result = #PB_ProcessPureBasicEvents 
  Select uMsg 
    Case #WM_CONTEXTMENU
      If GadgetID(#RTF_Editor_Gadget) = wParam
        DisplayPopupMenu(#S_PopUp_TextZoom, WindowID(#Window))
      EndIf       
      ProcedureReturn #PB_ProcessPureBasicEvents
  EndSelect 
  ProcedureReturn result 
EndProcedure 
; Procedure OpenWindow_0(x = 0, y = 0, width = 210, height = 110)
;   Window_0 = OpenWindow(#Window, x, y, width, height, "", #PB_Window_SystemMenu)
Window_0 = OpenWindow(#Window, 0, 0, 210, 110, "", #PB_Window_SystemMenu)
If CreatePopupMenu(#S_PopUp_TextZoom)
  MenuItem(#S_PopUp_TextZoom_Markieren, "Alles markieren   [Strg+A]")
  MenuBar()
  MenuItem(#S_PopUp_TextZoom_Ausschneiden, "Ausschneiden     [Strg+X]")
  MenuItem(#S_PopUp_TextZoom_Kopieren, "Kopieren              [Strg+C]")
  MenuItem(#S_PopUp_TextZoom_Einfuegen, "Einfügen              [Strg+V]")
  MenuItem(#S_PopUp_TextZoom_Loeschen, "Löschen               [Strg+D]")
  MenuBar()
  MenuItem(#S_PopUp_TextZoom_Rueckgangig, "Rückgängig            [Strg+Z]")
EndIf
Editor_0 = EditorGadget(#RTF_Editor_Gadget, 10, 10, 190, 90)
SetWindowCallback(@Windows_Callback())
; EndProcedure
; Procedure Window_0_MyEvents(ProEvent)
;  Select ProEvent
;     Case #PB_Event_CloseWindow
;       End
;       ProcedureReturn #False
;     Case #PB_Event_Menu
;       Select EventMenu()
;       EndSelect
;     Case #PB_Event_Gadget
;       Select EventGadget()
;       EndSelect
;   EndSelect
;   ProcedureReturn #True
; EndProcedure
; OpenWindow_0()
Define MyEvent.l , ProEvent.I
Repeat
  MyEvent.l = WaitWindowEvent()
  If MyEvent = #PB_Event_Gadget 
    ;       OpenWindow_0(MyEvent)
    Select ProEvent
      Case #PB_Event_CloseWindow
        End
        ;       ProcedureReturn #False
      Case #PB_Event_Menu
        Select EventMenu()
        EndSelect
      Case #PB_Event_Gadget
        Select EventGadget()
        EndSelect
    EndSelect
  EndIf
Until MyEvent = #PB_Event_CloseWindow