Hey,
habn Installer gebastelt, funzt wunderbar bloß will ich ins erste GUI nochn transpartents gif einbauen.
jetz will ich das hier:
Spoiler anzeigen
;----- Beispiel 3 wie das ganze auf mit PNG funktioniert (von Zedna)
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
Global $hGUI, $hImage, $hGraphic, $hImage1
[/autoit] [autoit][/autoit] [autoit]; GUI erstellen
$hGUI = GUICreate("PNG zeigen", 250, 250)
; PNG Bild laden
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile("..\GUI\Torus.png")
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
GUISetState()
; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
; Ressourcen aufräumen
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
; PNG Bild zeichnen
Func MY_WM_PAINT($hWnd, $msg, $wParam, $lParam)
_WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_UPDATENOW)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)
_WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_VALIDATE)
Return $GUI_RUNDEFMSG
EndFunc ;==>MY_WM_PAINT
in das da :
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WinAPI.au3>
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_01.gif",@scriptdir &"\rg_bg\RG_Sig_01.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_02.gif",@scriptdir &"\rg_bg\RG_Sig_02.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_03.gif",@scriptdir &"\rg_bg\RG_Sig_03.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_04.gif",@scriptdir &"\rg_bg\RG_Sig_04.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_05.gif",@scriptdir &"\rg_bg\RG_Sig_05.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_06.gif",@scriptdir &"\rg_bg\RG_Sig_06.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_07.gif",@scriptdir &"\rg_bg\RG_Sig_07.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_08.gif",@scriptdir &"\rg_bg\RG_Sig_08.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_09.gif",@scriptdir &"\rg_bg\RG_Sig_09.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_10.gif",@scriptdir &"\rg_bg\RG_Sig_10.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_11.gif",@scriptdir &"\rg_bg\RG_Sig_11.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_12.gif",@scriptdir &"\rg_bg\RG_Sig_12.gif")
Global $suchen
global $progress1
global $fertig
Global $ab
$gui1 = GUICreate("Rising Gods Installer", 500, 299)
GUICtrlCreateLabel("Willkommen bei dem Installations-Assistenten für" & @CRLF & " » Rising Signatur «", 35, 30, 500, 200)
GUICtrlSetFont(-1, 15)
GUICtrlSetState(-2, $GUI_DISABLE)
GUICtrlCreateLabel("Dieser Assistent wird sie durch die Installation von » Rising Signatur « begleiten.", 80, 100, 400, 50)
GUICtrlCreateLabel("Programm by Anubiz - GFX by Feyth", 165, 280, 180, 90)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Weiter >", 130, 240, 120, 25)
$Button2 = GUICtrlCreateButton("Abbrechen", 255, 240, 120, 25)
GUISetState(@SW_SHOW)
While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $Button1
Exitloop
EndSwitch
WEnd
$gui2 = GUICreate("Rising Gods Installer Zielverzeichnis", 500, 299)
GUICtrlCreateLabel("Zielverzeichnis auswählen", 35, 30, 500, 200)
GUICtrlSetFont(-1, 15)
GUICtrlSetState(-2, $GUI_DISABLE)
GUICtrlCreateLabel("Rising Signatur wird in das unten angegebene Verzeichnis installiert. Falls Sie in ein anderes Verzeichnis installieren möchten, klicken Sie auf Durchsuchen und wählen Sie ein anderes Verzeichnis aus. Klicken Sie auf Weiter, um fortzufahren", 40, 80, 400, 50)
GUICtrlCreateLabel("Der Ordner für dieses Programm wird extra angelegt.", 40, 140, 400, 50)
GUICtrlCreateLabel("Programm by Anubiz - GFX by Feyth", 165, 280, 180, 90)
GUICtrlSetState(-1, $GUI_DISABLE)
$folder = GUICtrlCreateInput("C:/Programme/", 45, 175, 250, 25)
$suchen = GUICtrlCreateButton("Durchsuchen...", 320, 175, 120, 25)
$install = GUICtrlCreateButton("Installieren", 130, 240, 120, 25)
$Button2 = GUICtrlCreateButton("Abbrechen", 255, 240, 120, 25)
GUIDelete($gui1)
GUISetState(@SW_SHOW)
While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $install
$temp = GUICtrlRead($folder)
gui()
copy()
Case $suchen
$input=FileSelectFolder("test","test")
Guictrlsetdata($folder,$input)
EndSwitch
WEnd
func gui()
GUICreate("Rising Gods Installer Installation", 500, 299)
GUICtrlCreateLabel("Installation", 35, 30, 500, 200)
GUICtrlSetFont(-1, 15)
GUICtrlSetState(-2, $GUI_DISABLE)
GUICtrlCreateLabel("Installation wird durchgeführt...bitte warten...", 40, 80, 400, 50)
GUICtrlCreateLabel("Dateien werden kopiert...", 40, 115, 400, 50)
$progress1 = guictrlcreateprogress(40,180,400,12)
GUICtrlCreateLabel("Programm by Anubiz - GFX by Feyth", 165, 280, 180, 90)
GUICtrlSetState(-1, $GUI_DISABLE)
$fertig = GUICtrlCreateButton("Fertig stellen", 130, 240, 120, 25)
Guictrlsetstate(-1,$GUI_disable)
$ab= GUICtrlCreateButton("Abbrechen", 255, 240, 120, 25)
GUIDelete($gui2)
GUISetState(@SW_SHOW)
endfunc
func copy()
DirCreate($temp & "\RisingSignature\rg_bg\")
sleep(500)
For $i = 1 To 12
If $i < 10 Then
FileCopy(@scriptdir & "/rg_bg/RG_Sig_0" & $i & ".gif",$temp & "/RisingSignature/rg_bg/RG_Sig_0" & $i & ".gif")
Else
FileCopy(@scriptdir & "/rg_bg/RG_Sig_" & $i & ".gif",$temp & "/RisingSignature/rg_bg/RG_Sig_" & $i & ".gif")
EndIf
GUICtrlSetDATA($progress1, ($i * 100) / 12)
Next
msgbox(0,"Status","Rising Signatur wurde erfolgreich installiert")
Guictrlsetstate($fertig,$GUI_ENABLE)
While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
case $fertig
exit
case $ab
exit
EndSwitch
WEnd
Endfunc
[/autoit] [autoit][/autoit] [autoit][/autoit]einbauen..bloß irgendwie funktioniert dann die hälfte net mehr...
und dazunoch ne frage..wenn ich das gif bzw png. da drin hab kann ich da iwie mit gdi+ sagen, packs an die und die stelle? weil soweit ich weiß..gehts damit nur über die komplette guiflache
gruß
Kev