[R] Interface redimensionnable

[Hugues]

Un exemple de TommyDDR:

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)

Dim $Gui
Dim $GuiFille
Dim $Bouton[2]
Dim $TreeView
Dim $TreeItem[100]

;~ Création de la GUI
$Gui = GUICreate("test", 300, 300, -1, -1, $WS_OVERLAPPEDWINDOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")

;~ Création des divers controles
$TreeView = GUICtrlCreateTreeView(5, 5, 100, 290, BitOR($TVS_HASLINES, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
For $i = 0 To 9
    $TreeItem[$i] = GUICtrlCreateTreeViewItem(Random(0, 2000, 1), $TreeView)
Next
For $i = 10 To 99
    $TreeItem[$i] = GUICtrlCreateTreeViewItem(Random(0, 2000, 1), $TreeItem[Random(0, 9, 1)])
Next
For $i = 0 To 9
    GUICtrlSetState($TreeItem[$i], $GUI_EXPAND)
Next
$Bouton[0] = GUICtrlCreateButton("Bouton", 110, 275, 185, 20)
;~ Ajout des Resizing
GUICtrlSetResizing($TreeView, BitOR($GUI_DOCKWIDTH, $GUI_DOCKLEFT, $GUI_DOCKTOP, $GUI_DOCKBOTTOM))
GUICtrlSetResizing($Bouton[0], BitOR($GUI_DOCKHEIGHT, $GUI_DOCKLEFT, $GUI_DOCKRIGHT, $GUI_DOCKBOTTOM))
GUISetState()
GUIRegisterMsg($WM_WINDOWPOSCHANGED, "Resize")

;~ Création de la gui fille
$GuiFille = GUICreate("Fille", 185, 265, 110, 5, $WS_CHILD, -1, $Gui)
;~ Création des divers controles
$Bouton[1] = GUICtrlCreateButton("Bouton GUI Fille", 0, 0, 185, 265)
;~ Ajout des Resizing
GUICtrlSetResizing($Bouton[1], $GUI_DOCKBORDERS)
GUISetState()

While(True)
    Sleep(10)
WEnd

Func Resize($hWnd, $Msg, $wParam, $lParam)
    Local $Taille = WinGetPos($Gui)
    Local $w = $Taille[2]-131
    Local $h = $Taille[3]-73
    ToolTip($w & @CRLF & $h)
    WinMove($GuiFille, "", 110, 5, $w, $h)
EndFunc

Func quit()
    Exit
EndFunc

[Benchozer]

@Hugues, le code est bien mais comment faire pour que la liste "Votre GUI va se redimensionner" soit de la même taille que la fenêtre ??

Sinon @jguinch, comment fait on pour le rendre dynamique alors?
Moi j'ai les bordures mais mon bureau marche je vois mon poste distant :/

[Hugues]

Tu utilises

Code : Tout sélectionner

GUICtrlSetResizing(controlID, resizing))

, ControlID étant ton l'ID de ton contrôle, et resizing étant comment tu veux que ton contrôle réagisse. Après tu peux faire des combinaisons avec un BitOr().

Regarde le dernier code que j'ai posté (TommyDDR), il est parlant je pense.

[Benchozer]

Il est parlant mais lorsqu'on remplace les boutons ou les autres objets par

Code : Tout sélectionner

 $oShel = ObjCreate("shell.application")

, ca ne fonctionne plus :/

[Benchozer]

Personne ne sait comment faire avec un shell.application ??

[Hugues]

Salut,

J'ai trouvé ça sur un forum US. C'est presque ce que tu veux mais pour les modifs je ne peux rien pour toi, pas assez calé...

$width = 1024 et $height = 768 correspondent à la taille de ton Objet RDP.

Pour qu'il soit dynamique il faut contrôler en temps réel la taille de ta GUI Mère pour l'affecter à $width et $height pour que cela reste proportionnel... Enfin ça c'est dans la pratique...

Bon courage.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>

$width = 1024
$height = 768
$oRDP = ObjCreate("MsTscAx.MsTscAx")
$GUI = GUICreate("Embedded RDP control Test", $width+20, $height+20, 0, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX = GUICtrlCreateObj($oRDP, 10, 10, $width, $height)
GUICtrlSetResizing ($GUIActiveX,$GUI_DOCKAUTO)

GUISetState()

; connect to the server. if this is not done first, the child controls are not rendered.
; which is a problem, because we have to change their styles to prevent clipping
$oRDP.Server = "server"
$oRDP.Domain = "domain"
$oRDP.UserName = "user"
$oRDP.Connect()

; Determine the class name of the ATL control - it seems to be random from system to system
Opt("WinTitleMatchMode", 4)     ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
Opt("WinSearchChildren", 1)     ;0=no, 1=search children also
$sATLClass = ""
$aClasses = StringSplit(WinGetClassList($GUI,""),@LF)
For $i = 1 To $aClasses[0]
    If StringLeft($aClasses[$i],4) = "ATL:" Then
        $sATLClass = $aClasses[$i]
        ExitLoop
    EndIf
Next

; get the handles to the controls that must have their styles modified
$hUIContainerClass = ControlGetHandle($GUI, "", "[CLASS:UIContainerClass]")
$hUIMainClass = ControlGetHandle($GUI, "", "[CLASS:UIMainClass]")
$hATL = ControlGetHandle($GUI, "", "[CLASS:"&$sATLClass&"]")
ConsoleWrite("$hUIContainerClass (should not be 0 or blank):" & $hUIContainerClass & @crlf)
ConsoleWrite("$hUIMainClass (should not be 0 or blank):" & $hUIMainClass & @crlf)
ConsoleWrite("$hATL (should not be 0 or blank):" & $hATL & @crlf)

; modify the styles of the child controls to match those set by the offical client application
; this prevents clipping problems - though, I don't know why
;Const $WS_EX_NOPARENTNOTIFY = 0x4
;Const $WS_EX_NOINHERITLAYOUT = 0x100000
$hUIContainerClassStyle = BitOR($WS_CHILD, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_VISIBLE) ; 0x56000000
$hUIContainerClassStyleEx = BitOR($WS_EX_NOINHERITLAYOUT, $WS_EX_NOPARENTNOTIFY) ; 0x00100004
$hUIMainClassStyle = BitOR($WS_CHILD, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_SYSMENU, $WS_VISIBLE) ; 0x56080000
$hUIMainClassStyleEx = 0x0
$hATLStyle = BitOR($WS_CHILD, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_VISIBLE) ; 0x56000000
$hATLStyleEx = 0x0
$guiStyle = BitOR($WS_BORDER, $WS_CAPTION, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_DLGFRAME, $WS_GROUP, $WS_MAXIMIZE, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SYSMENU, $WS_TABSTOP, $WS_THICKFRAME, $WS_VISIBLE) ; 0x17CF0100
$guiStyleEx = $WS_EX_WINDOWEDGE ; 0x00000100
_SetStyle($hUIContainerClass,$hUIContainerClassStyle,$hUIContainerClassStyleEx)
_SetStyle($hUIMainClass,$hUIMainClassStyle,$hUIMainClassStyleEx)
_SetStyle($hATL,$hATLStyle,$hATLStyleEx)
_SetStyle($gui,$guiStyle,$guiStyleEx)
Func _SetStyle($hwnd,$style,$exstyle)
    DllCall("user32.dll", "long", "SetWindowLong", "hwnd", $hwnd, "int", -16, "long", $style)
    DllCall("user32.dll", "long", "SetWindowLong", "hwnd", $hwnd, "int", -20, "long", $exstyle)
EndFunc

; $WS_EX_NOPARENTNOTIFY and $WS_EX_NOINHERITLAYOUT seem to be fairly important
; This may still be important for other projects with similar problems.

AdlibRegister ( "checkconn", 1000)
Func checkconn()
    If $oRDP.Connected = 0 Then
        Exit
    EndIf
EndFunc


While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd

GUIDelete()

Exit

 

[Benchozer]

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>

$width = 1024
$height = 768
$oRDP = ObjCreate("MsTscAx.MsTscAx")
$GUI = GUICreate("Embedded RDP control Test", $width+20, $height+20, 0, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX = GUICtrlCreateObj($oRDP, 10, 10, $width, $height)
GUICtrlSetResizing ($GUIActiveX,$GUI_DOCKAUTO)

GUISetState()

; connect to the server. if this is not done first, the child controls are not rendered.
; which is a problem, because we have to change their styles to prevent clipping
[color=#FF0000]$host = "X.X.X.X"
$oRDP.Server = $host
$oRDP.Domain = ""
$oRDP.UserName = "compteAdmin"[/color]
$oRDP.Connect()

; Determine the class name of the ATL control - it seems to be random from system to system
Opt("WinTitleMatchMode", 4)     ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
Opt("WinSearchChildren", 1)     ;0=no, 1=search children also
$sATLClass = ""
$aClasses = StringSplit(WinGetClassList($GUI,""),@LF)
For $i = 1 To $aClasses[0]
    If StringLeft($aClasses[$i],4) = "ATL:" Then
        $sATLClass = $aClasses[$i]
        ExitLoop
    EndIf
Next

; get the handles to the controls that must have their styles modified
$hUIContainerClass = ControlGetHandle($GUI, "", "[CLASS:UIContainerClass]")
$hUIMainClass = ControlGetHandle($GUI, "", "[CLASS:UIMainClass]")
$hATL = ControlGetHandle($GUI, "", "[CLASS:"&$sATLClass&"]")
ConsoleWrite("$hUIContainerClass (should not be 0 or blank):" & $hUIContainerClass & @crlf)
ConsoleWrite("$hUIMainClass (should not be 0 or blank):" & $hUIMainClass & @crlf)
ConsoleWrite("$hATL (should not be 0 or blank):" & $hATL & @crlf)

; modify the styles of the child controls to match those set by the offical client application
; this prevents clipping problems - though, I don't know why
;Const $WS_EX_NOPARENTNOTIFY = 0x4
;Const $WS_EX_NOINHERITLAYOUT = 0x100000
$hUIContainerClassStyle = BitOR($WS_CHILD, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_VISIBLE) ; 0x56000000
$hUIContainerClassStyleEx = BitOR($WS_EX_NOINHERITLAYOUT, $WS_EX_NOPARENTNOTIFY) ; 0x00100004
$hUIMainClassStyle = BitOR($WS_CHILD, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_SYSMENU, $WS_VISIBLE) ; 0x56080000
$hUIMainClassStyleEx = 0x0
$hATLStyle = BitOR($WS_CHILD, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_VISIBLE) ; 0x56000000
$hATLStyleEx = 0x0
$guiStyle = BitOR($WS_BORDER, $WS_CAPTION, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_DLGFRAME, $WS_GROUP, $WS_MAXIMIZE, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SYSMENU, $WS_TABSTOP, $WS_THICKFRAME, $WS_VISIBLE) ; 0x17CF0100
$guiStyleEx = $WS_EX_WINDOWEDGE ; 0x00000100
_SetStyle($hUIContainerClass,$hUIContainerClassStyle,$hUIContainerClassStyleEx)
_SetStyle($hUIMainClass,$hUIMainClassStyle,$hUIMainClassStyleEx)
_SetStyle($hATL,$hATLStyle,$hATLStyleEx)
_SetStyle($gui,$guiStyle,$guiStyleEx)
Func _SetStyle($hwnd,$style,$exstyle)
    DllCall("user32.dll", "long", "SetWindowLong", "hwnd", $hwnd, "int", -16, "long", $style)
    DllCall("user32.dll", "long", "SetWindowLong", "hwnd", $hwnd, "int", -20, "long", $exstyle)
EndFunc

; $WS_EX_NOPARENTNOTIFY and $WS_EX_NOINHERITLAYOUT seem to be fairly important
; This may still be important for other projects with similar problems.

AdlibRegister ( "checkconn", 1000)
Func checkconn()
    If $oRDP.Connected = 0 Then
        Exit
    EndIf
EndFunc


While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd

GUIDelete()

Exit

Je change ces lignes et ca marche plus.. J'en peuuuuux plus !

Ca remet les bordures quand tu redimensionnes.. C'est incroyable :0

[Hugues]

C'est normal, tu definis comme taille de ton objet

Code : Tout sélectionner

$GUIActiveX = GUICtrlCreateObj($oRDP, 10, 10, $width, $height)

.
$width, $height ne sont pas dynamique quand tu redimensionnes.

Il faudrait peut-être une autre fonction qui tourne en boucle qui "mesure" en temps réel la taille de ton GUI pour pourvoir redimensionner en fonction ton objet...

Pfiou j'ai mal au crâne, je me comprend même plus... lol

[Benchozer]

Je sais pas si l'erreur vient de la car sans remplir les informations des lignes rouges, ca redimensionne comme il faut..

[jguinch]

Bien joué Hugues, je l'avais pas vu celui-là...
Bon, donc on a la solution pour les problèmes d'affichage (le blanc tout pourri) - il fallait appliquer un style particuliers aux différents contrôles créés par l'ActiveX RDP.

Maintenant, en ce qui concerne les bordures je pense avoir compris la raison pour laquelle il va être difficile de les supprimer (et maintenant ça me paraît logique).
Quand on créé un contrôle ActiveX RDP, il a une résolution définie par défaut (qui correspond à la taille du contrôle), qui ne peut pas être changée en cours d'utilisation (ça c'est ce que je conclue hein). Cette résolution peut être définie avec $oRDP.DesktopWidth et $oRDP.DesktopHeight avant la connexion RDP.
Il s'agît là de la taille max de la fenêtre RDP, le reste étant comblé par des bordures lors d'un redimensionnement en plus grand...
Par contre, lorsqu'on redimensionne le contrôle avec une taille inférieure à sa résolution (par défaut ou définie), des ascenseurs apparaissent. Si on veut faire disparaître les ascenseurs, on peut utiliser $oRDP.AdvancedSettings3.SmartSizing = True qui va adapter l'image (déformation) à la taille du contrôle. (bizarrement, ce paramètre n'adapte l'image que pour un redimensionnement inférieur à sa résolution.

J'ai le même comportement avec Terminals, il se pourrait donc qu'il n'y ait pas possibilité d'éliminer les bordures

Sinon, ce que tu peux essayer, c'est définir la résolution RDP de départ avec des valeurs suffisamment grandes (mais ça peut piquer les yeux sur une config multi-moniteurs
Par ex :

Code : Tout sélectionner

$oRDP.DesktopWidth = @DesktopWidth
$oRDP.DesktopHeight = @DesktopHeight

Mais là, tu n'auras pas une super qualité d'affichage..

[Benchozer]

Je comprend ta réponse mais je vois pas ce que tu veux faire avec le code que tu as mis :/

Fin je trouve pas que ca va changer quelque chose si ?

[jguinch]

Non, ça ne changera rien, à part que tu n'auras plus les bandes sur les côtés, mais à la place tu auras une résolution d'affichage qui piques les yeux...

[Benchozer]

Non ca pique pas trop les yeux ca va mais des que je clique quelque part ca se remet à la taille de départ ?? le resize marche bien mais reste pas activé quoi :/

[jguinch]

Ouais j'ai remarqué... Là je sèche, désolé.

[Benchozer]

Pas de soucis c'est deja hyper gentil de m'avoir autant aidé ! De même pour Hugues