Hallo erst mal
Ich habe Heute Morgen angefangen eine Beispiel GUI zu Schreiben allerdings
Funktioniert diese nicht so Recht. Eigentlich soll wenn man mit der Maus über
das Schließen Bild geht, sich das Bild ändern das tut es auch aber jetzt komm
ich nicht mehr weiter weil das Fenster soll sich auch noch Schließen wenn man
auf das Bild klickt Ich bedanke mich schon im voraus für eure Hilfe!
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GdiPlus.au3>
#include <Misc.au3>
#include <file.au3>
Global $path, $Leben, $path2
OnAutoItExitRegister("_end")
$x = 0
$y = 0
$path = @ScriptDir & "\PICS\"
$path = @ScriptDir & "\INI\"
$Leben = IniRead(@ScriptDir & "\INI\DATA.ini","DATA","Leben",1)
$Form1 = GUICreate("X-The Game", 600, 500, Default, Default,$WS_POPUP)
GUISetBkColor(0xffa500,$Form1)
GUISetState(@SW_SHOW)
_GdiPlus_StartUp()
$Player = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Skin.gif")
$bk = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Gras.gif")
$height = _GDIPlus_ImageGetHeight($Player)
$widht = _GDIPlus_ImageGetWidth($Player)
$verhaelnis = $height / $widht
$load_bk = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Load_Leer.gif")
$load = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Load.gif")
$erschaffen = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Erschaffen.gif")
$btn_exit = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\close1.gif")
$feld1 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Feld.gif")
$feld2 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Feld.gif")
$feld3 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Feld.gif")
$feld4 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Feld.gif")
$feld5 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Feld.gif")
$feld6 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\Feld.gif")
$graphic = _GDIPlus_GraphicsCreateFromHWND($Form1)
$bitmap = _GDIPlus_BitmapCreateFromGraphics(700,500, $graphic)
$buffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
While 1
;===========Buttons==============================;
$mouse = GUIGetCursorInfo()
If IsArray($mouse) then
If $mouse[0] >= 520 and $mouse[1] <= 25 then
$btn_exit = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\close2.gif")
Else
$btn_exit = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\PICS\close1.gif")
EndIf
EndIf
;================ENDE=============================;
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Select
Case _IsPressed(25) And Not $x <= 0
$x -=40
Case _IsPressed(26) And Not $y <= 0
$y -=40
Case _IsPressed(27) And $x <= 340
$x +=40
Case _IsPressed(28) And $y <= 340
$y +=40
EndSelect
_GDIPlus_GraphicsDrawImageRect($buffer,$erschaffen,440,60,120,120)
_GDIPlus_GraphicsDrawImageRect($buffer, $bk,0,0,400,400)
_GDIPlus_GraphicsDrawImageRect($buffer, $Player,$x,$y,40,40 * $verhaelnis)
_GDIPlus_GraphicsDrawImageRect($buffer, $load_bk,80,450,220,40)
_GDIPlus_GraphicsDrawString($graphic,"LP/" & $Leben, 0, 460)
_GDIPlus_GraphicsDrawImageRect($buffer, $btn_exit,560, 0,40,40)
_GDIPlus_GraphicsDrawImageRect($buffer, $load,90, 460, $Leben*2,20)
_GDIPlus_GraphicsDrawImageRect($buffer,$feld1,440,200,60,60)
_GDIPlus_GraphicsDrawImageRect($buffer,$feld2,440,270,60,60)
_GDIPlus_GraphicsDrawImageRect($buffer,$feld3,440,340,60,60)
_GDIPlus_GraphicsDrawImageRect($buffer,$feld4,510,200,60,60)
_GDIPlus_GraphicsDrawImageRect($buffer,$feld5,510,270,60,60)
_GDIPlus_GraphicsDrawImageRect($buffer,$feld6,510,340,60,60)
_GDIPlus_GraphicsDrawImage($graphic, $bitmap,0,0)
Sleep(500)
WEnd
Func _end()
_GDIPlus_GraphicsDispose($graphic)
_GDIPlus_GraphicsDispose($buffer)
_GDIPlus_BitmapDispose($bitmap)
_GDIPlus_ImageDispose($Player)
_GDIPlus_ImageDispose($bk)
_GDIPlus_Shutdown()
EndFunc