Beiträge von F4R

F4R

Hallo Leute,

Ich hab mal wieder an meinem Editor geschrieben und bin auf ein Problem gestoßen...
Das Bild flackert immer
Ich möchte den Fehler gerne beheben aber ich weis nicht was ich verändern soll.
Ich glaube das hängt mit meinen 2 Buffern zsm.

Über Hilfe würde ich mich sehr freuen

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Misc.au3>

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

Global $hGuiH = 640 ,$hGuiW = 640,$hGuiTitle = "NewMap",$iLastmX = "",$iLastmY = ""

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

$hGui = GUICreate($hGuiTitle,$hGuiH,$hGuiW)
GUISetState(@SW_SHOW)

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

_GDIPlus_Startup()

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

$hGr_Frontbuffer = _GDIPlus_GraphicsCreateFromHWND($hGUI)

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

$hBitmap_Backbuffer = _GDIPlus_BitmapCreateFromGraphics($hGuiW,$hGuiH , $hGr_Frontbuffer)

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

$hGr_Backbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap_Backbuffer)
$hGr_OverBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap_Backbuffer)

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

_GDIPlus_GraphicsClear($hGr_Backbuffer)

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

$hGlas = _GDIPlus_ImageLoadFromFile(@ScriptDir&"\NewGlassRed2.png");Irgend ein 32x32px png

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

While 1
If GUIGetMsg() = -3 Then Exit
If WinActive($hGuiTitle) Then
$iMousePos = GUIGetCursorInfo()
For $a = 0 To $hGuiH Step 32
For $b = 0 To $hGuiW Step 32
If $a + 32 > $iMousePos[0] And $a < $iMousePos[0] + 1 And $b + 32 > $iMousePos[1] And $b < $iMousePos[1] + 1 Then
_GDIPlus_GraphicsClear($hGr_OverBackbuffer)
_GDIPlus_GraphicsDrawRect($hGr_OverBackbuffer,$a,$b,32,32,_GDIPlus_PenCreate(0xFFFFFFFF))
EndIf
Next
Next
EndIf
If _IsPressed(01) And WinActive($hGuiTitle) Then
$iMousePos = GUIGetCursorInfo()
For $a = 0 To $hGuiH Step 32
For $b = 0 To $hGuiW Step 32
If $a + 32 > $iMousePos[0] And $a < $iMousePos[0] + 1 And $b + 32 > $iMousePos[1] And $b < $iMousePos[1] + 1 Then
If $a = $iLastmX And $b = $iLastmY Then
;
Else
_GDIPlus_GraphicsFillRect($hGr_Backbuffer,$a,$b,32,32)
_GDIPlus_GraphicsDrawImage($hGr_Backbuffer,$hGlas,$a,$b)
EndIf
$iLastmX = $a
$iLastmY = $b
EndIf
Next
Next
EndIf
If _IsPressed(02) And WinActive($hGuiTitle) Then
$iMousePos = GUIGetCursorInfo()
For $a = 0 To $hGuiH Step 32
For $b = 0 To $hGuiW Step 32
If $a + 32 > $iMousePos[0] And $a < $iMousePos[0] + 1 And $b + 32 > $iMousePos[1] And $b < $iMousePos[1] + 1 Then
_GDIPlus_GraphicsFillRect($hGr_Backbuffer,$a,$b,32,32)
EndIf
Next
Next
EndIf

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

_GDIPlus_GraphicsDrawImage($hGr_Backbuffer,$hGr_OverBackbuffer,0,0)
_GDIPlus_GraphicsDrawImage($hBitmap_Backbuffer,$hGr_Backbuffer,0,0)

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

_GDIPlus_GraphicsDrawImage($hGr_Frontbuffer,$hBitmap_Backbuffer,0,0)

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

WEnd

[/autoit]

Hier mein Code bis jetzt.

F4R

Die MsgBox habe ich als schnelles bsp. verwendet

Freut mich das wir dir helfen konnten.

F4R

Auch ein Herzliches Wilkommen meinerseits

Ansonsten geht das auch über

[autoit]

GuiCtrlRead()

[/autoit]

Dann sieht das so aus:

[autoit]

