#include-once #include ;====================================================================================== ; Function Name: WTOB (Write Text On Bitmap) ; Description: Loads a bitmap and writes a text on it ; ; Parameters: $in: filename of the bitmap or a handle to a bitmap ; $text: the text which will be written onto the bitmap centered ; Optional: ; $fName: font name to be used ; $fSize: fonst size of the text ; $x: x position of font - if x and y set $alignX and $alignY will be skipped ; $y: y position of font ; $alignX: align the font center, left, right (0, 1, 2) on x axis ; $alignY: align the font center, top, buttom (0, 1, 2) on y axis ; $fColor: color of font ; $ebg: enable background black painting to get contrast with font color ; $save: if set to 1 bitmap will be saved ; $sFilename: filename of the save bitmap, if no extension is given PNG will be used instead ; $jpgQ: jpg image save quality -> 0: worst, 100: best ; $draw_bgrect draws a filled transparent rectangle to make the font better readable ; $draw_bgrect_c color of filled transparent rectangle ; ; Error codes: ; 1: image file not found ; 2: no text given ; 3: no font given ; 4: wrong font size - must be greater then 0 ; 5: wrong align x value ; 6: wrong align y value ; 7: unable to create bitmap from scan 0 ; 8: unable to save image ; ; Requirement(s): GDIplus.au3 ; Return Value(s): Success: handle to bitmap, Error: 0 ; Author(s): UEZ ; Version: v0.92 Build 2011-05-28 Beta ;======================================================================================= Func WTOB($in, $text, $fName = "Impact", $fSize = 11, $x = -1, $y = -1, $alignX = 2, $alignY = 2, $fColor = 0xFFFFFFFF, $ebg = True, $save = False, $sFilename = "WTOB.png", $jpgQ = 90, $draw_bgrect = False, $draw_bgrect_c = 0xFF808080) Local $handle = False, $hImage, $declared = True If IsPtr($in) Then $handle = True If (Not $handle) And ($in = "" Or Not FileExists($in)) Then Return SetError(1, 0, "File not found") If $text = "" Then Return SetError(2, 0, "No text given") If $fName = "" Then SetError(3, 0, "No font given") If Not IsInt($fSize) And $fSize > 0 Then Return SetError(4, 0, "Wrong font size") If $alignX < 0 Or $alignX > 2 Then Return SetError(5, 0, "Wrong align x value") If $alignY < 0 Or $alignY > 2 Then Return SetError(6, 0, "Wrong align y value") If Not $ghGDIPDll Then _GDIPlus_Startup() $declared = False EndIf If Not $handle Then $hImage = _GDIPlus_ImageLoadFromFile($in) Else $hImage = $in EndIf Local $iW = _GDIPlus_ImageGetWidth($hImage) Local $iH = _GDIPlus_ImageGetHeight($hImage) Local $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH) If @error Then Return SetError(7, @extended, "Unable to create bitmap from scan 0") Local $hContext = _GDIPlus_ImageGetGraphicsContext($hBitmap) _GDIPlus_GraphicsSetSmoothingMode($hContext, 2) DllCall($ghGDIPDll, "int", "GdipSetInterpolationMode", "handle", $hContext, "int", 7) DllCall($ghGDIPDll, "uint", "GdipSetTextRenderingHint", "handle", $hContext, "int", 4) Local $hPinsel = _GDIPlus_BrushCreateSolid($fColor) Local $hFormat = _GDIPlus_StringFormatCreate() Local $hFamily = _GDIPlus_FontFamilyCreate($fName) ;~ Local $font_size = Floor(($iW - StringLen($text)) / $fSize) Local $hFont = _GDIPlus_FontCreate($hFamily, $fSize, 1) Local $tLayout = _GDIPlus_RectFCreate(0, 0, 0, 0) Local $aInfo = _GDIPlus_GraphicsMeasureString($hContext, $text, $hFont, $tLayout, $hFormat) _GDIPlus_GraphicsDrawImageRect($hContext, $hImage, 0, 0, $iW, $iH) Local $fWidth = DllStructGetData($aInfo[0], "Width") Local $fHeight = DllStructGetData($aInfo[0], "Height") If $x < 0 Then Switch $alignX Case 0 ;alignment center DllStructSetData($tLayout, "x", $iW / 2 - Round($fWidth / 2, 0)) Case 1 ;alignment left DllStructSetData($tLayout, "x", 0) Case 2 ;alignment right DllStructSetData($tLayout, "x", $iW - $fWidth - 1) EndSwitch Else DllStructSetData($tLayout, "x", $x) EndIf If $y < 0 Then Switch $alignY Case 0 ;alignment center DllStructSetData($tLayout, "y", $iH / 2 - Floor($fHeight / 2)) Case 1 ;alignment top DllStructSetData($tLayout, "y", 0) Case 2 ;alignment buttom DllStructSetData($tLayout, "y", $iH - $fHeight - 1) EndSwitch Else DllStructSetData($tLayout, "y", $y) EndIf Local $hBrush_rect = _GDIPlus_BrushCreateSolid($draw_bgrect_c) If $draw_bgrect Then _GDIPlus_GraphicsFillRect($hContext, DllStructGetData($tLayout, "x"), DllStructGetData($tLayout, "y"), $fWidth, $fHeight, $hBrush_rect) Local $i, $fs = $fSize * 0.075 Local $hBrush_back = _GDIPlus_CreateLineBrush(0, 0, 0, $fSize, 0xFF000000, 0xFF808080) Local $tLayout2 = _GDIPlus_RectFCreate(0, 0, 0, 0) DllStructSetData($tLayout2, "Width", $fWidth) DllStructSetData($tLayout2, "Height", $fHeight) If $ebg Then For $i = 0 To 3 Switch $i Case 0 DllStructSetData($tLayout2, "x", DllStructGetData($tLayout, "x")) DllStructSetData($tLayout2, "y", DllStructGetData($tLayout, "y") - $fs) Case 1 DllStructSetData($tLayout2, "x", DllStructGetData($tLayout, "x") + $fs) DllStructSetData($tLayout2, "y", DllStructGetData($tLayout, "y")) Case 2 DllStructSetData($tLayout2, "x", DllStructGetData($tLayout, "x")) DllStructSetData($tLayout2, "y", DllStructGetData($tLayout, "y") + $fs) Case 3 DllStructSetData($tLayout2, "x", DllStructGetData($tLayout, "x") - $fs) DllStructSetData($tLayout2, "y", DllStructGetData($tLayout, "y")) EndSwitch _GDIPlus_GraphicsDrawStringEx($hContext, $text, $hFont, $tLayout2, $hFormat, $hBrush_back) Next EndIf _GDIPlus_GraphicsDrawStringEx($hContext, $text, $hFont, $tLayout, $hFormat, $hPinsel) Local $err = 0 If $save Then If StringRight($sFilename, 4) = ".jpg" Then Local $sCLSID = _GDIPlus_EncodersGetCLSID("JPG") Local $tParams = _GDIPlus_ParamInit(1) Local $tData = DllStructCreate("int Quality") DllStructSetData($tData, "Quality", $jpgQ) ;quality 0-100 Local $pData = DllStructGetPtr($tData) _GDIPlus_ParamAdd($tParams, $GDIP_EPGQUALITY, 1, $GDIP_EPTLONG, $pData) $pParams = DllStructGetPtr($tParams) If Not _GDIPlus_ImageSaveToFileEx($hBitmap, $sFilename, $sCLSID, $pParams) Then $err = 8 $tParams = 0 $tData = 0 Else If StringMid($sFilename, StringLen($sFilename) - 3, 1) <> "." Then $sFilename &= ".png" If Not _GDIPlus_ImageSaveToFile($hBitmap, $sFilename) Then $err = 8 EndIf EndIf _GDIPlus_ImageDispose($hImage) _GDIPlus_FontDispose($hFont) _GDIPlus_FontFamilyDispose($hFamily) _GDIPlus_StringFormatDispose($hFormat) _GDIPlus_BrushDispose($hPinsel) _GDIPlus_BrushDispose($hBrush_rect) _GDIPlus_BrushDispose($hBrush_back) _GDIPlus_GraphicsDispose($hContext) If Not $declared Then _GDIPlus_Shutdown() $tLayout = 0 $tLayout2 = 0 Return SetError($err, 0, $hBitmap) EndFunc ;==>WTOB Func _GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight, $iStride = 0, $iPixelFormat = 0x0026200A, $pScan0 = 0) Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $iWidth, "int", $iHeight, "int", $iStride, "int", $iPixelFormat, "ptr", $pScan0, "int*", 0) If @error Then Return SetError(@error, @extended, 0) Return $aResult[6] EndFunc ;==>_GDIPlus_BitmapCreateFromScan0 Func _GDIPlus_CreateLineBrush($iPoint1X, $iPoint1Y, $iPoint2X, $iPoint2Y, $iArgb1 = 0xFF0000FF, $iArgb2 = 0xFFFF0000, $WrapMode = 1) Local $tPoint1, $pPoint1, $tPoint2, $pPoint2, $aRet If $iArgb1 = "" Then $iArgb1 = 0xFF0000FF If $iArgb2 = "" Then $iArgb2 = 0xFFFF0000 If $WrapMode = -1 Then $WrapMode = 0 $tPoint1 = DllStructCreate("float X;float Y") $pPoint1 = DllStructGetPtr($tPoint1) DllStructSetData($tPoint1, "X", $iPoint1X) DllStructSetData($tPoint1, "Y", $iPoint1Y) $tPoint2 = DllStructCreate("float X;float Y") $pPoint2 = DllStructGetPtr($tPoint2) DllStructSetData($tPoint2, "X", $iPoint2X) DllStructSetData($tPoint2, "Y", $iPoint2Y) $aRet = DllCall($ghGDIPDll, "int", "GdipCreateLineBrush", "ptr", $pPoint1, "ptr", $pPoint2, "int", $iArgb1, "int", $iArgb2, "int", $WrapMode, "int*", 0) Return $aRet[6] EndFunc ;==>_GDIPlus_CreateLineBrush