Доброго дня! Склевываю картинки в одну из многих. Не могу разобраться с прозрачным фоном. Подскажите куда копать...
Код:
#include <GDIPlus.au3>
if UBound($CmdLine) <> 3 Then
exit
EndIf
$NewBitmapStr = $CmdLine[1]
$StrArr = $CmdLine[2]
For $i = 1 To StringLen($StrArr)
$aImgs = StringSplit($StrArr, ',', 2)
Next
_GDIPlus_Startup()
Dim $ahImage[UBound($aImgs)]
For $i = 0 To UBound($aImgs)-1
$ahImage[$i] = _GDIPlus_ImageLoadFromFile($aImgs[$i])
Next
$iWidth = _GDIPlus_ImageGetWidth($ahImage[0])
$iHeight = _GDIPlus_ImageGetHeight($ahImage[0])
$hNewBitmap = _WinAPI_CreateBitmap($iWidth * UBound($aImgs), $iHeight, 1,32)
$hNewBitmap2 = _GDIPlus_BitmapCreateFromHBITMAP($hNewBitmap)
$hGraphic = _GDIPlus_ImageGetGraphicsContext($hNewBitmap2)
_GDIPlus_GraphicsClear ($hGraphic, 0xFFFFFFFF); приходится заливать белым
For $i = 0 To UBound($ahImage)-1
($hGraphic,$ahImage[$i],$i*$iWidth,0,$iWidth,$iHeight)
_GDIPlus_ImageDispose($ahImage[$i])
Next
_GDIPlus_ImageSaveToFile($hNewBitmap2, $NewBitmapStr)
_GDIPlus_GraphicsDispose($hGraphic)
_WinAPI_CloseHandle($hNewBitmap)
_GDIPlus_ImageDispose($hNewBitmap2)
_GDIPlus_Shutdown()
Exit