Popup-Menü im EditorGadget

[Donald]

Hi,

im TextGadget gibt es ja ein Popup-Menü per R-Mausklick.
Kann man das im EditorGadget auch bekommen ?

[vonTurnundTaxis]

Meinst du das Popup mit Kopieren/Einfügen/Ausschneiden?
Wenn ja: ja

[Donald]

Meinst du das Popup mit Kopieren/Einfügen/Ausschneiden?
Wenn ja: ja

ja das meine ich.

Verrate doch mal wie es geht.

[vonTurnundTaxis]

Oh... sorry ich hab mich getäuscht.
Aber Strg+c, Str+v, Str+x gehen trotzdem

[Donald]

Oh... sorry ich hab mich getäuscht.
Aber Strg+c, Str+v, Str+x gehen trotzdem

Das die Tastenkombinationen gehen weiss ich, darum ja auch
meine Frage, dann müßte doch eigentzlich auch das Menü
existieren.
Na ich werds weiter versuchen.

[125]

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

[Donald]

Hi 125,

danke klappt bestens.

Hast ja auch gleich 3 Konstanten mitgeliefert,
#WM_Copy - Kopieren
#WM_Paste - Einfügen
#WM_Cut - Ausschneiden

hier noch zwei:
#WM_Undo - Rückgängig
#WM_Clear - Löschen

Vielleicht gibt es ja was interessantes was man mit einbauen könnte.

[DarkDragon]

Hi,

im TextGadget gibt es ja ein Popup-Menü per R-Mausklick.
Kann man das im EditorGadget auch bekommen ?

Im TextGadget gibt es kein Popup-Menü per Rechtsklick mit der Maus O_o:

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

[125]

Er meinte das StringGadget
Und das Problem ist auch schon gelöst

[Ynnus]

Er meinte das StringGadget
Und das Problem ist auch schon gelöst

Editorgadget