> How can I know on which screen is a window, when several screens are used ?
Does this work for you?
Module method:
Function Contains(extends scn as screen, win as window) As Boolean
if win.Top >= scn.Top and win.Left >= scn.Left and _
win.Top + win.Height <= scn.Top + scn.Height and _
win.Left + win.Width <= scn.Left + scn.Width Then
Return True
Else
Return False
End If
End Function
Window.Moved event:
Sub Moved()
Dim foundIt As Integer = -1
For i As Integer = 0 To ScreenCount-1
if screen(i).Contains(self) Then
System.DebugLog " in screen " + Str(i)
foundIt = i
Exit
Else
System.DebugLog "not in Screen " + Str(i)
End If
Next
If foundIt >= 0 Then
self.Title = "in screen " + Str(foundIt)
Else
self.Title = "between screens"
End If
End Sub
--
Steve Garman
Using REALbasic 2006r1 Professional on Windows XP Pro
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
