[R] Interface redimensionnable

[Benchozer]

Bonjour,

J'ai besoin de redimensionner $oRDP en fonction de $hGUI.
En d'autres mots : si $hGUI s'agrandit, $oRDP s'agrandit
Pour réduire la taille, le code marche (allez savoir pourquoi??)


J'ai le code suivant :

► Afficher le texte

Code : Tout sélectionner

     $host = "" ;<<<<<<< enter here the host name or ip address 
    $hGUI = GUICreate("Terminal server", 900, 700, -1, -1, BitOR($GUI_SS_DEFAULT_GUI,$WS_SIZEBOX,$WS_THICKFRAME))
    $oRDP = ObjCreate("MsTscAx.MsTscAx.2")
    $oRDP_Ctrl = GUICtrlCreateObj($oRDP, 0, 0, 900, 700)
    GUICtrlSetResizing(-1,GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKBOTTOM+$GUI_DOCKWID    TH+$GUI_DOCKHEIGHT) GUICtrlSetStyle($oRDP_Ctrl , $WS_VISIBLE)
    $oRDP.DesktopWidth = 900
    $oRDP.DesktopHeight = 700
    $oRDP.Fullscreen = False
    $oRDP.ColorDepth = 16
    $oRDP.AdvancedSettings3.SmartSizing = True
    $oRDP.Server = $host
    $oRDP.UserName = "" ;<<<<<<< enter here the user name 
    $oRDP.Domain = "" 
    $oRDP.AdvancedSettings2.ClearTextPassword = ""
    $oRDP.ConnectingText = "Connecting to " & $host
    $oRDP.DisconnectedText = "Disconnected from " & $host
    $oRDP.StartConnected = True
    $oRDP.Connect()
    GUISetState(@SW_SHOW, $hGUI)
    $oShel = ObjCreate("shell.application")
    $oShel_Ctrl = GUICtrlCreateObj($oShel, 0, 0, 900, 700) 
    GUICtrlSetStyle($oShel_Ctrl , $WS_VISIBLE)

    Send("#r")
    Send ("C:\Program Files (x86)\scripts\PSTools\******.bat")
    Send("{ENTER}") 

    While 1    
     $nMsg = GUIGetMsg() 
        Switch $nMsg       
          Case $GUI_EVENT_CLOSE 
           $oRDP.Disconnect() 
          Exit 
    EndSwitch WEnd

Merci beaucoup !!

[mikell]

► Afficher le texte

Code : Tout sélectionner

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

    $hGUI = GUICreate("Terminal server", 900, 700, -1, -1, BitOR($GUI_SS_DEFAULT_GUI,$WS_SIZEBOX,$WS_THICKFRAME))
    $oRDP = ObjCreate("MsTscAx.MsTscAx.2")
    $oRDP_Ctrl = GUICtrlCreateObj($oRDP, 0, 0, 800, 600)
    GUICtrlSetResizing(-1, $GUI_DOCKBORDERS) 
GUICtrlSetStyle($oRDP_Ctrl , $WS_VISIBLE)
    GUISetState(@SW_SHOW, $hGUI)

    While 1    
     $nMsg = GUIGetMsg()
        Switch $nMsg      
          Case $GUI_EVENT_CLOSE
          Exit
    EndSwitch 
WEnd

Mais attention
$GUI_DOCKLEFT => No displacement of Left side
$GUI_DOCKRIGHT => No displacement of Right side
$GUI_DOCKWIDTH => Width will not change
Ya du contradictoire là-dedans

[Benchozer]

Merci mais la tu met seulement la fenetre enfant à la taille de la fenetre parent..
Ce que je voudrais c'est que quand je redimensionne la fenetre parent, la fenetre enfant suive l'agrandissement

Merci d'avance

[mikell]

Hum avec mon bout de code, si $hGUI s'agrandit, $oRDP_Ctrl s'agrandit
Qu'est-ce qui ne marche pas ?

[Benchozer]

Moi quand je fais ca, $oRDP s'agrandit mais y a des bordures qui apparaissent..

[Benchozer]

