Structure Proba
 x.l
 y.l
 Text.s
 z.l
EndStructure

x.Proba

Procedure Proba(*x.Proba)
 *x\x=10
 *x\y=20
 *x\Text="Строка текста"
 *x\z=100
EndProcedure

Proba(@x)

Debug x\x
Debug x\y
Debug x\Text
Debug x\z

Dim proba(10)

Procedure ProbaArray(Array proba(1))

For i=0 To 10
 proba(i)=i
Next i

EndProcedure

ProbaArray(proba())

For i=0 To 10
 Debug proba(i)
Next i

size=ArraySize(proba())

Structure Proba
 x.l
 y.l
 Text.s
 z.l
EndStructure


ProcedureDLL Proba(*x.Proba)
 *x\x=10
 *x\y=20
 *x\Text="Строка текста"
 *x\z=100
EndProcedure

Structure Proba
 x.l
 y.l
 Text.s
 z.l
EndStructure

x.Proba

If OpenLibrary(1,"DLL.dll")
  CallFunction(1,"Proba",@x)
  Debug x\x
  Debug x\y
  Debug x\Text
  Debug x\z
EndIf

Structure ba
x.l
y.l
width.l
height.l
EndStructure

Global rrrrr.ba, *ProcPoint

ProcedureDLL razmer(*u.ba)
 
  *u\x=rrrrr\x
  *u\y=rrrrr\y
  *u\y=rrrrr\width
  *u\height=rrrrr\height
EndProcedure

Procedure OnMouseSelection(fffffff,x_x,y_y,width_x,height_y) 

  ;rrrrr\x=x_x
  ;rrrrr\y=y_y
  ;rrrrr\width=width_x
  ;rrrrr\height=height_y
  ;razmer(@rrrrr)
  If *ProcPoint
    CallFunctionFast(*ProcPoint,x_x,y_y,width_x,height_y)
  EndIf
EndProcedure 

Procedure DrawMouseSelector(fffffff) 
nnp=0
  Shared WindowProc_MouseSelectStartX, WindowProc_MouseSelectLastX 
  Shared WindowProc_MouseSelectStartY, WindowProc_MouseSelectLastY 
  Shared WindowProc_MouseSelectRect.RECT 

  If WindowProc_MouseSelectStartX > WindowProc_MouseSelectLastX 
    WindowProc_MouseSelectRect\left   = WindowProc_MouseSelectLastX 
    WindowProc_MouseSelectRect\right  = WindowProc_MouseSelectStartX 
  Else 
    WindowProc_MouseSelectRect\left   = WindowProc_MouseSelectStartX 
    WindowProc_MouseSelectRect\right  = WindowProc_MouseSelectLastX 
  EndIf 
  If WindowProc_MouseSelectStartY > WindowProc_MouseSelectLastY 
    WindowProc_MouseSelectRect\top    = WindowProc_MouseSelectLastY 
    WindowProc_MouseSelectRect\bottom = WindowProc_MouseSelectStartY 
  Else 
    WindowProc_MouseSelectRect\top    = WindowProc_MouseSelectStartY 
    WindowProc_MouseSelectRect\bottom = WindowProc_MouseSelectLastY 
  EndIf 

  hDC = GetDC_(fffffff) 
  
    ;InvertRect_(hDC,@WindowProc_MouseSelectRect)   ; изменяет пиксели( инвертирует)

    DrawFocusRect_(hDC,@WindowProc_MouseSelectRect) ;Функция DrawFocusRect использует операцию XOR при рисовании - таким образом вывод прямоугольника дважды с одними и теми же координатами стирает прямоугольник, и прямоугольник всегда будет виден, на фоне какого бы цвета он не выводился.

    ReleaseDC_(fffffff,hDC) 

EndProcedure 


