Resize Notepad Windows And My GUI

[DCCD]

Hey there, is there any idea "WinGetPos"

I need to do something, If Resize Notepad My GUI Do the same? HOW?!

[bo8ster]

What exactly are you trying to do? Do you have any code?

[DCCD]

#include <GUIConstants.au3>

WinWaitActive("Untitled - Notepad")
$size = WinGetPos("Untitled - Notepad")
$var = PixelGetColor($size[0]+100,$size[1]+300)

;
;


$Form1 = GUICreate ("My GUI",400 ,400,400,400 ,0x80000000, 0x00000080)

GUISetBkColor ($var)

GUISetState  ()


While 1
    if WinActive ("Untitled - Notepad") Then
        $1=1
    Else
        $1=0
    EndIf
    WinSetOnTop("My GUI", "", $1)
    $state = WinGetState("Untitled - Notepad", "")
    If BitAnd($state, 16) Then
    Exit
    Else
    WinMove($Form1,"",$size[0]+10,$size[1]+200)
    EndIf
    $size = WinGetPos("Untitled - Notepad")
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

Edited April 16, 2009 by DCCD

[bo8ster]

Adding "WinMove($Form1,"",$size[0],$size[1], $size[2],$size[3])" does work but there is heaps of flicker.

Either way, you want to get the values from the notepad window then apply them to your form.

[MrCreatoR]

expandcollapse popup

#include <GuiConstantsEx.au3>

Run(@WindowsDir & "\Notepad.exe")
WinWait("[CLASS:Notepad]")

Global $aNotepadWin_Pos = WinGetPos("[CLASS:Notepad]")

$hGUI = GUICreate("Test GUI")
WinMove($hGUI, "", $aNotepadWin_Pos[0], $aNotepadWin_Pos[1], $aNotepadWin_Pos[2], $aNotepadWin_Pos[3])
WinSetOnTop($hGUI, "", 1)

GUISetState(@SW_SHOW, $hGUI)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    
    $aCurrent_NotepadWin_Pos = WinGetPos("[CLASS:Notepad]")
    
    If IsArray($aCurrent_NotepadWin_Pos) And Not _ArrayCompare($aNotepadWin_Pos, $aCurrent_NotepadWin_Pos) Then
        $aNotepadWin_Pos = $aCurrent_NotepadWin_Pos
        WinMove($hGUI, "", $aNotepadWin_Pos[0], $aNotepadWin_Pos[1], $aNotepadWin_Pos[2], $aNotepadWin_Pos[3])
    EndIf
WEnd

Func _ArrayCompare(ByRef $aArray1, ByRef $aArray2, $iCaseSense=1)
    Local $iUbound1 = UBound($aArray1)
    Local $iUbound2 = UBound($aArray2)
    
    If $iUbound1 <> $iUbound2 Then Return 0
    
    For $i = 1 To $iUbound1-1
        If ($iCaseSense And ($aArray1[$i] == $aArray2[$i]) = False) Or _
            (Not $iCaseSense And $aArray1[$i] <> $aArray2[$i]) Then Return 0
    Next
    
    Return 1
EndFunc

Edited April 16, 2009 by MrCreatoR

[DCCD]

Really Awesome

MrCreatoR , Thank you so much Is There Anything Autoit Can't Do?

expandcollapse popup

#include <GuiConstantsEx.au3>

Run(@WindowsDir & "\Notepad.exe")
WinWait("[CLASS:Notepad]")

Global $aNotepadWin_Pos = WinGetPos("[CLASS:Notepad]")

$hGUI = GUICreate("Test GUI")
WinMove($hGUI, "", $aNotepadWin_Pos[0], $aNotepadWin_Pos[1], $aNotepadWin_Pos[2], $aNotepadWin_Pos[3])
WinSetOnTop($hGUI, "", 1)

GUISetState(@SW_SHOW, $hGUI)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    
    $aCurrent_NotepadWin_Pos = WinGetPos("[CLASS:Notepad]")
    
    If IsArray($aCurrent_NotepadWin_Pos) And Not _ArrayCompare($aNotepadWin_Pos, $aCurrent_NotepadWin_Pos) Then
        $aNotepadWin_Pos = $aCurrent_NotepadWin_Pos
        WinMove($hGUI, "", $aNotepadWin_Pos[0], $aNotepadWin_Pos[1], $aNotepadWin_Pos[2], $aNotepadWin_Pos[3])
    EndIf
WEnd

Func _ArrayCompare(ByRef $aArray1, ByRef $aArray2, $iCaseSense=1)
    Local $iUbound1 = UBound($aArray1)
    Local $iUbound2 = UBound($aArray2)
    
    If $iUbound1 <> $iUbound2 Then Return 0
    
    For $i = 1 To $iUbound1-1
        If ($iCaseSense And ($aArray1[$i] == $aArray2[$i]) = False) Or _
            (Not $iCaseSense And $aArray1[$i] <> $aArray2[$i]) Then Return 0
    Next
    
    Return 1
EndFunc

[bo8ster]

No - some say it can do everything. I want it to make me some coffee

[DCCD]

Use My coffee UDF