WindowManagement

ytwinky

Hi,
wer die Fenster auf dem Desktop manipulieren möchte, findet hier ein
'reichhaltiges' Betätigungsfeld. Die einzelnen Funktionen sind hier aber in einem
Skript zusammengefaßt, wer mag, kann die gewünschten Funktionen herausnehmen und
separate Skripts erstellen, diese mit Verknüpfungen versehen und auch mit HotKeys.
Wichtig ist dabei nur, daß die $ShellApp=ObjCreate(..)-Zeile in jedem Skript vor-
handen ist --- sonst gehts nämlich nicht..
Es geht hier nicht darum, daß/ob AutoIt andere/bessere Funktionen hat.
Das Geheimnis heißt "shell.application"
(Mehr dazu beim nächsten Mal..)
[Edit]
Nee, steht schon hier
Viel Spaß beim Fensterln
ytwinky

btw: ein Syntax-Highlighter wäre eigentlich keine schlechte Idee

Spoiler anzeigen

C

;<AutoItScript>
#NoTrayIcon
#include <GUIConstants.au3>
;+----------------------------------------------------------------------------+
;|    Header: Bestimmen der Übergabeparameter                                 |
;|    ( Alles Strings(!!!), bis auf ArgC )                                    |
;|    FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins         |
Const $Author="WindowManagement.au3 ©2006 by ytwinky, MD";                    |
;|    EMail: PIII1kSystem-AutoIt3Forum@yahoo.de                               |
;|    (Tastenkombination: keine)                                              |
;|    AutoIt3-Version: 3.1.1.124(beta)                                        |
;|    Editor: SciTE 1.68, feste Schriftart                                    |
;|    Zweck : Schablone für den Anfang, nach Bedarf anpassen                  |
;|    Tab auf 2 setzen wg. Lesbarkeit                                         |
;+----------------------------------------------------------------------------+
Dim $ShellApp
$ShellApp=ObjCreate("shell.application") ;Get/Make a ShellApplicationObject
; == GUI generated with Koda ==
$WinMan = GUICreate("WindowManager", 422, 235, 120, 125)
GUISetFont(10, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("WindowManagement", 0, 0, 425, 41, $SS_CENTER)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$TileHor= GUICtrlCreateButton("Untereinander", 136, 80, 155, 25)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$TileVert = GUICtrlCreateButton("Nebeneinander", 136, 104, 155, 25)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$MinAll = GUICtrlCreateButton("Alle minimieren", 136, 128, 155, 25)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$MaxAll = GUICtrlCreateButton("Alle maximieren", 136, 152, 155, 25)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Cascade = GUICtrlCreateButton("Überlappend", 136, 176, 155, 25)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Quit = GUICtrlCreateButton("Quit", 136, 200, 155, 25)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
While 1
	Switch GuiGetMsg()
		Case $GUI_EVENT_CLOSE, $Quit
			ExitLoop
		Case $TileHor
			$ShellApp.TileHorizontally
		Case $TileVert
			$ShellApp.TileVertically
		Case $MinAll
			$ShellApp.MinimizeAll
		Case $MaxAll
			$ShellApp.UndoMinimizeAll
		Case $Cascade
			$ShellApp.CascadeWindows
		Case Else
			;-))
	EndSwitch
Wend
Exit
;</AutoItScript>

Alles anzeigen