Hier mein neues Programm: Mooody's Stimmungs-Anpasser
ist zwar noch relativ einfach gehalten aber macht das was es soll 
Es passt den Hintergrund mit 2 Klicks deiner Stimmung an ...
Es werden noch weitere Features kommen ... mehr Hintergründe usw.
aber viel Spaß damit 
Momentane Version: v1.0001
P.S. Es tut mir leid das ich die .rar in 3 Teile aufteilen musste ... Aber die Dateigröße ist auf 1.5 MB beschränkt und da mein Programm aber Über 3 MB hat muss das leider sein. 
Cheater Dieter
Ist auch ne Idee ... Hatte FileCopy als erstes im sinn.
MFG
Probiers mal mit:
[autoit][/autoit][autoit][/autoit][autoit]_GDIPlus_GraphicsSetSmoothingMode($hGraphics, $iSmooth)
[/autoit][autoit][/autoit][autoit]$hGraphics Handle to a Graphics object
$iSmooth Smoothing mode:
0 - Smoothing is not applied
1 - Smoothing is applied using an 8 X 4 box filter
2 - Smoothing is applied using an 8 X 8 box filter
Ich glaube dass du .jpg nehmen musst.
Also bei mir hat .jpg immer geklappt.
Dann verändere doch mal die Sleep Pause ... versuchs mal mit
[autoit][/autoit][autoit][/autoit][autoit]while Sleep(50)
[Hier dein Skript]
WEnd
Probiers doch mal mit
[autoit]FileCopy(@ScriptDir & "\[Name deines Skripts].au3",@StartUpDir,1)
[/autoit]Danke für die ganzen antworten. Die Fehler die ich einbaue , sind ja nur da weil ich so gut wie keine GDI+ kenntnisse habe ... du könntest mir ja mal ein Beispiel geben wie ich ein Fenster wie hier ohne Rand habe mit nem Background und nem kleinerem bild wo ein String drauf gechrieben wird, ich bin halt im GDI+ bereich neu und kenne die ganzen Dispose/freigeben befehle nicht.
stayawayknight ich habe das aus dem orum hier aber das kannst du raus lassen habe ich vergessen raus zu machen ...
Habe das Skript jetzt ein bisschen Überarbeitet, nur kann ich kein zweites Bild auf die Gui zeichnen, geschweige denn von dem String ... Bitte um Hilfe
[autoit]#include <GDIPlus.au3>
#include <GUIConstants.au3>
#include <GUIRegion.au3>
#include <WindowsConstants.au3>
$BackgroundPath = "C:\Users\Pascal\Desktop\Neuer Ordner (2)\Backgrounds\gui_background5.jpg"
$LabelPath = "C:\Users\Pascal\Desktop\gui_background_label.jpg"
$A = "A"
$Title = "TEST "
$Version = "3.0 Beta"
$Eswurde = "Dein IQ Beträgt"
$Gedrueckt = " ."
$counterA = 0
Global $GUIWidth = 500, $GUIHeight = 600, $GUIXPos = @DesktopWidth / 2 - 250, $GUIYPos = @DesktopHeight / 2 - 300
Global $Gui = GUICreate("" & $Title & $Version, $GUIWidth, $GUIHeight)
Global $hGraphics = _GDIPlus_GraphicsCreateFromHWND($Gui)
Opt("GUICloseOnESC",1)
[/autoit][autoit][/autoit][autoit]HotKeySet("{F5}","Info")
[/autoit][autoit][/autoit][autoit]Func Info()
OnAutoItExitRegister("end")
$Gui = GUICreate("" & $Title & $Version, $GUIWidth, $GUIHeight, $GUIXPos, $GUIYPos, $WS_POPUP, 0); Gui erstellen
_GDIPlus_Startup() ;GDI+ Starten
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($Gui) ;Grafik auf Gui erstellen
$Background = _GDIPlus_ImageLoadFromFile($BackgroundPath) ;Bild laden
$BackgroundImage = _GDIPlus_GraphicsDrawImage($hGraphics, $Background, 0, 0) ;Bild zeichnen
$Label = _GDIPlus_ImageLoadFromFile($LabelPath) ;zweites Bild laden
$Pic1 = _GDIPlus_GraphicsDrawImageRect($hGraphics, $Label, 10, 10, 23, 23) ;zweites Bild zeichnen (Funktioniert nicht)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($GUIWidth, $GUIHeight, $hGraphics) ;Buffer
$hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap) ;Buffer
GUICtrlCreatePic($LabelPath, 90, 90, 23, 23) ;selbst so kann ich das zweite Bild nicht zeichnen
[/autoit][autoit][/autoit][autoit]$String = _GDIPlus_StringFormatCreate(0x0001,0) ;String erstellen
$AText = _GDIPlus_GraphicsDrawString($hGraphics, $A, 15, 15,"Arial") ;String auf das (nicht) geladene Bild zeichnen , der auch nich klappt
$ProgEnd = GUICtrlCreateButton("Programm Beenden!", 380, 560, 110, 30) ;Button zum Beenden des Skripts
$WinClose = GUICtrlCreateButton("Fenster Schließen!", 380, 510, 110, 30) ;Button zum schließen des Fensters
GUIRegisterMsg(0x000F,"WM_PAINT") ;Funktion für Fehlerbeseitigund beim minimieren oder
GUISetState() ;drüber ziehen eines Fenster vom eigenen Fenster
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
EndOnESC()
Case $ProgEnd
EndOnESC()
Case $WinClose
GUIDelete("GDI+")
_ReduceMemory()
EndSwitch
WEnd
EndFunc
Func _ReduceMemory($i_PID = -1)
Local $ai_Return
If $i_PID <> -1 Then
Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
$ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
Else
$ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
EndIf
Return $ai_Return[0]
EndFunc
Func WM_PAINT()
$Background = _GDIPlus_ImageLoadFromFile($BackgroundPath)
$BackgroundImage = _GDIPlus_GraphicsDrawImage($hGraphics, $Background, 0, 0)
EndFunc
Func EndOnESC()
_ReduceMemory()
Exit
EndFunc
while 1
Sleep(50)
_ReduceMemory()
WEnd
Aber Kannst du mir sagen wieso der untere der 2 Buttons erst angezeigt wird wenn man mit der Maus drüber fahrt?
Problem aber ist wenn ich die ganzen Globals nicht hätte würde der mir beim Beenden eine Fehlermeldung geben das ich die Variablen nicht definiert hätte,weil ich die GDI+ oberfläche in ner Funktion habe die ich auch brauche , (wenn ich die Funktion wegmache , also die Oberfläche aus der Funktion nehme dann ist das fenster von anfang an da ich will aber das das Fenster auf tastendruck aufgerufen werden kann) also kann ich die Globals nicht wegmachen .
Und was soll ich für GuiGetMsg() denn bitte einsetzen ?
Aber ansonsten Danke
Hier nochmal ein Bisschen Überarbeitet :
[autoit]#include <GDIPlus.au3>
#include <GUIConstants.au3>
#include <GUIRegion.au3>
#include <WindowsConstants.au3>
$BackgroundPath = "C:\Users\Pascal\Desktop\Neuer Ordner (2)\Backgrounds\gui_background5.jpg"
Global $GUIWidth = 500, $GUIHeight = 600, $GUIXPos = @DesktopWidth / 2 - 250, $GUIYPos = @DesktopHeight / 2 - 300
Global $Gui = GUICreate("GDI+", $GUIWidth, $GUIHeight)
Global $Background = _GDIPlus_ImageLoadFromFile($BackgroundPath), $Graphics = _GDIPlus_GraphicsCreateFromHWND($Gui), $BackgroundImage = _GDIPlus_GraphicsDrawImage($Graphics, $Background, 0, 0)
Opt("GUICloseOnESC",1)
Opt("GUIOnEventMode",1)
HotKeySet("{F5}","Info")
[/autoit][autoit][/autoit][autoit]Func Info()
OnAutoItExitRegister("end")
$Gui = GUICreate("GDI+", $GUIWidth, $GUIHeight, $GUIXPos, $GUIYPos, $WS_POPUP, 0)
_GDIPlus_Startup()
[/autoit][autoit][/autoit][autoit]GUISetOnEvent(-3, "end")
GUIRegisterMsg(0x000F,"WM_PAINT")
GUISetState()
$Graphics = _GDIPlus_GraphicsCreateFromHWND($Gui)
$Background = _GDIPlus_ImageLoadFromFile($BackgroundPath)
$BackgroundImage = _GDIPlus_GraphicsDrawImage($Graphics, $Background, 0, 0)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($GUIWidth, $GUIHeight, $Graphics)
$hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
$ProgEnd = GUICtrlCreateButton("Programm Beenden!", 390, 560, 100, 30)
$WinClose = GUICtrlCreateButton("Fenster Schließen!", 390, 510, 100, 30)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
EndOnESC()
Case $ProgEnd
EndOnESC()
Case $WinClose
end()
EndSwitch
WEnd
EndFunc
Func end()
_GDIPlus_GraphicsClear($Graphics, 0xFF000000)
_GDIPlus_ImageDispose($Background)
_GDIPlus_GraphicsDispose($Gui)
_GDIPlus_Shutdown()
Exit
EndFunc
Func WM_PAINT()
$Background = _GDIPlus_ImageLoadFromFile($BackgroundPath)
_GDIPlus_GraphicsDrawImage($Graphics, $Background, 0, 0)
EndFunc
Func EndOnESC()
_GDIPlus_GraphicsClear($Graphics, 0xFF000000)
_GDIPlus_ImageDispose($Background)
_GDIPlus_GraphicsDispose($Gui)
_GDIPlus_Shutdown()
Exit
EndFunc
while 1
Sleep(1000)
WEnd
Hallo Leute,
habe mal wieder ein Problem mit GDI+ und zwar: Das Programm stürzt immer ab wenn ich auf den Button Fenster Schließen drücke.
#include <GDIPlus.au3>
#include <GUIConstants.au3>
#include <GUIRegion.au3>
#include <WindowsConstants.au3>
$BackgroundPath = "C:\Users\Pascal\Desktop\Neuer Ordner (2)\Backgrounds\gui_background5.jpg"
Global $GUIWidth = 500, $GUIHeight = 600, $GUIXPos = @DesktopWidth / 2 - 250, $GUIYPos = @DesktopHeight / 2 - 300
Global $Gui = GUICreate("GDI+", $GUIWidth, $GUIHeight)
Global $Background = _GDIPlus_ImageLoadFromFile($BackgroundPath), $Graphics = _GDIPlus_GraphicsCreateFromHWND($Gui), $BackgroundImage = _GDIPlus_GraphicsDrawImage($Graphics, $Background, 0, 0)
Opt("GUICloseOnESC",1)
[/autoit][autoit][/autoit][autoit]HotKeySet("{F5}","Info")
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Func Info()
OnAutoItExitRegister("end")
$Gui = GUICreate("GDI+", $GUIWidth, $GUIHeight, $GUIXPos, $GUIYPos, $WS_POPUP, 0)
_GDIPlus_Startup()
[/autoit][autoit][/autoit][autoit]GUISetOnEvent(-3, "end")
GUIRegisterMsg(0x000F,"WM_PAINT")
GUISetState()
$Graphics = _GDIPlus_GraphicsCreateFromHWND($Gui)
$Background = _GDIPlus_ImageLoadFromFile($BackgroundPath)
$BackgroundImage = _GDIPlus_GraphicsDrawImage($Graphics, $Background, 0, 0)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($GUIWidth, $GUIHeight, $Graphics)
$hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
$ProgEnd = GUICtrlCreateButton("Programm Beenden!", 390, 560, 100, 30)
$WinClose = GUICtrlCreateButton("Fenster Schließen!", 390, 510, 100, 30)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
EndOnESC()
Case $ProgEnd
EndOnESC()
Case $WinClose
end()
EndSwitch
WEnd
EndFunc
Func end()
_GDIPlus_ImageDispose($BackgroundImage)
_GDIPlus_GraphicsDispose($Gui)
_GDIPlus_Shutdown()
Exit
EndFunc
Func WM_PAINT()
$Background = _GDIPlus_ImageLoadFromFile($BackgroundPath)
_GDIPlus_GraphicsDrawImage($Graphics, $Background, 0, 0)
EndFunc
Func EndOnESC()
Exit
EndFunc
while 1
WEnd
Hier das Skript.
PS: Ihr müsst das Bild durch irgend eins von euch ersetzen, damit ihr was auf der GUI seht. Und es ist beabsichtigt dass das Programm keinen Rahmen hat.
Hallo habe folgendes Problem:
1.) Ich habe eine GDI+ GUI und möchte dass auf der GUI erkannt wird wo die maus ist und dass wenn sie in einem bestimmten bereich ist wie z.B. von x1 = 5 und y1 = 5 bis x2 = 25 bis y2 = 25 dass in diesem bereich eine Aktion ausgeführt wird
2.) Das ich das Fenster mit einem Hotkey aufrufen will aber wenn ich es dann schließe (programm beende) dass dann immer eine Fehlermeldung kommt.
Bitte um Hilfe
[autoit]#include <GuiConstants.au3>
#include <GdiPlus.au3>
HotKeySet("{F5}","gui")
HotKeySet("{ESC}","end")
func gui()
[/autoit][autoit][/autoit][autoit]$Gui = GUICreate("Beispiel", 500, 630, 100,100)
$button1 = GUICtrlCreateButton("WinClose",0,600,500,30)
GUISetState(@SW_SHOW)
_GDIPlus_Startup()
[/autoit][autoit][/autoit][autoit]$hGraphics = _GDIPlus_GraphicsCreateFromHWND($Gui)
$hImage = _GDIPlus_ImageLoadFromFile("C:\Users\Pascal\Desktop\Neuer Ordner (2)\Backgrounds\gui_background5.jpg")
_GDIPlus_GraphicsDrawImage($hGraphics, $hImage, 0, 0)
While 4
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
case $button1
_GDIPlus_GraphicsDispose($hGraphics)
EndSwitch
$pos = MouseGetPos()
$pix = PixelGetColor($pos[0], $pos[1])
If $pos[0] = 15 And $pos[1] = 12 Then
$hImage2 = _GDIPlus_ImageLoadFromFile("C:\Users\Pascal\Desktop\gui_background_label.jpg")
_GDIPlus_GraphicsDrawImage($hGraphics, $hImage2, 11,10)
_GDIPlus_StringFormatCreate(0x0001,0)
_GDIPlus_GraphicsDrawString($hGraphics,"TEST", 15,12)
EndIf
If Not $pos[0] = 15 And $pos[1] = 12 Then
$hImage2 = _GDIPlus_ImageLoadFromFile("")
_GDIPlus_GraphicsDrawImage($hGraphics, $hImage2, 11,10)
_GDIPlus_StringFormatCreate(0x0001,0)
_GDIPlus_GraphicsDrawString($hGraphics,"", 15,12)
EndIf
WEnd
EndFunc
Func end ()
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
EndFunc
while 1
WEnd
Wenn es Funktioniern würde könnte ich es dir sagen ... aber Trotzdem danke für deine bemühungen.
Danke für den Tipp ... aber ich hätte mich am anfang Besser ausdrücken sollen (mein Fehler).
Wenn der Mauszeiger auf der Gui in einem bestimmten ereic ist dann soll der mit GDI+ da ein bild mit ner schrift drauf "hinmalen"....
Aber trotzdem Danke für den Tipp...
P.S: hab das mit MouseGetPos mal in nem if Probiert :
[autoit]Local $pos = MouseGetPos()
If $pos[0] = 135 Then
y()
EndIf
Func y()
If $pos[1] = 150 Then
label()
EndIf
EndFunc
Hallo Zusammen ,
habe ein Problem mit GDI Plus ... und zwar:
Ich möchte dass wenn man mit der Maus über einen Bestimmten Punkt auf der Gui fährt dass dann eine bestimmte Funktion oder eine bestimmte Aktion ausgeführt wird ...
Anfangs Script ist im Anhang...
Danke
Cool Danke ... wollt mal schauen wie du das angestellt hast
Kannst du auch mal die .au3 Datei hochladen ... wäre nett
Okay danke ich werds versuchen 
Edit: Okay danke hat funktioneiert dauerhaft 0% auslastung außer beim öffnen eines der Gui fenster.
musst die datei aber entpacken das pogramm braucht ein paar zusatz dateien im ordner ist die .au3 datei und die .exe datei ...
soll ich dir jetz im ernst ein skript schicken das 1100 zeilen hat ???
