;~ #include #include #include #include #include #region - GDIPlus2 (nur die Normalen Funktionen. manche aber rausgenommen...) #include-once #include "GDIPlusConstants.au3" #include "WinAPI.au3" #include "StructureConstants.au3" ; #INDEX# ======================================================================================================================= ; Title .........: GDIPlus ; AutoIt Version : 3.2.3++ ; Language ......: English ; Description ...: Functions that assist with Microsoft Windows GDI+ management. ; It enables applications to use graphics and formatted text on both the video display and the printer. ; Applications based on the Microsoft Win32 API do not access graphics hardware directly. ; Instead, GDI+ interacts with device drivers on behalf of applications. ; GDI+ can be used in all Windows-based applications. ; GDI+ is new technology that is included in Windows XP and the Windows Server 2003. ; It is required as a redistributable for applications that run on the Windows NT 4.0 SP6, ; Windows 2000, Windows 98, and Windows Me operating systems. ; Author ........: Paul Campbell (PaulIA) ; Dll ...........: GDIPlus.dll ; =============================================================================================================================== ; #VARIABLES# =================================================================================================================== Global $ghGDIPBrush = 0 Global $ghGDIPDll = 0 Global $ghGDIPPen = 0 Global $giGDIPRef = 0 Global $giGDIPToken = 0 ; =============================================================================================================================== ; #CURRENT# ===================================================================================================================== ;_GDIPlus_ArrowCapCreate ;_GDIPlus_ArrowCapDispose ;_GDIPlus_ArrowCapGetFillState ;_GDIPlus_ArrowCapGetHeight ;_GDIPlus_ArrowCapGetMiddleInset ;_GDIPlus_ArrowCapGetWidth ;_GDIPlus_ArrowCapSetFillState ;_GDIPlus_ArrowCapSetHeight ;_GDIPlus_ArrowCapSetMiddleInset ;_GDIPlus_ArrowCapSetWidth ;_GDIPlus_BitmapCloneArea ;_GDIPlus_BitmapCreateFromFile ;_GDIPlus_BitmapCreateFromGraphics ;_GDIPlus_BitmapCreateFromHBITMAP ;_GDIPlus_BitmapCreateHBITMAPFromBitmap ;_GDIPlus_BitmapDispose ;_GDIPlus_BitmapLockBits ;_GDIPlus_BitmapUnlockBits ;_GDIPlus_BrushClone ;_GDIPlus_BrushCreateSolid ;_GDIPlus_BrushDispose ;_GDIPlus_BrushGetSolidColor ;_GDIPlus_BrushGetType ;_GDIPlus_BrushSetSolidColor ;_GDIPlus_CustomLineCapDispose ;_GDIPlus_Decoders ;_GDIPlus_DecodersGetCount ;_GDIPlus_DecodersGetSize ;_GDIPlus_DrawImagePoints ;_GDIPlus_Encoders ;_GDIPlus_EncodersGetCLSID ;_GDIPlus_EncodersGetCount ;_GDIPlus_EncodersGetParamList ;_GDIPlus_EncodersGetParamListSize ;_GDIPlus_EncodersGetSize ;_GDIPlus_FontCreate ;_GDIPlus_FontDispose ;_GDIPlus_FontFamilyCreate ;_GDIPlus_FontFamilyDispose ;_GDIPlus_GraphicsClear ;_GDIPlus_GraphicsCreateFromHDC ;_GDIPlus_GraphicsCreateFromHWND ;_GDIPlus_GraphicsDispose ;_GDIPlus_GraphicsDrawArc ;_GDIPlus_GraphicsDrawBezier ;_GDIPlus_GraphicsDrawClosedCurve ;_GDIPlus_GraphicsDrawCurve ;_GDIPlus_GraphicsDrawEllipse ;_GDIPlus_GraphicsDrawImage ;_GDIPlus_GraphicsDrawImageRect ;_GDIPlus_GraphicsDrawImageRectRect ;_GDIPlus_GraphicsDrawLine ;_GDIPlus_GraphicsDrawPie ;_GDIPlus_GraphicsDrawPolygon ;_GDIPlus_GraphicsDrawRect ;_GDIPlus_GraphicsDrawString ;_GDIPlus_GraphicsDrawStringEx ;_GDIPlus_GraphicsFillClosedCurve ;_GDIPlus_GraphicsFillEllipse ;_GDIPlus_GraphicsFillPie ;_GDIPlus_GraphicsFillPolygon ;_GDIPlus_GraphicsFillRect ;_GDIPlus_GraphicsGetDC ;_GDIPlus_GraphicsGetSmoothingMode ;_GDIPlus_GraphicsMeasureString ;_GDIPlus_GraphicsReleaseDC ;_GDIPlus_GraphicsSetTransform ;_GDIPlus_GraphicsSetSmoothingMode ;_GDIPlus_ImageDispose ;_GDIPlus_ImageGetFlags ;_GDIPlus_ImageGetGraphicsContext ;_GDIPlus_ImageGetHeight ;_GDIPlus_ImageGetHorizontalResolution ;_GDIPlus_ImageGetPixelFormat ;_GDIPlus_ImageGetRawFormat ;_GDIPlus_ImageGetType ;_GDIPlus_ImageGetVerticalResolution ;_GDIPlus_ImageGetWidth ;_GDIPlus_ImageLoadFromFile ;_GDIPlus_ImageSaveToFile ;_GDIPlus_ImageSaveToFileEx ;_GDIPlus_MatrixCreate ;_GDIPlus_MatrixDispose ;_GDIPlus_MatrixRotate ;_GDIPlus_MatrixScale ;_GDIPlus_MatrixTranslate ;_GDIPlus_ParamAdd ;_GDIPlus_ParamInit ;_GDIPlus_PenCreate ;_GDIPlus_PenDispose ;_GDIPlus_PenGetAlignment ;_GDIPlus_PenGetColor ;_GDIPlus_PenGetCustomEndCap ;_GDIPlus_PenGetDashCap ;_GDIPlus_PenGetDashStyle ;_GDIPlus_PenGetEndCap ;_GDIPlus_PenGetWidth ;_GDIPlus_PenSetAlignment ;_GDIPlus_PenSetColor ;_GDIPlus_PenSetDashCap ;_GDIPlus_PenSetCustomEndCap ;_GDIPlus_PenSetDashStyle ;_GDIPlus_PenSetEndCap ;_GDIPlus_PenSetWidth ;_GDIPlus_RectFCreate ;_GDIPlus_Shutdown ;_GDIPlus_Startup ;_GDIPlus_StringFormatCreate ;_GDIPlus_StringFormatDispose ;_GDIPlus_StringFormatSetAlign ; =============================================================================================================================== ; #INTERNAL_USE_ONLY# =========================================================================================================== ;__GDIPlus_BrushDefCreate ;__GDIPlus_BrushDefDispose ;__GDIPlus_ExtractFileExt ;__GDIPlus_LastDelimiter ;__GDIPlus_PenDefCreate ;__GDIPlus_PenDefDispose ; =============================================================================================================================== ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ArrowCapCreate ; Description ...: Creates an adjustable arrow line cap with the specified height and width ; Syntax.........: _GDIPlus_ArrowCapCreate($nHeight, $nWidth[, $bFilled = True]) ; Parameters ....: $fHeight - Specifies the length, in units, of the arrow from its base to its point ; $fWidth - Specifies the distance, in units, between the corners of the base of the arrow ; $bFilled - Fill flag: ; |True - Arrow will be filled ; |False - Arrow will not be filled ; Return values .: Success - Returns a handle to a new ArrowCap object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: After you are done with the object, call _GDIPlus_ArrowCapDispose to release the object resources ; Related .......: _GDIPlus_ArrowCapDispose ; Link ..........: @@MsdnLink@@ GdipCreateAdjustableArrowCap ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ArrowCapCreate($fHeight, $fWidth, $bFilled = True) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreateAdjustableArrowCap", "float", $fHeight, "float", $fWidth, "bool", $bFilled, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[4]) EndFunc ;==>_GDIPlus_ArrowCapCreate ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ArrowCapDispose ; Description ...: Release an adjustable arrow line cap object ; Syntax.........: _GDIPlus_ArrowCapDispose($hCap) ; Parameters ....: $hCap - Handle to a adjustable arrow line cap object ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_ArrowCapCreate ; Link ..........: @@MsdnLink@@ GdipDeleteCustomLineCap ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ArrowCapDispose($hCap) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDeleteCustomLineCap", "handle", $hCap) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_ArrowCapDispose ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ArrowCapGetFillState ; Description ...: Determines whether the arrow cap is filled ; Syntax.........: _GDIPlus_ArrowCapGetFillState($hArrowCap) ; Parameters ....: $hArrowCap - Handle to a ArrowCap object ; Return values .: True - Arrow cap is filled ; False - Arrow cap is not filled or if error then @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_ArrowCapSetFillState ; Link ..........: @@MsdnLink@@ GdipGetAdjustableArrowCapFillState ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ArrowCapGetFillState($hArrowCap) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetAdjustableArrowCapFillState", "handle", $hArrowCap, "bool*", 0) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_ArrowCapGetFillState ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ArrowCapGetHeight ; Description ...: Gets the height of the arrow cap ; Syntax.........: _GDIPlus_ArrowCapGetHeight($hArrowCap) ; Parameters ....: $hArrowCap - Handle to a ArrowCap object ; Return values .: Success - Returns the height of the arrow cap ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: The height is the distance from the base of the arrow to its vertex ; Related .......: _GDIPlus_ArrowCapSetHeight ; Link ..........: @@MsdnLink@@ GdipGetAdjustableArrowCapHeight ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ArrowCapGetHeight($hArrowCap) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetAdjustableArrowCapHeight", "handle", $hArrowCap, "float*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_ArrowCapGetHeight ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ArrowCapGetMiddleInset ; Description ...: Gets the value of the inset ; Syntax.........: _GDIPlus_ArrowCapGetMiddleInset($hArrowCap) ; Parameters ....: $hArrowCap - Handle to a ArrowCap object ; Return values .: Success - Inset value ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: The middle inset is the number of units that the midpoint of the base shifts towards the vertex. A middle ; inset of zero results in no shift (the base is a straight line, giving the arrow a triangular shape). A ; positive (greater than zero) middle inset results in a shift the specified number of units toward the vertex ; (the base is an arrow shape that points toward the vertex, giving the arrow cap a V-shape). A negative (less ; than zero) middle inset results in a shift the specified number of units away from the vertex (the base ; becomes an arrow shape that points away from the vertex, giving the arrow either a diamond shape (if the ; absolute value of the middle inset is equal to the height) or distorted diamond shape. If the middle inset is ; equal to or greater than the height of the arrow cap, the cap does not appear at all. The value of the middle ; inset affects the arrow cap only if the arrow cap is filled. ; Related .......: _GDIPlus_ArrowCapSetMiddleInset ; Link ..........: @@MsdnLink@@ GdipGetAdjustableArrowCapMiddleInset ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ArrowCapGetMiddleInset($hArrowCap) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetAdjustableArrowCapMiddleInset", "handle", $hArrowCap, "float*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_ArrowCapGetMiddleInset ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ArrowCapGetWidth ; Description ...: Gets the width of the arrow cap ; Syntax.........: _GDIPlus_ArrowCapGetWidth($hArrowCap) ; Parameters ....: $hArrowCap - Handle to a ArrowCap object ; Return values .: Success - Returns the width of the arrow cap ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: The width is the distance between the endpoints of the base of the arrow ; Related .......: _GDIPlus_ArrowCapSetWidth ; Link ..........: @@MsdnLink@@ GdipGetAdjustableArrowCapWidth ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ArrowCapGetWidth($hArrowCap) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetAdjustableArrowCapWidth", "handle", $hArrowCap, "float*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_ArrowCapGetWidth ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ArrowCapSetFillState ; Description ...: Sets whether the arrow cap is filled ; Syntax.........: _GDIPlus_ArrowCapSetFillState($hArrowCap, $bFilled = True) ; Parameters ....: $hArrowCap - Handle to a ArrowCap object ; $bFilled - Fill state: ; |True - Arrow cap is filled ; |False - Arrow cap is not filled ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_ArrowCapGetFillState ; Link ..........: @@MsdnLink@@ GdipSetAdjustableArrowCapFillState ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ArrowCapSetFillState($hArrowCap, $bFilled = True) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetAdjustableArrowCapFillState", "handle", $hArrowCap, "bool", $bFilled) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_ArrowCapSetFillState ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ArrowCapSetHeight ; Description ...: Sets the height of the arrow cap ; Syntax.........: _GDIPlus_ArrowCapSetHeight($hArrowCap, $fHeight) ; Parameters ....: $hArrowCap - Handle to a ArrowCap object ; $fHeight - Specifies the length, in units, of the arrow from its base to its point ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_ArrowCapGetHeight ; Link ..........: @@MsdnLink@@ GdipSetAdjustableArrowCapHeight ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ArrowCapSetHeight($hArrowCap, $fHeight) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetAdjustableArrowCapHeight", "handle", $hArrowCap, "float", $fHeight) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_ArrowCapSetHeight ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ArrowCapSetMiddleInset ; Description ...: Gets the value of the inset ; Syntax.........: _GDIPlus_ArrowCapSetMiddleInset($hArrowCap, $fInset) ; Parameters ....: $hArrowCap - Handle to a ArrowCap object ; $fInset - Inset value ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: The middle inset is the number of units that the midpoint of the base shifts towards the vertex. A middle ; inset of zero results in no shift (the base is a straight line, giving the arrow a triangular shape). A ; positive (greater than zero) middle inset results in a shift the specified number of units toward the vertex ; (the base is an arrow shape that points toward the vertex, giving the arrow cap a V-shape). A negative (less ; than zero) middle inset results in a shift the specified number of units away from the vertex (the base ; becomes an arrow shape that points away from the vertex, giving the arrow either a diamond shape (if the ; absolute value of the middle inset is equal to the height) or distorted diamond shape. If the middle inset is ; equal to or greater than the height of the arrow cap, the cap does not appear at all. The value of the middle ; inset affects the arrow cap only if the arrow cap is filled. ; Related .......: _GDIPlus_ArrowCapGetMiddleInset ; Link ..........: @@MsdnLink@@ GdipSetAdjustableArrowCapMiddleInset ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ArrowCapSetMiddleInset($hArrowCap, $fInset) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetAdjustableArrowCapMiddleInset", "handle", $hArrowCap, "float", $fInset) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_ArrowCapSetMiddleInset ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ArrowCapSetWidth ; Description ...: Sets the width of the arrow cap ; Syntax.........: _GDIPlus_ArrowCapSetWidth($hArrowCap, $fWidth) ; Parameters ....: $hArrowCap - Handle to a ArrowCap object ; $fWidth - Specifies the width, in units, of the arrow between the endpoints of the base of the arrow ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_ArrowCapGetWidth ; Link ..........: @@MsdnLink@@ GdipSetAdjustableArrowCapWidth ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ArrowCapSetWidth($hArrowCap, $fWidth) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetAdjustableArrowCapWidth", "handle", $hArrowCap, "float", $fWidth) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_ArrowCapSetWidth ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BitmapCloneArea ; Description ...: Create a clone of a Bitmap object from the coordinates and format specified ; Syntax.........: _GDIPlus_BitmapCloneArea($hBmp, $iLeft, $iTop, $iWidth, $iHeight[, $iFormat = 0x00021808]) ; Parameters ....: $hBmp - Handle to a Bitmap object ; $iLeft - X coordinate of upper left corner of the rectangle to copy ; $iTop - Y coordinate of upper left corner of the rectangle to copy ; $iWidth - The width of the rectangle that specifies the portion of this bitmap to copy ; $iHeight - The height of the rectangle that specifies the portion of this bitmap to copy ; $iFormat - Pixel format for the new bitmap: ; |$GDIP_PXF01INDEXED = 1 bit per pixel, indexed ; |$GDIP_PXF04INDEXED = 4 bits per pixel, indexed ; |$GDIP_PXF08INDEXED = 8 bits per pixel, indexed ; |$GDIP_PXF16GRAYSCALE = 16 bits per pixel, grayscale ; |$GDIP_PXF16RGB555 = 16 bits per pixel; 5 bits for each RGB component ; |$GDIP_PXF16RGB565 = 16 bits per pixel; 5 bits for red, 6 bits for green and 5 bits blue ; |$GDIP_PXF16ARGB1555 = 16 bits per pixel; 1 bit for alpha and 5 bits for each RGB component ; |$GDIP_PXF24RGB = 24 bits per pixel; 8 bits for each RGB component ; |$GDIP_PXF32RGB = 32 bits per pixel; 8 bits for each RGB component. No alpha component. ; |$GDIP_PXF32ARGB = 32 bits per pixel; 8 bits for each RGB and alpha component ; |$GDIP_PXF32PARGB = 32 bits per pixel; 8 bits for each RGB and alpha component, pre-mulitiplied ; |$GDIP_PXF48RGB = 48 bits per pixel; 16 bits for each RGB component ; |$GDIP_PXF64ARGB = 64 bits per pixel; 16 bits for each RGB and alpha component ; |$GDIP_PXF64PARGB = 64 bits per pixel; 16 bits for each RGB and alpha component, pre-multiplied ; Return values .: Success - Returns a handle to a new Bitmap object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the Bitmap object, call _WinAPI_DeleteObject to release the resources ; Related .......: _WinAPI_DeleteObject, _GDIPlus_ImageGetPixelFormat ; Link ..........: @@MsdnLink@@ GdipCloneBitmapAreaI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_BitmapCloneArea($hBmp, $iLeft, $iTop, $iWidth, $iHeight, $iFormat = 0x00021808) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCloneBitmapAreaI", "int", $iLeft, "int", $iTop, "int", $iWidth, "int", $iHeight, _ "int", $iFormat, "handle", $hBmp, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[7]) EndFunc ;==>_GDIPlus_BitmapCloneArea ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BitmapCreateFromFile ; Description ...: Create a Bitmap object from file ; Syntax.........: _GDIPlus_BitmapCreateFromFile($sFileName) ; Parameters ....: $sFileName - Path to a bitmap file ; Return values .: Success - Handle to a Bitmap object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the Bitmap object, call _GDIPlus_BitmapDispose to release the resources ; Related .......: _WinAPI_DeleteObject ; Link ..........: @@MsdnLink@@ GdipCreateBitmapFromFile ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_BitmapCreateFromFile($sFileName) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreateBitmapFromFile", "wstr", $sFileName, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_BitmapCreateFromFile ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BitmapCreateFromGraphics ; Description ...: Creates a Bitmap object based on a Graphics object, a width, and a height ; Syntax.........: _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphics) ; Parameters ....: $iWidth - Specifies the width, in pixels, of the bitmap ; $iHeight - Specifies the height, in pixels, of the bitmap ; $hGraphics - Handle to a Graphics object ; Return values .: Success - Handle to a Bitmap object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the Bitmap object, call _GDIPlus_BitmapDispose to release the resources ; Related .......: _WinAPI_DeleteObject ; Link ..........: @@MsdnLink@@ GdipCreateBitmapFromGraphics ; Example .......: ; =============================================================================================================================== Func _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphics) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreateBitmapFromGraphics", "int", $iWidth, "int", $iHeight, "handle", $hGraphics, _ "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[4]) EndFunc ;==>_GDIPlus_BitmapCreateFromGraphics ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BitmapCreateFromHBITMAP ; Description ...: Create a Bitmap object from a bitmap handle ; Syntax.........: _GDIPlus_BitmapCreateFromHBITMAP($hBmp[, $hPal = 0]) ; Parameters ....: $hBmp - Handle to a HBITMAP ; $hPal - Handle to a HPALETTE ; Return values .: Success - Handle to a Bitmap object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the Bitmap object, call _GDIPlus_BitmapDispose to release the resources ; Related .......: _WinAPI_DeleteObject ; Link ..........: @@MsdnLink@@ GdipCreateBitmapFromHBITMAP ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_BitmapCreateFromHBITMAP($hBmp, $hPal = 0) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreateBitmapFromHBITMAP", "handle", $hBmp, "handle", $hPal, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[3]) EndFunc ;==>_GDIPlus_BitmapCreateFromHBITMAP ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BitmapCreateHBITMAPFromBitmap ; Description ...: Create a handle to a bitmap from a bitmap object ; Syntax.........: _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap[, $iARGB = 0xFF000000]) ; Parameters ....: $hBitmap - Handle to a bitmap object ; $iARGB - Color object that specifies the background color ; Return values .: Success - Handle to a HBITMAP ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the Bitmap object, call _WinAPI_DeleteObject to release the resources ; Related .......: _WinAPI_DeleteObject ; Link ..........: @@MsdnLink@@ GdipCreateHBITMAPFromBitmap ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap, $iARGB = 0xFF000000) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreateHBITMAPFromBitmap", "handle", $hBitmap, "ptr*", 0, "dword", $iARGB) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_BitmapCreateHBITMAPFromBitmap ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BitmapDispose ; Description ...: Release a bitmap object ; Syntax.........: _GDIPlus_BitmapDispose($hBitmap) ; Parameters ....: $hBitmap - Handle to a bitmap object ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDisposeImage ; Example .......: ; =============================================================================================================================== Func _GDIPlus_BitmapDispose($hBitmap) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDisposeImage", "handle", $hBitmap) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_BitmapDispose ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BitmapLockBits ; Description ...: Locks a portion of a bitmap for reading or writing ; Syntax.........: _GDIPlus_BitmapLockBits($hBitmap, $iLeft, $iTop, $iWidth, $iHeight, $iFlags = $GDIP_ILMREAD, $iFormat = $GDIP_PXF32RGB) ; Parameters ....: $hBitmap - Handle to a bitmap object ; $iLeft - X coordinate of the upper-left corner of the rectangle to lock ; $iTop - Y coordinate of the upper-left corner of the rectangle to lock ; $iWidth - The width of the rectangle to lock ; $iHeight - The height of the rectangle to lock ; $iFlags - Set of flags that specify whether the locked portion of the bitmap is available for reading or ; +for writing and whether the caller has already allocated a buffer. Can be a combination of the following: ; |$GDIP_ILMREAD - A portion of the image is locked for reading ; |$GDIP_ILMWRITE - A portion of the image is locked for writing ; |$GDIP_ILMUSERINPUTBUF - The buffer is allocated by the user ; $iFormat - Specifies the format of the pixel data in the temporary buffer. Can be one of the following: ; |$GDIP_PXF01INDEXED - 1 bpp, indexed ; |$GDIP_PXF04INDEXED - 4 bpp, indexed ; |$GDIP_PXF08INDEXED - 8 bpp, indexed ; |$GDIP_PXF16GRAYSCALE - 16 bpp, grayscale ; |$GDIP_PXF16RGB555 - 16 bpp; 5 bits for each RGB ; |$GDIP_PXF16RGB565 - 16 bpp; 5 bits red, 6 bits green, and 5 bits blue ; |$GDIP_PXF16ARGB1555 - 16 bpp; 1 bit for alpha and 5 bits for each RGB component ; |$GDIP_PXF24RGB - 24 bpp; 8 bits for each RGB ; |$GDIP_PXF32RGB - 32 bpp; 8 bits for each RGB. No alpha. ; |$GDIP_PXF32ARGB - 32 bpp; 8 bits for each RGB and alpha ; |$GDIP_PXF32PARGB - 32 bpp; 8 bits for each RGB and alpha, pre-mulitiplied ; Return values .: Success - $tagGDIPBITMAPDATA structure ; Failure - @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the locked portion, call _GDIPlus_BitmapUnlockBits to release the locked region ; Related .......: _WinAPI_DeleteObject, _GDIPlus_ImageGetPixelFormat ; Link ..........: @@MsdnLink@@ GdipBitmapLockBits ; Example .......: ; =============================================================================================================================== Func _GDIPlus_BitmapLockBits($hBitmap, $iLeft, $iTop, $iWidth, $iHeight, $iFlags = $GDIP_ILMREAD, $iFormat = $GDIP_PXF32RGB) Local $tData = DllStructCreate($tagGDIPBITMAPDATA) Local $pData = DllStructGetPtr($tData) Local $tRect = DllStructCreate($tagRECT) Local $pRect = DllStructGetPtr($tRect) ; The RECT is initialized strange for this function. It wants the Left and ; Top members set as usual but instead of Right and Bottom also being ; coordinates they are expected to be the Width and Height sizes ; respectively. DllStructSetData($tRect, "Left", $iLeft) DllStructSetData($tRect, "Top", $iTop) DllStructSetData($tRect, "Right", $iWidth) DllStructSetData($tRect, "Bottom", $iHeight) Local $aResult = DllCall($ghGDIPDll, "int", "GdipBitmapLockBits", "handle", $hBitmap, "ptr", $pRect, "uint", $iFlags, "int", $iFormat, "ptr", $pData) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $tData) EndFunc ;==>_GDIPlus_BitmapLockBits ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BitmapUnlockBits ; Description ...: Unlocks a portion of a bitmap that was locked by _GDIPlus_BitmapLockBits ; Syntax.........: _GDIPlus_BitmapUnlockBits($hBitmap, $tBitmapData) ; Parameters ....: $hBitmap - Handle to a bitmap object ; $tBitmapData - $tagGDIPBITMAPDATA structure previously passed to _GDIPlus_BitmapLockBits ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the locked portion, call _GDIPlus_BitmapUnlockBits to release the locked region ; Related .......: _WinAPI_DeleteObject ; Link ..........: @@MsdnLink@@ GdipBitmapUnlockBits ; Example .......: ; =============================================================================================================================== Func _GDIPlus_BitmapUnlockBits($hBitmap, $tBitmapData) Local $aResult = DllCall($ghGDIPDll, "int", "GdipBitmapUnlockBits", "handle", $hBitmap, "ptr", DllStructGetPtr($tBitmapData)) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_BitmapUnlockBits ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BrushClone ; Description ...: Clone a Brush object ; Syntax.........: _GDIPlus_BrushClone($hBrush) ; Parameters ....: $hBrush - Handle to a Brush object ; Return values .: Success - Handle to a new Brush object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the Brush object, call _GDIPlus_BrushDispose to release the resources ; Related .......: _GDIPlus_BrushDispose ; Link ..........: @@MsdnLink@@ GdipCloneBrush ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_BrushClone($hBrush) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCloneBrush", "handle", $hBrush, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_BrushClone ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BrushCreateSolid ; Description ...: Create a solid Brush object ; Syntax.........: _GDIPlus_BrushCreateSolid([$iARGB = 0xFF000000]) ; Parameters ....: $iARGB - Alpha, Red, Green and Blue components of brush ; Return values .: Success - Handle to a solid Brush object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the Brush object, call _GDIPlus_BrushDispose to release the resources ; Related .......: _GDIPlus_BrushDispose ; Link ..........: @@MsdnLink@@ GdipCreateSolidFill ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_BrushCreateSolid($iARGB = 0xFF000000) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreateSolidFill", "int", $iARGB, "dword*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_BrushCreateSolid ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BrushDispose ; Description ...: Release a Brush object ; Syntax.........: _GDIPlus_BrushDispose($hBrush) ; Parameters ....: $hBrush - Handle to a Brush object ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_BrushCreateSolid, _GDIPlus_BrushClone ; Link ..........: @@MsdnLink@@ GdipDeleteBrush ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_BrushDispose($hBrush) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDeleteBrush", "handle", $hBrush) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_BrushDispose ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BrushGetSolidColor ; Description ...: Get the color of a Solid Brush object ; Syntax.........: _GDIPlus_BrushGetSolidColor($hBrush, [$iARGB = 0xFF000000]) ; Parameters ....: $hBrush - Handle to a Brush object ; $iARGB - The color of the brush. ; Return values .: Success - Brush color ; Failure - -1 and @error is set ; Author ........: ; Modified.......: smashly ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipGetSolidFillColor ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_BrushGetSolidColor($hBrush) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetSolidFillColor", "handle", $hBrush, "dword*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_BrushGetSolidColor ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BrushGetType ; Description ...: Retrieve the type of Brush object ; Syntax.........: _GDIPlus_BrushGetType($hBrush) ; Parameters ....: $hBrush - Handle to a Brush object ; Return values .: Success - Brush type: ; |0 - Solid color ; |1 - Hatch fill ; |2 - Texture fill ; |3 - Path gradient ; |4 - Linear gradient ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipGetBrushType ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_BrushGetType($hBrush) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetBrushType", "handle", $hBrush, "int*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_BrushGetType ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_BrushSetSolidColor ; Description ...: Set the color of a Solid Brush object ; Syntax.........: _GDIPlus_BrushSetSolidColor($hBrush, [$iARGB = 0xFF000000]) ; Parameters ....: $hBrush - Handle to a Brush object ; $iARGB - Alpha, Red, Green and Blue components of brush ; Return values .: Success - True ; Failure - False ; Author ........: ; Modified.......: smashly ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipSetSolidFillColor ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_BrushSetSolidColor($hBrush, $iARGB = 0xFF000000) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetSolidFillColor", "handle", $hBrush, "dword", $iARGB) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_BrushSetSolidColor ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_CustomLineCapDispose ; Description ...: Release a custom line cap object ; Syntax.........: _GDIPlus_CustomLineCapDispose($hCap) ; Parameters ....: $hCap - Handle to a custom line cap object ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDeleteCustomLineCap ; Example .......: ; =============================================================================================================================== Func _GDIPlus_CustomLineCapDispose($hCap) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDeleteCustomLineCap", "handle", $hCap) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_CustomLineCapDispose ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_Decoders ; Description ...: Get an array of information about the available image decoders ; Syntax.........: _GDIPlus_Decoders() ; Parameters ....: ; Return values .: Success - Array with the following format: ; |[0][ 0] - Number of decoders ; |[1][ 1] - Codec identifier ; |[1][ 2] - File format identifier ; |[1][ 3] - Codec name ; |[1][ 4] - Dll in which the code resides ; |[1][ 5] - The name of the file format used by the codec ; |[1][ 6] - Filename extensions associated with the codec ; |[1][ 7] - The mime type of the codec ; |[1][ 8] - Combination of $GDIP_ICF flags ; |[1][ 9] - The version of the codec ; |[1][10] - The number of signatures used by the file format ; |[1][11] - The number of bytes in each signature ; |[1][12] - Pointer to the pattern for each signature ; |[1][13] - Pointer to the mask for each signature ; Failure - @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_Encoders ; Link ..........: @@MsdnLink@@ GdipGetImageDecoders ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_Decoders() Local $iCount = _GDIPlus_DecodersGetCount() Local $iSize = _GDIPlus_DecodersGetSize() Local $tBuffer = DllStructCreate("byte[" & $iSize & "]") Local $pBuffer = DllStructGetPtr($tBuffer) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImageDecoders", "uint", $iCount, "uint", $iSize, "ptr", $pBuffer) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] <> 0 Then Return SetError($aResult[0], 0, 0) Local $tCodec, $aInfo[$iCount + 1][14] $aInfo[0][0] = $iCount For $iI = 1 To $iCount $tCodec = DllStructCreate($tagGDIPIMAGECODECINFO, $pBuffer) $aInfo[$iI][1] = _WinAPI_StringFromGUID(DllStructGetPtr($tCodec, "CLSID")) $aInfo[$iI][2] = _WinAPI_StringFromGUID(DllStructGetPtr($tCodec, "FormatID")) $aInfo[$iI][3] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "CodecName")) $aInfo[$iI][4] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "DllName")) $aInfo[$iI][5] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "FormatDesc")) $aInfo[$iI][6] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "FileExt")) $aInfo[$iI][7] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "MimeType")) $aInfo[$iI][8] = DllStructGetData($tCodec, "Flags") $aInfo[$iI][9] = DllStructGetData($tCodec, "Version") $aInfo[$iI][10] = DllStructGetData($tCodec, "SigCount") $aInfo[$iI][11] = DllStructGetData($tCodec, "SigSize") $aInfo[$iI][12] = DllStructGetData($tCodec, "SigPattern") $aInfo[$iI][13] = DllStructGetData($tCodec, "SigMask") $pBuffer += DllStructGetSize($tCodec) Next Return $aInfo EndFunc ;==>_GDIPlus_Decoders ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_DecodersGetCount ; Description ...: Get the number of available image decoders ; Syntax.........: _GDIPlus_DecodersGetCount() ; Parameters ....: ; Return values .: Success - Number of image decoders ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_DecodersGetSize ; Link ..........: @@MsdnLink@@ GdipGetImageDecodersSize ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_DecodersGetCount() Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImageDecodersSize", "uint*", 0, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[1]) EndFunc ;==>_GDIPlus_DecodersGetCount ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_DecodersGetSize ; Description ...: Get the total size of the structure that is returned by _GDIPlus_GetImageDecoders ; Syntax.........: _GDIPlus_DecodersGetSize() ; Parameters ....: ; Return values .: Success - Total size, in bytes ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_DecodersGetCount ; Link ..........: @@MsdnLink@@ GdipGetImageDecodersSize ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_DecodersGetSize() Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImageDecodersSize", "uint*", 0, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_DecodersGetSize ; #FUNCTION# ===================================================================== ; Name...........: _GDIPlus_DrawImagePoints ; Description ...: Draws an image at a specified location. ; Syntax.........: _GDIPlus_DrawImagePoints($hGraphic, $hImage, $nULX, $nULY, $nURX, $nURY, $nLLX, $nLLY[, $count = 3]) ; Parameters ....: $hGraphic - Handle to a Graphics object ; $hImage - Handle to an Image object ; $nULX - The X coordinate of the upper left corner of the source image ; $nULY - The Y coordinate of the upper left corner of the source image ; $nURX - The X coordinate of the upper right corner of the source image ; $nURY - The Y coordinate of the upper right corner of the source image ; $nLLX - The X coordinate of the lower left corner of the source image ; $nLLY - The Y coordinate of the lower left corner of the source image ; $count - Specifies the number of points (x,y)'s in the structure. ; Return values .: Success - True ; Failure - False ; Author ........: Malkey ; Modified.......: ; Remarks .......: The value of the count parameter must equal 3 to specify the coordinates of ; the upper-left corner, upper-right corner, and lower-left corner of the ; parallelogram. The coordinate of the lower-right corner, the width, and the ; height of the image, are calculated using the three given coordinates. ; The image is scaled to fit the parallelogram. ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDrawImagePoints ; Example .......: Yes ; =============================================================================== Func _GDIPlus_DrawImagePoints($hGraphic, $hImage, $nULX, $nULY, $nURX, $nURY, $nLLX, $nLLY, $count = 3) Local $tPoint = DllStructCreate("float X;float Y;float X2;float Y2;float X3;float Y3") DllStructSetData($tPoint, "X", $nULX) DllStructSetData($tPoint, "Y", $nULY) DllStructSetData($tPoint, "X2", $nURX) DllStructSetData($tPoint, "Y2", $nURY) DllStructSetData($tPoint, "X3", $nLLX) DllStructSetData($tPoint, "Y3", $nLLY) Local $pPoint = DllStructGetPtr($tPoint) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawImagePoints", "handle", $hGraphic, "handle", $hImage, "ptr", $pPoint, "int", $count) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_DrawImagePoints ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_Encoders ; Description ...: Get an array of information about the available image encoders ; Syntax.........: _GDIPlus_Encoders() ; Parameters ....: ; Return values .: Success - Array with the following format: ; |[0][ 0] - Number of decoders ; |[1][ 1] - Codec identifier ; |[1][ 2] - File format identifier ; |[1][ 3] - Codec name ; |[1][ 4] - Dll in which the code resides ; |[1][ 5] - The name of the file format used by the codec ; |[1][ 6] - Filename extensions associated with the codec ; |[1][ 7] - The mime type of the codec ; |[1][ 8] - Combination of $GDIP_ICF flags ; |[1][ 9] - The version of the codec ; |[1][10] - The number of signatures used by the file format ; |[1][11] - The number of bytes in each signature ; |[1][12] - Pointer to the pattern for each signature ; |[1][13] - Pointer to the mask for each signature ; Failure - @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_Decoders ; Link ..........: @@MsdnLink@@ GdipGetImageEncoders ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_Encoders() Local $iCount = _GDIPlus_EncodersGetCount() Local $iSize = _GDIPlus_EncodersGetSize() Local $tBuffer = DllStructCreate("byte[" & $iSize & "]") Local $pBuffer = DllStructGetPtr($tBuffer) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImageEncoders", "uint", $iCount, "uint", $iSize, "ptr", $pBuffer) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] <> 0 Then Return SetError($aResult[0], 0, 0) Local $tCodec, $aInfo[$iCount + 1][14] $aInfo[0][0] = $iCount For $iI = 1 To $iCount $tCodec = DllStructCreate($tagGDIPIMAGECODECINFO, $pBuffer) $aInfo[$iI][1] = _WinAPI_StringFromGUID(DllStructGetPtr($tCodec, "CLSID")) $aInfo[$iI][2] = _WinAPI_StringFromGUID(DllStructGetPtr($tCodec, "FormatID")) $aInfo[$iI][3] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "CodecName")) $aInfo[$iI][4] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "DllName")) $aInfo[$iI][5] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "FormatDesc")) $aInfo[$iI][6] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "FileExt")) $aInfo[$iI][7] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "MimeType")) $aInfo[$iI][8] = DllStructGetData($tCodec, "Flags") $aInfo[$iI][9] = DllStructGetData($tCodec, "Version") $aInfo[$iI][10] = DllStructGetData($tCodec, "SigCount") $aInfo[$iI][11] = DllStructGetData($tCodec, "SigSize") $aInfo[$iI][12] = DllStructGetData($tCodec, "SigPattern") $aInfo[$iI][13] = DllStructGetData($tCodec, "SigMask") $pBuffer += DllStructGetSize($tCodec) Next Return $aInfo EndFunc ;==>_GDIPlus_Encoders ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_EncodersGetCLSID ; Description ...: Return the encoder CLSID for a specific image file type ; Syntax.........: _GDIPlus_EncodersGetCLSID($sFileExt) ; Parameters ....: $sFileExt - File extension to search for (BMP, JPG, TIF, etc.) ; Return values .: Success - CLSID of the encoder in string format ; Failure - Blank string ; Author ........: Paul Campbell (PaulIA) ; Modified.......: ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipGetImageEncoders ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_EncodersGetCLSID($sFileExt) Local $aEncoders = _GDIPlus_Encoders() For $iI = 1 To $aEncoders[0][0] If StringInStr($aEncoders[$iI][6], "*." & $sFileExt) > 0 Then Return $aEncoders[$iI][1] Next Return SetError(-1, -1, "") EndFunc ;==>_GDIPlus_EncodersGetCLSID ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_EncodersGetCount ; Description ...: Get the number of available image encoders ; Syntax.........: _GDIPlus_EncodersGetCount() ; Parameters ....: ; Return values .: Success - Number of image encoders ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_EncodersGetSize ; Link ..........: @@MsdnLink@@ GdipGetImageEncodersSize ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_EncodersGetCount() Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImageEncodersSize", "uint*", 0, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[1]) EndFunc ;==>_GDIPlus_EncodersGetCount ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_EncodersGetParamList ; Description ...: Get the parameter list for a specified image encoder ; Syntax.........: _GDIPlus_EncodersGetParamList($hImage, $sEncoder) ; Parameters ....: $hImage - Handle to an image object ; $sEncoder - GUID string of encoder to be used ; Return values .: Success - $tagGDIPPENCODERPARAMS structure ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_EncodersGetParamListSize, $tagGDIPENCODERPARAMS ; Link ..........: @@MsdnLink@@ GdipGetEncoderParameterList ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_EncodersGetParamList($hImage, $sEncoder) Local $iSize = _GDIPlus_EncodersGetParamListSize($hImage, $sEncoder) If @error Then Return SetError(@error, -1, 0) Local $tGUID = _WinAPI_GUIDFromString($sEncoder) Local $pGUID = DllStructGetPtr($tGUID) Local $tBuffer = DllStructCreate("dword Count;byte Params[" & $iSize - 4 & "]") Local $pBuffer = DllStructGetPtr($tBuffer) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetEncoderParameterList", "handle", $hImage, "ptr", $pGUID, "uint", $iSize, "ptr", $pBuffer) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $tBuffer) EndFunc ;==>_GDIPlus_EncodersGetParamList ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_EncodersGetParamListSize ; Description ...: Get the size of the parameter list for a specified image encoder ; Syntax.........: _GDIPlus_EncodersGetParamListSize($hImage, $sEncoder) ; Parameters ....: $hImage - Handle to an image object ; $sEncoder - GUID string of encoder to be used ; Return values .: Success - Size, in bytes, of the parameter list ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_EncodersGetParamList ; Link ..........: @@MsdnLink@@ GdipGetEncoderParameterListSize ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_EncodersGetParamListSize($hImage, $sEncoder) Local $tGUID = _WinAPI_GUIDFromString($sEncoder) Local $pGUID = DllStructGetPtr($tGUID) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetEncoderParameterListSize", "handle", $hImage, "ptr", $pGUID, "uint*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[3]) EndFunc ;==>_GDIPlus_EncodersGetParamListSize ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_EncodersGetSize ; Description ...: Get the total size of the structure that is returned by _GDIPlus_GetImageEncoders ; Syntax.........: _GDIPlus_EncodersGetSize() ; Parameters ....: ; Return values .: Success - Total size, in bytes ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_EncodersGetCount ; Link ..........: @@MsdnLink@@ GdipGetImageEncodersSize ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_EncodersGetSize() Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImageEncodersSize", "uint*", 0, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_EncodersGetSize ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_FontCreate ; Description ...: Create a Font object ; Syntax.........: _GDIPlus_FontCreate($hFamily, $fSize[, $iStyle = 0[, $iUnit = 3]]) ; Parameters ....: $hFamily - Handle to a Font Family object ; $fSize - The size of the font measured in the units specified in the $iUnit parameter ; $iStyle - The style of the typeface. Can be a combination of the following: ; |0 - Normal weight or thickness of the typeface ; |1 - Bold typeface ; |2 - Italic typeface ; |4 - Underline ; |8 - Strikethrough ; $iUnit - Unit of measurement for the font size: ; |0 - World coordinates, a nonphysical unit ; |1 - Display units ; |2 - A unit is 1 pixel ; |3 - A unit is 1 point or 1/72 inch ; |4 - A unit is 1 inch ; |5 - A unit is 1/300 inch ; |6 - A unit is 1 millimeter ; Return values .: Success - Handle to a Font object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the Font object, call _GDIPlus_FontDispose to release the resources ; Related .......: _GDIPlus_FontDispose ; Link ..........: @@MsdnLink@@ GdipCreateFont ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_FontCreate($hFamily, $fSize, $iStyle = 0, $iUnit = 3) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreateFont", "handle", $hFamily, "float", $fSize, "int", $iStyle, "int", $iUnit, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[5]) EndFunc ;==>_GDIPlus_FontCreate ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_FontDispose ; Description ...: Release a Font object ; Syntax.........: _GDIPlus_FontDispose($hFont) ; Parameters ....: $hFont - Handle to a Font object ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_FontCreate ; Link ..........: @@MsdnLink@@ GdipDeleteFont ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_FontDispose($hFont) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDeleteFont", "handle", $hFont) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_FontDispose ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_FontFamilyCreate ; Description ...: Create a Font Family object ; Syntax.........: _GDIPlus_FontFamilyCreate($sFamily) ; Parameters ....: $sFamily - Name of the Font Family ; Return values .: Success - Handle to a Font Family object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the Font Family object, call _GDIPlus_FontFamilyDispose to release the resources ; Related .......: _GDIPlus_FontFamilyDispose ; Link ..........: @@MsdnLink@@ GdipCreateFontFamilyFromName ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_FontFamilyCreate($sFamily) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreateFontFamilyFromName", "wstr", $sFamily, "ptr", 0, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[3]) EndFunc ;==>_GDIPlus_FontFamilyCreate ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_FontFamilyDispose ; Description ...: Release a Font Family object ; Syntax.........: _GDIPlus_FontFamilyDispose($hFamily) ; Parameters ....: $hFamily - Handle to a Font Family object ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_FontFamilyCreate ; Link ..........: @@MsdnLink@@ GdipDeleteFontFamily ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_FontFamilyDispose($hFamily) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDeleteFontFamily", "handle", $hFamily) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_FontFamilyDispose ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsClear ; Description ...: Clears a Graphics object to a specified color ; Syntax.........: _GDIPlus_GraphicsClear($hGraphics[, $iARGB = 0xFF000000]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $iARGB - Alpha, Red, Green and Blue components of color ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipGraphicsClear ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsClear($hGraphics, $iARGB = 0xFF000000) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGraphicsClear", "handle", $hGraphics, "dword", $iARGB) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsClear ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsCreateFromHDC ; Description ...: Create a Graphics object from a device contect (DC) ; Syntax.........: _GDIPlus_GraphicsCreateFromHDC($hDC) ; Parameters ....: $hDC - Device context ; Return values .: Success - Handle to a Graphics object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the Graphics object, call _GDIPlus_GraphicsDispose to release the resources ; Related .......: _GDIPlus_GraphicsDispose ; Link ..........: @@MsdnLink@@ GdipCreateFromHDC ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsCreateFromHDC($hDC) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreateFromHDC", "handle", $hDC, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_GraphicsCreateFromHDC ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsCreateFromHWND ; Description ...: Create a Graphics object from a window handle ; Syntax.........: _GDIPlus_GraphicsCreateFromHWND($hWnd) ; Parameters ....: $hWnd - Handle to a window ; Return values .: Success - Handle to a Graphics object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the Graphics object, call _GDIPlus_GraphicsDispose to release the resources ; Related .......: _GDIPlus_GraphicsDispose ; Link ..........: @@MsdnLink@@ GdipCreateFromHWND ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsCreateFromHWND($hWnd) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreateFromHWND", "hwnd", $hWnd, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_GraphicsCreateFromHWND ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDispose ; Description ...: Release a Graphics object ; Syntax.........: _GDIPlus_GraphicsDispose($hGraphics) ; Parameters ....: $hGraphics - Handle to a Graphics object ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_GraphicsCreateFromHDC, _GDIPlus_GraphicsCreateFromHWND ; Link ..........: @@MsdnLink@@ GdipDeleteGraphics ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsDispose($hGraphics) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDeleteGraphics", "handle", $hGraphics) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsDispose ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawArc ; Description ...: Draw an arc ; Syntax.........: _GDIPlus_GraphicsDrawArc($hGraphics, $iX, $iY, $iWidth, $iHeight, $fStartAngle, $fSweepAngle[, $hPen = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $iX - The X coordinate of the upper left corner of the rectangle that bounds the ellipse in which to ; +draw the arc ; $iY - The Y coordinate of the upper left corner of the rectangle that bounds the ellipse in which to ; +draw the arc ; $iWidth - The width of the rectangle that bounds the ellipse in which to draw the arc ; $iHeight - The height of the rectangle that bounds the ellipse in which to draw the arc ; $fStartAngle - The angle between the X axis and the starting point of the arc ; $fSweepAngle - The angle between the starting and ending points of the arc ; $hPen - Handle to a pen object that is used to draw the arc. If 0, a solid black pen with a width of 1 ; +will be used. ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDrawArcI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsDrawArc($hGraphics, $iX, $iY, $iWidth, $iHeight, $fStartAngle, $fSweepAngle, $hPen = 0) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawArcI", "handle", $hGraphics, "handle", $hPen, "int", $iX, "int", $iY, _ "int", $iWidth, "int", $iHeight, "float", $fStartAngle, "float", $fSweepAngle) Local $tmpError = @error, $tmpExtended = @extended __GDIPlus_PenDefDispose() If $tmpError Then Return SetError($tmpError, $tmpExtended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsDrawArc ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawBezier ; Description ...: Draw a bezier spline ; Syntax.........: _GDIPlus_GraphicsDrawBezier($hGraphics, $iX1, $iY1, $iX2, $iY2, $iX3, $iY3, $iX4, $iY4[, $hPen = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $hPen - Handle to a pen object that is used to draw the arc ; $iX1 - X coordinate of the starting point ; $iY1 - Y coordinate of the starting point ; $iX2 - X coordinate of the first control point ; $iY2 - Y coordinate of the first control point ; $iX3 - X coordinate of the second control point ; $iY3 - Y coordinate of the second control point ; $iX4 - X coordinate of the ending point ; $iY4 - Y coordinate of the ending point ; $hPen - Handle to a pen object that is used to draw the bezier. If 0, a solid black pen with a width of ; +1 will be used. ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: A Bezier spline does not pass through its control points. The control points act as magnets, pulling the curve ; in certain directions to influence the way the spline bends. ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDrawBezierI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsDrawBezier($hGraphics, $iX1, $iY1, $iX2, $iY2, $iX3, $iY3, $iX4, $iY4, $hPen = 0) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawBezierI", "handle", $hGraphics, "handle", $hPen, "int", $iX1, "int", $iY1, _ "int", $iX2, "int", $iY2, "int", $iX3, "int", $iY3, "int", $iX4, "int", $iY4) Local $tmpError = @error, $tmpExtended = @extended __GDIPlus_PenDefDispose() If $tmpError Then Return SetError($tmpError, $tmpExtended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsDrawBezier ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawClosedCurve ; Description ...: Draw a closed cardinal spline ; Syntax.........: _GDIPlus_GraphicsDrawClosedCurve($hGraphics, $aPoints[, $hPen = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $aPoints - Array that specifies the points of the curve: ; |[0][0] - Number of points ; |[1][0] - Point 1 X position ; |[1][1] - Point 1 Y position ; |[2][0] - Point 2 X position ; |[2][1] - Point 2 Y position ; |[n][0] - Point n X position ; |[n][1] - Point n Y position ; $hPen - Handle to a pen object that is used to draw the spline. If 0, a solid black pen with a width of ; +1 will be used. ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: In a closed cardinal spline, the curve continues through the last point in the points array and connects with ; the first point in the array. The array of points must contain a minimum of three elements. ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDrawClosedCurveI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsDrawClosedCurve($hGraphics, $aPoints, $hPen = 0) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("long[" & $iCount * 2 & "]") Local $pPoints = DllStructGetPtr($tPoints) For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawClosedCurveI", "handle", $hGraphics, "handle", $hPen, "ptr", $pPoints, "int", $iCount) Local $tmpError = @error, $tmpExtended = @extended __GDIPlus_PenDefDispose() If $tmpError Then Return SetError($tmpError, $tmpExtended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsDrawClosedCurve ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawCurve ; Description ...: Draw a cardinal spline ; Syntax.........: _GDIPlus_GraphicsDrawCurve($hGraphics, $aPoints[, $hPen = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $aPoints - Array that specifies the points of the curve: ; |[0][0] - Number of points ; |[1][0] - Point 1 X position ; |[1][1] - Point 1 Y position ; |[2][0] - Point 2 X position ; |[2][1] - Point 2 Y position ; |[n][0] - Point n X position ; |[n][1] - Point n Y position ; $hPen - Handle to a pen object that is used to draw the spline. If 0, a solid black pen with a width of ; +1 will be used. ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: A segment is defined as a curve that connects two consecutive points in the cardinal spline. The ending point ; of each segment is the starting point for the next. ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDrawCurveI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsDrawCurve($hGraphics, $aPoints, $hPen = 0) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("long[" & $iCount * 2 & "]") Local $pPoints = DllStructGetPtr($tPoints) For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawCurveI", "handle", $hGraphics, "handle", $hPen, "ptr", $pPoints, "int", $iCount) Local $tmpError = @error, $tmpExtended = @extended __GDIPlus_PenDefDispose() If $tmpError Then Return SetError($tmpError, $tmpExtended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsDrawCurve ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawEllipse ; Description ...: Draw an ellipse ; Syntax.........: _GDIPlus_GraphicsDrawEllipse($hGraphics, $iX, $iY, $iWidth, $iHeight[, $hPen = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $iX - The X coordinate of the upper left corner of the rectangle that bounds the ellipse ; $iY - The Y coordinate of the upper left corner of the rectangle that bounds the ellipse ; $iWidth - The width of the rectangle that bounds the ellipse ; $iHeight - The height of the rectangle that bounds the ellipse ; $hPen - Handle to a pen object that is used to draw the arc. If 0, a solid black pen with a width of 1 ; +will be used. ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDrawEllipseI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsDrawEllipse($hGraphics, $iX, $iY, $iWidth, $iHeight, $hPen = 0) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawEllipseI", "handle", $hGraphics, "handle", $hPen, "int", $iX, "int", $iY, _ "int", $iWidth, "int", $iHeight) Local $tmpError = @error, $tmpExtended = @extended __GDIPlus_PenDefDispose() If $tmpError Then Return SetError($tmpError, $tmpExtended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsDrawEllipse ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawImage ; Description ...: Draw an Image object ; Syntax.........: _GDIPlus_GraphicsDrawImage($hGraphics, $hImage, $iX, $iY) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $hImage - Handle to an Image object ; $iX - The X coordinate of the upper left corner of the rendered image ; $iY - The Y coordinate of the upper left corner of the rendered image ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDrawImageI ; Example .......: Yes ; =============================================================================================================================== ;~ Func _GDIPlus_GraphicsDrawImage($hGraphics, $hImage, $iX, $iY) ;~ Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawImageI", "handle", $hGraphics, "handle", $hImage, "int", $iX, "int", $iY) ;~ If @error Then Return SetError(@error, @extended, False) ;~ Return $aResult[0] = 0 ;~ EndFunc ;==>_GDIPlus_GraphicsDrawImage ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawImageRect ; Description ...: Draws an image at a specified location ; Syntax.........: _GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage, $iX, $iY, $iW, $iH ) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $hImage - Handle to an Image object ; $iX - The X coordinate of the upper left corner of the rendered image ; $iY - The Y coordinate of the upper left corner of the rendered image ; $iW - Specifies the width of the destination rectangle at which to draw the image ; $iH - Specifies the height of the destination rectangle at which to draw the image ; Return values .: Success - True ; Failure - False ; Author ........: smashly ; Modified.......: ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDrawImageRectI ; Example .......: Yes ; =============================================================================================================================== ;~ Func _GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage, $iX, $iY, $iW, $iH) ;~ Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawImageRectI", "handle", $hGraphics, "handle", $hImage, "int", $iX, "int", $iY, _ ;~ "int", $iW, "int", $iH) ;~ If @error Then Return SetError(@error, @extended, False) ;~ Return $aResult[0] = 0 ;~ EndFunc ;==>_GDIPlus_GraphicsDrawImageRect ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawImageRectRect ; Description ...: Draw an Image object ; Syntax.........: _GDIPlus_GraphicsDrawImageRectRect($hGraphics, $hImage, $iSrcX, $iSrcY, $iSrcWidth, $iSrcHeight, $iDstX, $iDstY, $iDstWidth, $iDstHeight[, $iUnit = 2]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $hImage - Handle to an Image object ; $iSrcX - The X coordinate of the upper left corner of the source image ; $iSrcY - The Y coordinate of the upper left corner of the source image ; $iSrcWidth - Width of the source image ; $iSrcHeight - Height of the source image ; $iDstX - The X coordinate of the upper left corner of the destination image ; $iDstY - The Y coordinate of the upper left corner of the destination image ; $iDstWidth - Width of the destination image ; $iDstHeight - Height of the destination image ; $iUnit - Specifies the unit of measure for the image ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDrawImageRectRectI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsDrawImageRectRect($hGraphics, $hImage, $iSrcX, $iSrcY, $iSrcWidth, $iSrcHeight, $iDstX, $iDstY, $iDstWidth, $iDstHeight, $iUnit = 2) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawImageRectRectI", "handle", $hGraphics, "handle", $hImage, "int", $iDstX, _ "int", $iDstY, "int", $iDstWidth, "int", $iDstHeight, "int", $iSrcX, "int", $iSrcY, "int", $iSrcWidth, _ "int", $iSrcHeight, "int", $iUnit, "int", 0, "int", 0, "int", 0) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsDrawImageRectRect ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawLine ; Description ...: Draw a line ; Syntax.........: _GDIPlus_GraphicsDrawLine($hGraphics, $iX1, $iY1, $iX2, $iY2[, $hPen = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $iX1 - The X coordinate of the starting point of the line ; $iY1 - The Y coordinate of the starting point of the line ; $iX2 - The X coordinate of the ending point of the line ; $iY2 - The Y coordinate of the ending point of the line ; $hPen - Handle to a pen object that is used to draw the arc. If 0, a solid black pen with a width of 1 ; +will be used. ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDrawLineI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsDrawLine($hGraphics, $iX1, $iY1, $iX2, $iY2, $hPen = 0) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawLineI", "handle", $hGraphics, "handle", $hPen, "int", $iX1, "int", $iY1, _ "int", $iX2, "int", $iY2) Local $tmpError = @error, $tmpExtended = @extended __GDIPlus_PenDefDispose() If $tmpError Then Return SetError($tmpError, $tmpExtended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsDrawLine ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawPie ; Description ...: Draw a pie ; Syntax.........: _GDIPlus_GraphicsDrawPie($hGraphics, $iX, $iY, $iWidth, $iHeight, $fStartAngle, $fSweepAngle[, $hPen = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $iX - The X coordinate of the upper left corner of the rectangle that bounds the ellipse in which to ; +draw the pie ; $iY - The Y coordinate of the upper left corner of the rectangle that bounds the ellipse in which to ; +draw the pie ; $iWidth - The width of the rectangle that bounds the ellipse in which to draw the pie ; $iHeight - The height of the rectangle that bounds the ellipse in which to draw the pie ; $fStartAngle - The angle, in degrees, between the X axis and the starting point of the arc that defines the ; +pie. A positive value specifies clockwise rotation. ; $fSweepAngle - The angle, in degrees, between the starting and ending points of the arc that defines the pie. ; +A positive value specifies clockwise rotation. ; $hPen - Handle to a pen object that is used to draw the arc. If 0, a solid black pen with a width of 1 ; +will be used. ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDrawPieI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsDrawPie($hGraphics, $iX, $iY, $iWidth, $iHeight, $fStartAngle, $fSweepAngle, $hPen = 0) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawPieI", "handle", $hGraphics, "handle", $hPen, "int", $iX, "int", $iY, _ "int", $iWidth, "int", $iHeight, "float", $fStartAngle, "float", $fSweepAngle) Local $tmpError = @error, $tmpExtended = @extended __GDIPlus_PenDefDispose() If $tmpError Then Return SetError($tmpError, $tmpExtended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsDrawPie ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawPolygon ; Description ...: Draw a polygon ; Syntax.........: _GDIPlus_GraphicsDrawPolygon($hGraphics, $aPoints[, $hPen = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $aPoints - Array that specify the vertices of the polygon: ; |[0][0] - Number of vertices ; |[1][0] - Vertice 1 X position ; |[1][1] - Vertice 1 Y position ; |[2][0] - Vertice 2 X position ; |[2][1] - Vertice 2 Y position ; |[n][0] - Vertice n X position ; |[n][1] - Vertice n Y position ; $hPen - Handle to a pen object that is used to draw the polygon. If 0, a solid black pen with a width ; +of 1 will be used. ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: If the first and last points are not identical, a line is drawn between them to close the polygon ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDrawPolygonI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsDrawPolygon($hGraphics, $aPoints, $hPen = 0) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("long[" & $iCount * 2 & "]") Local $pPoints = DllStructGetPtr($tPoints) For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawPolygonI", "handle", $hGraphics, "handle", $hPen, "ptr", $pPoints, "int", $iCount) Local $tmpError = @error, $tmpExtended = @extended __GDIPlus_PenDefDispose() If $tmpError Then Return SetError($tmpError, $tmpExtended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsDrawPolygon ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawRect ; Description ...: Draw a rectangle ; Syntax.........: _GDIPlus_GraphicsDrawRect($hGraphics, $iX, $iY, $iWidth, $iHeight[, $hPen = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $iX - The X coordinate of the upper left corner of the rectangle ; $iY - The Y coordinate of the upper left corner of the rectangle ; $iWidth - The width of the rectangle ; $iHeight - The height of the rectangle ; $hPen - Handle to a pen object that is used to draw the rectangle. If 0, a solid black pen with a width ; +of 1 will be used ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDrawRectangleI ; Example .......: Yes ; =============================================================================================================================== ;~ Func _GDIPlus_GraphicsDrawRect($hGraphics, $iX, $iY, $iWidth, $iHeight, $hPen = 0) ;~ __GDIPlus_PenDefCreate($hPen) ;~ Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawRectangleI", "handle", $hGraphics, "handle", $hPen, "int", $iX, "int", $iY, _ ;~ "int", $iWidth, "int", $iHeight) ;~ Local $tmpError = @error, $tmpExtended = @extended ;~ __GDIPlus_PenDefDispose() ;~ If $tmpError Then Return SetError($tmpError, $tmpExtended, False) ;~ Return $aResult[0] = 0 ;~ EndFunc ;==>_GDIPlus_GraphicsDrawRect ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawString ; Description ...: Draw a string ; Syntax.........: _GDIPlus_GraphicsDrawString($hGraphics, $sString, $nX, $nY[, $sFont = "Arial"[, $nSize = 10[, $iFormat = 0]]]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $sString - String to be drawn ; $nX - X coordinate where the string will be drawn ; $nY - Y coordinate where the string will be drawn ; $sFont - Name of the font to use for drawing ; $nSize - Font size to use for drawing ; $iFormat - Format flags. Can be one or more of the following: ; |0x0001 - Specifies that reading order is right to left ; |0x0002 - Specifies that individual lines of text are drawn vertically on the display device ; |0x0004 - Specifies that parts of characters are allowed to overhang the string's layout rectangle ; |0x0020 - Specifies that Unicode layout control characters are displayed with a representative character ; |0x0400 - Specifies that an alternate font is used for characters that are not supported in the requested font ; |0x0800 - Specifies that the space at the end of each line is included in a string measurement ; |0x1000 - Specifies that the wrapping of text to the next line is disabled ; |0x2000 - Specifies that only entire lines are laid out in the layout rectangle ; |0x4000 - Specifies that characters overhanging the layout rectangle and text extending outside the layout ; +rectangle are allowed to show ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: ; Remarks .......: ; Related .......: _GDIPlus_GraphicsDrawStringEx ; Link ..........: ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsDrawString($hGraphics, $sString, $nX, $nY, $sFont = "Arial", $nSize = 10, $iFormat = 0) Local $hBrush = _GDIPlus_BrushCreateSolid() Local $hFormat = _GDIPlus_StringFormatCreate($iFormat) Local $hFamily = _GDIPlus_FontFamilyCreate($sFont) Local $hFont = _GDIPlus_FontCreate($hFamily, $nSize) Local $tLayout = _GDIPlus_RectFCreate($nX, $nY, 0, 0) Local $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $sString, $hFont, $tLayout, $hFormat) Local $aResult = _GDIPlus_GraphicsDrawStringEx($hGraphics, $sString, $hFont, $aInfo[0], $hFormat, $hBrush) Local $iError = @error _GDIPlus_FontDispose($hFont) _GDIPlus_FontFamilyDispose($hFamily) _GDIPlus_StringFormatDispose($hFormat) _GDIPlus_BrushDispose($hBrush) Return SetError($iError, 0, $aResult) EndFunc ;==>_GDIPlus_GraphicsDrawString ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsDrawStringEx ; Description ...: Draw a string ; Syntax.........: _GDIPlus_GraphicsDrawStringEx($hGraphics, $sString, $hFont, $tLayout, $hFormat, $hBrush) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $sString - String to be drawn ; $hFont - Handle to the font to use to draw the string ; $tLayout - $tagGDIPRECTF structure that bounds the string ; $hFormat - Handle to the string format to draw the string ; $hBrush - Handle to the brush to draw the string ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_GraphicsDrawString, $tagGDIPRECTF ; Link ..........: @@MsdnLink@@ GdipDrawString ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsDrawStringEx($hGraphics, $sString, $hFont, $tLayout, $hFormat, $hBrush) Local $pLayout = DllStructGetPtr($tLayout) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawString", "handle", $hGraphics, "wstr", $sString, "int", -1, "handle", $hFont, _ "ptr", $pLayout, "handle", $hFormat, "handle", $hBrush) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsDrawStringEx ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsFillClosedCurve ; Description ...: Fill a closed cardinal spline ; Syntax.........: _GDIPlus_GraphicsFillClosedCurve($hGraphics, $aPoints[, $hBrush = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $aPoints - Array that specifies the points of the curve: ; |[0][0] - Number of points ; |[1][0] - Point 1 X position ; |[1][1] - Point 1 Y position ; |[2][0] - Point 2 X position ; |[2][1] - Point 2 Y position ; |[n][0] - Point n X position ; |[n][1] - Point n Y position ; $hBrush - Handle to a brush object that is used to fill the ellipse. If 0, a black brush will be used. ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: In a closed cardinal spline, the curve continues through the last point in the points array and connects with ; the first point in the array. The array of points must contain a minimum of three elements. ; Related .......: ; Link ..........: @@MsdnLink@@ GdipFillClosedCurveI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsFillClosedCurve($hGraphics, $aPoints, $hBrush = 0) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("long[" & $iCount * 2 & "]") Local $pPoints = DllStructGetPtr($tPoints) For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next __GDIPlus_BrushDefCreate($hBrush) Local $aResult = DllCall($ghGDIPDll, "int", "GdipFillClosedCurveI", "handle", $hGraphics, "handle", $hBrush, "ptr", $pPoints, "int", $iCount) Local $tmpError = @error, $tmpExtended = @extended __GDIPlus_BrushDefDispose() If $tmpError Then Return SetError($tmpError, $tmpExtended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsFillClosedCurve ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsFillEllipse ; Description ...: Fill an ellipse ; Syntax.........: _GDIPlus_GraphicsFillEllipse($hGraphics, $iX, $iY, $iWidth, $iHeight[, $hBrush = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $iX - The X coordinate of the upper left corner of the rectangle that bounds the ellipse ; $iY - The Y coordinate of the upper left corner of the rectangle that bounds the ellipse ; $iWidth - The width of the rectangle that bounds the ellipse ; $iHeight - The height of the rectangle that bounds the ellipse ; $hBrush - Handle to a brush object that is used to fill the ellipse. If 0, a black brush will be used. ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipFillEllipseI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsFillEllipse($hGraphics, $iX, $iY, $iWidth, $iHeight, $hBrush = 0) __GDIPlus_BrushDefCreate($hBrush) Local $aResult = DllCall($ghGDIPDll, "int", "GdipFillEllipseI", "handle", $hGraphics, "handle", $hBrush, "int", $iX, "int", $iY, _ "int", $iWidth, "int", $iHeight) Local $tmpError = @error, $tmpExtended = @extended __GDIPlus_BrushDefDispose() If $tmpError Then Return SetError($tmpError, $tmpExtended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsFillEllipse ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsFillPie ; Description ...: Fill a pie ; Syntax.........: _GDIPlus_GraphicsFillPie($hGraphics, $iX, $iY, $iWidth, $iHeight, $fStartAngle, $fSweepAngle[, $hBrush = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $iX - The X coordinate of the upper left corner of the rectangle that bounds the ellipse in which to ; +draw the pie ; $iY - The Y coordinate of the upper left corner of the rectangle that bounds the ellipse in which to ; +draw the pie ; $iWidth - The width of the rectangle that bounds the ellipse in which to draw the pie ; $iHeight - The height of the rectangle that bounds the ellipse in which to draw the pie ; $fStartAngle - The angle, in degrees, between the X axis and the starting point of the arc that defines the ; +pie. A positive value specifies clockwise rotation. ; $fSweepAngle - The angle, in degrees, between the starting and ending points of the arc that defines the pie. ; +A positive value specifies clockwise rotation. ; $hBrush - Handle to a brush object that is used to fill the pie. If 0, a black brush will be used. ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipFillPieI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsFillPie($hGraphics, $iX, $iY, $iWidth, $iHeight, $fStartAngle, $fSweepAngle, $hBrush = 0) __GDIPlus_BrushDefCreate($hBrush) Local $aResult = DllCall($ghGDIPDll, "int", "GdipFillPieI", "handle", $hGraphics, "handle", $hBrush, "int", $iX, "int", $iY, _ "int", $iWidth, "int", $iHeight, "float", $fStartAngle, "float", $fSweepAngle) Local $tmpError = @error, $tmpExtended = @extended __GDIPlus_BrushDefDispose() If $tmpError Then Return SetError($tmpError, $tmpExtended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsFillPie ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsFillPolygon ; Description ...: Fill a polygon ; Syntax.........: _GDIPlus_GraphicsFillPolygon($hGraphics, $aPoints[, $hBrush = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $aPoints - Array that specify the vertices of the polygon: ; |[0][0] - Number of vertices ; |[1][0] - Vertice 1 X position ; |[1][1] - Vertice 1 Y position ; |[2][0] - Vertice 2 X position ; |[2][1] - Vertice 2 Y position ; |[n][0] - Vertice n X position ; |[n][1] - Vertice n Y position ; $hBrush - Handle to a brush object that is used to fill the polygon. ; - If $hBrush is 0, a solid black brush is used. ; Return values .: Success - True ; Failure - False ; Author ........: ; Modified.......: smashly ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipFillPolygonI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsFillPolygon($hGraphics, $aPoints, $hBrush = 0) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("long[" & $iCount * 2 & "]") Local $pPoints = DllStructGetPtr($tPoints) For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next __GDIPlus_BrushDefCreate($hBrush) Local $aResult = DllCall($ghGDIPDll, "int", "GdipFillPolygonI", "handle", $hGraphics, "handle", $hBrush, _ "ptr", $pPoints, "int", $iCount, "int", "FillModeAlternate") Local $tmpError = @error, $tmpExtended = @extended __GDIPlus_BrushDefDispose() If $tmpError Then Return SetError($tmpError, $tmpExtended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsFillPolygon ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsFillRect ; Description ...: Fill a rectangle ; Syntax.........: _GDIPlus_GraphicsFillRect($hGraphics, $iX, $iY, $iWidth, $iHeight[, $hBrush = 0]) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $iX - The X coordinate of the upper left corner of the rectangle ; $iY - The Y coordinate of the upper left corner of the rectangle ; $iWidth - The width of the rectangle ; $iHeight - The height of the rectangle ; $hBrush - Handle to a brush object that is used to fill the rectangle. If 0, a black brush will be used. ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipFillRectangleI ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsFillRect($hGraphics, $iX, $iY, $iWidth, $iHeight, $hBrush = 0) __GDIPlus_BrushDefCreate($hBrush) Local $aResult = DllCall($ghGDIPDll, "int", "GdipFillRectangleI", "handle", $hGraphics, "handle", $hBrush, "int", $iX, "int", $iY, _ "int", $iWidth, "int", $iHeight) Local $tmpError = @error, $tmpExtended = @extended __GDIPlus_BrushDefDispose() If $tmpError Then Return SetError($tmpError, $tmpExtended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsFillRect ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsGetDC ; Description ...: Gets a handle to the device context of the Graphics object ; Syntax.........: _GDIPlus_GraphicsGetDC($hGraphics) ; Parameters ....: $hGraphics - Handle to a Graphics object ; Return values .: Success - DC of the Graphics object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: Each call to the _GDIPlus_GraphicsGetDC should be paired with a call to the _GDIPlus_GraphicsReleaseDC. Do not call ; any methods of the Graphics object between the calls. ; Related .......: _GDIPlus_GraphicsReleaseDC ; Link ..........: @@MsdnLink@@ GdipGetDC ; Example .......: ; =============================================================================================================================== Func _GDIPlus_GraphicsGetDC($hGraphics) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetDC", "handle", $hGraphics, "ptr*", 0) If @error Then Return SetError(@error, @extended, False) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_GraphicsGetDC ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsGetSmoothingMode ; Description ...: Gets the graphics object rendering quality ; Syntax.........: _GDIPlus_GraphicsGetSmoothingMode($hGraphics) ; Parameters ....: $hGraphics - Handle to a Graphics object ; Return values .: Success - Smoothing mode. Can be one of the following: ; |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 ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_GraphicsSetSmoothingMode ; Link ..........: @@MsdnLink@@ GdipGetSmoothingMode ; Example .......: ; =============================================================================================================================== Func _GDIPlus_GraphicsGetSmoothingMode($hGraphics) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetSmoothingMode", "handle", $hGraphics, "int*", 0) If @error Then Return SetError(@error, @extended, -1) Switch $aResult[2] Case 3 Return SetExtended($aResult[0], 1) Case 7 Return SetExtended($aResult[0], 2) Case Else Return SetExtended($aResult[0], 0) EndSwitch EndFunc ;==>_GDIPlus_GraphicsGetSmoothingMode ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsMeasureString ; Description ...: Measures the size of a string ; Syntax.........: _GDIPlus_GraphicsMeasureString($hGraphics, $sString, $hFont, $tLayout, $hFormat) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $sString - String to be drawn ; $hFont - Handle to the font to use to draw the string ; $tLayout - $tagGDIPRECTF structure that bounds the string ; $hFormat - Handle to the string format to draw the string ; Return values .: Success - Array with the following format ; |[0] - $tagGDIPRECTF structure that receives the rectangle that bounds the string ; |[1] - The number of characters that actually fit into the layout rectangle ; |[2] - The number of lines that fit into the layout rectangle ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: $tagGDIPRECTF ; Link ..........: @@MsdnLink@@ GdipMeasureString ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsMeasureString($hGraphics, $sString, $hFont, $tLayout, $hFormat) Local $pLayout = DllStructGetPtr($tLayout) Local $tRectF = DllStructCreate($tagGDIPRECTF) Local $pRectF = DllStructGetPtr($tRectF) Local $aResult = DllCall($ghGDIPDll, "int", "GdipMeasureString", "handle", $hGraphics, "wstr", $sString, "int", -1, "handle", $hFont, _ "ptr", $pLayout, "handle", $hFormat, "ptr", $pRectF, "int*", 0, "int*", 0) If @error Then Return SetError(@error, @extended, 0) Local $aInfo[3] $aInfo[0] = $tRectF $aInfo[1] = $aResult[8] $aInfo[2] = $aResult[9] Return SetExtended($aResult[0], $aInfo) EndFunc ;==>_GDIPlus_GraphicsMeasureString ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsReleaseDC ; Description ...: Releases the device context of the Graphics object ; Syntax.........: _GDIPlus_GraphicsReleaseDC($hGraphics, $hDC) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $hDC - Handle to the Graphics device context ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_GraphicsGetDC ; Link ..........: @@MsdnLink@@ GdipReleaseDC ; Example .......: ; =============================================================================================================================== Func _GDIPlus_GraphicsReleaseDC($hGraphics, $hDC) Local $aResult = DllCall($ghGDIPDll, "int", "GdipReleaseDC", "handle", $hGraphics, "handle", $hDC) If @error Then Return SetError(@error, @extended, False) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_GraphicsReleaseDC ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsSetTransform ; Description ...: Sets the world transformation for a graphics object ; Syntax.........: _GDIPlus_GraphicsSetTransform($hGraphics, $hMatrix) ; Parameters ....: $hGraphics - Handle to a Graphics object ; $hMatrix - Handle to a Matrix object that specifies the world transformation ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipSetWorldTransform ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_GraphicsSetTransform($hGraphics, $hMatrix) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetWorldTransform", "handle", $hGraphics, "handle", $hMatrix) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsSetTransform ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_GraphicsSetSmoothingMode ; Description ...: Sets the graphics object rendering quality ; Syntax.........: _GDIPlus_GraphicsSetSmoothingMode($hGraphics, $iSmooth) ; Parameters ....: $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 ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_GraphicsGetSmoothingMode ; Link ..........: @@MsdnLink@@ GdipSetSmoothingMode ; Example .......: ; =============================================================================================================================== Func _GDIPlus_GraphicsSetSmoothingMode($hGraphics, $iSmooth) If $iSmooth < 0 Or $iSmooth > 4 Then $iSmooth = 0 Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetSmoothingMode", "handle", $hGraphics, "int", $iSmooth) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_GraphicsSetSmoothingMode ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ImageDispose ; Description ...: Release an image object ; Syntax.........: _GDIPlus_ImageDispose($hImage) ; Parameters ....: $hImage - Handle to an image object ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipDisposeImage ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ImageDispose($hImage) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDisposeImage", "handle", $hImage) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_ImageDispose ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ImageGetFlags ; Description ...: Returns enumeration of pixel data attributes contained in an image ; Syntax.........: _GDIPlus_ImageGetFlags($hImage) ; Parameters ....: $hImage - Handle to an image object ; Return values .: Success - Array with the following format ; |[0] - - Integer flag set of pixel data attributes ; |[1] - - String of pixel data attributes separated by delimiter "|" ; Failure - Returns empty array and @error is set, @extended set to error location ; |0 - No error. ; |4 - Invalid image handle ; Author ........: rover ; Modified.......: ; Remarks .......: @error 4 relies on GDI+ UDF return of -1 or 0 instead of image handle for errors ; Use BitAND on returned integer flag set with GdipGetImageFlags constants ; Related .......: _GDIPlus_ImageGetPixelFormat ; Link ..........: @@MsdnLink@@ GdipGetImageFlags ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ImageGetFlags($hImage) Local $aFlag[2] = [0, ""] If ($hImage = -1) Or (Not $hImage) Then Return SetError(10, 1, $aFlag) Local $aImageFlags[13][2] = _ [["Pixel data Cacheable", $GDIP_IMAGEFLAGS_CACHING], _ ["Pixel data read-only", $GDIP_IMAGEFLAGS_READONLY], _ ["Pixel size in image", $GDIP_IMAGEFLAGS_HASREALPIXELSIZE], _ ["DPI info in image", $GDIP_IMAGEFLAGS_HASREALDPI], _ ["YCCK color space", $GDIP_IMAGEFLAGS_COLORSPACE_YCCK], _ ["YCBCR color space", $GDIP_IMAGEFLAGS_COLORSPACE_YCBCR], _ ["Grayscale image", $GDIP_IMAGEFLAGS_COLORSPACE_GRAY], _ ["CMYK color space", $GDIP_IMAGEFLAGS_COLORSPACE_CMYK], _ ["RGB color space", $GDIP_IMAGEFLAGS_COLORSPACE_RGB], _ ["Partially scalable", $GDIP_IMAGEFLAGS_PARTIALLYSCALABLE], _ ["Alpha values other than 0 (transparent) and 255 (opaque)", $GDIP_IMAGEFLAGS_HASTRANSLUCENT], _ ["Alpha values", $GDIP_IMAGEFLAGS_HASALPHA], _ ["Scalable", $GDIP_IMAGEFLAGS_SCALABLE]] Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImageFlags", "handle", $hImage, "long*", 0) If @error Then Return SetError(@error, 2, $aFlag) If $aResult[2] = $GDIP_IMAGEFLAGS_NONE Then $aFlag[1] = "No pixel data" Return SetError($aResult[0], 3, $aFlag) EndIf $aFlag[0] = $aResult[2] For $i = 0 To 12 If BitAND($aResult[2], $aImageFlags[$i][1]) = $aImageFlags[$i][1] Then If StringLen($aFlag[1]) Then $aFlag[1] &= "|" $aResult[2] -= $aImageFlags[$i][1] $aFlag[1] &= $aImageFlags[$i][0] EndIf Next Return SetExtended($aResult[0], $aFlag) EndFunc ;==>_GDIPlus_ImageGetFlags ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ImageGetGraphicsContext ; Description ...: Get the graphics context of the image ; Syntax.........: _GDIPlus_ImageGetGraphicsContext($hImage) ; Parameters ....: $hImage - Handle to an image object ; Return values .: Success - Handle to a Graphics object ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipGetImageGraphicsContext ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ImageGetGraphicsContext($hImage) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImageGraphicsContext", "handle", $hImage, "ptr*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_ImageGetGraphicsContext ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ImageGetHeight ; Description ...: Get the image height ; Syntax.........: _GDIPlus_ImageGetHeight($hImage) ; Parameters ....: $hImage - Handle to an image object ; Return values .: Success - Image height, in pixels ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_ImageGetWidth ; Link ..........: @@MsdnLink@@ GdipGetImageHeight ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ImageGetHeight($hImage) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImageHeight", "handle", $hImage, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_ImageGetHeight ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ImageGetHorizontalResolution ; Description ...: Returns horizontal resolution in DPI (pixels per inch) of an image ; Syntax.........: _GDIPlus_ImageGetHorizontalResolution($hImage) ; Parameters ....: $hImage - Handle to an image object ; Return values .: Success - Integer of DPI (pixels per inch) ; Failure - Returns 0 and @error is set ; |0 - No error. ; |4 - Invalid image handle ; Author ........: rover ; Modified.......: ; Remarks .......: @error 4 relies on GDI+ UDF return of -1 or 0 instead of image handle for errors ; Related .......: _GDIPlus_ImageGetVerticalResolution ; Link ..........: @@MsdnLink@@ GdipGetImageHorizontalResolution ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ImageGetHorizontalResolution($hImage) If ($hImage = -1) Or (Not $hImage) Then Return SetError(10, 1, 0) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImageHorizontalResolution", "handle", $hImage, "float*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], Round($aResult[2])) EndFunc ;==>_GDIPlus_ImageGetHorizontalResolution ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ImageGetPixelFormat ; Description ...: Returns pixel format of an image: Bits per pixel, Alpha channels, RGB, Grayscale, Indexed etc. ; Syntax.........: _GDIPlus_ImageGetPixelFormat($hImage) ; Parameters ....: $hImage - Handle to an image object ; Return values .: Success - Array with the following format ; |[0] - - Integer of pixel format constant ; |[1] - - String of pixel format ; Failure - Returns empty array and @error is set, @extended set to error location ; |0 - No error. ; |4 - Invalid image handle ; Author ........: rover ; Modified.......: ; Remarks .......: @error 4 relies on GDI+ UDF return of -1 or 0 instead of image handle for errors ; Related .......: _GDIPlus_ImageGetFlags, _GDIPlus_BitmapLockBits, _GDIPlus_BitmapCloneArea ; Link ..........: @@MsdnLink@@ GdipGetImagePixelFormat ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ImageGetPixelFormat($hImage) Local $aFormat[2] = [0, ""] If ($hImage = -1) Or (Not $hImage) Then Return SetError(10, 1, $aFormat) Local $aPixelFormat[14][2] = _ [["1 Bpp Indexed", $GDIP_PXF01INDEXED], _ ["4 Bpp Indexed", $GDIP_PXF04INDEXED], _ ["8 Bpp Indexed", $GDIP_PXF08INDEXED], _ ["16 Bpp Grayscale", $GDIP_PXF16GRAYSCALE], _ ["16 Bpp RGB 555", $GDIP_PXF16RGB555], _ ["16 Bpp RGB 565", $GDIP_PXF16RGB565], _ ["16 Bpp ARGB 1555", $GDIP_PXF16ARGB1555], _ ["24 Bpp RGB", $GDIP_PXF24RGB], _ ["32 Bpp RGB", $GDIP_PXF32RGB], _ ["32 Bpp ARGB", $GDIP_PXF32ARGB], _ ["32 Bpp PARGB", $GDIP_PXF32PARGB], _ ["48 Bpp RGB", $GDIP_PXF48RGB], _ ["64 Bpp ARGB", $GDIP_PXF64ARGB], _ ["64 Bpp PARGB", $GDIP_PXF64PARGB]] Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImagePixelFormat", "handle", $hImage, "int*", 0) If @error Then Return SetError(@error, @extended, $aFormat) For $i = 0 To 13 If $aPixelFormat[$i][1] = $aResult[2] Then $aFormat[0] = $aPixelFormat[$i][1] $aFormat[1] = $aPixelFormat[$i][0] Return SetExtended($aResult[0], $aFormat) EndIf Next Return SetExtended($aResult[0], $aFormat) EndFunc ;==>_GDIPlus_ImageGetPixelFormat ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ImageGetRawFormat ; Description ...: Returns file format GUID and image format name of an image ; Syntax.........: _GDIPlus_ImageGetRawFormat($hImage) ; Parameters ....: $hImage - Handle to an image object ; Return values .: Success - Array with the following format ; |[0] - - String of file format GUID ; |[1] - - String of image format name ; Failure - Returns empty array and @error is set, @extended set to error location ; |0 - No error. ; |4 - Invalid image handle ; Author ........: rover ; Modified.......: ; Remarks .......: @error 4 relies on GDI+ UDF return of -1 or 0 instead of image handle for errors ; Related .......: _GDIPlus_ImageGetType ; Link ..........: @@MsdnLink@@ GdipGetImageRawFormat ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ImageGetRawFormat($hImage) Local $aGuid[2] If ($hImage = -1) Or (Not $hImage) Then Return SetError(10, 1, $aGuid) Local $aImageType[11][2] = _ [["UNDEFINED", $GDIP_IMAGEFORMAT_UNDEFINED], _ ["MEMORYBMP", $GDIP_IMAGEFORMAT_MEMORYBMP], _ ["BMP", $GDIP_IMAGEFORMAT_BMP], _ ["EMF", $GDIP_IMAGEFORMAT_EMF], _ ["WMF", $GDIP_IMAGEFORMAT_WMF], _ ["JPEG", $GDIP_IMAGEFORMAT_JPEG], _ ["PNG", $GDIP_IMAGEFORMAT_PNG], _ ["GIF", $GDIP_IMAGEFORMAT_GIF], _ ["TIFF", $GDIP_IMAGEFORMAT_TIFF], _ ["EXIF", $GDIP_IMAGEFORMAT_EXIF], _ ["ICON", $GDIP_IMAGEFORMAT_ICON]] Local $tStruc = DllStructCreate("byte[16]") Local $aResult1 = DllCall($ghGDIPDll, "int", "GdipGetImageRawFormat", "handle", $hImage, "ptr", DllStructGetPtr($tStruc)) If @error Then Return SetError(@error, @extended, $aGuid) If (Not IsArray($aResult1)) Or (Not IsPtr($aResult1[2])) Or _ (Not $aResult1[2]) Then Return SetError(1, 3, $aGuid) Local $sResult2 = _WinAPI_StringFromGUID($aResult1[2]) If @error Then Return SetError(@error, 4, $aGuid) For $i = 0 To 10 If $aImageType[$i][1] == $sResult2 Then $aGuid[0] = $aImageType[$i][1] $aGuid[1] = $aImageType[$i][0] Return SetExtended($aResult1[0], $aGuid) EndIf Next Return SetError(-1, 5, $aGuid) EndFunc ;==>_GDIPlus_ImageGetRawFormat ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ImageGetType ; Description ...: Returns type (bitmap or metafile) of an image ; Syntax.........: _GDIPlus_ImageGetType($hImage) ; Parameters ....: $hImage - Handle to an image object ; Return values .: Success - Integer of image type ; |$GDIP_IMAGETYPE_UNKNOWN - Non bitmap file or not identified as bitmap by GDI+ ; |$GDIP_IMAGETYPE_BITMAP - Bitmap types: BMP, PNG, GIF, JPEG, TIFF, ICO, EXIF ; |$GDIP_IMAGETYPE_METAFILE - Metafile types: EMF, WMF ; Failure - Returns -1 and @error is set ; |0 - No error. ; |4 - Invalid image handle ; Author ........: rover ; Modified.......: ; Remarks .......: @error 4 relies on GDI+ UDF return of -1 or 0 instead of image handle for errors ; Related .......: _GDIPlus_ImageGetRawFormat ; Link ..........: @@MsdnLink@@ GdipGetImageType ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ImageGetType($hImage) If ($hImage = -1) Or (Not $hImage) Then Return SetError(10, 0, -1) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImageType", "handle", $hImage, "int*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_ImageGetType ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ImageGetVerticalResolution ; Description ...: Returns horizontal resolution in DPI (pixels per inch) of an image ; Syntax.........: _GDIPlus_ImageGetVerticalResolution($hImage) ; Parameters ....: $hImage - Handle to an image object ; Return values .: Success - Integer of DPI (pixels per inch) ; Failure - Returns 0 and @error is set ; |0 - No error. ; |4 - Invalid image handle ; Author ........: rover ; Modified.......: ; Remarks .......: @error 4 relies on GDI+ UDF return of -1 or 0 instead of image handle for errors ; Related .......: _GDIPlus_ImageGetHorizontalResolution ; Link ..........: @@MsdnLink@@ GdipGetImageVerticalResolution ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ImageGetVerticalResolution($hImage) If ($hImage = -1) Or (Not $hImage) Then Return SetError(10, 0, 0) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImageVerticalResolution", "handle", $hImage, "float*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], Round($aResult[2])) EndFunc ;==>_GDIPlus_ImageGetVerticalResolution ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ImageGetWidth ; Description ...: Get the image width ; Syntax.........: _GDIPlus_ImageGetWidth($hImage) ; Parameters ....: $hImage - Handle to an image object ; Return values .: Success - Image width, in pixels ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_ImageGetHeight ; Link ..........: @@MsdnLink@@ GdipGetImageWidth ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ImageGetWidth($hImage) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetImageWidth", "handle", $hImage, "uint*", -1) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_ImageGetWidth ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ImageLoadFromFile ; Description ...: Create an image object based on a file ; Syntax.........: _GDIPlus_ImageLoadFromFile($sFileName) ; Parameters ....: $sFileName - Fully qualified image file name ; Return values .: Success - Handle to the new image object ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost/martin ; Remarks .......: ; Related .......: _GDIPlus_ImageSaveToFile, _GDIPlus_ImageSaveToFileEx ; Link ..........: @@MsdnLink@@ GdipLoadImageFromFile ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ImageLoadFromFile($sFileName) Local $aResult = DllCall($ghGDIPDll, "int", "GdipLoadImageFromFile", "wstr", $sFileName, "ptr*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_ImageLoadFromFile ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ImageSaveToFile ; Description ...: Save an image to file ; Syntax.........: _GDIPlus_ImageSaveToFile($hImage, $sFileName) ; Parameters ....: $hImage - Handle to an image object ; $sFileName - Fully qualified image file name ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_ImageLoadFromFile, _GDIPlus_ImageSaveToFileEx ; Link ..........: @@MsdnLink@@ GdipSaveImageToFile ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ImageSaveToFile($hImage, $sFileName) Local $sExt = __GDIPlus_ExtractFileExt($sFileName) Local $sCLSID = _GDIPlus_EncodersGetCLSID($sExt) If $sCLSID = "" Then Return SetError(-1, 0, False) Return _GDIPlus_ImageSaveToFileEx($hImage, $sFileName, $sCLSID, 0) EndFunc ;==>_GDIPlus_ImageSaveToFile ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ImageSaveToFileEx ; Description ...: Save an image to file ; Syntax.........: _GDIPlus_ImageSaveToFileEx($hImage, $sFileName, $sEncoder[, $pParams = 0]) ; Parameters ....: $hImage - Handle to an image object ; $sFileName - Fully qualified image file name ; $sEncoder - GUID string of encoder to be used ; $pParams - Pointer to a $tagGDIPPENCODERPARAMS structure ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_ImageLoadFromFile, _GDIPlus_ImageSaveToFile, $tagGDIPPENCODERPARAMS ; Link ..........: @@MsdnLink@@ GdipSaveImageToFile ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ImageSaveToFileEx($hImage, $sFileName, $sEncoder, $pParams = 0) Local $tGUID = _WinAPI_GUIDFromString($sEncoder) Local $pGUID = DllStructGetPtr($tGUID) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSaveImageToFile", "handle", $hImage, "wstr", $sFileName, "ptr", $pGUID, "ptr", $pParams) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_ImageSaveToFileEx ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_MatrixCreate ; Description ...: Creates and initializes a Matrix object that represents the identity matrix ; Syntax.........: _GDIPlus_MatrixCreate() ; Parameters ....: ; Return values .: Success - Handle to a Matrix object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the matrix, call _GDIPlus_MatrixDispose to release the resources ; Related .......: _GDIPlus_MatrixDispose ; Link ..........: @@MsdnLink@@ GdipCreateMatrix ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_MatrixCreate() Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreateMatrix", "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[1]) EndFunc ;==>_GDIPlus_MatrixCreate ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_MatrixDispose ; Description ...: Release a matrix object ; Syntax.........: _GDIPlus_MatrixDispose($hMatrix) ; Parameters ....: $hMatrix - Handle to a Matrix object ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_MatrixCreate ; Link ..........: @@MsdnLink@@ GdipDeleteMatrix ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_MatrixDispose($hMatrix) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDeleteMatrix", "handle", $hMatrix) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_MatrixDispose ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_MatrixRotate ; Description ...: Updates a matrix with the product of itself and a rotation matrix ; Syntax.........: _GDIPlus_MatrixRotate($hMatrix, $fAngle[, $bAppend = False]) ; Parameters ....: $hMatrix - Handle to a Matrix object ; $fAngle - The angle of rotation in degrees. Positive values specify clockwise rotation. ; $bAppend - Specifies the order of the multiplication: ; |True - Specifies that the rotation matrix is on the left ; |False - Specifies that the rotation matrix is on the right ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipRotateMatrix ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_MatrixRotate($hMatrix, $fAngle, $bAppend = False) Local $aResult = DllCall($ghGDIPDll, "int", "GdipRotateMatrix", "handle", $hMatrix, "float", $fAngle, "int", $bAppend) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_MatrixRotate ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_MatrixScale ; Description ...: Updates a matrix with the product of itself and a scaling matrix ; Syntax.........: _GDIPlus_MatrixScale($hMatrix, $fScaleX, $fScaleY[, $bOrder = False]) ; Parameters ....: $hMatrix - Handle to a Matrix object ; $fScaleX - Multiplyier to scale the x-axis ; $fScaleY - Multiplyier to scale the y-axis ; $bOrder - Specifies the order of the multiplication: ; |True - Specifies that the scaling matrix is on the left ; |False - Specifies that the scaling matrix is on the right ; Return values .: Success - True ; Failure - False ; Author ........: monoceres ; Modified.......: ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipScaleMatrix ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_MatrixScale($hMatrix, $fScaleX, $fScaleY, $bOrder = False) Local $aResult = DllCall($ghGDIPDll, "int", "GdipScaleMatrix", "handle", $hMatrix, "float", $fScaleX, "float", $fScaleY, "int", $bOrder) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_MatrixScale ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_MatrixTranslate ; Description ...: Updates a matrix with the product of itself and a translation matrix ; Syntax.........: _GDIPlus_MatrixTranslate($hMatrix, $fOffsetX, $fOffsetY[, $bAppend = False]) ; Parameters ....: $hMatrix - Handle to a Matrix object ; $fOffsetX - Amount of pixels to add along the x-axis ; $fOffsetY - Amount of pixels to add along the y-axis ; $bAppend - Specifies the order of the multiplication: ; |True - Specifies that the translation matrix is on the left ; |False - Specifies that the translation matrix is on the right ; Return values .: Success - True ; Failure - False ; Author ........: monoceres ; Modified.......: ; Remarks .......: ; Related .......: ; Link ..........: @@MsdnLink@@ GdipTranslateMatrix ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_MatrixTranslate($hMatrix, $fOffsetX, $fOffsetY, $bAppend = False) Local $aResult = DllCall($ghGDIPDll, "int", "GdipTranslateMatrix", "handle", $hMatrix, "float", $fOffsetX, "float", $fOffsetY, "int", $bAppend) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_MatrixTranslate ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ParamAdd ; Description ...: Add a value to an encoder parameter list ; Syntax.........: _GDIPlus_ParamAdd(ByRef $tParams, $sGUID, $iCount, $iType, $pValues) ; Parameters ....: $tParams - $tagGDIPPENCODERPARAMS structure returned from _GDIPlus_ParamInit ; $sGUID - Encoder parameter GUID. Can be one of the following: ; |$GDIP_EPGCHROMINANCETABLE - Chrominance table settings ; |$GDIP_EPGCOLORDEPTH - Color depth settings ; |$GDIP_EPGCOMPRESSION - Compression settings ; |$GDIP_EPGLUMINANCETABLE - Luminance table settings ; |$GDIP_EPGQUALITY - Quality settings ; |$GDIP_EPGRENDERMETHOD - Render method settings ; |$GDIP_EPGSAVEFLAG - Save flag settings ; |$GDIP_EPGSCANMETHOD - Scan mode settings ; |$GDIP_EPGTRANSFORMATION - Transformation settings ; |$GDIP_EPGVERSION - Software version settings ; $iCount - Number of elements in the $pValues array ; $iType - Encoder parameter value type. Can be one of the following: ; |$GDIP_EPTBYTE - 8 bit unsigned integer ; |$GDIP_EPTASCII - Null terminated character string ; |$GDIP_EPTSHORT - 16 bit unsigned integer ; |$GDIP_EPTLONG - 32 bit unsigned integer ; |$GDIP_EPTRATIONAL - Two longs (numerator, denomintor) ; |$GDIP_EPTLONGRANGE - Two longs (low, high) ; |$GDIP_EPTUNDEFINED - Array of bytes of any type ; |$GDIP_EPTRATIONALRANGE - Two ratationals (low, high) ; $pValues - Pointer to an array of values. Each value has the type specified by the $iType data member. ; Return values .: ; Author ........: Paul Campbell (PaulIA) ; Modified.......: ; Remarks .......: ; Related .......: _GDIPlus_ParamInit, $tagGDIPPENCODERPARAMS ; Link ..........: ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ParamAdd(ByRef $tParams, $sGUID, $iCount, $iType, $pValues) Local $tParam = DllStructCreate($tagGDIPENCODERPARAM, DllStructGetPtr($tParams, "Params") + (DllStructGetData($tParams, "Count") * 28)) _WinAPI_GUIDFromStringEx($sGUID, DllStructGetPtr($tParam, "GUID")) DllStructSetData($tParam, "Type", $iType) DllStructSetData($tParam, "Count", $iCount) DllStructSetData($tParam, "Values", $pValues) DllStructSetData($tParams, "Count", DllStructGetData($tParams, "Count") + 1) EndFunc ;==>_GDIPlus_ParamAdd ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_ParamInit ; Description ...: Initialize an encoder parameter list ; Syntax.........: _GDIPlus_ParamInit($iCount) ; Parameters ....: $iCount - The total number of parameters that the list will contain ; Return values .: Success - $tagGDIPPENCODERPARAMS structure ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: ; Remarks .......: In order to pass parameters to any of the encoder functions, you must use an encoder parameter list. This ; function is used to initialize an encoder parameter list that can then be passed to _GDIPlus_Param add to add the ; actual parameters. ; Related .......: _GDIPlus_ParamAdd, $tagGDIPPENCODERPARAMS ; Link ..........: ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_ParamInit($iCount) If $iCount <= 0 Then Return SetError(-1, -1, 0) Return DllStructCreate("dword Count;byte Params[" & $iCount * 28 & "]") EndFunc ;==>_GDIPlus_ParamInit ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenCreate ; Description ...: Create a pen object ; Syntax.........: _GDIPlus_PenCreate([$iARGB = 0xFF000000[, $nWidth = 1[, $iUnit = 2]]]) ; Parameters ....: $iARGB - Alpha, Red, Green and Blue components of pen color ; $nWidth - The width of the pen measured in the units specified in the $iUnit parameter ; $iUnit - Unit of measurement for the pen size: ; |0 - World coordinates, a nonphysical unit ; |1 - Display units ; |2 - A unit is 1 pixel ; |3 - A unit is 1 point or 1/72 inch ; |4 - A unit is 1 inch ; |5 - A unit is 1/300 inch ; |6 - A unit is 1 millimeter ; Return values .: Success - Handle to a pen object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the pen, call _GDIPlus_PenDispose to release the resources ; Related .......: _GDIPlus_PenDispose ; Link ..........: @@MsdnLink@@ GdipCreatePen1 ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenCreate($iARGB = 0xFF000000, $fWidth = 1, $iUnit = 2) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreatePen1", "dword", $iARGB, "float", $fWidth, "int", $iUnit, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[4]) EndFunc ;==>_GDIPlus_PenCreate ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenDispose ; Description ...: Release a pen object ; Syntax.........: _GDIPlus_PenDispose($hPen) ; Parameters ....: $hPen - Handle to a pen object ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenCreate ; Link ..........: @@MsdnLink@@ GdipDeletePen ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenDispose($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDeletePen", "handle", $hPen) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_PenDispose ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenGetAlignment ; Description ...: Gets the pen alignment ; Syntax.........: _GDIPlus_PenGetAlignment($hPen) ; Parameters ....: $hPen - Handle to a pen object ; Return values .: Success - Alignment type: ; |0 - Specifies that the pen is aligned on the center of the line that is drawn ; |1 - Specifies, when drawing a polygon, that the pen is aligned on the inside of the edge of the polygon ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenSetAlignment ; Link ..........: @@MsdnLink@@ GdipGetPenMode ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenGetAlignment($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetPenMode", "handle", $hPen, "int*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_PenGetAlignment ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenGetColor ; Description ...: Gets the pen color ; Syntax.........: _GDIPlus_PenGetColor($hPen) ; Parameters ....: $hPen - Handle to a pen object ; Return values .: Success - Pen color ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenSetColor ; Link ..........: @@MsdnLink@@ GdipGetPenColor ; Example .......: ; =============================================================================================================================== Func _GDIPlus_PenGetColor($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetPenColor", "handle", $hPen, "dword*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_PenGetColor ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenGetCustomEndCap ; Description ...: Gets the custom end cap for the pen ; Syntax.........: _GDIPlus_PenGetCustomEndCap($hPen) ; Parameters ....: $hPen - Handle to a pen object ; Return values .: Success - Handle to a CustomLineCap object that specifies the pen custom end cap ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenSetCustomEndCap ; Link ..........: @@MsdnLink@@ GdipGetPenCustomEndCap ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenGetCustomEndCap($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetPenCustomEndCap", "handle", $hPen, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_PenGetCustomEndCap ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenGetDashCap ; Description ...: Gets the pen dash cap style ; Syntax.........: _GDIPlus_PenGetDashCap($hPen) ; Parameters ....: $hPen - Handle to a pen object ; Return values .: Success - Dash cap style: ; |$GDIP_DASHCAPFLAT - A square cap that squares off both ends of each dash ; |$GDIP_DASHCAPROUND - A circular cap that rounds off both ends of each dash ; |$GDIP_DASHCAPTRIANGLE - A triangular cap that points both ends of each dash ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenSetDashCap ; Link ..........: @@MsdnLink@@ GdipGetPenDashCap197819 ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenGetDashCap($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetPenDashCap197819", "handle", $hPen, "int*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_PenGetDashCap ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenGetDashStyle ; Description ...: Gets the pen dash style ; Syntax.........: _GDIPlus_PenGetDashStyle($hPen) ; Parameters ....: $hPen - Handle to a pen object ; Return values .: Success - Dash style: ; |$GDIP_DASHSTYLESOLID - A solid line ; |$GDIP_DASHSTYLEDASH - A dashed line ; |$GDIP_DASHSTYLEDOT - A dotted line ; |$GDIP_DASHSTYLEDASHDOT - An alternating dash-dot line ; |$GDIP_DASHSTYLEDASHDOTDOT - An alternating dash-dot-dot line ; |$GDIP_DASHSTYLECUSTOM - A a user-defined, custom dashed line ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenSetDashStyle ; Link ..........: @@MsdnLink@@ GdipGetPenDashStyle ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenGetDashStyle($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetPenDashStyle", "handle", $hPen, "int*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_PenGetDashStyle ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenGetEndCap ; Description ...: Gets the pen end cap ; Syntax.........: _GDIPlus_PenGetEndCap($hPen) ; Parameters ....: $hPen - Handle to a pen object ; Return values .: Success - End cap type: ; |$GDIP_LINECAPFLAT - Specifies a flat cap ; |$GDIP_LINECAPSQUARE - Specifies a square cap ; |$GDIP_LINECAPROUND - Specifies a circular cap ; |$GDIP_LINECAPTRIANGLE - Specifies a triangular cap ; |$GDIP_LINECAPNOANCHOR - Specifies that the line ends are not anchored ; |$GDIP_LINECAPSQUAREANCHOR - Specifies that the line ends are anchored with a square ; |$GDIP_LINECAPROUNDANCHOR - Specifies that the line ends are anchored with a circle ; |$GDIP_LINECAPDIAMONDANCHOR - Specifies that the line ends are anchored with a diamond ; |$GDIP_LINECAPARROWANCHOR - Specifies that the line ends are anchored with arrowheads ; |$GDIP_LINECAPCUSTOM - Specifies that the line ends are made from a CustomLineCap ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenSetEndCap ; Link ..........: @@MsdnLink@@ GdipGetPenEndCap ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenGetEndCap($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetPenEndCap", "handle", $hPen, "int*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_PenGetEndCap ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenGetWidth ; Description ...: Retrieve the width of a pen ; Syntax.........: _GDIPlus_PenGetWidth($hPen) ; Parameters ....: $hPen - Handle to a pen object ; Return values .: Success - Width of pen ; Failure - -1 and @error is set ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenSetWidth ; Link ..........: @@MsdnLink@@ GdipGetPenWidth ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenGetWidth($hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipGetPenWidth", "handle", $hPen, "float*", 0) If @error Then Return SetError(@error, @extended, -1) Return SetExtended($aResult[0], $aResult[2]) EndFunc ;==>_GDIPlus_PenGetWidth ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenSetAlignment ; Description ...: Sets the pen alignment ; Syntax.........: _GDIPlus_PenSetAlignment($hPen[, $iAlignment = 0]) ; Parameters ....: $hPen - Handle to a pen object ; $iAlignment - Pen alignment. Can be one of the following: ; |0 - Specifies that the pen is aligned on the center of the line that is drawn ; |1 - Specifies, when drawing a polygon, that the pen is aligned on the inside of the edge of the polygon ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenGetAlignment ; Link ..........: @@MsdnLink@@ GdipSetPenMode ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenSetAlignment($hPen, $iAlignment = 0) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetPenMode", "handle", $hPen, "int", $iAlignment) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_PenSetAlignment ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenSetColor ; Description ...: Sets the pen color ; Syntax.........: _GDIPlus_PenSetColor($hPen, $iARGB) ; Parameters ....: $hPen - Handle to a pen object ; $iARGB - Alpha, Red, Green and Blue components of pen color ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenGetColor ; Link ..........: @@MsdnLink@@ GdipSetPenColor ; Example .......: ; =============================================================================================================================== Func _GDIPlus_PenSetColor($hPen, $iARGB) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetPenColor", "handle", $hPen, "dword", $iARGB) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_PenSetColor ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenSetDashCap ; Description ...: Sets the pen dash cap style ; Syntax.........: _GDIPlus_PenSetDashCap($hPen[, $iDash = 0]) ; Parameters ....: $hPen - Handle to a pen object ; $iDash - Dash cap style. Can be one of the following: ; |$GDIP_DASHCAPFLAT - A square cap that squares off both ends of each dash ; |$GDIP_DASHCAPROUND - A circular cap that rounds off both ends of each dash ; |$GDIP_DASHCAPTRIANGLE - A triangular cap that points both ends of each dash ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenGetDashCap ; Link ..........: @@MsdnLink@@ GdipSetPenDashCap197819 ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenSetDashCap($hPen, $iDash = 0) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetPenDashCap197819", "handle", $hPen, "int", $iDash) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_PenSetDashCap ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenSetCustomEndCap ; Description ...: Sets the custom end cap for the pen ; Syntax.........: _GDIPlus_PenSetCustomEndCap($hPen, $hEndCap) ; Parameters ....: $hPen - Handle to a pen object ; $hEndCap - Handle to a CustomLineCap object that specifies the pen custom end cap ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenGetCustomEndCap ; Link ..........: @@MsdnLink@@ GdipSetPenCustomEndCap ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenSetCustomEndCap($hPen, $hEndCap) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetPenCustomEndCap", "handle", $hPen, "handle", $hEndCap) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_PenSetCustomEndCap ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenSetDashStyle ; Description ...: Sets the pen dash style ; Syntax.........: _GDIPlus_PenSetDashStyle($hPen[, $iStyle = 0]) ; Parameters ....: $hPen - Handle to a pen object ; $iStyle - Dash style. Can be one of the following: ; |$GDIP_DASHSTYLESOLID - A solid line ; |$GDIP_DASHSTYLEDASH - A dashed line ; |$GDIP_DASHSTYLEDOT - A dotted line ; |$GDIP_DASHSTYLEDASHDOT - An alternating dash-dot line ; |$GDIP_DASHSTYLEDASHDOTDOT - An alternating dash-dot-dot line ; |$GDIP_DASHSTYLECUSTOM - A a user-defined, custom dashed line ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenGetDashStyle ; Link ..........: @@MsdnLink@@ GdipSetPenDashStyle ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenSetDashStyle($hPen, $iStyle = 0) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetPenDashStyle", "handle", $hPen, "int", $iStyle) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_PenSetDashStyle ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenSetEndCap ; Description ...: Sets the pen end cap ; Syntax.........: _GDIPlus_PenSetEndCap($hPen, $iEndCap) ; Parameters ....: $hPen - Handle to a pen object ; $iEndCap - End cap type. Can be one of the following: ; |$GDIP_LINECAPFLAT - Specifies a flat cap ; |$GDIP_LINECAPSQUARE - Specifies a square cap ; |$GDIP_LINECAPROUND - Specifies a circular cap ; |$GDIP_LINECAPTRIANGLE - Specifies a triangular cap ; |$GDIP_LINECAPNOANCHOR - Specifies that the line ends are not anchored ; |$GDIP_LINECAPSQUAREANCHOR - Specifies that the line ends are anchored with a square ; |$GDIP_LINECAPROUNDANCHOR - Specifies that the line ends are anchored with a circle ; |$GDIP_LINECAPDIAMONDANCHOR - Specifies that the line ends are anchored with a diamond ; |$GDIP_LINECAPARROWANCHOR - Specifies that the line ends are anchored with arrowheads ; |$GDIP_LINECAPCUSTOM - Specifies that the line ends are made from a CustomLineCap ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenGetEndCap ; Link ..........: @@MsdnLink@@ GdipSetPenEndCap ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenSetEndCap($hPen, $iEndCap) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetPenEndCap", "handle", $hPen, "int", $iEndCap) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_PenSetEndCap ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_PenSetWidth ; Description ...: Sets the width of a pen ; Syntax.........: _GDIPlus_PenSetWidth($hPen, $fWidth) ; Parameters ....: $hPen - Handle to a pen object ; $fWidth - Width of pen ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_PenGetWidth ; Link ..........: @@MsdnLink@@ GdipSetPenWidth ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_PenSetWidth($hPen, $fWidth) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetPenWidth", "handle", $hPen, "float", $fWidth) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_PenSetWidth ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_RectFCreate ; Description ...: Create a $tagGDIPRECTF structure ; Syntax.........: _GDIPlus_RectFCreate([$nX = 0[, $nY = 0[, $nWidth = 0[, $nHeight = 0]]]]) ; Parameters ....: $nX - X coordinate of upper left hand corner of rectangle ; $nY - Y coordinate of upper left hand corner of rectangle ; $nWidth - Rectangle width ; $nHeight - Rectangle height ; Return values .: Success - $tagGDIPRECTF structure ; Author ........: Paul Campbell (PaulIA) ; Modified.......: ; Remarks .......: ; Related .......: $tagGDIPRECTF ; Link ..........: ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_RectFCreate($nX = 0, $nY = 0, $nWidth = 0, $nHeight = 0) Local $tRectF = DllStructCreate($tagGDIPRECTF) DllStructSetData($tRectF, "X", $nX) DllStructSetData($tRectF, "Y", $nY) DllStructSetData($tRectF, "Width", $nWidth) DllStructSetData($tRectF, "Height", $nHeight) Return $tRectF EndFunc ;==>_GDIPlus_RectFCreate ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_Shutdown ; Description ...: Clean up resources used by Microsoft Windows GDI+ ; Syntax.........: _GDIPlus_Shutdown() ; Parameters ....: ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: ; Remarks .......: You must dispose of all of your GDI+ objects before you call _GDIPlus_Shutdown ; Related .......: _GDIPlus_Startup ; Link ..........: @@MsdnLink@@ GdiplusShutdown ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_Shutdown() If $ghGDIPDll = 0 Then Return SetError(-1, -1, False) $giGDIPRef -= 1 If $giGDIPRef = 0 Then DllCall($ghGDIPDll, "none", "GdiplusShutdown", "ptr", $giGDIPToken) DllClose($ghGDIPDll) $ghGDIPDll = 0 EndIf Return True EndFunc ;==>_GDIPlus_Shutdown ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_Startup ; Description ...: Initialize Microsoft Windows GDI+ ; Syntax.........: _GDIPlus_Startup() ; Parameters ....: ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: Call _GDIPlus_Startup before you create any GDI+ objects. GDI+ requires a redistributable for applications that ; run on the Microsoft Windows NT 4.0 SP6, Windows 2000, Windows 98, and Windows Me operating systems. ; Related .......: _GDIPlus_Shutdown ; Link ..........: @@MsdnLink@@ GdiplusStartup ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_Startup() $giGDIPRef += 1 If $giGDIPRef > 1 Then Return True $ghGDIPDll = DllOpen("GDIPlus.dll") If $ghGDIPDll = -1 Then Return SetError(1, 2, False) Local $tInput = DllStructCreate($tagGDIPSTARTUPINPUT) Local $pInput = DllStructGetPtr($tInput) Local $tToken = DllStructCreate("ulong_ptr Data") Local $pToken = DllStructGetPtr($tToken) DllStructSetData($tInput, "Version", 1) Local $aResult = DllCall($ghGDIPDll, "int", "GdiplusStartup", "ptr", $pToken, "ptr", $pInput, "ptr", 0) If @error Then Return SetError(@error, @extended, False) $giGDIPToken = DllStructGetData($tToken, "Data") Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_Startup ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_StringFormatCreate ; Description ...: Create a String Format object ; Syntax.........: _GDIPlus_StringFormatCreate([$iFormat = 0[, $iLangID = 0]]) ; Parameters ....: $iFormat - Format flags. Can be one or more of the following: ; |0x0001 - Specifies that reading order is right to left ; |0x0002 - Specifies that individual lines of text are drawn vertically on the display device ; |0x0004 - Specifies that parts of characters are allowed to overhang the string's layout rectangle ; |0x0020 - Specifies that Unicode layout control characters are displayed with a representative character ; |0x0400 - Specifies that an alternate font is used for characters that are not supported in the requested font ; |0x0800 - Specifies that the space at the end of each line is included in a string measurement ; |0x1000 - Specifies that the wrapping of text to the next line is disabled ; |0x2000 - Specifies that only entire lines are laid out in the layout rectangle ; |0x4000 - Specifies that characters overhanging the layout rectangle and text extending outside the layout ; +rectangle are allowed to show ; $iLangID - The language to use ; Return values .: Success - Handle to a string format object ; Failure - 0 ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: When you are done with the String Format object, call _GDIPlus_StringFormatDispose to release the resources ; Related .......: _GDIPlus_StringFormatDispose, _GDIPlus_StringFormatSetAlign ; Link ..........: @@MsdnLink@@ GdipCreateStringFormat ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_StringFormatCreate($iFormat = 0, $iLangID = 0) Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreateStringFormat", "int", $iFormat, "word", $iLangID, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aResult[3]) EndFunc ;==>_GDIPlus_StringFormatCreate ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_StringFormatDispose ; Description ...: Release a String Format object ; Syntax.........: _GDIPlus_StringFormatDispose($hFormat) ; Parameters ....: $hFormat - Handle to a String Format object ; Return values .: Success - True ; Failure - False ; Author ........: Paul Campbell (PaulIA) ; Modified.......: Gary Frost ; Remarks .......: ; Related .......: _GDIPlus_StringFormatCreate ; Link ..........: @@MsdnLink@@ GdipDeleteStringFormat ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_StringFormatDispose($hFormat) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDeleteStringFormat", "handle", $hFormat) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_StringFormatDispose ; #FUNCTION# ==================================================================================================================== ; Name...........: _GDIPlus_StringFormatSetAlign ; Description ...: Sets the text alignment of a string format object ; Syntax.........: _GDIPlus_StringFormatSetAlign($hStringFormat,$iFlag) ; Parameters ....: $hStringFormat - The string format object which is aligned ; $iFlag - The alignment can be one of the following: ; |0 - The text is aligned to the left ; |1 - The text is centered ; |2 - The text is aligned to the right ; Return values .: Success - 1 ; Failure - 0 and @error=1 ; Author ........: Andreas Karlsson (monoceres) ; Modified.......: ; Remarks .......: ; Related .......: _GDIPlus_StringFormatCreate ; Link ..........: @@MsdnLink@@ GdipSetStringFormatAlign ; Example .......: Yes ; =============================================================================================================================== Func _GDIPlus_StringFormatSetAlign($hStringFormat, $iFlag) Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetStringFormatAlign", "handle", $hStringFormat, "int", $iFlag) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_StringFormatSetAlign ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __GDIPlus_BrushDefCreate ; Description ...: Create a default Brush object if needed ; Syntax.........: __GDIPlus_BrushDefCreate(ByRef $hBrush) ; Parameters ....: $hBrush - Handle to a Brush object ; Return values .: Success - $hBrush or a default Brush object ; Author ........: Paul Campbell (PaulIA) ; Modified.......: ; Remarks .......: ; Related .......: ; Link ..........: ; Example .......: ; =============================================================================================================================== Func __GDIPlus_BrushDefCreate(ByRef $hBrush) If $hBrush = 0 Then $ghGDIPBrush = _GDIPlus_BrushCreateSolid() $hBrush = $ghGDIPBrush EndIf EndFunc ;==>__GDIPlus_BrushDefCreate ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __GDIPlus_BrushDefDispose ; Description ...: Free default Brush object ; Syntax.........: __GDIPlus_BrushDefDispose() ; Parameters ....: ; Return values .: ; Author ........: Paul Campbell (PaulIA) ; Modified.......: ; Remarks .......: ; Related .......: ; Link ..........: ; Example .......: ; =============================================================================================================================== Func __GDIPlus_BrushDefDispose() If $ghGDIPBrush <> 0 Then _GDIPlus_BrushDispose($ghGDIPBrush) $ghGDIPBrush = 0 EndIf EndFunc ;==>__GDIPlus_BrushDefDispose ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __GDIPlus_ExtractFileExt ; Description ...: Extracts the extension part of the given filename ; Syntax.........: __GDIPlus_ExtractFileExt($sFileName[, $fNoDot = True]) ; Parameters ....: $sFileName - Filename ; $fNoDot - Determines whether the filename/extension separator is returned ; |True - The separator is returned with the extension ; |False - The separator is not returned with the extension ; Return values .: Success - Extension part ; Failure - Empty string ; Author ........: Paul Campbell (PaulIA) ; Modified.......: ; Remarks .......: ; Related .......: ; Link ..........: ; Example .......: ; =============================================================================================================================== Func __GDIPlus_ExtractFileExt($sFileName, $fNoDot = True) Local $iIndex = __GDIPlus_LastDelimiter(".\:", $sFileName) If ($iIndex > 0) And (StringMid($sFileName, $iIndex, 1) = '.') Then If $fNoDot Then Return StringMid($sFileName, $iIndex + 1) Else Return StringMid($sFileName, $iIndex) EndIf Else Return "" EndIf EndFunc ;==>__GDIPlus_ExtractFileExt ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __GDIPlus_LastDelimiter ; Description ...: Returns the index of the right most whole character that matches any character in a delimiter string ; Syntax.........: __GDIPlus_LastDelimiter($sDelimiters, $sString) ; Parameters ....: $sDelimiters - Delimiters ; $String - String to be searched ; Return values .: Success - Right most whole character that matches one of the delimiters ; Author ........: Paul Campbell (PaulIA) ; Modified.......: ; Remarks .......: ; Related .......: ; Link ..........: ; Example .......: ; =============================================================================================================================== Func __GDIPlus_LastDelimiter($sDelimiters, $sString) Local $sDelimiter, $iN For $iI = 1 To StringLen($sDelimiters) $sDelimiter = StringMid($sDelimiters, $iI, 1) $iN = StringInStr($sString, $sDelimiter, 0, -1) If $iN > 0 Then Return $iN Next EndFunc ;==>__GDIPlus_LastDelimiter ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __GDIPlus_PenDefCreate ; Description ...: Create a default Pen object if needed ; Syntax.........: __GDIPlus_PenDefCreate(ByRef $hPen) ; Parameters ....: $hPen - Handle to a pen object ; Return values .: Success - $hPen or a default pen object ; Author ........: Paul Campbell (PaulIA) ; Modified.......: ; Remarks .......: ; Related .......: ; Link ..........: ; Example .......: ; =============================================================================================================================== Func __GDIPlus_PenDefCreate(ByRef $hPen) If $hPen = 0 Then $ghGDIPPen = _GDIPlus_PenCreate() $hPen = $ghGDIPPen EndIf EndFunc ;==>__GDIPlus_PenDefCreate ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __GDIPlus_PenDefDispose ; Description ...: Free default Pen object ; Syntax.........: __GDIPlus_PenDefDispose() ; Parameters ....: ; Return values .: ; Author ........: Paul Campbell (PaulIA) ; Modified.......: ; Remarks .......: ; Related .......: ; Link ..........: ; Example .......: ; =============================================================================================================================== Func __GDIPlus_PenDefDispose() If $ghGDIPPen <> 0 Then _GDIPlus_PenDispose($ghGDIPPen) $ghGDIPPen = 0 EndIf EndFunc ;==>__GDIPlus_PenDefDispose #endregion ;#####################TEMP##################### Global $Start_Timer = TimerInit() ;#####################TEMP##################### Opt('GUICloseOnESC', 0) Opt('GUIOnEventMode', 1) Opt("MouseCoordMode", 2) ;Wichtig für die Erkennung des MouseOvers OnAutoItExitRegister('_Exit') #Region Variablen deklarieren ;Gui Werte Global $hGUI, $hGraphics, $hBitmap, $hBackbuffer Global $Titel = '' Global $Version = 'v0.03' Global $Breite = 700, $Hoehe = 600 Global $Anfang_X = 2, $Anfang_Y = 2 Global $Font = 'Arial' If @AutoItX64 Then $Titel = 'AutoIt Tower Defense ' & $Version & ' x64' Else $Titel = 'AutoIt Tower Defense ' & $Version & ' x86' EndIf ;Wegpunkte Global $WegPunkte = _Wegpunkte() Global $Weg_Neu_Zeichnen = True Global $Weg_Neu_Zeichnen_Temp Global $Weg_Neu_Zeichnen_Intervall = 200 ;(Takte) = 5000ms ;~ _ArrayDisplay($WegPunkte) ;Taktgeber Global $Taktgeber = 200 Global $Taktgeber_Timer = TimerInit() Global $Taktgeber_Intervall = 15 Global $Sleep_Timer = TimerInit() Global $Sleep_Diff ;Backbuffer Redraw Zeiten: Global $Redraw_Spielfeld_Temp Global $Redraw_Spielfeld_Intervall = 2 ;(Takte) = 30ms Global $Redraw_Liste_Oben_Temp Global $Redraw_Liste_Oben_Intervall = 20 ;(Takte) = 300ms Global $Redraw_FPS_Temp Global $Redraw_FPS_Intervall = 10 ;(Takte) = 150ms Global $Redraw_Geld_Temp Global $Redraw_Geld_Intervall = 20 ;(Takte) = 300ms Global $Redraw_Liste_Rechts_Temp Global $Redraw_Liste_Rechts_Intervall = 20 ;(Takte) = 300ms ;Backbuffer Redraw FPS Anzeige: Global $Redraw_Spielfeld_FPS_Timer = TimerInit() Global $FPS_Durchschnitt = 30 ;HoverButtons Global $Extended_Msg Global $MousePosX Global $MousePosY ;Geld und Bezahlung Global $Geld = 1000 ;Turmbau Global $Turmbau_Damage = 1 Global $Turmbau_Range = 1 Global $Turmbau_Frequenz = 1 Global $Turmbau_Preis = 1 Global $Turmbau_Aktiv = False ;Mauserkennung (Feld) Global $MausPos_Alt[2] Global $MausPos[2] ;~ Global $MausFeld[2] ;(XY) ;~ Global $MausFeld_Alt[2] ;(XY) ;~ Global $hDll = DllOpen("user32.dll") ;~ $iCursor = DllCall($hDll, "ptr", "LoadCursorFromFile", "str", "Cur.ani") ;######################### TEMP ############################## ;############################################################# #EndRegion Variablen deklarieren #Region GDIPlus starten / Bilder Laden _GDIPlus_Startup() ;Spielfeld###################### Global $Universal_Zeichensatz[146] = ['Æ', 'Ì', 'Í', 'Î', 'Ï', 'ì', 'í', 'î', 'ï', 'æ', 'Ç', 'ç', 'Ò', 'Ó', 'Ô', 'Õ', 'ò', 'ó', 'ô', 'õ', 'ã', 'Ñ', 'ñ', 'Ã', 'Å', 'å', 'Ù', 'Ú', 'Û', 'Ý', 'ÿ', 'ý', 'ù', 'ú', 'û', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'ä', 'ö', 'ü', 'Ä', 'Ö', 'Ü', 'ß', '"', '#', '&', '*', '.', '/', ':', ';', '<', '>', '=', '@', '^', '_', '`', '~', '§', 'È', 'É', 'Ê', 'Ë', 'è', 'é', 'ê', 'ë', 'À', 'Á', 'Â', 'à', 'á', 'â', '«', '»', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', ''] _ArrayReverse($Universal_Zeichensatz) Global $Kleiner_Zeichensatz[46] = ['a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z'] _ArrayReverse($Kleiner_Zeichensatz) ;##########################HINTERGRUND_BILD###################################### Local $Res_Hintergrund_Bild_Key = '14008A292Í5Æ2852B40169344A5A94D29AD35Ì6853513Æ026ÍC080DÆD1045CDAÌA10ÏÌ7A034C3ç0AììíC1AÆìÏí6Î62EÔÇ7Eï0876ÕED460Ïûô2Cî7ÆBòFÓFAB8636EíæÎÅ5Ã589ÍÑÍfÌ4270DÌóójùõC3AÎÙ7çB0EÎEA7318ôiïÔBÍB9FÒ3161ECD86AE050îÚãæÓÎDí338CÏÏ6ÚM1DC9ò83A9LÌ19CAF411C4T2ìïÌïÛÍ0ÆDÎÔîÏÓ32Î884íúEÇ903ÍA08çFFÝ2ôÆÎÇ0C828Æ646DÎ4ÌÌUU' Local $Res_Hintergrund_Bild_Comp = '' $Res_Hintergrund_Bild_Comp &= ':EÌæ0Ò4Ô6ÌæææÌæDBÌ43Ìe0SSS6e0ÙäBe0åFë1ÌF0<tSÙ9e0BàÌBÑ2æbbÃÝb0>5ÝÝæ7DæÃbÌÝ1úÑ221ñú.3Ñ6ú72271Æ3íëhúç2B1CÂ5îÛFÃ4`l7í209e1.7Öëh2îl7íÎ2Aç3ãIÄè9X4ç4454749Òã54555657N59ÓI656667õÇ;Ä7475q777879aè8Nõ7888O9Î3Ô959n989ËA2AXÒÓ;aÍòAB2B3ïB5B6B7H#BAC2C3Ccÿ6C7C~9ÀÕósD5D7:D9ýE1E2E3E4E5EJ7E8E9üF1F2F3ÁF5F6F7F8F9GàÌ1FæÌbææææææææææÃbÝ0>tSÙ9e0BàÌBÑ1ÌÃæÃÝÝbÝ0S5ÝÝÌæÃ77ÌæÃbÂÝ0î13ú.241Ñ0q17Â234Îh1B1Cú92`3îFæ5l72Ûe1l4çE125FÂ7Öëh2l7íÎ2A3ãIÄè9X4ç4454749Òã54555657N59ÓI656667õÇ;Ä7475q777879a8í38Nõ7888O9Î3Ô959n989ËA2AXÒÓ;aÍòAB2B3ïB5B6B7H#BAC2C3Ccÿ6C7C~9ÀÕósD5D7:D9ýE2E3E4E5EJ7E8E9üF2F3ÁF5F6F7F8F9GýÌ0å3æÌÃ1ú*1Ì3FÌF2üÒ9C<ûÓjÖQQïìÜvÕóÇõúïìÉÇÇÌ6ÏÌQ=îùì9ÒBåóÇ4ôXdÙrÇp.1ÍÒ9XÕ15&7SHÀ^Î~4ç«ìMeÏYQïìãúQQ=ÜÜÜvÕìô0ÇÕãùjÃEÅÒ>Çh0=5beVVÓÒKÅûuuÓÓ6rõúüÎgÕúüÓÅ7ÜîæÅÏ4AÏñp5oî7ÒÓÌÓÓ6_çù0ÕónçÎ1ò.1Í7Úå6îãÍGãÇÙïìÜãùjæÅÏÝiãùÓÒKÅûuu§tiîÌçO^8ÌÆ=0Íçße4;X9dïîÖfåuuûÓVVjæÇÇÏR1sïýìp7ìËÓ4ÃÚÔï«î5ípÑCÚOÓÌuÓjænçÊÕDÃ1õ2`zæAC2poãGÕ15&0IÅÏõ0ÏÙìÔïp§tiîfåuuuuíÆîóùj1ÆB1mîîF5o8:ÓíÆîùVÏYQßîáìß«ìÔ«ìô1òÓÒïAÎÏ4bBçy6óépÓÓ6ÕáÚeE1CÚèÍ7îæLíùcÕ»ÌÏÒÿEaáÚ9~5íçpÓdÔyÌ0ÙÇA4kD&YÀÓîßå§ÝiÜvÚìåuuuuLfx"ñ6õ3tmïìÙu§tiÜßvÕâÌÔïìÌìÑòÌìßîúïAÎïEÆ«ßîænçÔÉåÕFïAÎÌüÎdïpjoÌ75o1ÆkZÌËÿÑ~Õ7ÒÌ0xï6ÄDõ2íù5o99z8ÓXÛòK0ÍÒ75Ýô3ÅÿìàiÜãùVVVÝiîìCÛzÒÓ4JÆï8ÎõùjúQQfåuÒÌdßvÚ6ÅÌdßÉsîeÓ4æò7îìÙÓÓcÕDÃÌÇÇÏ4bAb9o"Ì^0îEõ1ÌçH&caì«67DW»Ìñ0çÑDõÌo7ÒñÉõmÔy̧tÆ6júî=åÒêÒÏYQQ=MeÏÒÌ^Ïù7Í0Úî3SwÚÜMeVjÌCÕÕìåÏdïÌÔì6ÏdÌîÛChXô1òÓÒïôríÌ0ÇÇÏ4bAÍæAñ8REn1mýÓÌX5íçb9o"4ÃzÎhÌÓÿEaÕìpÿ>ÎæwF0ÇÌ7ÓñÑòl»*mïPÌÒ^YïìÜãúQîãéKÏ5çÔåÏÎõúQî=ÌÔì5bÎÚÑî6CÆßÉÅÏtiÜÜPY6nÔÑò5oÌÔyñÔÌE<Õ6ñôTÆÛÙaÑ~ÉÄoH&6_ö«Ñ9CzÿÉÄokÏ4Ã_0z36GîæåkïEíÌm/Db0W6K71mEÄDõ1Ì3o6í2Î`Í4Ã&ÿÛ9CÕ6"gÛDÇÙî=Ìfåu§l1ÅûcPÓKöYîì=AÍÓ2A4:ÒêÒê§tiÜÜÜãùgìù0ÛChÒíÏæwF0õæhcìpqæmkh4Eíå3XÉDnÆý>x8lTEgèEDÒ4hÝí20zeò6ó812ÎÌ5í2Wè/õ2"Ìqæm98wã81zR1æwF0õå3ñù46gÕbÍ7SõÌ<»cÑòle^íùÓdI_ùÏY"Ò5m7Ó̧leÏqCÌÈBïGãaòÌõ05BA>CÌ3Cã:8Ñ81ÑáQfàãAÎxl:ÒÏYìîáâvâ@uÓÒû§tÆ#zÒKÅÒÿGTÆÑ~&íh3ÔvEÏæA5<ÕúÔ6C26g=5åÒcãAÍ6bÎnÆOÌÏñãBÙfåÒêÒVÓÒYâvãB3oÔvEæmOh6Ï7SõwÌ0nÊìå7k*ÆBChR1æAS6z4Dïô3BÌ&c1ÆÔxÙÎÄoS7ýIDÏÒÿGT1ò*mH&ÒtÆ67Dn3oI3_úI_mÔ#z6ÃzÌCò*CxE4ÖÆÌü466C74o~D:ã7ÖEõÌGÕÑzÿÉ3oßïåÒVjÃB6ÓÀE;3ÅÿPl1ÎL6ÃìßÎêÇÆãéñåÒgÑ540ivâ6KgÕÕ@ZH&ÈÌ"h3ÌÕæ1ç6ñãúBChñÔ#wùÎÄ9oI_1Ì24ãB20zJûqD&ÎæCãèbDÇÌ9ÒÖ8Fa3Jaîô3F1ÆÀSlÎÌã8h36ñÌ#0õwô9ÆÆÛnÆÌ7Ó*ÍÒÓÌÎÄoîvE3ÏÿGóú67DW6aPñùA7mE2D9ö`Ck*måñ6Å5GáÑDgìÌPímÌÕI_úì67ýÍÌ8*59h8ÔPYÔkxvkÎsOl1ÎÎDÍÒ6Ãâ5b1Îñï@ïãéñåÒÍÒ6æò5<ÕìÌ6Ïd#Cáì"ñp>õ<óÇõæxÔ6ÇD9CzÌ6rnëm9~ô3B7aræmÀÿáEñ5æé7ÌÙöC1BDÇ3Ýì3BÌ&ckÎCh8ù>õ<»4ÃE4hñÔyÌÎÄÍdkpÿ»ûgÕ»ÌÏÒSÆCR/ÕFÆ8õú87ýÍgGDb0GÚìåíGrÇñpñì5beXPíÌFCÏíÃhLàD0ÒÒ7ìà3ÅÓñÌÊâãÖÕvkñü86ÕãéñåÒ0ÍÓÒIÛCìãúOÒ7Ñ9zÌ6ÕrÎñåÎZÔvEæAchÎÄÍÌÒÎ720z36GvãèîkYF<Õ1îÎ*ÆÙÏÿèDWaôæ8óB20zÈÌ/aìËÿGÕú5íç6æmtÍÌqZkïÕæÇaî6ÇõúyÎXîÕùíÆEÌôÌaA4çËlÆÕ0Fã_ëIÍ71C1381D05b1X»ÏÝÆïìÌîâådìÔÌQ6§Ý47ÍÒ7PàD0È"ñÌEûÒñP6Ã6g=ÌýÒqg@ïO7ìåÈïO6Ã6KïãB1mO77æïyÿî1Æå36VÒÿGræA6bÇõýÇKC1BDõå3ïô9Æ9Ò09Æ#0aDÃ1ïöqGhc1ÆÌEDDo6æmýK:2Ïæ2Î720áîE4Íñîæ7"JÇõæÇÅÎÌy5bçæoy2C2171ÍdË0òÝ1ò4FBCSÎ3Ý9åéÆ6CÆ8.Ù8HÆ9DgE4EÅleVVíùYQQ9ïÑBÇÅCÒ1Hçksô3Ï7EíåAÌ8FÆãF6Õ6ýÌÈ/hcãÖýÎDÍcvîkDÍÒ6bxÔGc@ßEwkÙÕô1CPg@ñÔ/ÛCh6bÅqýcMÌ4ÍÿèsãÅÌqD0ahR0ÍÒS6çåÈEFÔFB>ãD0T3aãèaÕ6ñÔÌF<Õ6ýÒ>õùÎÄüga#zcìÌEEgîã8MÌÎCdîúyÎ`Íd8lóÄ9c927b93îAA8ÑEFo8lAAEÛEÁ*CFÆ13Úp^88uÓÒÓíùVÒÓKÒtivEgãé2B2ÖOÎx6KÎÎDÍÒÌÒL4Ãì"ÒÌñ9ï=Jý4DïGñå8F6ÕlAÒÂÚFåA4ýK99BÇFBÇ3Ý@OÎÌì9ÙÇDåÈA5ÇñåÒÿGÚô1ÙÇ36ÕÛ9çåJÏ7E7sÑï1mEEbgöÒ9ÆÔÌEDDo6æF;ÒíÌ2A4ì#2gEaáîÛÙaÑÌ6Çå67ý9ñïNRE*DÏgGDÃe>ÇXFBîîÖ/Õ0F98<îÌ5H1îAÙA4*557Å^ÖF;139çìÉÅÒÓÌíùñìÌQQQfæ26ÛoFaÒ`599Ó0çç6nç0õ2tGîIý9DBé77ô3gãF3Es71m0N6k*îtaîtaDæ.Oc549B7DE8:7Dõ0BÂö*îç9ïGô3Ï7ÂEsOÝ3xÔFw6íÖýÎDÍc@Îÿîk8åAñß0à_ÇÁ6Ç8ÂEñ54Ë3ÌóÃXÎE5Î36óæ#2Î720FìçOÌ5ý0Áç9Ï5ÝóæÏÑèsîEÛ:á#wEDçãú7DWÑ0TÆË`F9ÑwÌCÕACÇÌC&a2FçÙ78Ì0mï>õÖ1Å09CòïìîúïâÌQ=MeVVVjæDòÎñOC7ìýÿáÚËKÅÒÎpÓdÔvrÇïyÌÿr4óZ5æ71Z6ÇÏÃEë1m7i0ÿ4åA3Åû4DBEÁ6ý^8ÿJÀÇ4F;7Û9çC2E47BÇ36sy4EíÃ2Ch*' $Res_Hintergrund_Bild_Comp &= 'î1Æ9C@Ô6ÇF9C2E378z30nõG»I1BF8Ñïh9ÌCÛïÉ9BdBBÎDïÛÊq1Hç67ýÔ9C7ÓRDòÝçE3B1CDçFBóB2íEKïIDÇDïh5pÄÌÍ#3@AÏ4DÔ95ÙDççCüõ13lÚ5Ï09eÓûÓReVÓûuuÎêÒêcÛòÒ2A4B172n3EsýÎÌBwFÆýÓÌÿ7BÚÔ6õæÅÒKÅdxÆ6õåAñÌîÕì«î6WáEÅÒìÑòÌÎÎW@ïîöíùcÕÕkÙtî1ÓqdHCã1:6k71Íq4ò5åEÁÿAäÊÑ71m87Í6ÃZJ&43CÕ13mà:13o*ò5mà1ï7a3Ådïp3t/4sÍO157Bóé36ÇÖF>7_2Ç0Bkb6ç9CF;4åAÿr;~CJ3DE9SÇDwFÆC`0ÇÇDw<ô3DïÑäî0äýÓ5D9EÁç0NÒÎ7Ç&30õ0äfpÒêÒêÒê6ì#Æ71îNEgvQìîáìß«îìÙ^ÏEÅû3òÏdÌì6Å4Ñ6íùÎÏÝ3Bç99ÆÌn81ý98/1ï9mbDE9Äò5b1sÕBÔDE4rDzq7ý8åA2E3äDGîIDÇCÄýò78oåJ4F;cö4òÇAA44B6ÝñîãúßîóúÔF55z15ÇÁ9Bç~aBeRõ2xý06:#CãÄò4ICÚÛ9BlÚÔ6Ç88qnçÊÕÕæDòÿódyÌqnçÊÕÕæårÇï0çÌFCÚÊrÇq0îÈÔyÃE1BÇ3Ç&ÿrõæHF;cãFçô`0Ï7n2WÍ43äDEno/*òaÑDn6»0lç7Ò5a7Ó41.BDnÆ#ÆI3DE8Öö0Eõæd5ÝöA492:BBEBbsîîã25B17ÌÕ1ÓímpRÎÎD9çS7B@ïã8Ï5D"2EîR7ÒÏRxÆ2`ò43BÕ>DE9544Dw4hcãÅ8EwÑHÛBBsïh30YÑòñvEnçýÓ4ÃÇïyÌ7ìýÓÌ7îónç8RÕóZyÌ^d#F;4Ñ9ÆÜô3ñìHç8ÕC3Åqý5ýÎÿ7ÀC6î<óF0Ï2E1À`6rÚ"ñÿqeÎxx0NÒñyÒÌÿÛBéñtîæaÛB7DE9dvEñ6õ1z5ÊíÌ0n2Î0Û8FaÌ7P6Û9çÙÓcÑBBÆJCó13.9w6Fç7Óc5ÝB.aÛÙ7B»c5Ý86ýcîÛ9çåÈ/8&3ÌFaÌ6rÎqrñÿA48c6Ï5ç9_íRxC3Có8ÕC9JE1D0ãñE3CÕhõ4:ÔÔyÒleÒÓYÔì@77h5DsýKFHh5E2AXÓÌ7EÏJÇ43h4ÃÕÕJ1DmtárÇgvÕóÇÇp^û^û^û7FÆÑïÛB6B3X35eÎ7ËÌñ"ÇçDÃH/ödrùb>CÛ~Û9wJAÌ5Dï7Ò4E4rñÌËñBHaÑ9C&ÝÆ6õDy*Í0l72nÆËÿMÚ7ÒÇ;tCqx9BCóÅ2àBlE41üÎ7ÌFaÈpqííÊõúyÿÍ4DDüíEKxO*E8nò4Ã6ýñ/_0íhRæÍRÇE7ý9BBZÍ13üÎA7òÄãxC96Cc6Ç1BC7ýl1ßüÒAúýÒqí2Yýí2ÏìßC6iîìå7ìÔÉsîìSçAÖóÎZæ2JAÎËdÙ93E8õËÿòÌ7ìDDsBHÉZîaÚæ2E/ÕÑï7Z#ÃB237FÑ*ò306Ò4DÁ;2D0qùcEí1Crý07EBîtò7Eù`mÿ2DÊJDz5<ÑCò36aDæEÙÓ93ÝóBÌî16&bs36GÛÎ39çHCôëCÚî6õæ7qí2åF;ÒÒl17èDE8Dß5Ý8tÕîE4ÛBA8æÏq41Es9Ù7BDÃ1Ï5ýÇ307_ùÏìp4Æ/ÚîÎ2Æhî4î16z43:S49w74ÆCCDÃa0/Dg75çÛCòëBBã1æ1òRgÛò09h4îkFò6ÝP7öñå6hÒ7öñåJÎñEwkÙÊâ@ÎêÒ^KWÕîóæÅÒÓÚÔ5b1Zî6ÅÌqWóZôXÍÈp9F3ò0ÎçFC81D0ÑHDIÄ5B2ü26Cz3Eì872õp4DbÁÆBó724óF6æDW81_0B3üçÃaóHÆ992Çñ0a0EDåîJCÛ7_1ü2E3DõöñïÌPd6õæñîõ0äÀÒ7Ûÿ5.ÔãB6ÛBÇÍC3ÇÎDBWÑSäýÎx6í1NcrEç6g5æ6Æ1Fì#0Çg6õ0BeÆ1E8ÇàIAãaxÔ87ätóÙåî16CDæäÕZîFÆÌXò09DåFÀ3Êónë3ò0ÍÌÒÒÿìCRÑòÿP05.dycPÌÓ4åAÎYk0ÍÓdåJÎ"930ÂÕ5485ÇBBõ0äýÎDÍc@ÏÿîÜãÌCÚß«ì5æ6ej0äf0NB5BnõEÁy4EBN1B5Båm8NÛïrÌo0FÑHCrÀÿGÑz05.3ÌîtóéíÖOLâvî=åÒê4EW»ñpdyÒñ0ÿÿÕFEÆýíÖBCÑB7DE9d6õúBBÇñe5DsÌÔ7Ò5DsBC1EsÌÀÎ:Æ9Bõ1æ3wîö1"æ89DEÄCqA41CóåCMR0EÏñ6íùÎxOÃC26gî»Ý3xãéNÇALÝ3õwEg@ïîÕ5brÇÎ85öñ6Å6æBÇñyÿT3xO7xt@"ÎDÍcvâvQEûB7Í5mÑN1ÛtLÃC1òdÔãú#Æîkïîì«ÑòdÌì6WDÃeñÌPñ6KñkÅ6ÃP7Ñwæ"ñEöñÌÔ9~óBÆkÙÊ6Ï7îÉÎZPÌd87òÿî6íPgÕÌCPdyÌcîã"í0äýÎs6í0äDwkDÍñeC3xOqgã1N66gãéNÈïOÌ4çÔüRNÈ"Ò..LN§Ý1òÿÕì5öñìEE20wknç0NJÏ7x5ælCÚÑN1D0iÜô1ÍñìeC1Íc=0NÒÎW5æ.ïãBÆkÊ5.ïîEÏÃCëç6Åí1Nd6ÅN^û^3òd«ZËÿÍÝÆÑCPÌcPÿP4Ã6g=ÌOñïÉïãAÍÌ6»7ìÌÔìô1òÏÎÌ7i@ñîÛòÌJÎñ/Õ6Ç8õ3xÔFö30N6îkFÍRÎÊ5.ßEwã0äEûÒÏYÑòû§ÝiôÓAÏ2B137eêÒL0lâÉuuuÓÒûgìMäkêÒ8u§=ô1òÇÏEnçýKDòÓÈ«îÑòÌÿì6WTÆÑòÓâîæÎêÒcîEû6Õãé2AÙJÒÝ3ÅÓ2AÙcÕ6ÇÇí0H6õEÏÒIHïkûñ6ÏdÌkÎZ6õúFÆô5òÏ2B23.ÅÏ06iÜvfpuLKuu0=Ôìp§fåÒjúQfpÓVVÓÏ4Ãfpd6ÅKZìãùÏYÔÔìÌÔÔìÌ8ÇÏYÔìãúÔì5b1§leÏYQfÙFD9' ;################################################################################ ;##########################HINTERGRUND_FELD###################################### Local $Res_Hintergrund_Feld_Key = '00aaba1AE445490618012c4eB60F4140E654g424Ac50k30D820y6z2GeHAI4JlKfLgMbNbOmP9QERES7T6UDV5W7X1Y' Local $Res_Hintergrund_Feld_Comp = '89vl7x0Ad0uxs84fww2j03ctF1dFkhv4Crfjbc6E3mA6uj7ftE53apqD866cis4or68Dq3F8nh07idipCh19oE20ddnaCBe3Z' ;################################################################################ ;~ ;##############################BITMAPS_LADEN##################################### Global $hImage_Hintergrund_Bild = Load_BMP_From_Mem('0x' & _Decompress($Res_Hintergrund_Bild_Comp, $Res_Hintergrund_Bild_Key, $Universal_Zeichensatz)) Global $hImage_Hintergrund_Feld = Load_BMP_From_Mem('0x' & _Decompress($Res_Hintergrund_Feld_Comp, $Res_Hintergrund_Feld_Key, $Kleiner_Zeichensatz)) ;~ Global $hImage_Weg_1 = Load_BMP_From_Mem('0x' & _Decompress($Res_Weg_1_Comp, $Res_Weg_1_Key, $Universal_Zeichensatz)) ;~ Global $hImage_Weg_2 = Load_BMP_From_Mem('0x' & _Decompress($Res_Weg_2_Comp, $Res_Weg_2_Key, $Universal_Zeichensatz)) ;~ Global $hImage_Weg_3 = Load_BMP_From_Mem('0x' & _Decompress($Res_Weg_3_Comp, $Res_Weg_3_Key, $Universal_Zeichensatz)) ;~ ;################################################################################ ;############################## ;Leiste_Oben################### ;###################################Hintergrund_Liste_Oben####################### Local $Res_Leiste_Oben_Hintergrund_Key = 'FF00ÆÌFEADC07FAE35B5A57D45F1F83E4975694B2BF5018A3D6BCD8D157265ABEDFC85A7032D4D81EB9563A06D9123714E618C417BAC6E43A37329FBA98EC52E89CBA125F0FD7E218B799D6CBB7C7820248060CCA29E64F4C98370F3C3F91E66D02A40681B9BF71D6A10483CE59C2C7ÎFAEE7722D31C0BAA14ììF25D6228E0997A30DD84FÌB43134ÆC7674A4F6íC90DB11ÆE' Local $Res_Leiste_Oben_Hintergrund_Comp = '' $Res_Leiste_Oben_Hintergrund_Comp &= 'ÆD8Ìñ046ò46ÌññÌÌñÌñÌÌÆÌuÌ02ññ02ññ0YYYYYYY2b05bbbbb0ö=4b050&ö&&&ö&&ä9â0ääiä&&iï3hw#93Au44Ò4Ü7Éò4ÇïÒ55ÿóûgAhÜÿ;67@ô6a3óÁXS82#û8@X8JÃ9x39ò59ôSJAÄvÇA6aAÃ9Aýã3æBårR_s2.C4HCUWpèÏcÅdjçÚTîIÕn5EtPGÖA*ßÑFí8/ëÆDAÌ0ì3ñÌ0Q1bÌ3FìÏ0ôú47î59ôD6iïÙúE96Ó027ÌVB055O4ÃæEïNûDX0údwÇ5f=FmjB097ûFWt~ÛD59n0ÜÛöí1îýóBõ7æÓûEå7rééúÅocD^9Xp8k4î0u1ÿ4Ýn/bÌ393Bå<ÏB=B1Ó06RÛDEkXïFôÊ27çLskDv4jcHB6Ú44j9jÎõî0ó3B09Û*ÔDCE:1Ó5EÙýC1cí13VÔÏÿ@ÏBç5á*ÏK3B7uCã.Î1yCÓnAND8ôNïÙDCyBKÚ4ä5B0Ç8ÑE3i2í0«óß4ÎC`ħÍ0Æ.7i_ãÚIEï4Ó0d1iB8#6ò6U90o9ÌC8#:AÒ50VD6W7Jç0EÎ.4ýRBDFîAåç59Ad:3S8>gQóúB1géÌòÊÓ58ÕY9ç6ÿ4L1RÃB2dCÏAyDrVï6`jEnKîRf:ÑgÏfEa93X7P^Ô9W19ýåDEôDîÚ8y44w4y2hVÀù5CwB8Fbk9YÃCÏh.FSE1ÍB2OBY@Õt97&Ü8ÕÜ4FTs3~G0D`ÃB.FaERÓc1ù4Í6U3óÜA8Y4c»4Kxô5»G8òëÌ3æ54ÔEÎcÓ2f:08N2t6j0tßõòt6ÿBÒFMa0CìEÜâC~ìWi8FÇô86ÙAÏ5s9ÒI594ÏýB3òClãóVFSE9AUAÙBÍä"X0PâúÒBrwÿsÔÝ^_9I1éÀ2`ÿCúBèTe4Fö4OãlC6PâÍ8uÿBÎDj1ï5*.áETóEX8ÓG^epEXFLÏÍD9AÔÔD5AI3Î_8JãîN26ÚEM<Î1;J3Ôu4AòEFæâKûD5å1õ8P0iÃ1jCsÿò3ep92SEã4C4h»mn1üèç27ÄFr9FSå6õ97dït.T4mg_ÎæÍlHEÃFaÿNtJÇåBSPN59"ÇX4ó^L~946isBÇJ44PEAGI58rúj6JNKòNE4ùv0*Ñ^ANÙ8òM8æBuÅ.19î4C86ÿ5ó2pEQFhä58ekC4í6y7ÛMòFÙÎ7aõC^ùÙÇECuHAæùOí56yC/æW1Õ0yAÓ`ÃcR26eIANB04ô9FUh6zòCá7ÌF§ëãH<Ùi7eóù5FòàîÏæBõ7æ0tó^0e2å82I^12So42t0s5Áj04ù~ÉÙS0PC`wÕÇÓEß"AçCFwmcK"FIâ398ÿ27eà9Å2æ59ÇôE1åDó05:44ùÏÑ5^FÿAåDÀëAÒCå394ÿZÏ6xEAíbïåj2aBÙÕ*4dPâ4ñî3yIOI1ùDòì67n182yE3bBD6ÿ9W3_"C;67Ã0CFUÀ3FÇ7sFìCÔSçNÎEC6ÏAÚûÙÚgæBCÏrïü;M9u4UAQ1V^R1Q4ÑÙ7i6våaE97aÇTBEkAÙFô7ï8ãvuh0ïBdBL1yà2ùDE1#Ýòö54p7Ì6x3ÙM42aBxæ53ÙôEzEf@ë@ÑæîÓ96MaÿzEMmN26KuNËÇËÏ_fCp4Ó5Ã4d9@RÛ0HFiCù2mèE3Û5öN5ôB0IÕü1/Cúüdr9HAJÓ3Ô9WÅ67zVJMVBró8hhïCS6ÔÌ.áÝ»NÉbáE>6õÔÙTÑô3Ap7rôAçàMC6zaC1È9Ì098dÃiÕDlÊ#ÚDG8=A8867ÛxyælÑDFåBôMAc*PAÿÑJóÕ7ù4Fì1ÿXCQÏEnHn54OqÎgC;aA6dAÒq32äfCÓ<8ÑÛÑ2X3æSúdE:8ærDà1ÑÚ4cIËBó9cj2l3.198q0E136ùÝÚCäìE327Ç1A8ÔmIË9ïç4cÀÑÅn0DÅAçÕ3R4RXÑï5*gü2ìvBY5/òDC7ô6lkHElÊFÿó38ãÏ37f`jD5B7j2nC6ýÈEIüÓÆ05@RAÕû1Wid3eZ8rE4úãA8Ó6ÍCÚ5zÍDçKÆL9ÏíJ3mÛET36óàÑãxä/AFrU96FcCFÙ.»4Ì7ÌE33eè7W1s8Ó6ÍCÚ5zÍDçKÆL9îëÛBDsAÛcåzSÑJMÙ;6ç1ÒÛDE@Û9P3õñA8X6î9õÂ/R8fkÙ6Ç32XFbLEGÇí3AÌÓEAxFwñBål2Ýh6ãFkH32#=ÄÃÌÇ5ìÊ8Zr1HM»ñ2Ò12ÙQ^CÂG9VÏ0c5TC«j7ì"2aÃGg1üU19n0Ã9ôßMAç1G7eEÊÀ46Ì7Wm4Cý6Ç2Q/B0E3a^DÃU/kÝrGd4*òt8GôÏDÛ6a1ApÄÅBkkDÓÙÅÏi92ÿâ26bfFÏÅi4NE=Fm9An&íÈÇ5YÎ2l17ÒÀ6x0L1úÕCP9FT5E4m2Yo<8Ù6óHsYDC4Û~3ÖgïTEAÒtÛG0îXÑAJC1ï7JgÉ2ô3eÝÃA8ë«pj4hÑ3ÃB16FôAû/CuôQ07L>í9Öãï4;ApBA8ë46ö#Z8ÌÁïÝìBAæEÌ9Q:ù#FÇ5LNî5U9åD4"ÍA;ní5AÇ4rB2gÛD59ûÁm1Ê2"BC1ZÜh9AGÅòhe4j6év1ù56ÑDNÿE@ÉÜÿ596ñÍc13Bç4sVr7rýJ0t7k8>8Ñ26æ54vå^4ô4c6c.óÅEü1YeÝÕEAzhFÇ6æaäærE=5FÜâDP6U3PgD9X6ú336Î~Bï4Ú»ü4WFQ1*Æ0Ï>Ç08î8ãÒUG6ß4ÔãjóhÅD6vAÇC4å1òáöqtZ;éáÆ1Ch6PæÇ1WNCÂäDÁý3kDÎüv3ÍkåLB6Í9ÛA*ÎBEiÍ<26îVEMú1míâôDAÇæDE47ÝzFô56dAö2fB97ah8o9Ñ0ÅåCAÏpa4Ó0AÚ4AGI4ùÛÿj2xEçFýFZ7d0CM7ÏnÇ5ací46S26ÇNí44Ü2Fj«6se4Ý8UlÝDßONîoBòÅCÝ3FgUzòÆKC7Æ92ÆÂ;Acïwgy0ÔrÎ8xÏê0î2ÍE4ÃÕCÕ:ÆiA6æÆ8ãRÍ92ãAí13ú1ÉFdBÍ02ÏûDÙwåE3õå7k:44ñE1gDg5àb#B7ÝÎæB17íBïAqyÒ5AÔ2Fa9yC8ûüÁLñ6WAI58G9FS4AÎ5EæFÕFï.Müf3Ôÿc9j17ôçÖ8ëtíh3_g47ù4hBÏE4îBEdó3äy0ÔrÎ8xÏê0î2ÍE4ÃÕCÕ:ÆiA6æÆ8ãRÍ92>îav8ÎDq7n1Åùgèî16&8nh0C4ãBhe9bïúÔÇ7ÃÎåÙDsE6FUóõãÉÃòæ42õ>ãE47w86ïàJC4C6ûï56wg_8Ïvr"AõaÙûì55AÑ~t93P56ÃVúG3BECÕ:ÆiA6æÆ8ãRÍ9ÂsE9Õ1TâCuAÏî9NEÏý2õç2ÇBvÕ' $Res_Leiste_Oben_Hintergrund_Comp &= '9mû56Ý1q3J*p9Ï2ÔEÖÌB6N4W6d5BqD:^Jcù5Eï8lZKQ1l9Fw"ïÚNF@Õ2Õ86GsG9z=ss5ÉgÝ0Ã2ÛT5.éÒ>8Ñ8*ãFIÙ7uén:X7ý2ÇÅEcAçî9èÿ»y94FIEáháN2ÃFÄnFzDJ5ÙÔóù0jùA@2Å3ú4ò0DChÙÚó9p2K#kB8ç9N&7k9ý1aåFÇ.12MAôÎ>4ÉÇ*koDÿÌòÚEÌBP^á67Ï5Í0`eÏECY5rAÒÖ7oC8og5FöãôQ1ÈC>û:.ÛCAN9òE`ÍìÇÎ;tC;ò&ïCkdÙ9ÔBÜÂqå8Ó0Q.eäDÙBEÁñC67Ï6äÁrJt1ÇÓ=Ö6pÒlZS7k47Òht4ÝX`z7oÇyD4çu0æ9OEÍüG5IAÎDWxa4F@2KH5ûCÓé&fA8Q_l1*2RW:3GÒ51RH7ÇòAöDïc7H0UTC§ïC4R6wT9W67ÕDÜNcD4dáÃsGq1Òm9hÄI9íÈYBÝ09RPßCFm8Z7fCP»ÎÇ47rÕyBDÎFg~Í8õÒD1Ê2y2rrc5lVl3yqâAÜÝb0mÔ56ÙÖæÿaEÍB3HýqEùí2Ñ05EÅ0E2IÒ6dÛ4NBdE`ÍìÇÎ6I44ôâDà04ÿ05A§q1886ãFj4C1l3#ÎýDCÎ6ôK«ôE93sAcÑq>håRÑDKee8Õ5Ì5ÿD»Îýd`ÍìÇÎoCAÚrÚ7UEùÇô6Å5ËôÓEoç4Ûp9GüWEÅfÚÓ3ÙÄÔåH1ÿA8qhîumãpõ6ë«ÒB18öN2S0r1~f6fTÔåE6ÔWõ9Qi9Û86ÅÔÎçngB9óBí8ÇÎöAãhB~uCòôýù37ôÏUyBE7§§Ôë;>åBh~RDAs3sÏB3TÙÈDÒ4l1ÑãË6ãbõBkSaq2G9ÂbFÇ4FdöE9MKÏBú52Í3337ò5ïÿD53dèL7æD55ü§Ûâ6i8ñDÌOD7Ì5dmEZæV9õCýÏCîD1/Ò9ÑC4Aí7Ý6I9ù5JÒ5çn9ÕÍÔ1õú"ùý36cÑVâÄó888l/Ã1ïÛÏpt18Rî3BD53Ó3å7ow67m7ÝÒîBDüåE6J9óÒ598ÛEq0Î51YÓ5n_é6MÚ94ßöqLztEÍÔ1õúCÂgKÎ^Ó3ôDE2ÅÂãÏÑÇ3FãÊFz2Klhp96Fã9zÑåÍùd5ttSíôgËèùDCòC6rÑî3P19nhBrV4;OEq2Ü8Ft9úHóYö7Ï»N=i547Ò1n8oôË54ÒéEC7Ì0EA6eÚAÌé4Ì0927iîCFuNMBD4A`uC/4*BwF>ÆÚjC1aC1§i4&C6äC2Ã0ÙDnCSËîûSSÎîDA;FçBeFÏ5C:0ù52ZM6l8fû9ÌCÎæDEßAxõ936Sû9õoxòv7ÚCodBå7rVÃ3^Ö4ö«ÅòAßç5ß88óý4@Ç5CÆóVzÑÛKÔ1ßCFlCöD1õ`ù8Õ3Gm9Oô94aLD2ÔåC^jAMBýò1AdÝ4WCE.3y7ÇUeeÒ1òvÄÃ2Äìlik0ýÌq8ÅfÃæDÛíJ4=PE9_Ùp7i2a8FìEíñæwÕïÙ8X#4ýì8íc_<ÜíJA@ôTó»bk9ÑÄAîl4c86W2FSÍ5Ñ0êeïr17JÑ26ÓBôëÛfûB0Ó16ej6p4ßÃ6K98Üë8P3Î055EòôBÕAÕ1KD8ù9î1HCìHh4I=3weÑý7î8Ó1ÔGEiÖFjæxA6æûöJBECsÇw&vA6ÑA/9ü94Ó1887Ùï:5E6f«tËåD1ýÖG4&B1èj7Ýmßô5À9ëa6Å7ó6NË<Ôæ6wâfÚï4NE4ÝDCïõ3nì1ÿÃq04yß`sCÔB7hÇWnNEÔ1tó38ÑjÍ092.bòzuáwK^0oB0ùÌU7jAã8ò7HÖï9Wõ1f0nÏOv»Õ42üc&4CS27ôñ&46nSÛ9ÍÈó3Ó9ÔFWwÿçOÏ7õBÚC4oÏ88ã2ûìYûC8FiEÅýìGÒ5çÇxCfq382æDÅ5ôZùÇDEîEîúÏD4ëxm2o39>4h19ï27r3æÖzýfA@ÏÄ*BTCúõÓDÔC6c6ï2ûèkE8ÓAÙ0cBÏvB7ÌeY6b2Õ51V3èí2îAtúçzô1Ó3BClvqZòAçùûBOAlFxò_&ÿË8phphBDS0X7W7ÆÈÑCFb47aEA8ë*4U8og26æoZRà0CH7mC8f93ÙdÕaE2ýTtCæ2Xó1åDàvÉÏËy2w1AîpjCáÜÑÛBíoDxD2Ú>Ã9I5p9@FS3Ã4AnfrýÑåV6wBEl>4a0z37SÒfj1x3t2sFåôD1ÕCkEg_ÔFÒBjå4ý0Ö*.9ó2fwé1í1ôAtLTbÛ6&4I3NC&r9ý33X8ú4Fi7ûʧAI92d5ßfç8FåÌ2Õöe98I0OËC1Õ87ïEwv7ÚÊmE1*wFh9ï@ÒDCÏÊAÕKB9õB1K3Ì54äòßH5ç0æÆ18X6æõýlýHwWw&Eö6w3:n5#x04S`ïT4C8FÖAnÇn57m7ýnù4AcFcD2ôïå"åÄõ4Iáò4lnÈR9ýxc3õ2ôAdIå3ôVDù16ÏBD4FhB8ÓüÕ05<ß6o6PYT2FÏ9Iÿ9sco3á*3*26úp8ÝCòl8fHXÁHxöBÆá§ÝqomA6q&E1HsÓ/Ý4r9ñ3gù92òFLÏÚlC7Õ3Ï096oå3åsFl4îAjRîEõ1ñ94û"ZÓGæ#sôBîfBA8ÙSSôzDÙüEÁòlìË9G3:Ö9H7PÒ9ÿ3ìDSD59n1AaAz6îÀEîs9ôDÀúsm6óÖ5Êÿ1Ú3#ïv4sBõ6GùfERE6ó15jÑBÔòÄ6ýÝÝDNCó~=CÏ2ÝDEòeË5Cr6*18Íä55Í0GA=ú188ÕÂ"2ñA8ôÖ1RÏ^rèE6oÕDû8yèÅ5E1ëlX*CÅåEYDÕ.4O7ùBdDSCOALÎC`ã3zcEAG0H3AñE3K6FbCÎ^õ0DX6JmÖ4æÎCFsFg3èEÙ.g07ÌE3Ã*B19k«gEÝÚ58FéAôEÍo*3èç5B93FcÚE9Óc1a0p1Hqî9ÓyAÄFç92ÃFÅCFvsWíaW1AFñX4ùE.õÓ5ôDóAU33sëÒè1é1ml0K/û86ùEòCÖT7GÔË5IùÑ0N6ÔÎEj7õVD1öB9Ó0Eg3cTü2Q9ocZ0C7Ý0Z0"MB:pãKú1Ö32ÔLNy4Ay0E9bCõå6ö9ã0_0ô513Å7@7uBí0H55BTêlÙ06i9ïBÔÃÿD5î6ãýB2Fa33Bdéÿ4CUò4ZjDý8bbäãG9&*ûòò54ûD"Õt6Á7ôz§ÏåD9ÁFÜj53ÃA8nÚÇ6òî5UANmD~EùFÿaç37Ï6zoEbBÆ19åB6FÿAÙOú9ý.05E3ôÒcDq1RÉ4A8QCíýEÝmCËBà38ÓAÔCÖ3å4Ô#Ó3Bì9zqÄå9AÜC6ùQ9tó3æ4eEÔ2K1Ûl6N7m"ìyCãÚÓDW4O2ú59SÏHEx8Ñc442OAÿd3è2dæ42îEd_09ÌÌÕ5Î;Ç8ó8Ô#Ó1PlX*CÒÿîDCÇÚúZòÅ_4mìÖ6QhäAi7Ì12çBDzË/bCMÒ5EAn126vå*3Bú1K6æAÙ5Fj7åôwéE38Ã9h3â3vd3ÃtF;v6ÔAFrDÀ9æBAõ7fhCAïZâw9Î6ÃB0D~Ká87pr0ÍÑ5ÛFÇC6Çg8/6Úõ2õ4ÎBE4Ò»ñ9Ç>47§vqÇ08d2/Pß0î8jwÖc0UWuÇDì^úB;Fníì9îk9ÃC1ÔûjEt8Âqö9ÛB2ÅÔÎBd0Fwz0Ý2ÃÏAÒ= $Taktgeber_Intervall Then $Taktgeber += 1 ;~ If $Taktgeber >= 1000 Then _Reset() $Taktgeber_Timer = TimerInit() EndIf _Pfad_Zeichnen($WegPunkte, $Taktgeber) _Redraw_Backbuffer($Taktgeber) ;############################ Temp ######################### ;~ If TimerDiff($Start_Timer) >= 5000 Then ;~ ToolTip('') ;~ EndIf ;~ ToolTip($Taktgeber) If $Taktgeber / 300 = Round($Taktgeber / 300) Then ToolTip('') ;Tooltip Alle 300Takte (300*15ms = 0,45sek) löschen ;#########################Temp############################# $Extended_Msg = '' $MousePos = MouseGetPos() $MausFeld = _Felderkennung($MousePos) _GDIPlus_Button($MousePos, $hGraphics, $hGUI, 374, 6, 124, 28, $Welle_Holen_Button, $Welle_Holen_Button_Name, $Welle_Holen_Button_Status, $Welle_Holen_Button_Klick, $hBackbuffer_Leiste_Oben, 0, 0) _GDIPlus_Button($MousePos, $hGraphics, $hGUI, 15, 12, 45, 45, $Plus_Gross_Button_1, $Plus_Gross_Button_1_Name, $Plus_Gross_Button_1_Status, $Plus_Gross_Button_1_Klick, $hBackbuffer_Leiste_Rechts, 505, 25) _GDIPlus_Button($MousePos, $hGraphics, $hGUI, 75, 12, 45, 45, $Plus_Gross_Button_2, $Plus_Gross_Button_2_Name, $Plus_Gross_Button_2_Status, $Plus_Gross_Button_2_Klick, $hBackbuffer_Leiste_Rechts, 505, 25) _GDIPlus_Button($MousePos, $hGraphics, $hGUI, 135, 12, 45, 45, $Plus_Gross_Button_3, $Plus_Gross_Button_3_Name, $Plus_Gross_Button_3_Status, $Plus_Gross_Button_3_Klick, $hBackbuffer_Leiste_Rechts, 505, 25) _GDIPlus_Button($MousePos, $hGraphics, $hGUI, 15, 104, 45, 45, $Minus_Gross_Button_1, $Minus_Gross_Button_1_Name, $Minus_Gross_Button_1_Status, $Minus_Gross_Button_1_Klick, $hBackbuffer_Leiste_Rechts, 505, 25) _GDIPlus_Button($MousePos, $hGraphics, $hGUI, 75, 104, 45, 45, $Minus_Gross_Button_2, $Minus_Gross_Button_2_Name, $Minus_Gross_Button_2_Status, $Minus_Gross_Button_2_Klick, $hBackbuffer_Leiste_Rechts, 505, 25) _GDIPlus_Button($MousePos, $hGraphics, $hGUI, 135, 104, 45, 45, $Minus_Gross_Button_3, $Minus_Gross_Button_3_Name, $Minus_Gross_Button_3_Status, $Minus_Gross_Button_3_Klick, $hBackbuffer_Leiste_Rechts, 505, 25) _GDIPlus_Button($MousePos, $hGraphics, $hGUI, 14, 193, 167, 26, $TurmKauf_Button, $TurmKauf_Button_Name, $TurmKauf_Button_Status, $TurmKauf_Button_Klick, $hBackbuffer_Leiste_Rechts, 505, 25) If _IsPressed('01') Then _KlickAktion() Switch $Extended_Msg Case 'Welle_Holen_Button' ToolTip('Noch eine Weile außer Funktion. Zuerst wird die Upgradefunktion implementiert :P') Case 'TurmKauf_Button' $Turmbau_Aktiv = True ;~ ToolTip('So das is der Button um Türmchen zu kaafe !') Case 'Plus_Gross_Button_1' If $Turmbau_Damage < 9 Then $Turmbau_Damage += 1 $Turmbau_Preis = $Turmbau_Damage * $Turmbau_Frequenz * $Turmbau_Range _Turmbau_Labels_Draw() Case 'Plus_Gross_Button_2' If $Turmbau_Range < 9 Then $Turmbau_Range += 1 $Turmbau_Preis = $Turmbau_Damage * $Turmbau_Frequenz * $Turmbau_Range _Turmbau_Labels_Draw() Case 'Plus_Gross_Button_3' If $Turmbau_Frequenz < 9 Then $Turmbau_Frequenz += 1 $Turmbau_Preis = $Turmbau_Damage * $Turmbau_Frequenz * $Turmbau_Range _Turmbau_Labels_Draw() Case 'Minus_Gross_Button_1' If $Turmbau_Damage > 1 Then $Turmbau_Damage -= 1 $Turmbau_Preis = $Turmbau_Damage * $Turmbau_Frequenz * $Turmbau_Range _Turmbau_Labels_Draw() Case 'Minus_Gross_Button_2' If $Turmbau_Range > 1 Then $Turmbau_Range -= 1 $Turmbau_Preis = $Turmbau_Damage * $Turmbau_Frequenz * $Turmbau_Range _Turmbau_Labels_Draw() Case 'Minus_Gross_Button_3' If $Turmbau_Frequenz > 1 Then $Turmbau_Frequenz -= 1 $Turmbau_Preis = $Turmbau_Damage * $Turmbau_Frequenz * $Turmbau_Range _Turmbau_Labels_Draw() EndSwitch ;########################## Timer Kontrolle ################################# $Sleep_Diff = TimerDiff($Sleep_Timer) Switch $Sleep_Diff Case 0 To 8 Sleep(9 - $Sleep_Diff) $Sleep_Timer = TimerInit() Case 9 To 100000 $Sleep_Timer = TimerInit() ContinueLoop EndSwitch ;############################################################################ ; Wenn die Berechnungen zu lange dauern wird nicht gewartet ; Wenn Leerlauf ist wird die CPU geschont. (Bei mir nur 3-5%) ;############################################################################ ;~ Sleep(10) WEnd EndFunc ;==>_Warteschleife Func _KlickAktion() If $Turmbau_Aktiv = True And $MausPos[0] <> -1 Then _Turmbau() Else If $MausPos[0] <> -1 And StringLeft($WegPunkte[$MausPos[0]][$MausPos[1]], 1) <> '0' Then _TurmAuswahl() EndIf EndFunc ;==>_KlickAktion Func _TurmAuswahl() ToolTip($WegPunkte[$MausPos[0]][$MausPos[1]]) EndFunc Func _Turmbau() ;~ If Not _IsPressed('10') Then $Turmbau_Aktiv = False ;~ EndIf If StringLeft($WegPunkte[$MausPos[0]][$MausPos[1]], 1) = '0' And $Geld >= $Turmbau_Preis And StringRight($WegPunkte[$MausPos[0]][$MausPos[1]],1) <> 'X' Then $WegPunkte[$MausPos[0]][$MausPos[1]] = $Turmbau_Damage & $Turmbau_Frequenz & $Turmbau_Range & StringRight($WegPunkte[$MausPos[0]][$MausPos[1]], 6) $Geld -= $Turmbau_Preis EndIf ;~ _GDIPlus_GraphicsFillRect($hBackbuffer_Spielfeld, $MausPos[0] * 50 + 3, $MausPos[1] * 50 + 3, 49, 49, $hBrush_Gold) EndFunc ;==>_Turmbau Func _Felderkennung($Pos) Local $X = Floor($Pos[0] / 50) Local $Y = Floor(($Pos[1] - 95) / 50) If $Y >= 0 And $X <= 9 And $Y <= 9 And $X >= 0 Then If $MausPos[0] <> $X Or $MausPos[1] <> $Y Then ;~ _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld, $hImage_Mausindikator, $X*50+2, $Y*50+2) $MausPos[0] = $X $MausPos[1] = $Y ;~ ToolTip('Position: X: ' & $X & ' Y: ' & $Y & ' Inhalt: ' & $WegPunkte[$X][$Y]) EndIf Else If $MausPos[0] <> $X Or $MausPos[1] <> $Y Then ;~ _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld, $hImage_Mausindikator, $X*50+2, $Y*50+2) $MausPos[0] = -1 ;~ $MausPos[1] = -1 ;~ ToolTip('Position: X: ' & $X & ' Y: ' & $Y & ' Inhalt: ' & $WegPunkte[$X][$Y]) EndIf EndIf Return EndFunc ;==>_Felderkennung Func _Turmbau_Labels_Draw() _GDIPlus_GraphicsDrawImage($hBackbuffer_Leiste_Rechts_2, $hImage_Leiste_Rechts_Hintergrund, 0, 0) _GDIPlus_GraphicsDrawStringEx($hBackbuffer_Leiste_Rechts_2, $Turmbau_Damage, $hFont_Turmbau, $tLayout_Turmbau_1, $hFormat, $hBrush_Weiss) _GDIPlus_GraphicsDrawStringEx($hBackbuffer_Leiste_Rechts_2, $Turmbau_Range, $hFont_Turmbau, $tLayout_Turmbau_2, $hFormat, $hBrush_Weiss) _GDIPlus_GraphicsDrawStringEx($hBackbuffer_Leiste_Rechts_2, $Turmbau_Frequenz, $hFont_Turmbau, $tLayout_Turmbau_3, $hFormat, $hBrush_Weiss) _GDIPlus_GraphicsDrawStringEx($hBackbuffer_Leiste_Rechts_2, $Turmbau_Preis, $hFont_Geld, $tLayout_Turmbau_Preis, $hFormat, $hBrush_Gold) _GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap_Leiste_Rechts_2, 505, 25) _GDIPlus_GraphicsDrawImage($hBackbuffer_Leiste_Rechts, $hImage_Leiste_Rechts_Hintergrund, 0, 0) _GDIPlus_GraphicsDrawStringEx($hBackbuffer_Leiste_Rechts, $Turmbau_Damage, $hFont_Turmbau, $tLayout_Turmbau_1, $hFormat, $hBrush_Weiss) _GDIPlus_GraphicsDrawStringEx($hBackbuffer_Leiste_Rechts, $Turmbau_Range, $hFont_Turmbau, $tLayout_Turmbau_2, $hFormat, $hBrush_Weiss) _GDIPlus_GraphicsDrawStringEx($hBackbuffer_Leiste_Rechts, $Turmbau_Frequenz, $hFont_Turmbau, $tLayout_Turmbau_3, $hFormat, $hBrush_Weiss) _GDIPlus_GraphicsDrawStringEx($hBackbuffer_Leiste_Rechts, $Turmbau_Preis, $hFont_Geld, $tLayout_Turmbau_Preis, $hFormat, $hBrush_Gold) EndFunc ;==>_Turmbau_Labels_Draw ;~ Func _Reset() ;~ Local $Taktgeber_Old = $Taktgeber ;~ $Taktgeber = 0 ;~ $Redraw_FPS_Temp -= $Taktgeber_Old ;~ $Redraw_Liste_Oben_Temp -= $Taktgeber_Old ;~ $Redraw_Spielfeld_Temp -= $Taktgeber_Old ;~ $Weg_Neu_Zeichnen_Temp -= $Taktgeber_Old ;~ EndFunc Func _Pfad_Zeichnen($Temp_WegPunkte, $Takt) If $Takt - $Weg_Neu_Zeichnen_Temp >= $Weg_Neu_Zeichnen_Intervall Then $Weg_Neu_Zeichnen_Temp = $Takt _Redraw('Spielfeld', 'Alle') For $X = 0 To 9 Step 1 For $Y = 0 To 9 Step 1 If StringRight($Temp_WegPunkte[$X][$Y], 1) = 'X' Then Switch Random(0, 2, 1) Case 0 _GDIPlus_GraphicsFillRect($hBackbuffer_Spielfeld, 5 + $X * 50, 5 + $Y * 50, 45, 45, $hBrush_Weiss_Transparent[0]) ;~ _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld, $hImage_Weg_1, $Anfang_X + 1 + $X * 50, $Anfang_Y + 1 + $Y * 50) Case 1 _GDIPlus_GraphicsFillRect($hBackbuffer_Spielfeld, 5 + $X * 50, 5 + $Y * 50, 45, 45, $hBrush_Weiss_Transparent[1]) ;~ _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld, $hImage_Weg_2, $Anfang_X + 1 + $X * 50, $Anfang_Y + 1 + $Y * 50) Case 2 _GDIPlus_GraphicsFillRect($hBackbuffer_Spielfeld, 5 + $X * 50, 5 + $Y * 50, 45, 45, $hBrush_Weiss_Transparent[2]) ;~ _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld, $hImage_Weg_3, $Anfang_X + 1 + $X * 50, $Anfang_Y + 1 + $Y * 50) EndSwitch EndIf Next Next EndIf EndFunc ;==>_Pfad_Zeichnen ;~ [TurmRGB][UpgradesRGB][FeldNr] ;~ bsp: ;~ 000000015 = Kein Turm Feld 15 ;~ 999999011 = Turm alles auf Max. Upgrades auf Max. Feld 11 Func _Wegpunkte() Local $Temp[10], $Temp_WegPunkte[10][10] $Temp[0] = 'o,o,o,o,o,o,o,o,o,o' $Temp[1] = 'X,X,X,X,X,X,X,X,X,o' $Temp[2] = 'o,o,o,o,o,o,o,o,X,o' $Temp[3] = 'X,X,X,X,o,o,o,o,X,o' $Temp[4] = 'X,o,o,X,X,X,X,X,X,o' $Temp[5] = 'X,o,o,o,o,o,o,o,o,o' $Temp[6] = 'X,o,o,o,X,X,X,X,X,o' $Temp[7] = 'X,o,o,o,X,o,o,o,X,o' $Temp[8] = 'X,X,X,X,X,o,o,o,X,o' $Temp[9] = 'o,o,o,o,o,o,o,o,X,X' Local $Part For $Y = 0 To 9 $Part = StringSplit($Temp[$Y], ",") For $X = 0 To 9 $Temp_WegPunkte[$X][$Y] = '000000' & $Y & $X & $Part[$X + 1] Next Next Return $Temp_WegPunkte EndFunc ;==>_Wegpunkte Func _Redraw($Feld, $Grafiken = 'Alle') If $Feld = 'Spielfeld' Then If $Grafiken = 'Alle' Then _GDIPlus_GraphicsDrawRect($hBackbuffer_Spielfeld, 0, 0, 503, 503, $hPen_Schwarz) _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld, $hImage_Hintergrund_Bild, 2, 2) For $i = 0 To 9 Step 1 For $o = 0 To 9 Step 1 _GDIPlus_GraphicsDrawRect($hBackbuffer_Spielfeld, 2 + $i * 50, 2 + $o * 50, 50, 50, $hPen_Schwarz_Transparent[2]) ;~ _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld, $hImage_Hintergrund_Feld, 2 + $i * 50, 2 + $o * 50) Next Next EndIf EndIf EndFunc ;==>_Redraw Func _Turm_Pen_Create() Local $hPen_Turm[9][9][9] For $i1 = 0 To 8 Step 1 For $i2 = 0 To 8 Step 1 For $i3 = 0 To 8 Step 1 $hPen_Turm[$i1][$i2][$i3] = _GDIPlus_PenCreate('0xFF' & Hex($i1 * 25, 2) & Hex($i2 * 25, 2) & Hex($i3 * 25, 2), 4) ;~ _GDIPlus_GraphicsDrawRect($hGraphics, $i1*65 + 10, $i2*65 +10, 50,50, $hPen_Turm[$i1][$i2][$i3]) ;~ Sleep(10) Next Next Next Return $hPen_Turm EndFunc ;==>_Turm_Pen_Create Func _Turm_Pen_Dispose($hPen_Turm) For $i1 = 0 To 8 Step 1 For $i2 = 0 To 8 Step 1 For $i3 = 0 To 8 Step 1 _GDIPlus_PenDispose($hPen_Turm[$i1][$i2][$i3]) Next Next Next EndFunc ;==>_Turm_Pen_Dispose Func _Turm_Zeichnen($hBack) For $Y = 0 To 9 Step 1 For $X = 0 To 9 Step 1 If StringLeft($WegPunkte[$X][$Y], 1) <> '0' And StringRight($WegPunkte[$X][$Y], 1) = 'o' Then __TurmZeichnen($hBack, $X, $Y) Next Next EndFunc ;==>_Turm_Zeichnen Func __TurmZeichnen($hBack, $X, $Y) ;~ Local $Color = '0xFF' & Hex(StringLeft($WegPunkte[$X][$Y], 1) * 25, 2) & Hex(StringMid($WegPunkte[$X][$Y], 2, 1) * 25, 2) & Hex(StringMid($WegPunkte[$X][$Y], 3, 1) * 25, 2) ;~ ToolTip($Color) ;~ Local $hBrush_Turm = _GDIPlus_BrushCreateSolid($Color) ;~ Local $hPen_Turm = _GDIPlus_PenCreate($Color, 4) ;~ ToolTip($X & $Y) ;~ _GDIPlus_GraphicsFillRect($hBack, $X * 50 + 3, $Y * 50 + 3, 49, 49, $hBrush_Turm) Local $r = StringLeft($WegPunkte[$X][$Y], 1) Local $g = StringMid($WegPunkte[$X][$Y], 2, 1) Local $b = StringMid($WegPunkte[$X][$Y], 3, 1) ;~ ToolTip($r & $g & $b) _GDIPlus_GraphicsDrawRect($hBack, $X * 50 + 6 + 15, $Y * 50 + 6 + 15, 43 - 30, 43 - 30, $hPen_Turm[$r - 1][$g - 1][$b - 1]) _GDIPlus_GraphicsDrawRect($hBack, $X * 50 + 6, $Y * 50 + 6, 43, 43, $hPen_Turm[$r - 1][$g - 1][$b - 1]) ;~ _GDIPlus_PenDispose($hPen_Turm) ;~ _GDIPlus_BrushDispose($hBrush_Turm) EndFunc ;==>__TurmZeichnen Func _Redraw_Backbuffer($Takt) ;Spielfeld Neu Zeichnen If $Takt - $Redraw_Spielfeld_Temp >= $Redraw_Spielfeld_Intervall Then $Redraw_Spielfeld_Temp = $Takt ;#########################Temp############################# Local $FPS_Local = 1000 / TimerDiff($Redraw_Spielfeld_FPS_Timer) $FPS_Durchschnitt = ($FPS_Durchschnitt * 1 + $FPS_Local) / 2 $Redraw_Spielfeld_FPS_Timer = TimerInit() ;#########################Temp############################# ;~ If $MausPos[0] <> $MausPos_Alt[0] Or $MausPos[1] <> $MausPos_Alt[1] Then ;~ $MausPos_Alt = $MausPos ;~ _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld_2, $hBitmap_Spielfeld, 0,0) ;Spielfeld kopieren Ohne Maus ;~ _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld, $hImage_Mausindikator, $MausPos[0]*50+2, $MausPos[1]*50+2) ;~ _GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap_Spielfeld, 0, 95) ;~ _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld, $hBitmap_Spielfeld_2, 0,0) ;~ Else ;~ _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld, $hImage_Mausindikator, $MausPos[0]*50+2, $MausPos[1]*50+2) ;~ _GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap_Spielfeld, 0, 95) _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld_2, $hBitmap_Spielfeld, 0, 0) ;Spielfeld kopieren Ohne Maus If $MausPos[0] <> -1 Then Switch $Turmbau_Aktiv Case True _GDIPlus_GraphicsFillRect($hBackbuffer_Spielfeld, $MausPos[0] * 50 + 3, $MausPos[1] * 50 + 3, 49, 49, $hBrush_Gold) Case Else _GDIPlus_GraphicsFillRect($hBackbuffer_Spielfeld, $MausPos[0] * 50 + 3, $MausPos[1] * 50 + 3, 49, 49, $hBrush_Weiss_Transparent[2]) EndSwitch EndIf _Turm_Zeichnen($hBackbuffer_Spielfeld) ;~ _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld, $hImage_Mausindikator, $MausPos[0] * 50 + 2, $MausPos[1] * 50 + 2) _GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap_Spielfeld, 0, 95) _GDIPlus_GraphicsDrawImage($hBackbuffer_Spielfeld, $hBitmap_Spielfeld_2, 0, 0) ;~ EndIf EndIf ;Leiste_Oben Neu Zeichnen If $Takt - $Redraw_Liste_Oben_Temp >= $Redraw_Liste_Oben_Intervall Then $Redraw_Liste_Oben_Temp = $Takt _GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap_Leiste_Oben, 0, 0) ;#########################Temp############################# ;~ ToolTip('FPS: ' & Round($FPS_Durchschnitt, 1)) ;#########################Temp############################# EndIf ;FPS_Leiste neu zeichnen If $Takt - $Redraw_FPS_Temp >= $Redraw_FPS_Intervall Then $Redraw_FPS_Temp = $Takt _GDIPlus_GraphicsFillRect($hBackbuffer_FPS, 0, 0, 195, 25, $hBrush_Schwarz) _GDIPlus_GraphicsDrawStringEx($hBackbuffer_FPS, 'FPS: ' & Round($FPS_Durchschnitt, 1), $hFont_FPS, $tLayout_FPS, $hFormat, $hBrush_Weiss) _GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap_FPS, 505, 575) EndIf ;Geld Leiste neu zeichnen If $Takt - $Redraw_Geld_Temp >= $Redraw_Geld_Intervall Then $Redraw_Geld_Temp = $Takt _GDIPlus_GraphicsFillRect($hBackbuffer_Geld, 0, 0, 195, 25, $hBrush_Schwarz) _GDIPlus_GraphicsDrawStringEx($hBackbuffer_Geld, 'Geld: ' & $Geld, $hFont_Geld, $tLayout_Geld, $hFormat, $hBrush_Gold) _GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap_Geld, 505, 0) EndIf ;Leiste_Rechts Neu Zeichnen If $Takt - $Redraw_Liste_Rechts_Temp >= $Redraw_Liste_Rechts_Intervall Then $Redraw_Liste_Rechts_Temp = $Takt _GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap_Leiste_Rechts, 505, 25) EndIf EndFunc ;==>_Redraw_Backbuffer Func _Exit() OnAutoItExitUnregister('_Exit') _GDIPlus_PenDispose($hPen_Schwarz) _GDIPlus_BrushDispose($hBrush_Schwarz) _GDIPlus_BrushDispose($hBrush_Weiss) _GDIPlus_BrushDispose($hBrush_Gold) _GDIPlus_StringFormatDispose($hFormat) _GDIPlus_FontDispose($hFont_FPS) _GDIPlus_FontFamilyDispose($hFamily_Calibri) _GDIPlus_FontDispose($hFont_Geld) _GDIPlus_FontDispose($hFont_Turmbau) _GDIPlus_FontDispose($hFont_Big) ;Spielfeld######## ;~ _GDIPlus_ImageDispose($hImage_Weg_1) ;~ _GDIPlus_ImageDispose($hImage_Weg_1) ;~ _GDIPlus_ImageDispose($hImage_Weg_1) _GDIPlus_ImageDispose($hImage_Hintergrund_Feld) _GDIPlus_ImageDispose($hImage_Hintergrund_Bild) ;Leiste_Oben###### _GDIPlus_ImageDispose($hImage_Leiste_Oben_Hintergrund) ;Leiste_Rechts _GDIPlus_ImageDispose($hImage_Leiste_Rechts_Hintergrund) ;Backbuffer######## _GDIPlus_GraphicsDispose($hBackbuffer_Spielfeld) _GDIPlus_BitmapDispose($hBitmap_Spielfeld) _GDIPlus_GraphicsDispose($hBackbuffer_Spielfeld_2) _GDIPlus_BitmapDispose($hBitmap_Spielfeld_2) _GDIPlus_GraphicsDispose($hBackbuffer_Leiste_Oben) _GDIPlus_BitmapDispose($hBitmap_Leiste_Oben) _GDIPlus_GraphicsDispose($hBackbuffer_FPS) _GDIPlus_BitmapDispose($hBitmap_FPS) _GDIPlus_GraphicsDispose($hBackbuffer_Geld) _GDIPlus_BitmapDispose($hBitmap_Geld) _GDIPlus_GraphicsDispose($hBackbuffer_Leiste_Rechts) _GDIPlus_BitmapDispose($hBitmap_Leiste_Rechts) _GDIPlus_GraphicsDispose($hBackbuffer_Leiste_Rechts_2) _GDIPlus_BitmapDispose($hBitmap_Leiste_Rechts_2) ;Hover_Buttons: For $i = 0 To 2 Step 1 _GDIPlus_ImageDispose($Plus_Gross_Button_1[$i][0]) _GDIPlus_ImageDispose($Plus_Gross_Button_2[$i][0]) _GDIPlus_ImageDispose($Plus_Gross_Button_3[$i][0]) _GDIPlus_ImageDispose($Minus_Gross_Button_1[$i][0]) _GDIPlus_ImageDispose($Minus_Gross_Button_2[$i][0]) _GDIPlus_ImageDispose($Minus_Gross_Button_3[$i][0]) _GDIPlus_ImageDispose($Welle_Holen_Button[$i][0]) _GDIPlus_ImageDispose($TurmKauf_Button[$i][0]) _GDIPlus_BrushDispose($hBrush_Weiss_Transparent[$i]) _GDIPlus_PenDispose($hPen_Schwarz_Transparent[$i]) Next _Turm_Pen_Dispose($hPen_Turm) ;Mausindikator _GDIPlus_ImageDispose($hImage_Mausindikator) ;hGraphics########## _GDIPlus_GraphicsDispose($hGraphics) _GDIPlus_Shutdown() ;~ DllCall($hDll, "none", "DestroyCursor", "ptr", $iCursor[0]) ;~ DllClose($hDll) ;~ DllCall($hDll, "none", "DestroyCursor", "ptr", $iCursor[0]) ;~ _Crypt_Shutdown() ;~ DllClose($hDll) Exit EndFunc ;==>_Exit Func _ExitBox() _Exit() EndFunc ;==>_ExitBox Func _Abstand_X($a) Return @DesktopWidth / 2 - $a / 2 EndFunc ;==>_Abstand_X Func _Abstand_Y($a) Return @DesktopHeight / 2 - $a / 2 EndFunc ;==>_Abstand_Y Func _GDIPlus_Button_Init($sName, $Pic1, $Pic2, $Pic3) Local $a = Assign($sName & "_Name", $sName) Local $b = Assign($sName & "_Status", -1) Local $c = Assign($sName & "_Klick", 0) If $a + $b + $c <> 3 Then Return -1 Local $Array[3][2], $Error = 0 ; Array: enthält 3 Bilder je in 2 Ausführungen. 100% Alpha, 1x 15% Alpha $Array[0][0] = Load_BMP_From_Mem($Pic1) If @error Then $Error += 1 $Array[1][0] = Load_BMP_From_Mem($Pic2) If @error Then $Error += 1 $Array[2][0] = Load_BMP_From_Mem($Pic3) If @error Then $Error += 1 If $Error <> 0 Then Return -2 $Error = 0 ;~ $Array[0][1] = Load_BMP_From_Mem($Pic1) ;~ _TBmpFromBmp($Array[0][1], 30) ;~ $Array[1][1] = Load_BMP_From_Mem($Pic2) ;~ _TBmpFromBmp($Array[1][1], 30) ;~ $Array[2][1] = Load_BMP_From_Mem($Pic3) ;~ _TBmpFromBmp($Array[2][1], 30) Return $Array EndFunc ;==>_GDIPlus_Button_Init Func _GDIPlus_Button_Dispose($hButton) Local $a = _GDIPlus_ImageDispose($hButton[0][0]) Local $b = _GDIPlus_ImageDispose($hButton[1][0]) Local $c = _GDIPlus_ImageDispose($hButton[2][0]) Local $d = _GDIPlus_ImageDispose($hButton[0][1]) Local $e = _GDIPlus_ImageDispose($hButton[1][1]) Local $f = _GDIPlus_ImageDispose($hButton[2][1]) If $a = False Or $b = False Or $c = False Or $d = False Or $e = False Or $f = False Then Return -1 Else Return 1 EndIf EndFunc ;==>_GDIPlus_Button_Dispose Func _GDIPlus_Button($mPos, $hGraphic, $hGUI, $PosX, $PosY, $Breite, $Hoehe, $hButton, $sName, $Status, $bKlick, $hBackbuffer_Used, $Relative_X, $Relative_Y) If WinActive($hGUI) Then Local $PosX2 = $PosX + $Breite Local $PosY2 = $PosY + $Hoehe Local $Klick If _IsPressed("01") Then $Klick = 1 If $Status = -1 Then ;~ __GDIPlus_GraphicsDrawImageRect($hGraphic, $hButton[0][1], $PosX, $PosY, $Breite, $Hoehe) _GDIPlus_GraphicsDrawImageRect($hGraphic, $hButton[0][0], $PosX + $Relative_X, $PosY + $Relative_Y, $Breite, $Hoehe) _GDIPlus_GraphicsDrawImageRect($hBackbuffer_Used, $hButton[0][0], $PosX, $PosY, $Breite, $Hoehe) Assign($sName & "_Status", 1) EndIf If $mPos[0] > $PosX + $Relative_X And $mPos[1] > $PosY + $Relative_Y And $mPos[0] < $PosX2 + $Relative_X And $mPos[1] < $PosY2 + $Relative_Y Then If $Status = 0 Then ;~ __GDIPlus_GraphicsDrawImageRect($hGraphic, $hButton[1][1], $PosX, $PosY, $Breite, $Hoehe) _GDIPlus_GraphicsDrawImageRect($hGraphic, $hButton[1][0], $PosX + $Relative_X, $PosY + $Relative_Y, $Breite, $Hoehe) _GDIPlus_GraphicsDrawImageRect($hBackbuffer_Used, $hButton[1][0], $PosX, $PosY, $Breite, $Hoehe) Assign($sName & "_Status", 1) EndIf If $Klick = 1 And $bKlick = 0 Then Assign($sName & "_Klick", 1) ;~ __GDIPlus_GraphicsDrawImageRect($hGraphic, $hButton[2][1], $PosX, $PosY, $Breite, $Hoehe) _GDIPlus_GraphicsDrawImageRect($hGraphic, $hButton[2][0], $PosX + $Relative_X, $PosY + $Relative_Y, $Breite, $Hoehe) _GDIPlus_GraphicsDrawImageRect($hBackbuffer_Used, $hButton[2][0], $PosX, $PosY, $Breite, $Hoehe) EndIf If $bKlick = 1 And $Klick = 0 Then Assign($sName & "_Klick", 0) ;~ __GDIPlus_GraphicsDrawImageRect($hGraphic, $hButton[1][1], $PosX, $PosY, $Breite, $Hoehe) _GDIPlus_GraphicsDrawImageRect($hGraphic, $hButton[1][0], $PosX + $Relative_X, $PosY + $Relative_Y, $Breite, $Hoehe) _GDIPlus_GraphicsDrawImageRect($hBackbuffer_Used, $hButton[1][0], $PosX, $PosY, $Breite, $Hoehe) Assign($sName & "_Status", 1) $Extended_Msg = $sName EndIf Else Assign($sName & "_Klick", 0) If $Status = 1 Then ;~ __GDIPlus_GraphicsDrawImageRect($hGraphic, $hButton[0][1], $PosX, $PosY, $Breite, $Hoehe) _GDIPlus_GraphicsDrawImageRect($hGraphic, $hButton[0][0], $PosX + $Relative_X, $PosY + $Relative_Y, $Breite, $Hoehe) _GDIPlus_GraphicsDrawImageRect($hBackbuffer_Used, $hButton[0][0], $PosX, $PosY, $Breite, $Hoehe) Assign($sName & "_Status", 0) EndIf EndIf EndIf EndFunc ;==>_GDIPlus_Button ;~ Func __GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, $PosX, $PosY, $Breite, $Hoehe) ;~ For $i = 0 To 3 Step 1 ;~ _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, $PosX, $PosY, $Breite, $Hoehe) ;~ Sleep(5) ;~ Next ;~ EndFunc Func _Decompress($Res_Comp, $Key, $ZeichenVorrat) ;Zum Dekomprimieren der Bilder Local $Laenge = StringLen($Key) / 2 For $i = 0 To $Laenge - 1 $Res_Comp = StringReplace($Res_Comp, $ZeichenVorrat[$i], StringRight($Key, 2), 0, 1) $Key = StringTrimRight($Key, 2) Next Return $Res_Comp EndFunc ;==>_Decompress Func _GDIPlus_GraphicsDrawImage($hGraphics, $hImage, $iX, $iY) DllCall($ghGDIPDll, "int", "GdipDrawImageI", "handle", $hGraphics, "handle", $hImage, "int", $iX, "int", $iY) EndFunc ;==>_GDIPlus_GraphicsDrawImage Func _GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage, $iX, $iY, $iW, $iH) DllCall($ghGDIPDll, "int", "GdipDrawImageRectI", "handle", $hGraphics, "handle", $hImage, "int", $iX, "int", $iY, "int", $iW, "int", $iH) EndFunc ;==>_GDIPlus_GraphicsDrawImageRect Func _GDIPlus_GraphicsDrawRect($hGraphics, $iX, $iY, $iWidth, $iHeight, $hPen) Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawRectangleI", "handle", $hGraphics, "handle", $hPen, "int", $iX, "int", $iY, "int", $iWidth, "int", $iHeight) EndFunc ;==>_GDIPlus_GraphicsDrawRect #EndRegion UDF´s #Region Kopierte UDF´s / Externe Funktionen Func Load_BMP_From_Mem($pic) Local $memBitmap, $len, $tMem, $hImage, $hData, $pData, $hStream, $hBitmapFromStream $memBitmap = Binary($pic) $len = BinaryLen($memBitmap) $hData = _MemGlobalAlloc($len, 0x0002) $pData = _MemGlobalLock($hData) $tMem = DllStructCreate("byte[" & $len & "]", $pData) DllStructSetData($tMem, 1, $memBitmap) _MemGlobalUnlock($hData) $hStream = _WinAPI_CreateStreamOnHGlobal($pData) $hBitmapFromStream = _GDIPlus_BitmapCreateFromStream($hStream) $tMem = "" Return $hBitmapFromStream EndFunc ;==>Load_BMP_From_Mem Func _WinAPI_CreateStreamOnHGlobal($hGlobal = 0, $fDeleteOnRelease = True) Local $aResult = DllCall("ole32.dll", "int", "CreateStreamOnHGlobal", "hwnd", $hGlobal, "int", $fDeleteOnRelease, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) Return $aResult[3] EndFunc ;==>_WinAPI_CreateStreamOnHGlobal Func _GDIPlus_BitmapCreateFromStream($pStream) Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromStream", "ptr", $pStream, "int*", 0) If @error Then Return SetError(@error, @extended, 0) Return $aResult[2] EndFunc ;==>_GDIPlus_BitmapCreateFromStream Func _TBmpFromBmp($hImage, $Alpha = 100, $px = 0, $py = 0, $Breite = -1, $Hoehe = -1) If $hImage = 0 Then Return 0 Local $Bild_Breite = _GDIPlus_ImageGetWidth($hImage) Local $h = _GDIPlus_ImageGetHeight($hImage) Local $Alpha_old, $Alpha_new If $Hoehe <> -1 Then $h = $Hoehe If $Breite <> -1 Then $Bild_Breite = $Breite For $X = $px To $Bild_Breite + $px For $Y = $py To $h + $py $pixel = _gdiplus_Bitmapgetpixel($hImage, $X, $Y) $hex = Hex($pixel) $Alpha_old = StringLeft(StringRight($hex, 8), 2) $Alpha_new = Hex(Dec($Alpha_old) / 255 * Dec($Alpha) / 255, 2) $npixel = "0x" & $Alpha_new & StringRight($hex, 6) _gdiplus_Bitmapsetpixel($hImage, $X, $Y, $npixel) Next Next Return $hImage EndFunc ;==>_TBmpFromBmp Func _GDIPlus_BitmapGetPixel($hBitmap, $iX, $iY) Local $aResult = DllCall($ghGDIPDll, "uint", "GdipBitmapGetPixel", "hwnd", $hBitmap, "int", $iX, "int", $iY, "uint*", 0) If @error Then Return SetError(@error, @extended, 0) $GDIP_STATUS = $aResult[0] Return $aResult[4] EndFunc ;==>_GDIPlus_BitmapGetPixel Func _GDIPlus_BitmapSetPixel($hBitmap, $iX, $iY, $iARGB) Local $aResult = DllCall($ghGDIPDll, "uint", "GdipBitmapSetPixel", "hwnd", $hBitmap, "int", $iX, "int", $iY, "uint", $iARGB) If @error Then Return SetError(@error, @extended, False) $GDIP_STATUS = $aResult[0] Return $aResult[0] = 0 EndFunc ;==>_GDIPlus_BitmapSetPixel ;~ Func WM_SETCURSOR($hWnd, $iMsg, $iWParam, $iLParam) ;~ If Not ($hWnd = $hGui) Then Return 0 ;~ If WinActive($Titel) Then DllCall($hDll, "int", "SetCursor", "ptr", $iCursor[0]) ;~ Return 0 ;~ EndFunc ;==>WM_SETCURSOR #EndRegion Kopierte UDF´s / Externe Funktionen