je ne sais pas si cette question a deja eté posée?
StringGadjet a la fonction souris popmenu copier coller integree mais avec des ascenseurs déclares non escamotable sinon grises
et copier coller clavier
EditorGadjet n'as pas l'option souris copier coller integree mais avec des ascenseurs escamotable avec copier coller clavier
EditorGadjet ne devrait il pas possède cette fonction intégrée??
il porte le nom d'editor mais stringgadget lui ravi le titre lol!!!
mais peut être il y a une astuce que je n'ai pas saisie
voila deux code trouves dans code archive et sur le forum
pour l'exemple :
Code : Tout sélectionner
; English forum:
; Author: Unknown (updated for PB4.00 by blbltheworm)
; Date: 23. January 2003
; OS: Windows
; Demo: No
If OpenWindow(0,200,200,300,150,"test",#PB_Window_SystemMenu)
CreateGadgetList(WindowID(0))
t$="This text goes inside a multiline StringGadget."+Chr(13)+Chr(10)
For r=2 To 10 : t$+Str(r)+Chr(13)+Chr(10) : Next
StringGadget(0,10,10,200,100,t$,#ES_MULTILINE|#ES_AUTOVSCROLL|#WS_VSCROLL|#WS_HSCROLL)
ButtonGadget(1,230,10,50,20,"Save")
ButtonGadget(2,230,40,50,20,"Load")
ButtonGadget(3,230,70,50,20,"Info")
Repeat
ev=WaitWindowEvent()
If ev=#PB_Event_Gadget
Select EventGadget()
Case 1 ; Save
If CreateFile(0,"MultiLine.txt")
WriteStringN(0,GetGadgetText(0))
CloseFile(0)
EndIf
Case 2 ; Load
If ReadFile(0,"MultiLine.txt")
A$=""
Repeat
A$+ReadString(0)+Chr(13)+Chr(10)
Until Eof(0)<>0
CloseFile(0)
SetGadgetText(0,A$)
EndIf
Case 3 ; Info
lines=SendMessage_(GadgetID(0),#EM_GETLINECOUNT,0,0)
where=SendMessage_(GadgetID(0),#EM_LINEFROMCHAR,-1,0)+1
MessageRequester("Info",Str(lines)+" lines in the box."+Chr(13)+"You are on line "+Str(where)+".",0)
EndSelect
EndIf
Until ev=#PB_Event_CloseWindow
EndIf
Code : Tout sélectionner
; Author: Andre Beer / PureBasic Team modifié par KCC et remodifier par MetalOS :D
Global IdGadgetSurvoler
OpenWindow(0, 200, 200, 200, 120, "Popup-Menu Example", #PB_Window_SystemMenu)
CreateGadgetList(WindowID(0))
EditorGadget(1, 5, 5, 150, 80)
If CreatePopupMenu(10) ; here the creating of the pop-up menu begins...
MenuItem(40, "Annuler")
MenuBar()
MenuItem(41, "Couper")
MenuItem(42, "Copier")
MenuItem(43, "Coller")
EndIf
Repeat
GetCursorPos_(@point.POINT)
Handle = WindowFromPoint_(point\X,point\Y)
IdGadgetSurvoler = GetDlgCtrlID_(Handle) ; Id du gadget survolé
Select WaitWindowEvent() ; check for window events
Case #WM_RBUTTONDOWN ; right mouse button was clicked =>
If IdGadgetSurvoler = 1
DisplayPopupMenu(10,WindowID(0),point\X,point\Y) ; now display the popup-menu
EndIf
Case #PB_Event_Menu ; an item of the popup-menu was clicked
Select EventMenu() ; get the clicked menu item...
Case 40 : Debug "Menu: Annuler"
Case 41 : Debug "Menu: Couper"
;Code Couper
Vide$ = ""
SendMessage_(GadgetID(1),#EM_GETSEL,@StartSel,@EndSel)
Buffer$ = Space(EndSel-StartSel)
SendMessage_(GadgetID(1),#EM_GETSELTEXT,0,@Buffer$)
ClearClipboard()
SetClipboardText(Buffer$)
SendMessage_(GadgetID(1),#EM_REPLACESEL,#True,@Vide$)
;Fin Couper
Case 42 : Debug "Menu: Copier"
;Code Copier
SendMessage_(GadgetID(1),#EM_GETSEL,@StartSel,@EndSel)
Buffer$ = Space(EndSel-StartSel)
SendMessage_(GadgetID(1),#EM_GETSELTEXT,0,@Buffer$)
ClearClipboard()
SetClipboardText(Buffer$)
;Fin Copier
Case 43 : Debug "Menu: Coller"
;Code coller
Buffer$ = GetClipboardText()
SendMessage_(GadgetID(1),#EM_REPLACESEL,#True,@Buffer$)
;Fin de code Coller
EndSelect
Case #PB_Event_CloseWindow
Quit = 1
EndSelect
Until Quit = 1