PureBasic

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 

Code : Tout sélectionner

EditorGadget(#Editor_gad1, 0, 0, 400, 150, #PB_Editor_ReadOnly)