If GUICtrlRead($Input1) = "" Then
MsgBox(0,"Error","Du musst deine ID eingeben")
ElseIf GUICtrlRead($Input2) = "" Then
MsgBox(0,"Error","Du musst dein WebPassword eingeben")
Else
;Deine Funktion , was du mit den Daten machst
EndIf

[/autoit]

Lg F4R

F4R

Ich habe mich mal ein paar minuten dran gesetzt und habe das hier geschrieben..
Ich glaube das ist das was du meinst. Fals nicht melde dich nochmal.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

$Process = "explorer.exe" ;deine Anwendung die Updatet
AdlibRegister("_CloseIE")

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

$Form1 = GUICreate("Form1", 238, 86, 192, 164)
$Label1 = GUICtrlCreateLabel("", 32, 8, 172, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

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

While 1
If ProcessExists($Process) Then
If GUICtrlRead($Label1) = "Update läuft ..." Then
;
Else
GUICtrlSetData($Label1,"Update läuft ...")
EndIf
Else
GUICtrlSetData($Label1,"Update abgeschlossen ...")
AdlibUnRegister("_CloseIE")
Exit
;Der IE kann jetzt starten
EndIf

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

WEnd

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

Func _CloseIE()
If ProcessExists("iExplore.exe") Then
ProcessClose("iExplore.exe")
MsgBox(0,"ERROR!","Du darfst den IE nicht wärend des Updates öffnen")
EndIf
EndFunc

[/autoit]

F4R

Mein Problem ist nicht das ich es nicht kann sondern deine Fragestellung ist einfach unverständlich in meinen Augen.
Versuche deine Frage so zu vormulieren das man dir helfen KANN
Meine Frage wäre was das Java-Update mit deinem Skript zu tun hat und was für eine Anwendung nicht gestartet werden soll

Dazu empfehle ich das Tut von Andy http://www.tty1.net/smart-questions_de.html

Diese Befehle sollten dir eine Hilfe sein:

[autoit]

ProcessExists
If Then
GuiCreate
GuiCtrlCreateLabel

[/autoit]

F4R

Hallo,

Ich glaube du möchtest ein bereits fertiges Skript haben desshalb passt es glaube nicht zum Thema Hilfe & Unterstützung.
Falls nicht kannst du ja mal dein aktuelles Skript bitte Posten damit man dir besser helfen kann.

LG F4R.

F4R

Sieht gut aus Danke James !
Wenn es Probleme gibt melde ich mich

[autoit]

Func _GetColor()
Sleep(100)
Do
Until _IsPressed(01)
$iMouse = MouseGetPos()
$Color = PixelGetColor($iMouse[0],$iMouse[1])
GUISetBkColor($Color)
GUICtrlSetColor($Label1,BitXOR($Color, 0xFFFFFF))
GUICtrlSetColor($Label2,BitXOR($Color, 0xFFFFFF))
EndFunc

[/autoit]

Lg F4R

F4R

Hallo Leute,
ich habe mal wieder ein Problem: ich habe ein Programm das seine Hitergrundfarbe ändern kann jedoch
nur den Hintergrund, was dazu führt das die Schwarzen Labels nicht mehr Lesbar sind z.B. wenn man den Hintergrund Schwarz setzt.
Nun wäre meine Idee die Labels immer invertiert zur Hintergrundfarbe ändern aber ich weis nicht wie das geht...

Hier meine Funktion:

[autoit]

Func _GetColor()
Sleep(100)
Do
Until _IsPressed(01)
$iMouse = MouseGetPos()
GUISetBkColor(PixelGetColor($iMouse[0],$iMouse[1]))
EndFunc

[/autoit]

LG F4R

F4R

@Make-Grafik, man lernt echt jeden Tag etwas dazu Das wusste ich jedenfalls noch nicht.
Ich habe solche Abfragen immer mit ElseIf etc. geschrieben.

F4R

Hallo Sirius,

versuch es mal so:

[autoit]

$sName = GUICtrlRead($Input1)
If $sName = "Ralf" Then
MsgBox(0,"Richtig","Der Name ist bekannt")
Else
MsgBox(0,"Falsch","Der Name ist nicht bekannt")
EndIf

[/autoit]

Ich hoffe ich konnte dir weiterhelfen.

LG F4R

F4R

Danke hab's hinbekommen !
Vielen Dank UEZ hat mir echt geholfen

F4R

UEZ wo kann ich diese Beta herholen ?
Ich habe diese Funktion nämlich nicht...

F4R

Hallo erst einmal danke für deine Antwort.
Ich weis nicht ob Skalieren das richtige wort ist aber hier mal
ein paar Bilder zur verdeutlichung:
Original[Blockierte Grafik: http://www7.pic-upload.de/thumb/20.12.13/5ef3qwc1svp9.jpg]
Skaliert [Blockierte Grafik: http://www7.pic-upload.de/thumb/20.12.13/hvscv4oqrl4.jpg]

Vlt hilft euch das weiter um mir zu helfen...

F4R

Hallo Leute,

ich weis nicht ob die Überschrift passend ist aber ich versuche euch mal mein Problem zu erklären.
Ich möchte gerne 32x32px große Bilder skalieren jedoch so das das bild nicht verszerrt und unscharf
wird sonder das die Pixel größer werden, so wie es die Windows-Foto anzeige auch macht.
Damit ist gemeint das z.B. aus einem günen Pixel vier werden usw...

Das Bild soll nicht gespeichert werden sondern nur Innerhalb des Programms vergrößert sein.

Ich hoffe ihr könnt mir wie so oft aus der Patsche helfen

Lg, F4R

PS: Noch 4 Tage und 9 Stunden bis Weihnachten

F4R

Hey Leute,
ich geb hier auch mal meinen Senf dazu ab... Vielleicht kennt ihr den Kanal SemperVideo er hat mal ein
Video über das Programm Fakenet gemacht. Dieses dokumentiert alle Internetverbindungen die ein Programm
tätigt und bloggt sie solange Fakenet eben geöffnet ist. Damit lässt sich Leicht und einfach Analysieren was das
Programm so treibt. Dazu lässt sich noch "procmon" empfehlen dies dokumentiert alle Operationen z.B.
das Schreiben in die regestry oder das erstellen von Files usw.

Hier mal die Links zu den jeweiligen Videos

Fakenet ==> https://www.youtube.com/watch?v=b01_2dWU9nw

procmon ==> http://www.youtube.com/watch?v=q0Ixv2qgHUM

Ich hoffe das hat euch weiter geholfen.

Lg F4R.

F4R

Hallo Marthog,
Ich finde diese Idee richtig Gut , werden GDIPlus etc. auch enthalten sein ?
Wenn ja wäre das eine richtig feine Sache da Autoit nicht sehr Systhem nah ist und damit wäre das Problem mit der Leistung ja gelöst ?

Leider kenne ich mich nicht mit C++ aus, weswegen ich keine Hilfe im Projekt leisten kann. sry

Mfg F4R

F4R

Schnitzel Ja das weis ich... bei mir hat es auch nach dem ändern des Inputs und nach dem Bestätigen mit
Enter funktioniert aber die Lösung von gem ist natürlich besser

F4R

Erstelle einfach ein Case mit deiner Inputbox und setze den Button mit GUICtrlSetState Unsichtbar

F4R

Andy, echt großes Dankeschön an dich ! Du hast mir echt mega weitergeholfen da
mich dieser riesen Codeberg ziemlich iritiert hat und die vereinfachungen die du gepostete hast
sind super hilfreich , denn dieses Problem hatte ich auch mit meinem Map-Editor, den ich jetzt auch drastisch
vereinfachen kann !

Zum Thema Flackern und Buffern bin ich leider nicht weiter gekommen, aber falls jemand eine Lösung parat hat bitte posten

PS: Sry das die Antwort so spät kommt

F4R

Ja ihr habt recht,
Es scheint zu Funktionieren doch leider entsteht ein übeles Flackern zwischen der Map und dem Char.
Ich glaube es wird durch das resetten der Buffer ausgelöst doch ich weis nicht wie ich das in den Griff
bekomme...

Spoiler anzeigen

[autoit]

#include <Misc.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <File.au3>

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

$hGui = GUICreate("Heart-Eater", 513, 513)
GUISetState(@SW_SHOW)

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

_GDIPlus_Startup()

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

$char = _GDIPlus_ImageLoadFromFile(@Scriptdir & "\data\char\char.png")
$schatten = _GDIPlus_ImageLoadFromFile(@Scriptdir & "\data\char\schatten.png")
$SPS = _GDIPlus_ImageLoadFromFile(@scriptdir&"\data\kachelspritesheet.png")

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

$hGr_Frontbuffer = _GDIPlus_GraphicsCreateFromHWND($hGUI)

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

$hBitmap_Backbuffer = _GDIPlus_BitmapCreateFromGraphics(1, 1, $hGr_Frontbuffer)
$hGr_Backbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap_Backbuffer)

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

$Map_Backbuffer = _GDIPlus_BitmapCreateFromGraphics(600,600,$hGr_Frontbuffer)
$hGr_Map = _GDIPlus_ImageGetGraphicsContext($Map_Backbuffer)

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

$BEWEG_SPEED = 50
$BEWEG_RICHTUNG = 1
$y = 0
Global $aArray
Local $mX, $mY
$MAPY = 2000
$MAPX = 2000

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

;===== HAUPTSCHLEIFE =========

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

FullsAni()
_openmap()

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

While 1
$nMsg = GUIGetMsg()
If $nMsg = -3 Then Exit
If _IsPressed(57) Or _IsPressed(26) Then
FullwAni()
EndIf ; w
If _IsPressed(41) Or _IsPressed(25) Then
FullaAni()
EndIf ; a
If _IsPressed(53) Or _IsPressed(28) Then
FullsAni()
EndIf ; s
If _IsPressed(44) Or _IsPressed(27) Then
FulldAni()
EndIf ; d
If _IsPressed(10) Then
$BEWEG_SPEED = 10
Else
$BEWEG_SPEED = 50
EndIf
WEnd

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

;====== BEWEGUNGS-RICHTUNGEN ========

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

Func FullwAni()
wAnimaD()
If $BEWEG_RICHTUNG = 1 Then
For $y = 0 To 128 Step 16
$mY += 4
openMap()
_GDIPlus_GraphicsDrawImage($hGr_Backbuffer, $schatten,265,280)
_GDIPlus_GraphicsDrawImageRectRect($hGr_Backbuffer, $char, $y,32,15,15,250,250,50,50)
_GDIPlus_GraphicsDrawImage($hGr_Frontbuffer, $hBitmap_Backbuffer, 0, 0)
Sleep($BEWEG_SPEED)
Next
EndIf
$y = 0
$BEWEG_RICHTUNG = 1
EndFunc

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

Func FullaAni()
aAnimaD()
If $BEWEG_RICHTUNG = 2 Then
For $y = 0 To 128 Step 16
$mX += 4
openMap()
_GDIPlus_GraphicsDrawImage($hGr_Backbuffer, $schatten,265,280)
_GDIPlus_GraphicsDrawImageRectRect($hGr_Backbuffer, $char, $y,48,15,15,250,250,50,50)
_GDIPlus_GraphicsDrawImage($hGr_Frontbuffer, $hBitmap_Backbuffer, 0, 0)
Sleep($BEWEG_SPEED)
Next
EndIf
$y = 0
$BEWEG_RICHTUNG = 2
EndFunc

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

Func FullsAni()
sAnimaD()
If $BEWEG_RICHTUNG = 3 Then
For $y = 0 To 128 Step 16
$mY -= 4
_GDIPlus_GraphicsClear($hGr_Backbuffer, 0xFFFFFFFF)
openMap()
_GDIPlus_GraphicsDrawImage($hGr_Backbuffer, $schatten,265,280)
_GDIPlus_GraphicsDrawImageRectRect($hGr_Backbuffer, $char, $y,0,15,15,250,250,50,50)
_GDIPlus_GraphicsDrawImage($hGr_Frontbuffer, $hBitmap_Backbuffer, 0, 0)
Sleep($BEWEG_SPEED)
Next
EndIf
$y = 0
$BEWEG_RICHTUNG = 3
EndFunc

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

Func FulldAni()
dAnimaD()
If $BEWEG_RICHTUNG = 4 Then
For $y = 0 To 128 Step 16
$mX -= 4
openMap()
_GDIPlus_GraphicsDrawImage($hGr_Backbuffer, $schatten,265,280)
_GDIPlus_GraphicsDrawImageRectRect($hGr_Backbuffer, $char, $y,16,15,15,250,250,50,50)
_GDIPlus_GraphicsDrawImage($hGr_Frontbuffer, $hBitmap_Backbuffer, 0, 0)
Sleep($BEWEG_SPEED)
Next
EndIf
$y = 0
$BEWEG_RICHTUNG = 4
EndFunc

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

;====== BEWEGUNGS-DREUNGEN ========

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

Func dAnima()
If $BEWEG_RICHTUNG < 4 Then
For $i = 128 To 192 Step 16
openMap()
_GDIPlus_GraphicsDrawImage($hGr_Backbuffer, $schatten,265,280)
_GDIPlus_GraphicsDrawImageRectRect($hGr_Backbuffer, $char, $i,0,15,15,250,250,50,50)
_GDIPlus_GraphicsDrawImage($hGr_Frontbuffer, $hBitmap_Backbuffer, 0, 0)
Sleep(20)
Next
EndIf
EndFunc

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

Func wAnima()
If $BEWEG_RICHTUNG > 1 Then
For $i = 128 To 192 Step 16
openMap()
_GDIPlus_GraphicsDrawImage($hGr_Backbuffer, $schatten,265,280)
_GDIPlus_GraphicsDrawImageRectRect($hGr_Backbuffer, $char, $i,16,15,15,250,250,50,50)
_GDIPlus_GraphicsDrawImage($hGr_Frontbuffer, $hBitmap_Backbuffer, 0, 0)
Sleep(20)
Next
EndIf
EndFunc

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

Func aAnima()
If $BEWEG_RICHTUNG = 1 Or $BEWEG_RICHTUNG = 3 Or $BEWEG_RICHTUNG = 4 Then
For $i = 128 To 192 Step 16
openMap()
_GDIPlus_GraphicsDrawImage($hGr_Backbuffer, $schatten,265,280)
_GDIPlus_GraphicsDrawImageRectRect($hGr_Backbuffer, $char, $i,32,15,15,250,250,50,50)
_GDIPlus_GraphicsDrawImage($hGr_Frontbuffer, $hBitmap_Backbuffer, 0, 0)
Sleep(20)
Next
EndIf
EndFunc

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

Func sAnima()
If $BEWEG_RICHTUNG = 1 Or $BEWEG_RICHTUNG = 2 Or $BEWEG_RICHTUNG = 4 Then
For $i = 128 To 192 Step 16
openMap()
_GDIPlus_GraphicsDrawImage($hGr_Backbuffer, $schatten,265,280)
_GDIPlus_GraphicsDrawImageRectRect($hGr_Backbuffer, $char, $i,48,15,15,250,250,50,50)
_GDIPlus_GraphicsDrawImage($hGr_Frontbuffer, $hBitmap_Backbuffer, 0, 0)
Sleep(20)
Next
EndIf
EndFunc

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

Func wAnimaD()
If $BEWEG_RICHTUNG = 2 Then
sAnima()
dAnima()
wAnima()
EndIf
If $BEWEG_RICHTUNG = 3 Then
dAnima()
wAnima()
EndIf
If $BEWEG_RICHTUNG = 4 Then
wAnima()
EndIf
EndFunc

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

Func aAnimaD()
If $BEWEG_RICHTUNG = 1 Then
aAnima()
EndIf
If $BEWEG_RICHTUNG = 3 Then
dAnima()
wAnima()
aAnima()
EndIf
If $BEWEG_RICHTUNG = 4 Then
wAnima()
aAnima()
EndIf
EndFunc

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

Func sAnimaD()
If $BEWEG_RICHTUNG = 1 Then
aAnima()
sAnima()
EndIf
If $BEWEG_RICHTUNG = 2 Then
sAnima()
EndIf
If $BEWEG_RICHTUNG = 4 Then
wAnima()
aAnima()
sAnima()
EndIf
EndFunc

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

Func dAnimaD()
If $BEWEG_RICHTUNG = 1 Then
aAnima()
sAnima()
dAnima()
EndIf
If $BEWEG_RICHTUNG = 2 Then
sAnima()
dAnima()
EndIf
If $BEWEG_RICHTUNG = 3 Then
dAnima()
EndIf
EndFunc

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

Func openmap()
_GDIPlus_GraphicsClear($hGr_Backbuffer, 0xFFFFFFFF)
_GDIPlus_GraphicsClear($Map_Backbuffer, 0xFFFFFFFF)
_GDIPlus_GraphicsDrawImage($hGr_Frontbuffer, $Map_backbuffer, 0, 0)
EndFunc

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

Func _openmap()
Local $aArray[1]
_FileReadToArray(@ScriptDir&"\maps\sclucht.map",$aArray)
For $x = 1 To $aArray[0] Step 1
$ss = StringSplit($aArray[$x]," ")
$q = StringSplit($ss[2],";")
If $ss[1] = "Gras" Then
_GDIPlus_GraphicsDrawImageRectRect($hGr_Map,$SPS,0,0,32,32,$q[1],$q[2],32,32)
EndIf
If $ss[1] = "Gravel" Then
_GDIPlus_GraphicsDrawImageRectRect($hGr_Map,$SPS,32,0,32,32,$q[1],$q[2],32,32)
EndIf
If $ss[1] = "Stein" Then
_GDIPlus_GraphicsDrawImageRectRect($hGr_Map,$SPS,64,0,32,32,$q[1],$q[2],32,32)
EndIf
If $ss[1] = "Wasser" Then
_GDIPlus_GraphicsDrawImageRectRect($hGr_Map,$SPS,96,0,32,32,$q[1],$q[2],32,32)
EndIf
If $ss[1] = "WasserRL" Then
_GDIPlus_GraphicsDrawImageRectRect($hGr_Map,$SPS,96,160,32,32,$q[1],$q[2],32,32)
EndIf
If $ss[1] = "WasserRR" Then
_GDIPlus_GraphicsDrawImageRectRect($hGr_Map,$SPS,96,192,32,32,$q[1],$q[2],32,32)
EndIf
If $ss[1] = "WasserRU" Then
_GDIPlus_GraphicsDrawImageRectRect($hGr_Map,$SPS,96,224,32,32,$q[1],$q[2],32,32)
EndIf
If $ss[1] = "WasserRO" Then
_GDIPlus_GraphicsDrawImageRectRect($hGr_Map,$SPS,96,256,32,32,$q[1],$q[2],32,32)
EndIf
If $ss[1] = "WasserELO" Then
_GDIPlus_GraphicsDrawImageRectRect($hGr_Map,$SPS,96,32,32,32,$q[1],$q[2],32,32)
EndIf
If $ss[1] = "WasserELU" Then
_GDIPlus_GraphicsDrawImageRectRect($hGr_Map,$SPS,96,64,32,32,$q[1],$q[2],32,32)
EndIf
If $ss[1] = "WasserERO" Then
_GDIPlus_GraphicsDrawImageRectRect($hGr_Map,$SPS,96,128,32,32,$q[1],$q[2],32,32)
EndIf
If $ss[1] = "WasserERU" Then
_GDIPlus_GraphicsDrawImageRectRect($hGr_Map,$SPS,96,96,32,32,$q[2],$q[2],32,32)
EndIf
Next
EndFunc

[/autoit]

Beiträge von F4R

Hilfe mit GDIPlus

Leeres Inputfeld in gui auswerten

Leeres Inputfeld in gui auswerten

Prozess überwachen

Prozess überwachen

Prozess überwachen

Farbe Invertieren

Farbe Invertieren

Textabfrage GUICtrlread

Textabfrage GUICtrlread

Skalieren von Bildern ohne Verzerrung

Skalieren von Bildern ohne Verzerrung

Skalieren von Bildern ohne Verzerrung

Skalieren von Bildern ohne Verzerrung

PayPal Virus im Umlauf

AutoItC

OnClick

OnClick

GDIPlus Ebene erstellen ?

GDIPlus Ebene erstellen ?