Bonjour,

Votre solution marche mais j'aimerais que la session qui est ouverte dans le terminal serveur s'agrandisse et prenne toute la place, parce qu'avec ce code, lorsque j'agrandis, la session s'agrandit jusqu’à une taille max et ensuite des bordures grises apparaissent

[Hugues]

Salut,

Un truc de ce genre (par contre par redimessionnable, mais prend tout ton écran.)

► Afficher le texte

Code : Tout sélectionner

;==[ Création ]========:   xx/xx/20xx
;==[ Auteur ]==========:
;==[ Service ]=========:
;==[ Description ]=====:    ************************************
;==[ Modification ]====:    Dernière modification le xx/xx/20xx
;==[ Nature modification ]====:
    ;==[xx/xx/20xx: ***********************************]========

;==[Include]====
#include <GuiStatusBar.au3>
#include <Timers.au3>
#include <Date.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <Color.au3>
#include <ListViewConstants.au3>
#include <GuiListView.au3>

Opt("GUIOnEventMode", 1)

;==[Variables globales & autres]====
Global $ApplicationName = "Modèle vierge", $Version = "Demo", $Author = @UserName
Global $hGui, $hStatus, $aParts[3] = [200, 450, 200], $aGuiPos, $iMemo

;==[Programme]====
_Main()

AdlibRegister("_ScreenAdaptation")

GUIRegisterMsg($WM_SIZE, "WM_SIZE")
GUIRegisterMsg($WM_TIMER, "WM_TIMER")
$iTimer = _Timer_SetTimer($hGUI, 1000)

While GUIGetMsg() <> -3
WEnd

