Syntax fehler WinSetTrans ......

[autoit]

#include <ListviewConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#Include <GuiListView.au3>
#Include <Array.au3>
#Include <File.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
Opt("GUICoordMode", 0)
Global $posXStart, $posYStart, $posXStop, $posYStop

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$hGUI = GUICreate("Transparent", 375, 310, Default, Default, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX), $WS_EX_ACCEPTFILES)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "_GUIEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_GUIEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "_GUIEvents")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "_leftClicked")
GUISetOnEvent($GUI_EVENT_PRIMARYUP, "_leftReleased")

[/autoit] [autoit][/autoit] [autoit]

$inspic = GuiCtrlCreateButton("Insert Pic",15,252,50,28)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKBOTTOM)
$delpic = GuiCtrlCreateButton("Delete Pic",75,252,60,28)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKBOTTOM)

[/autoit] [autoit][/autoit] [autoit]

;Abstand Links und unten bleibt fix die Größe (Breite und Höhe) ebenso
$label = GUICtrlCreateLabel("Transparence = 0%", 248, 237, -1, 14)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)

[/autoit] [autoit][/autoit] [autoit]

;Abstand Rechts und unten bleibt fix die Höhe ebenso
$slider = GUICtrlCreateSlider(220, 257, 144, 20, BitOR($TBS_AUTOTICKS, $WS_BORDER))
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetData($label, "Transparence = " & GUICtrlRead($slider) & "%")
WinSetTrans("Transparent", "", 255 - GUICtrlRead($slider) * 2.55)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $inspic
$message = "Bild auswählen"
$bild = FileOpenDialog($message, @WindowsDir & "\", "Bilder (*.jpg;*.bmp)", 1 + 4 )
$Pic=GUICtrlCreatePic($bild, 150, 150)
GUISetState(@SW_SHOW , $hGUI)
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _GUIEvents()
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
Exit
Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE
Case @GUI_CtrlId = $GUI_EVENT_RESTORE
EndSelect
EndFunc ;==> _GUIEvents()
Func _leftClicked()
$pos=MouseGetPos()
$posXStart=$pos[0]
$posYStart=$pos[1]
EndFunc ;==> _leftClicked()
Func _leftReleased()
$pos=MouseGetPos()
$posXStop=$pos[0]
$posYStop=$pos[1]
GUICtrlSetPos($pic, -1*($posXStart-$posXStop), -1*($posYStart-$posYStop))

EndFunc ;==> _leftClicked()

[/autoit] [autoit][/autoit] [autoit][/autoit]

[autoit]

#Include <GUIConstantsEx.au3>
#NoTrayIcon
Opt("GUIOnEventMode", 1)
Opt("GUICoordMode", 0)
Global $posXStart, $posYStart, $posXStop, $posYStop
$main=GUICreate("Tööööst", @DesktopWidth ,@DesktopHeight-55)
GUISetOnEvent($GUI_EVENT_CLOSE, "_GUIEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_GUIEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "_GUIEvents")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "_leftClicked")
GUISetOnEvent($GUI_EVENT_PRIMARYUP, "_leftReleased")
$pic=GUICtrlCreatePic("C:\WINDOWS\Help\Tours\htmlTour\safe_easy_easier.jpg", @DesktopWidth/2, @DesktopHeight/2)
GUISetState(@SW_SHOW, $main)
While True
Sleep(10)
WEnd
Func _GUIEvents()
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
Exit
Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE
Case @GUI_CtrlId = $GUI_EVENT_RESTORE
EndSelect
EndFunc ;==> _GUIEvents()
Func _leftClicked()
$pos=MouseGetPos()
$posXStart=$pos[0]
$posYStart=$pos[1]
EndFunc ;==> _leftClicked()
Func _leftReleased()
$pos=MouseGetPos()
$posXStop=$pos[0]
$posYStop=$pos[1]
GUICtrlSetPos($pic, -1*($posXStart-$posXStop), -1*($posYStart-$posYStop))
EndFunc ;==> _leftClicked()

[/autoit]