; из кодеархива.

; English forum: http://www.purebasic.fr/english/viewtopic.php?t=6405&start=30
; Author: El_Choni (updated for PB4.00 by blbltheworm)
; Date: 19. June 2003
; OS: Windows
; Demo: No

Declare WndProc(hWnd, uMsg, wParam, lParam) 


#EN_LINK = $70B 
#ENM_LINK = $4000000 
#CFM_LINK = $20 
#CFE_LINK = $20 

Procedure WndProc(hWnd, uMsg, wParam, lParam) 
  result = #PB_ProcessPureBasicEvents 
  Select uMsg 
    Case #WM_NOTIFY 
      *el.ENLINK = lParam 
      If *el\nmhdr\code=#EN_LINK 
        If *el\msg=#WM_LBUTTONDOWN 
          StringBuffer = AllocateMemory(512) 
          txt.TEXTRANGE 
          txt\chrg\cpMin = *el\chrg\cpMin 
          txt\chrg\cpMax = *el\chrg\cpMax 
          txt\lpstrText = StringBuffer 
          SendMessage_(GadgetID(0), #EM_GETTEXTRANGE, 0, txt) 
          Debug PeekS(StringBuffer) 
          FreeMemory(StringBuffer) 
        EndIf 
      EndIf 
  EndSelect 
  ProcedureReturn result 
EndProcedure 

If OpenWindow(0, 100, 200, 195, 260, "PureBasic Window", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget)=0:End:EndIf 
If CreateGadgetList(WindowID(0))=0:End:EndIf 
EditorGadget(0, 0, 0, WindowWidth(0), WindowHeight(0)) 
SendMessage_(GadgetID(0), #EM_SETEVENTMASK, 0, #ENM_LINK|SendMessage_(GadgetID(0), #EM_GETEVENTMASK, 0, 0)) 
EditorText$ = "I don't wanna be a link,"+Chr(10)+"but I am a link,"+Chr(10)+"what do you think?" 
Link$ = "I am a link" 
SetGadgetText(0, EditorText$) 
Start = FindString(EditorText$, Link$, 1) 
SendMessage_(GadgetID(0), #EM_EXGETSEL, 0, chr.CHARRANGE) ;узнать позиции выделеного текста В СТРУКТУРУ.
SendMessage_(GadgetID(0), #EM_HIDESELECTION, #True, 0) 
SendMessage_(GadgetID(0), #EM_SETSEL, Start-1, Start+Len(Link$)-1) 
cf.CHARFORMAT2 
cf\cbSize = SizeOf(CHARFORMAT2) 
SendMessage_(GadgetID(0), #EM_GETCHARFORMAT, #SCF_SELECTION, cf) 
cf\cbSize = SizeOf(CHARFORMAT2) 
cf\dwMask|#CFM_LINK 
cf\dwEffects|#CFE_LINK 
SendMessage_(GadgetID(0), #EM_SETCHARFORMAT, #SCF_SELECTION, cf) 
SendMessage_(GadgetID(0), #EM_EXSETSEL, 0, chr) 
SendMessage_(GadgetID(0), #EM_HIDESELECTION, #False, 0) 
SetWindowCallback(@WndProc()) 
Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow 
End 

 ; табуляцию запретить, Tabulator abschalten.pb

; запрет на обработку клавиши ТАБ


Global lpPrevFunc

Procedure RichEditProc(hWnd,uMsg,wParam,lParam)
  If wParam = #VK_TAB
    ProcedureReturn 0
  EndIf
  ProcedureReturn CallWindowProc_(lpPrevFunc,hWnd,uMsg,wParam,lParam)  
EndProcedure

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  EditorGadget(1,10,10,480,230)
  
  lpPrevFunc = SetWindowLongPtr_(GadgetID(1),#GWL_WNDPROC,@RichEditProc())
  
  Repeat :
    Event = WaitWindowEvent()
    
    
  Until Event = #PB_Event_CloseWindow
EndIf

; ОБРАБОТКА ГОРЯЧИХ КЛАВИШ ПУРИКОМ ИМЕЕТ СВОИ НЕДОСТАТКИ:
; - НАПРИМЕР ПРОБЕЛ ПРИХОДИТМЯЧ ВСТАВЛЯТЬ САМОМУ, ТАК SendMessage_(GadgetID(1),#EM_REPLACESEL,0,@"ПРОБЕЛ")
; - КЛАВИШИ ПРИВЯЗАНЫ КО ВСЕМУ ОКНУ С ЕГО ГАДЖЕТАМИ. ПО ЭТОМУ РЕДАКТОРУ ДОСТАЕТСЯ.

#Edit = 1
#Window = 0
W = OpenWindow(#Window, 50, 150, 500, 230, "Нажми Esc, пробел или / * на цифровой клаве.", #PB_Window_SystemMenu | $00CF0000)

E = EditorGadget(#Edit,10,10,480,140,0)
AddGadgetItem(#Edit, - 1 , "" + #EM_UNDO + "   " + #EM_REDO )
AddGadgetItem(#Edit, - 1 , "" + W + "   " + E )

ButtonGadget(5,10,150,130,20,"1 #WM_PASTE",0)
ButtonGadget(6,10,170,130,20,"2 #EM_REPLACESEL",0)
ButtonGadget(7,10,190,130,20,"3 Message",0)
  
AddKeyboardShortcut(#Window, #PB_Shortcut_Escape  , 123) ; Esc
AddKeyboardShortcut(#Window, #PB_Shortcut_Divide  , 124) ; на цифровой клаве /
AddKeyboardShortcut(#Window, #PB_Shortcut_Multiply, 125) ; на цифровой клаве *
;- ТЕПЕРЬ ПРОБЕЛ НЕ БУДЕТ ВВОДИТСЯ В РЕДАКТОРЕ.
AddKeyboardShortcut(#Window, #PB_Shortcut_Space, 126)    ; пробел...


AddKeyboardShortcut(#Window, #PB_Shortcut_Control | #PB_Shortcut_C, 127 )    ; ТЕПЕРЬ НУЖНО САМОМУ КОПИРОВАТЬ СОДЕРЖИМОЕ РЕДАКТОРА.
AddKeyboardShortcut(#Window, #PB_Shortcut_Control | #PB_Shortcut_V, 128 )    ; ТЕПЕРЬ НУЖНО САМОМУ ВСТАВЛЯТЬ СОДЕРЖИМОЕ РЕДАКТОРА.
AddKeyboardShortcut(#Window, #PB_Shortcut_Control | #PB_Shortcut_Z, 129 )    ; ТЕПЕРЬ НУЖНО САМОМУ ДЕЛАТЬ ОТМЕНУ ДЛЯ ТЕКСТА РЕДАКТОРА.
;AddKeyboardShortcut(#Window, #PB_Shortcut_Tab, 130 )    ;  ДАНАЯ БЛОКИРУЕТ ПЕРЕКЛЮЧЕНИЕ МЕЖДУ ГАДЖЕТАМИ КНОПКОЙ БАБУЛЯЦИИ.

Repeat
    Event = WaitWindowEvent();
    Debug Str(Event)+" Event"; выводит все события
    Debug  Str(EventMenu() )+" EventMenu";выводит последнюю нажатую клавишу, точнее код описаный в AddKeyboardShortcut(0, #PB_Shortcut_Escape, 123) то выведет- 123
    If Event=#PB_Event_Menu: ;проверка что произошло событие, нажата клавиша или выбрато меню(меню неделал)
      Select  EventMenu()
        Case 123:Event=#PB_Event_CloseWindow: Debug "   +++     Нажат Esc, завершение программы."; код какй клавиши проверяем, в нашем случае 123, а она присвоена Esc в - AddKeyboardShortcut(0, #PB_Shortcut_Escape, 123)
        Case 124: Debug "   +++     Нажат на цифровой клаве /"
        Case 125: Debug "   +++     Нажат на цифровой клаве *"
        Case 126: Debug "   +++     Нажат пробел"
            If GetActiveGadget() = #Edit
              SendMessage_(GadgetID(1),#EM_REPLACESEL,0,@"ПРОБЕЛ") ; ТАК МОЖНО ВСТАВЛЯТЬ ПРОБЕЛ. Я ПО ПРИКОЛУ НАПИСАЛ ЕГО ТЕКСТОМ.
              
            EndIf

            
        Case 127: Debug "   +++     Нажат Control-C"
          
        Case 128: Debug "   +++     Нажат Control-V"
          SendMessage_(GadgetID(1),#WM_PASTE,0,0)
        Case 129: Debug "   +++     Нажат Control-Z"
        Case 130: Debug "   +++     Нажат TAB"
          
            
        Default: Debug "   +++     Не понятно что нажато" ; тут кажется никогда не сработает, но поставим на всякий случай.
      EndSelect
    EndIf
    
    If Event=#PB_Event_Gadget: ;проверка что произошло событие, нажата клавиша или выбрато меню(меню неделал)
      Select  EventGadget ()
        Case 5 :Debug "   +++     ВСТАВКА ТЕКСТА С БУФФЕРА ОБМЕНА"
          SendMessage_(GadgetID(1),#WM_PASTE,0,0)
        Case 6: 
          SendMessage_(GadgetID(1),#EM_REPLACESEL,0,@"Привет, я вставился удачно.")
        Case 7: 
          If #PB_MessageRequester_Yes = MessageRequester( "Я вставка текста " , " ВЫЗЫВАЛИ?, ЧТО НЕТ? НУ Я ПОЙДУ, нажмите отмену если не согласны" , #PB_MessageRequester_YesNo )
            SendMessage_(GadgetID(1),#EM_REPLACESEL,0,@" Вы согласились на вставку. ")
          EndIf
          
          
        Default: Debug "   +++     Не понятно что нажато" ; тут кажется никогда не сработает, но поставим на всякий случай.
      EndSelect
    EndIf
  Until Event = #PB_Event_CloseWindow;
  

; ++++++можно перехватить вставку текста в редактор который посылается
; через SendMessage_(GadgetID(1),#WM_PASTE,0,0),
; это не зависимо внутри проги или от другой проги зная хендл гаджета.

; ---как обрабатывать вставку клавой пока думаю, там нужн запоминать что нажата контрол а потом последняя буква.
; +++++ПЕРЕХВАТ РЕАЛИЗОВАНО КЛАВОЙ, ОБРАБОТКА СОЧЕТАНИЕ CTRL-V. НЕ ПОЗВОЛЯЕМ ВСТАВЛЯТЬ ПУТЕМ ОБНУЛЕНИЯ ПЕРЕДАЧИ СООБЩЕНИЯ ИЛИ ПРОСТО ProcedureReturn 0.

Global num, W,E
Global lpPrevFunc 
Procedure LoWord(value) ; LoWord***
 ProcedureReturn value & $FFFF 
EndProcedure 

Procedure HiWord(value) ; HiWord***
 ProcedureReturn value >> 16 & $FFFF 
EndProcedure 

Procedure WndProc(hWnd, uMsg, wParam, lParam) 
;   Debug "-------WndProc   " + hWnd+ "  " +uMsg+ "  " + wParam+ "  " + lParam
   result = #PB_ProcessPureBasicEvents 
  
  ProcedureReturn result 
EndProcedure 

Procedure RichEditProc(hWnd,uMsg,wParam,lParam) ; это видимо для редактора только
  Static Ctrl 
  
  Debug ""+num+"  ++++++++++  RichEditProc  "+hWnd +"  "+ uMsg +"  "+  wParam +"  "+  lParam : num+1
  Select uMsg
    Case #WM_COPY ; 769
      Debug "+++++++769 #WM_COPY  "+#WM_COPY
    Case #WM_PASTE ; 770 
      Debug "+++++++770 #WM_PASTE  "+#WM_PASTE
      MessageRequester(  "ВНИМАНИЕ!!","Вы хотели вставить текст в редактор, но мы перехватили его. Читайте:" +
                                      #LF$ + GetClipboardText() )
      ProcedureReturn 0
    Case #EM_UNDO
      Debug "+++++++#EM_UNDO  "+#EM_UNDO
    Case #EM_REDO
      Debug "+++++++#EM_REDO  "+#EM_REDO
    Case  #EM_REPLACESEL
      Debug "+++++++ #EM_REPLACESEL  "+#EM_REPLACESEL
    Case  #WM_CUT
      Debug "+++++++ #WM_CUT  "+#WM_CUT

  EndSelect
  
  If uMsg = 256 And wParam = #VK_CONTROL ;	CTRL клавиша  ;#VK_TAB
    Ctrl = 1
;     Debug "+--нажата-----Ctrl = 1, #VK_CONTROL	CTRL клавиша"
  ElseIf uMsg = 257 And wParam = #VK_CONTROL
    Ctrl = 0
    Debug "+---одпущена----Ctrl = 0, #VK_CONTROL	CTRL клавиша"
    
  EndIf
  If Ctrl = 1  And  uMsg = 256 And wParam = #VK_V
    Debug "+--нажата----#VK_V клавиша"
    Debug  "++++++++++++++++ВСТРЕТИЛИ КОМБИНАЦИЮ КЛАВИШ ДЛЯ ВСТАВКИ ТЕКСТА КЛАВИАТУРОЙ"
    ;- СТРАННАЯ ШТУКА, если выполнить команду сообщения, то текст не вставляется в редактор, хотя вне процедуры все работает.
;     MessageRequester(  "ВНИМАНИЕ!!","Вы хотели вставить текст в редактор используя клавиатуру, но мы перехватили и жто сообщение.  Но позволили вставить его, ПРАВДА ЭТО НЕ СЛУЧИТСЯ ПОТОМУ ЧТО ЕГО НУЖНО ВСТАВИТЬ ПОСЫЛАЯЯ СООБЩЕНИЕ КАК У КНОПКИ. Читайте:" +
;                                     #LF$ + GetClipboardText() )
;  Debug GetClipboardText();  текст по прежнему содержится в буфере и выводится нормально.
    
    S$ = " МЫ ТУТ НЕМНОГО СВОЕГО ТЕКСТА ВСТАВИМ,   А ВЫ ХОТЕЛИ:  " + GetClipboardText()
    SendMessage_(GadgetID(1),#EM_REPLACESEL,0,@ S$ )
    ProcedureReturn 0
  EndIf
  
  
  ProcedureReturn CallWindowProc_(lpPrevFunc,hWnd,uMsg,wParam,lParam)  ; видимо отдаем сообщение дальше, чтобы кому надо обработал.
  
EndProcedure


  W = OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
If W
  E = EditorGadget(1,10,10,480,100,0)
  lpPrevFunc = SetWindowLongPtr_(GadgetID(1),#GWL_WNDPROC,@RichEditProc())
  
  AddGadgetItem(1, - 1 , "" + #EM_UNDO + "   " + #EM_REDO )
  AddGadgetItem(1, - 1 , "" + W + "   " + E )

  ButtonGadget(5,150,150,130,20,"Применить #WM_PASTE",0)
  
  SetWindowCallback(@ WndProc() ) 
  
  
Repeat
EventID=WaitWindowEvent()
If EventID=#PB_Event_Gadget
  Select EventGadget()
    Case 5
      SendMessage_(GadgetID(1),#WM_PASTE,0,0)
      ; АНАЛОГИЧНО МОЖЕТ ЛЮБАЯ ПРОГА ПЕРЕДАТЬ ТАКОЕ СООБЩЕНИЕ ЗНАЯ ХЕНДЛ РЕДАКТОРА.
      Debug GetClipboardText()
  EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
EndIf