Visualizza wikitesto di Ottenere le dimensioni della finestra di un programma esterno

Per ottenere le dimensioni (larghezza e altezza) della finestra di un programma, è possibile usare il seguente codice attivando anche i Componenti ''gb.desktop'' e ''gb.desktop.x11'':
 Public Sub Button1_Click()
 
  Dim ii As Integer
 
  ii = X11.GetWindowGeometry(<FONT Color=darkorange><I>ID_finestra_del_programma</i></font>)   <FONT Color=gray>'</font> <SUP>&#091;[[#Note|'''nota 1''']]&#093;</sup>
 
 <FONT Color=gray>' ''I valori delle dimensioni della finestra di un programma sono contenuti nel 3° e nel 4° elemento dell'array ritornato:''</font>
  Print "Larghezza: "; ii[2]
  Print "Altezza  : "; ii[3]
 
 End


==Usando le risorse della libreria esterna libX11==
Ogni finestra di un programma possiede degli attributi specificati nella Struttura ''XWindowAttributes'' della libreria di X11.
<BR>Per conoscere tali attributi si può utilizzare la funzione "XGetWindowAttributes()" della libreria condivisa: "''libX11.so.6.4.0'' ".
<BR>Tale funzione esterna richiede, fra l'altro, la specificazione del numero identificativo della finestra del programma, della quale si intende conoscere gli attributi specificati nella predetta Struttura ''XWindowAttributes''.


Mostriamo un esempio essenziale:
 Library "libX11:6.4.0"
 
 Public Struct XWindowAttributes
   x As Integer
   y As Integer
   width As Integer
   height As Integer
   border_width As Integer
   depth As Integer
   visual As Pointer
   root As Long
   classi As Integer
   bit_gravity As Integer
   win_gravity As Integer
   backing_store As Integer
   backing_planes As Long
   backing_pixel As Long
   save_under As Boolean
   colormap As Long
   map_installed As Boolean
   map_state As Integer
   all_event_masks As Long
   your_event_mask As Long
   do_not_propagate_mask As Long
   override_redirect As Boolean
   screenp As Pointer
 End Struct
 
 <FONT Color=gray>' ''Display *XOpenDisplay(char *display_name)''
 ' ''Opens a connection to the X server that controls a display.''</font>
 Private Extern XOpenDisplay(display_name As Pointer) As Pointer
 
 <FONT Color=gray>' ''Status XGetWindowAttributes(Display *display, Window w, XWindowAttributes *window_attributes_return)''
 ' ''Returns the current attributes for the specified window to an XWindowAttributes structure.''</font>
 Private Extern XGetWindowAttributes(display As Pointer, w As Long, window_attr As XWindowAttributes) As Integer
 
 <FONT Color=gray>' ''XCloseDisplay(Display *display)''
 ' ''Closes the connection to the X server for the display specified in the Display structure and destroys all windows.''</font>
 Private Extern XCloseDisplay(display As Pointer)
 
 
 Public Sub Main()
 
  Dim disp As Pointer
  Dim attr As New XWindowAttributes
 
 <FONT Color=gray>' ''Connessione al server X con impostazione di default:''</font>
  disp = XOpenDisplay(0)
  If disp == 0 Then Error.raise("Errore !")
 
  <FONT Color=red>XGetWindowAttributes</font>(disp, <FONT Color=darkorange>''num_ID_della_finestra''</font>, attr)   <FONT Color=gray>'</font> <SUP>&#091;[[#Note|'''nota 1''']]&#093;</sup>
  
 <FONT Color=gray>' ''Mostra le dimensioni in pixel della finestra del programma, specificata dal suo ID nella funzione esterna precedente:''</font>
  Print attr.width, attr.height
 
 <FONT Color=gray>' ''Chiude la libreria X11:''</font>
  XCloseDisplay(disp)
 
 End



=Note=
[1] Per ottenere il numero identificativo della finestra di un programma, vedere le seguenti pagine:
* [[Individuare ed estrarre l'ID della finestra di un programma]]
* [[Individuare ID e nome delle finestre attive, nonché il PID dei loro programmi con le risorse del Componente gb.desktop.x11]]
* [[Individuare ID e nome delle finestre attive con le risorse del Componente gb.desktop]]
* [[Individuare il nome della finestra di un programma]]