Procedure WindowProc(fffffff,Msg,wParam,lParam) 

 
  Shared WindowProc_MouseSelect 
  Shared WindowProc_MouseSelectStartX, WindowProc_MouseSelectLastX 
  Shared WindowProc_MouseSelectStartY, WindowProc_MouseSelectLastY 
  Shared WindowProc_MouseSelectRect.RECT 

  Select Msg 
  
    Case #WM_LBUTTONDOWN 

         WindowProc_MouseSelect  = 1 
         WindowProc_MouseSelectStartX = lParam&$FFFF  ; определяют любое расстояние  по оси Х (без нее все время будет от нуля)
         WindowProc_MouseSelectStartY = (lParam>>16)&$FFFF  ; определяют любое расстояние  по оси Y (без нее все время будет от нуля)
 
         GetClientRect_(fffffff,winrect.RECT) 
         MapWindowPoints_(fffffff,0,winrect,2)  ;преобразует (отображает) ряд точек относительно координатного пространства одного окна  относительно координатного пространства другого окна.
         ClipCursor_(winrect)          ;ограничитель курсора в рамке окна
       ProcedureReturn 0 
    Case #WM_LBUTTONUP 
 
      If WindowProc_MouseSelect > 1 
        
         DrawMouseSelector(fffffff)  ; отлючив ее инвертация(изображение) остается
     
        If WindowProc_MouseSelectRect\left <> WindowProc_MouseSelectRect\right And WindowProc_MouseSelectRect\top <> WindowProc_MouseSelectRect\bottom 
         OnMouseSelection(fffffff,WindowProc_MouseSelectRect\left,WindowProc_MouseSelectRect\top,WindowProc_MouseSelectRect\right-WindowProc_MouseSelectRect\left,WindowProc_MouseSelectRect\bottom-WindowProc_MouseSelectRect\top) 
         SetCapture_(0) ;устанавливает захват мыши в заданном окне, принадлежащем текущему потоку.
        EndIf 
      EndIf 
      ClipCursor_(0) 
      WindowProc_MouseSelect = 0 
      ProcedureReturn 0 
 
    Case #WM_MOUSEMOVE   
      If WindowProc_MouseSelect > 0 And wParam & #MK_LBUTTON 
        If WindowProc_MouseSelect > 1 
          DrawMouseSelector(fffffff)
        Else 
          WindowProc_MouseSelect + 1 
        EndIf 
          WindowProc_MouseSelectLastX = lParam&$FFFF
          WindowProc_MouseSelectLastY = (lParam>>16)&$FFFF 
        DrawMouseSelector(fffffff) 
        SetCapture_(fffffff) 
      EndIf 
      ProcedureReturn 0 
   
  EndSelect 
   
   old=GetWindowLong_(fffffff,#GWL_USERDATA) ;извлекает информацию об определяемом окне.
  If old 
    ProcedureReturn CallWindowProc_(old,fffffff,Msg,wParam,lParam) ;  передает информацию сообщения процедуре заданного окна.
  Else 
    DefWindowProc_(fffffff,Msg,wParam,lParam) ;Функция DefWindowProc вызывается оконной процедурой по умолчанию, чтобы обеспечить обработку по умолчанию любого сообщения окна, которые приложение не обрабатывает. Эта функция гарантирует то, что обрабатывается каждое сообщение. Функция DefWindowProc вызывается с теми же самыми параметрами, принятыми оконной процедурой.
  EndIf 


EndProcedure 

ProcedureDLL SelectorImage(a, *Proc_Point)
    *ProcPoint=*Proc_Point
    old = SetWindowLong_(a,#GWL_WNDPROC,@WindowProc()) ; Устанавливает информацию для окна
    SetWindowLong_(a,#GWL_USERDATA,old) 
    
  ProcedureReturn old
EndProcedure 

ProcedureDLL SelectorFreeImage(a, old)
  SetWindowLong_(a,#GWL_WNDPROC,old) ; Устанавливает информацию для окна 
EndProcedure

Structure ba
x.l
y.l
width.l
height.l
EndStructure

Global u.ba

If OpenLibrary(1,"E:\DLLCUR.dll")<>0
  dll=1
EndIf  

Procedure vv()
  CallFunction(1,"razmer",@u)
 If u\x<>0 Or u\y<>0 Or u\width<>0 Or u\height<>0
     Debug u\x
     Debug u\y
     Debug u\width
     Debug u\height
 EndIf
 EndProcedure

Procedure DLL_Proc(x_x,y_y,width_x,height_y)
 Debug x_x
 Debug y_y
 Debug width_x
 Debug height_y
EndProcedure

If LoadImage(1,"FEN.bmp")
Else
  End
EndIf


If OpenWindow(0,100,100,500,500,"")
    ImageGadget(0,0,0,500,500,ImageID(1))
    gad=GadgetID(0)
EndIf

old=CallFunction(1,"SelectorImage",gad, @DLL_Proc())

Repeat

    ev=WaitWindowEvent()

   If dll=1
     ; vv()
   EndIf

Until ev=16

CallFunction(1,"SelectorFreeImage",gad,old)
CloseLibrary(1)

old=CallFunction(1,"SelectorImage",gad, @DLL_Proc())