Aktiver XP-Style und Feuerfuchs
Den Notizen fehlt noch ein Kontextmenü für Einfügen, Kopieren,
Ausschneiden und Alle Markieren

// Edit
Vorsichtshalber noch ein bissel Code

Code: Alles auswählen
Procedure WindowCallback(WindowId, message, wParam, lParam)
Select message
Case #WM_CONTEXTMENU
Select wParam
Case GadgetID(#Edit1)
DisplayPopupMenu(#Menue, GadgetID(#Edit1))
Case GadgetID(#Edit2)
DisplayPopupMenu(#Menue, GadgetID(#Edit2))
EndSelect
EndSelect
EndIf
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
Code: Alles auswählen
If #WM_KEYDOWN And EventwParam() = #VK_RETURN & 1<<16
Mehrfachstart sollte unterbunden werden.