Hi Leute,
ich hab mal schnell ein Programm gebastelt, was die Fenster, wie bei Win 7 wenn man sie an den Rand schiebt, den halben Bildschirm einnehmen lässt. In meinem Script hab ich es Optional gemacht, wie groß die Fenster werden. Default ist aber 0,5, also 50% des Bildschirms.
Ich hab nicht nachgeguckt, ob schon jemand so ein Script reingestellt hat, aber lieber zu viel als zu wenig.
Viel Spaß damit
Aquaplant
#Include <Misc.au3>
Global $Weite = IniRead(@ScriptDir & "\Weite.ini", "Weite", "Weite", 0.5)
While 1
$Mausposition = MouseGetPos()
$Mausgedruckt = _IsPressed("01")
$WinTitle = WinGetTitle("")
If WinActive($WinTitle) And $Mausgedruckt = 1 And $Mausposition[0] <=1 Then
WinMove($WinTitle, "", 0, 0, @DesktopWidth*$Weite, @DesktopHeight)
$WinPos = WinGetPos($WinTitle)
If $WinPos[0] < 0 Then
WinMove($WinTitle, "", 0, 0, @DesktopWidth*$Weite, @DesktopHeight)
EndIf
EndIf
If WinActive($WinTitle) And $Mausgedruckt = 1 And $Mausposition[0] >= @DesktopWidth - 1 Then
WinMove($WinTitle, "", @DesktopWidth*$Weite, 0, @DesktopWidth*(1-$Weite), @DesktopHeight)
$WinPos = WinGetPos($WinTitle)
If $WinPos[0] < 0 Then
WinMove($WinTitle, "", @DesktopWidth*$Weite, 0, @DesktopWidth*(1-$Weite), @DesktopHeight)
EndIf
EndIf
WEnd