ja das meine ich.vonTurnundTaxis hat geschrieben:Meinst du das Popup mit Kopieren/Einfügen/Ausschneiden?
Wenn ja: ja
Das die Tastenkombinationen gehen weiss ich, darum ja auchvonTurnundTaxis hat geschrieben:Oh... sorry ich hab mich getäuscht.
Aber Strg+c, Str+v, Str+x gehen trotzdem
Code: Alles auswählen
Enumeration
#Window_0
#E_0
EndEnumeration
Global Proc
Procedure EditorProc(hWnd,Msg,wParam,lParam)
If Msg = #WM_CONTEXTMENU
DisplayPopupMenu(0,WindowID())
EndIf
ProcedureReturn CallWindowProc_(Proc,hWnd,Msg,wParam,lParam)
EndProcedure
Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 0, 600, 300, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
If CreateGadgetList(WindowID())
EditorGadget(#E_0, 110, 40, 400, 190, "")
EndIf
EndIf
EndProcedure
PopupMenu=CreatePopupMenu(0)
MenuItem(1, "Cut")
MenuItem(2, "Copy")
MenuItem(3, "Paste")
Open_Window_0()
Proc=SetWindowLong_(GadgetID(1),#GWL_WNDPROC,@EditorProc())
Repeat
Event=WaitWindowEvent()
Select Event
Case #PB_EventMenu
Select EventMenuID()
Case 3
SendMessage_(GadgetID(1),#WM_Paste,0,0)
Case 2
SendMessage_(GadgetID(1),#WM_Copy,0,0)
Case 1
SendMessage_(GadgetID(1),#WM_Cut,0,0)
EndSelect
EndSelect
ForEver
Im TextGadget gibt es kein Popup-Menü per Rechtsklick mit der Maus O_o:Donald hat geschrieben:Hi,
im TextGadget gibt es ja ein Popup-Menü per R-Mausklick.
Kann man das im EditorGadget auch bekommen ?
Code: Alles auswählen
#WindowWidth = 200
#WindowHeight = 20
#WindowFlags = #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_SystemMenu
hWnd = OpenWindow(0, 0, 0, #WindowWidth, #WindowHeight, #WindowFlags, "")
CreateGadgetList(hWnd)
TextGadget(0, 0, 0, 200, 20, "Wo gibts hier ein Popup Menü?")
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
End
Editorgadget125 hat geschrieben:Er meinte das StringGadget
Und das Problem ist auch schon gelöst