Beiträge von name22

[autoit]

#include <Array.au3>

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

Global $aTest[5]
$aTest[0] = ""
$aTest[1] = "Test"
$aTest[2] = "löschen"
$aTest[3] = "Test2"
$aTest[4] = "delete"

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

Global $aSearch[4]
$aSearch[0] = 3
$aSearch[1] = "löschen"
$aSearch[2] = "delete"
$aSearch[3] = ""

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

_ArrayDisplay($aTest)
$aTest = _ArrayDeleteEx($aTest, $aSearch)
_ArrayDisplay($aTest)

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

Func _ArrayDeleteEx($aArray, $aSearch)
Local $iI = 0
Local $iArraySize = UBound($aArray)

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

While $iI <= $iArraySize - 1
For $iJ = 1 To $aSearch[0]
If $aArray[$iI] = $aSearch[$iJ] Then
$iArraySize = _ArrayDelete($aArray, $iI)
ExitLoop
EndIf
Next
$iI += 1
WEnd

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

Return $aArray
EndFunc

[/autoit]

[autoit]

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

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

Opt("MustDeclareVars", 1) ; 0=nein, 1=erfordert Deklaration
Opt("GUICloseOnESC", 1) ; 1=ESC beendet, 0=ESC schließt nicht

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

Global $GUI, $Logo_PNG, $hGraphic, $hBitmap, $hBuffer

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

$GUI = GUICreate("Test-GDIPlus", 364, 290, -1, -1, BitOR($WS_CAPTION, $WS_POPUPWINDOW), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
GUISetState(@SW_SHOW)

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

_GDIPlus_Startup()

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

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($GUI)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics(364, 290, $hGraphic)
$hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)

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

$Logo_PNG = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\testbild.png")

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

_GDIPlus_GraphicsDrawImage($hBuffer, $Logo_PNG, 32, 6)
WM_PAINT()

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

GUIRegisterMsg($WM_PAINT, "WM_PAINT")

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd

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

GUIDelete($GUI) ; Schließe Gui
_GDIPlus_GraphicsDispose($hGraphic) ; Gib Grafik-Objekt wieder frei
_GDIPlus_GraphicsDispose($hBuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_ImageDispose($Logo_PNG) ; Gib das Bild-Objekt frei
_GDIPlus_Shutdown() ; Gib die verwendeten Ressourcen wieder frei
Exit

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

Func WM_PAINT()
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, 364, 290)
EndFunc

[/autoit]

[autoit]

Global $Quit2read = -1
While 1
$msg = GUIGetMsg()
$sw_onoff = 0
Switch $msg
Case $Button ;nur als Beispiel
$Quit2read = GUICtrlRead($Quit2)
if $Quit2read <> -1 Then _exit()
EndSwitch

[/autoit]

[autoit]

#include <GDIP.au3>
#include <GUIConstants.au3>
#include <Misc.au3>

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

Opt("GUIOnEventMode", 1)

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

$iGUIColorBG = 0xFFFFFFFF
$iGUIWidth = 400
$iGUIHeight = 400

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

$iX_Char = 50
$iY_Char = 50
$vX_Char = 0
$vY_Char = 0

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

$hWnd = GUICreate("Kollisionstest", $iGUIWidth, $iGUIHeight)
GUISetState()

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

_GDIPlus_Startup()

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

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($iGUIWidth, $iGUIHeight, $hGraphic)
$hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)

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

$hPath = _GDIPlus_PathCreate()
_GDIPlus_PathAddRectangle($hPath, 100, 100, 25, 25)
_GDIPlus_PathAddEllipse($hPath, 250, 150, 200, 100)
Dim $aPoints[6][2]
$aPoints[0][0] = 5
$aPoints[1][0] = 125
$aPoints[1][1] = 125
$aPoints[2][0] = 150
$aPoints[2][1] = 125
$aPoints[3][0] = 135
$aPoints[3][1] = 150
$aPoints[4][0] = 200
$aPoints[4][1] = 210
$aPoints[5][0] = 100
$aPoints[5][1] = 300
_GDIPlus_PathAddCurve($hPath, $aPoints)
$hRegion = _GDIPlus_RegionCreateFromPath($hPath)

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

GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

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

While Sleep(20)
If _IsPressed("25") Then $vX_Char -= 0.2
If _IsPressed("26") Then $vY_Char -= 0.2
If _IsPressed("27") Then $vX_Char += 0.2
If _IsPressed("28") Then $vY_Char += 0.2

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

$iX_Char += $vX_Char
$iY_Char += $vY_Char
$vX_Char *= 0.98
$vY_Char *= 0.98
If _GDIPlus_RegionIsVisibleRect($hRegion, $iX_Char, $iY_Char, 20, 20, $hBuffer) Then
$iX_Char -= $vX_Char
$iY_Char -= $vY_Char
$vX_Char = 0
$vY_Char = 0
EndIf
_GDIPlus_GraphicsClear($hBuffer, $iGUIColorBG)
_GDIPlus_GraphicsFillPath($hBuffer, $hPath)
_GDIPlus_GraphicsFillRect($hBuffer, $iX_Char, $iY_Char, 20, 20)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, $iGUIWidth, $iGUIHeight)
WEnd

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

Func _Exit()
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_GraphicsDispose($hBuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_PathDispose($hPath)
_GDIPlus_RegionDispose($hRegion)
_GDIPlus_Shutdown()
Exit
EndFunc

[/autoit]