Func _Main()

    $Couleur1 = 0x999999
    $Couleur2 = 0xe5e5e5

    $hGUI = GUICreate($ApplicationName & " Powered By " & $Author & ". Version: " & $Version, @DesktopWidth - 100, @DesktopHeight - 100, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Quitter", $hGUI)
    $hStatus = _GUICtrlStatusBar_Create($hGUI, -1, "", $SBARS_SIZEGRIP)

    ;==[StatusBar]==============================
    _GUICtrlStatusBar_SetParts($hStatus, $aParts)
    DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", $hStatus, "wstr", 0, "wstr", 0)
    $hIcons = _WinAPI_LoadShell32Icon(265); 233 -> Icon ATTENTION,
    _GUICtrlStatusBar_SetIcon($hStatus, 0, $hIcons)
    $hIcons2 = _WinAPI_LoadShell32Icon(160); 233 -> Icon ATTENTION,
    _GUICtrlStatusBar_SetIcon($hStatus, 1, $hIcons2)
    _GUICtrlStatusBar_SetText($hStatus, "Utilisateur: " & StringUpper(@UserName) & " " & "Poste: " & @ComputerName, 1)

    $size = WinGetClientSize($aGuiPos)  ;Etait $size = WinGetClientSize(hGUI)
    _GUICtrlCreateGradient($Couleur1, $Couleur2, 0, 0, $size[0], $size[1])

    GUISetState(@SW_SHOW)

EndFunc

Func _Quitter()
    Exit
EndFunc

Func My_GUICtrlListView_AutoSizeColumns($iMemo, $iMini = 30)
    If Not IsHWnd($iMemo) Then $iMemo = GUICtrlGetHandle($iMemo)
    Local $hHeader = _GUICtrlListView_GetHeader($iMemo), $iHeader_Width, $iData_Width
    _GUICtrlListView_BeginUpdate($iMemo)
    For $iIndex = 0 To _GUICtrlListView_GetColumnCount($iMemo) - 1
        If _GUICtrlListView_GetColumnWidth($iMemo, $iIndex) = 0 Then ContinueLoop
        _GUICtrlListView_SetColumnWidth($iMemo, $iIndex, $LVSCW_AUTOSIZE_USEHEADER)
        $iHeader_Width = _GUICtrlListView_GetColumnWidth($iMemo, $iIndex)
        If @OSVersion = "WIN_XP" And $iIndex < _GUICtrlListView_GetColumnCount($iMemo) - 1 Then
            If _GUICtrlHeader_GetItemFlags($hHeader, $iIndex) / 2 > 1 Then $iHeader_Width += 30
        EndIf
        _GUICtrlListView_SetColumnWidth($iMemo, $iIndex, $LVSCW_AUTOSIZE)
        $iData_Width = _GUICtrlListView_GetColumnWidth($iMemo, $iIndex)
        If $iHeader_Width > $iData_Width Then
            _GUICtrlListView_SetColumnWidth($iMemo, $iIndex, $iHeader_Width)
        EndIf
        If _GUICtrlListView_GetColumnWidth($iMemo, $iIndex) < $iMini Then
            _GUICtrlListView_SetColumnWidth($iMemo, $iIndex, $iMini)
        EndIf
    Next
    _GUICtrlListView_EndUpdate($iMemo)
EndFunc   ;==>My_GUICtrlListView_AutoSizeColumns

Func _ScreenAdaptation()
    $WorkAera = _GetWorkArea()  ;Etait Local $WorkAera = _GetWorkArea() et non Global
    Local $aGuiPos = WinGetPos($hGui)
    If $aGuiPos[0] <> $WorkAera[0] OR $aGuiPos[1] <> $WorkAera[1] OR $aGuiPos[2] <> $WorkAera[4] OR $aGuiPos[3] <> $WorkAera[5] Then WinMove($hGui, "", $WorkAera[0], $WorkAera[1], $WorkAera[4], $WorkAera[5])
EndFunc

Func _GetWorkArea()
    Local $Area[6]
    Local $StartRect = DllStructCreate("int[4]")
    Local $PStartRect = DllStructGetPtr($StartRect)
    DllCall("user32.dll", "int", "SystemParametersInfo", "int", 48, "int", 0, "ptr", $PStartRect, "int", 0)
    $Area[0] = DllStructGetData($StartRect,1,1)
    $Area[1] = DllStructGetData($StartRect,1,2)
    $Area[2] = DllStructGetData($StartRect,1,3)
    $Area[3] = DllStructGetData($StartRect,1,4)
    $Area[4] = $Area[2] - $Area[0]
    $Area[5] = $Area[3] - $Area[1]
    Return $Area
EndFunc

Func WM_TIMER($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $ilParam

    Switch _Timer_GetTimerID($iwParam)
        Case $iTimer
            _UpdateStatusBarClock()
        EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_TIMER

Func _UpdateStatusBarClock()
   _GUICtrlStatusBar_SetText($hStatus, @TAB & StringFormat(_NowDate() & " " & "%02d:%02d:%02d", @HOUR, @MIN, @SEC), 0)
EndFunc

Func WM_SIZE($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $iwParam, $ilParam
    _GUICtrlStatusBar_Resize($hStatus)
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_SIZE

Func _GUICtrlCreateGradient($nStartColor, $nEndColor, $nX, $nY, $nWidth, $nHeight)
    Local $color1R = _ColorGetRed($nStartColor)
    Local $color1G = _ColorGetGreen($nStartColor)
    Local $color1B = _ColorGetBlue($nStartColor)

    Local $nStepR = (_ColorGetRed($nEndColor) - $color1R) / $nHeight
    Local $nStepG = (_ColorGetGreen($nEndColor) - $color1G) / $nHeight
    Local $nStepB = (_ColorGetBlue($nEndColor) - $color1B) / $nHeight

    GuiCtrlCreateGraphic($nX, $nY, $nWidth, $nHeight)
    For $i = 0 To $nHeight - $nY
        $sColor = "0x" & StringFormat("%02X%02X%02X", $color1R+$nStepR*$i, $color1G+$nStepG*$i, $color1B+$nStepB*$i)
        GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $sColor, 0xffffff)
        GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
        GUICtrlSetGraphic(-1, $GUI_GR_LINE, $nWidth, $i)
    Next
EndFunc

[Benchozer]

Merci de ta réponse.

Exactement ça mais redimensionnable et ca serait parfait

[Hugues]

Une version plus légère

► Afficher le texte

Code : Tout sélectionner

;==[ Création ]========:   xx/xx/20xx
;==[ Auteur ]==========:
;==[ Service ]=========:
;==[ Description ]=====:    ************************************
;==[ Modification ]====:    Dernière modification le xx/xx/20xx
;==[ Nature modification ]====:
    ;==[xx/xx/20xx: ***********************************]========

;==[Include]====
#include <GuiStatusBar.au3>
#include <Timers.au3>
#include <Date.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <GuiListView.au3>

Opt("GUIOnEventMode", 1)

;==[Variables globales & autres]====
Global $ApplicationName = "Modèle vierge", $Version = "Demo", $Author = @UserName
Global $hGui, $hStatus, $aParts[3] = [200, 450, 200], $aGuiPos, $iMemo, $WorkAera
global $x, $y, $w, $h
;==[Programme]====

_Main()

GUIRegisterMsg($WM_SIZE, "WM_SIZE")
GUIRegisterMsg($WM_TIMER, "WM_TIMER")
$iTimer = _Timer_SetTimer($hGUI, 1000)

While GUIGetMsg() <> -3
WEnd

Func _Main()

    $hGUI = GUICreate($ApplicationName & " Powered By " & $Author & ". Version: " & $Version, 437, 185, -1, -1, $WS_OVERLAPPEDWINDOW)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Quitter", $hGUI)
    WinSetState($hGUI, "", @SW_MAXIMIZE)
    $hStatus = _GUICtrlStatusBar_Create($hGUI, -1, "", $SBARS_SIZEGRIP)

    ;==[StatusBar]==============================
    _GUICtrlStatusBar_SetParts($hStatus, $aParts)
    DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", $hStatus, "wstr", 0, "wstr", 0)
    $hIcons = _WinAPI_LoadShell32Icon(265); 233 -> Icon ATTENTION,
    _GUICtrlStatusBar_SetIcon($hStatus, 0, $hIcons)
    $hIcons2 = _WinAPI_LoadShell32Icon(160); 233 -> Icon ATTENTION,
    _GUICtrlStatusBar_SetIcon($hStatus, 1, $hIcons2)
    _GUICtrlStatusBar_SetText($hStatus, "Utilisateur: " & StringUpper(@UserName) & " " & "Poste: " & @ComputerName, 1)

    $size = WinGetClientSize($aGuiPos)  ;Etait $size = WinGetClientSize(hGUI)
    GUISetState(@SW_SHOW)
EndFunc

Func _Quitter()
    Exit
EndFunc

Func WM_TIMER($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $ilParam

    Switch _Timer_GetTimerID($iwParam)
        Case $iTimer
            _UpdateStatusBarClock()
        EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_TIMER

Func _UpdateStatusBarClock()
   _GUICtrlStatusBar_SetText($hStatus, @TAB & StringFormat(_NowDate() & " " & "%02d:%02d:%02d", @HOUR, @MIN, @SEC), 0)
EndFunc

Func WM_SIZE($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $iwParam, $ilParam
    _GUICtrlStatusBar_Resize($hStatus)
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_SIZE
 

[Benchozer]

C'est quelles lignes qui rend possible le redimensionnement Hugues ?

Peux tu m'indiquer qu'est ce qu'il faudrait changer dans mon code.. Je vois pas

Merci en tout cas

[Hugues]

Code : Tout sélectionner

WinSetState($hGUI, "", @SW_MAXIMIZE)

te permet de mettre en plein écran ton GUI,

Code : Tout sélectionner

$WS_OVERLAPPEDWINDOW

Selon le fichier d'aide, -> Creates an overlapped window with the WS_OVERLAPPED, WS_CAPTION, WS_SYSMENU, WS_THICKFRAME, WS_MINIMIZEBOX, and WS_MAXIMIZEBOX styles. Same as the WS_TILEDWINDOW style. Sauf si je me trompe c'est une fonction incluse dans l'include GUIConstantsEx.au3
.

Sinon pour redimensionner tes contrôles, il y a cette fonction de Cautex, elle pourra peut-être t'être utile:

http://www.autoitscript.fr/forum/viewto ... 21&t=11520

Bon courage ^^

[Benchozer]

Je ne comprend pas grand chose à autoIT et la je t'avoue que c'est proche du chinois pour moi .. Mais bon..
Merci beaucoup pour ton aide !

[Hugues]

Si tu débutes avec AutoIt, je te conseille de faire des choses plus simples pour commencer, car là tu commences dans du lourd (sauf si tu es un programmeur PRO ).

Le redimesionnement des contrôles "proportionnel" à la taille de ton GUI est un sujet largement évoqué et compliqué je t'avouerai.

Moi aussi j'ai un niveau faible, commence par des p'tits essais sur les GUI et ça sera cool tu verras et on sera là pour t'aider (plus les modérateurs car ils sont costauds )

A plus et courage!

[Benchozer]

Le truc c'est que j'ai effectué un stage dans une boite ou ils m'ont confié un développement de mon niveau. Et ils m'ont prolongé en CDD pour l'été et ils me demandent ca.. Je sais que c'est dur mais il faut que j'y arrive quoi.. Je n'ai donc pas trop de temps

[Hugues]

Petite question, pourquoi tu veux que ton GUI soit redimensionnable si tu veux l'afficher en plein écran?

[Benchozer]

Je l'affiche de base en grand ecran et puis apres je peux le redimensionner (je travaille sur un gestionnaire de mur d'écrans)

[Hugues]

Ok, il a interêt d'être grand ton écran

Après je sais pas ce que tu veux afficher dans tes GUI et ce que tu veux faire?

[Benchozer]

Oui il fait 1920x1080. En fait je développe un gestionnaire de mur d'écrans et je dois ouvrir (à distance) un terminal serveur dans lequel je lancerai des applications

[Hugues]

Salut,

Vu mon niveau, je peux te proposer ça... Le Resizing c'est pas mon fort...

Code : Tout sélectionner

[spoiler=]
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>

$hGUI = GUICreate("", 640, 460, 350, 200, $WS_OVERLAPPEDWINDOW)

GUISetState (@SW_MAXIMIZE, $hGUI)
GUICtrlCreateList('Votre GUI va se redimensionner...', 0, 0, 636, 215)      ;text, left, top, width, height
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)

GUICtrlCreateButton("JE SUIS UN BOUTON", 20, 250, 240, 20)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE)   ;Le contrôle garde la même taille

;$GUI_DOCKAUTO           -> 1 resize and reposition according to new window size
;$GUI_DOCKLEFT           -> 2 Left side
;$GUI_DOCKRIGHT          -> 4 Right side
;$GUI_DOCKHCENTER        -> 8 Position will not move relative to horizontal center
;$GUI_DOCKTOP            -> 32 Top side
;$GUI_DOCKBOTTOM         -> 64 Bottom side
;$GUI_DOCKVCENTER        -> 128 Position will not move relative to vertical center
;$GUI_DOCKWIDTH          -> 256 Width will not change
;$GUI_DOCKHEIGHT         -> 512 Height will not change

;Composite resizing
;$GUI_DOCKSIZE           -> 768 (256+512) Size will not change
;$GUI_DOCKMENUBAR        -> 544 (512+32) so the control will stay at the top of window with no change in Height
;$GUI_DOCKSTATEBAR       -> 576 (512+64) so the control stay at the bottom of the window with no change in Height
;$GUI_DOCKALL            -> 802 (2+32+256+512) so the control will not move during resizing
;$GUI_DOCKBORDERS        -> 102 (2+4+32+64) so the control will grow as the window

GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
   EndSwitch
WEnd
[/spoiler]

[jguinch]

@Benchozer : C'est pas gagné ton affaire.
Le redimensionnement du contrôle en lui-même n'est pas le problème.
Le redimensionnement de l'ActiveX RDP semble ne pas être dynamique. Chez moi, non seulement j'ai les bordures dont tu parles, mais j'ai en plus un écran blanc à la place du bureau RDP...