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
EndProcedureCode: Alles auswählen
If #WM_KEYDOWN And EventwParam() = #VK_RETURN & 1<<16Mehrfachstart sollte unterbunden werden.
