; ****************************************************************************
; * By PBFrance : http://www.pbfrance.com/?url=source&cmd=viewer&val=77
; ****************************************************************************

;
; INITIALISATION ET RECHERCHE DES ECRANS.
;

Structure desktops
  number.l
  DesktopWidth.l [4]
  DesktopHeight.l[4]
EndStructure

Global sysdesktops.desktops

Procedure.b Desktops_scan()
;
; RECHERCHE DES ECRANS CONNECTES.
;
  Protected.i i
  Protected.b bresult = #False
  
  sysdesktops\number = ExamineDesktops()
  If sysdesktops\number >= 0
    For i=0 To sysdesktops\number - 1
      sysdesktops\DesktopWidth[i]   = DesktopWidth(i)
      sysdesktops\DesktopHeight[i]  = DesktopHeight(i)
    Next i
    bresult = #True
  EndIf
  ;
  ProcedureReturn bresult

EndProcedure

Desktops_scan()

;
; ROUTINE DE RECHERCHE DU NUMERO DE L'ECRAN
;

Procedure.l monitor_numberfind(windows.i)
;
; ROUTINE DE RECHERCE DE LA FENETRE SUR L'ECRAN.
;
  Protected.i i, fullresx, number = 1, fullwinx = WindowX(windows)
  
  If sysdesktops\number > 1
    If fullwinx > sysdesktops\DesktopWidth[0]
      For i=0 To sysdesktops\number - 1
        fullresx + sysdesktops\DesktopWidth[i]
        If fullwinx - fullresx > 0
          number = sysdesktops\number - i
        EndIf
      Next i
    EndIf
  EndIf
  ProcedureReturn number

EndProcedure

;
; 'MAIN', ROUTINE D'EXEMPLE DU PROGRAMME.
;

If OpenWindow(0, 0, 0, 220, 100, "Exemple...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ;
  ;
  Debug monitor_numberfind(0) ; sur qu'elle ecran?
  ;
  ;
  Repeat
    event = WaitWindowEvent()
    If event = #PB_Event_MoveWindow
      Debug monitor_numberfind(0) ; sur qu'elle ecran, vu que l'on a bouge la fenêtre?
    EndIf
  Until event = #PB_Event_CloseWindow
EndIf