Differenze tra le versioni di "Modificare le dimensioni della finestra di un programma con le funzioni del API di X11"
Da Gambas-it.org - Wikipedia.
| (2 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
| − | Per modificare le dimensioni della finestra di un programma esterno si può utilizzare la funzione ''XResizeWindow()'' della libreria condivisa | + | Per modificare le dimensioni della finestra di un programma esterno si può utilizzare la funzione ''XResizeWindow()'' della libreria condivisa: "''libX11.so.6.4.0'' ". |
Tale funzione esterna non modifica le dimensioni dei bordi della finestra, e richiede, fra l'altro, la specificazione del numero identificativo della finestra del programma da chiudere. | Tale funzione esterna non modifica le dimensioni dei bordi della finestra, e richiede, fra l'altro, la specificazione del numero identificativo della finestra del programma da chiudere. | ||
| − | |||
Mostriamo un esempio essenziale: | Mostriamo un esempio essenziale: | ||
| − | Library "libX11:6. | + | Library "libX11:6.4.0" |
<FONT Color=gray>' ''Display *XOpenDisplay(char *display_name)'' | <FONT Color=gray>' ''Display *XOpenDisplay(char *display_name)'' | ||
' ''Opens a connection to the X server that controls a display.''</font> | ' ''Opens a connection to the X server that controls a display.''</font> | ||
| − | Private Extern XOpenDisplay( | + | Private Extern XOpenDisplay(display_name As Pointer) As Pointer |
<FONT Color=gray>' ''XResizeWindow(Display *display, Window w, unsigned int x, unsigned int y)'' | <FONT Color=gray>' ''XResizeWindow(Display *display, Window w, unsigned int x, unsigned int y)'' | ||
' ''Changes the inside dimensions of the specified window, not including its borders.''</font> | ' ''Changes the inside dimensions of the specified window, not including its borders.''</font> | ||
| − | Private Extern XResizeWindow( | + | Private Extern XResizeWindow(display As Pointer, w As Long, width As Integer, height As Integer) |
<FONT Color=gray>' ''XCloseDisplay(Display *display)'' | <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> | ' ''Closes the connection to the X server for the display specified in the Display structure and destroys all windows.''</font> | ||
| − | Private Extern XCloseDisplay( | + | Private Extern XCloseDisplay(display As Pointer) |
| Riga 25: | Riga 24: | ||
<FONT Color=gray>' ''Connessione al server X ed impostazione di default:''</font> | <FONT Color=gray>' ''Connessione al server X ed impostazione di default:''</font> | ||
| − | + | disp = XOpenDisplay(0) | |
| + | If disp == 0 Then Error.Raise("Errore !") | ||
| − | + | <FONT Color=#B22222>XResizeWindow(disp, ''num_ID_della_finestra'', 50, 200)</font> | |
<FONT Color=gray>' ''Chiude la libreria:''</font> | <FONT Color=gray>' ''Chiude la libreria:''</font> | ||
| − | + | XCloseDisplay(disp) | |
'''End''' | '''End''' | ||
| − | |||
Versione attuale delle 16:06, 1 mag 2023
Per modificare le dimensioni della finestra di un programma esterno si può utilizzare la funzione XResizeWindow() della libreria condivisa: "libX11.so.6.4.0 ".
Tale funzione esterna non modifica le dimensioni dei bordi della finestra, e richiede, fra l'altro, la specificazione del numero identificativo della finestra del programma da chiudere.
Mostriamo un esempio essenziale:
Library "libX11:6.4.0"
' Display *XOpenDisplay(char *display_name)
' Opens a connection to the X server that controls a display.
Private Extern XOpenDisplay(display_name As Pointer) As Pointer
' XResizeWindow(Display *display, Window w, unsigned int x, unsigned int y)
' Changes the inside dimensions of the specified window, not including its borders.
Private Extern XResizeWindow(display As Pointer, w As Long, width As Integer, height As Integer)
' XCloseDisplay(Display *display)
' Closes the connection to the X server for the display specified in the Display structure and destroys all windows.
Private Extern XCloseDisplay(display As Pointer)
Public Sub Main()
Dim disp As Pointer
' Connessione al server X ed impostazione di default:
disp = XOpenDisplay(0)
If disp == 0 Then Error.Raise("Errore !")
XResizeWindow(disp, num_ID_della_finestra, 50, 200)
' Chiude la libreria:
XCloseDisplay(disp)
End
