AutoHotkey Community

Code: Select all

; Many thanks to Tic for gdip library
; http://www.autohotkey.com/forum/topic32238.html 
; original layered window

SetWorkingDir, %A_ScriptDir%
SetBatchLines, -1
onexit bye


If !pToken := Gdip_Startup()
{
   MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
   ExitApp
}




gui,  new
Gui,  -Caption +E0x80000 +LastFound +OwnDialogs +Owner +hwndhwnd +alwaysontop
Gui,  Show, NA

; this works
gui,  new
Gui, name: -Caption +E0x80000 +LastFound +OwnDialogs +Owner +hwndhwnd_name +alwaysontop
Gui, name: Show, NA 


w:=150
h:=150

hbm := CreateDIBSection(w,h)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
pGraphics := Gdip_GraphicsFromHDC(hdc)

Gdip_SetSmoothingMode(pGraphics,4)
Gdip_SetInterpolationMode(pGraphics,7)
Gdip_GraphicsClear(pGraphics,0xff202020)


UpdateLayeredWindow(hwnd, hdc,(a_screenwidth-w)//2,(a_screenheight-h)//2,w,h)

Gdip_GraphicsClear(pGraphics,0xff03BC1B)

UpdateLayeredWindow(hwnd_name, hdc,(a_screenwidth-w)//2-300,(a_screenheight-h)//2,w,h)

OnMessage(0x2A3,"OnMouseLeave")
; OnMessage(0x232, "WM_EXITSIZEMOVE")
OnMessage(0x200,"OnMouseMove")
; OnMessage(0x216,"WM_Move")  ;lock only horizontal movement
; OnMessage(0x204, "WM_RBUTTONDOWN")

OnMessage(0x201,"WM_LBUTTONDOWN")


VarSetCapacity(tme,16,0)
NumPut(16,tme,0), NumPut(2,tme,4), NumPut(hwnd,tme,8)




return

!v::listvars


WM_LBUTTONDOWN(wParam,lParam,msg,hwnd){
 
    x := lParam & 0xFFFF
    y := lParam >> 16
    
    ;tooltip x=%x% y=%y% mousebutton
PostMessage, 0xA1, 2 
}

WM_RBUTTONDOWN(wParam,lParam,msg,hwnd){

    x := lParam & 0xFFFF
    y := lParam >> 16
}


OnMouseLeave(){
    tooltip leaving window
}


WM_EXITSIZEMOVE(wParam,lParam,msg,hwnd){  ;to autosave last position when moving gui


}




OnMouseMove( wParam, lParam, Msg,hwnd ) {
global
DllCall( "TrackMouseEvent","uint",&tme )
    x := lParam & 0xFFFF
    y := lParam >> 16
    
    tooltip Over window
}

WM_Move(wP,lP,msg)
  {

    gui +lastfound
    wingetpos,x,y,w,h

    If (msg = 0x3) {
        x := lP << 48 >> 48  
        y := lP << 32 >> 48  
      }
    Else If (msg = 0x216)
        NumPut(y,lP+0,4,"Int"), NumPut(y+h,lP+0,12,"Int")

  }





esc::
bye:

SelectObject(hdc, obm)
DeleteObject(hbm)
DeleteDC(hdc)
Gdip_DeleteGraphics(pGraphics)
Gdip_Shutdown(pToken)
ExitApp

Code: Select all

Gdip_GraphicsFromImage(pBitmap){
	DllCall("gdiplus\GdipGetImageGraphicsContext", A_PtrSize ? "UPtr" : "UInt", pBitmap, A_PtrSize ? "UPtr*" : "UInt*", pGraphics)
	return pGraphics
}
Gdip_CreateBitmap(Width, Height, Format=0x26200A){
    DllCall("gdiplus\GdipCreateBitmapFromScan0", "int", Width, "int", Height, "int", 0, "int", Format, A_PtrSize ? "UPtr" : "UInt", 0, A_PtrSize ? "UPtr*" : "uint*", pBitmap)
    Return pBitmap
}

Code: Select all

gui,  new, -Caption +E0x80000 +LastFound +OwnDialogs +Owner +hwndhwnd +alwaysontop

Code: Select all

gui,  new, -Caption +E0x80000 +LastFound +OwnDialogs +Owner +hwndhwnd +alwaysontop

Code: Select all

if Error := DLLCall(...) ...

Code: Select all

   Buffer := 0
   ; Save Image to Stream and copy it to Buffer
   DllCall( "ole32\CreateStreamOnHGlobal", UInt,0, Int,1, UIntP,pStream )
   DllCall( "gdiplus\GdipSaveImageToStream", Ptr,pBitmap, UInt,pStream, UInt,pCodec, UInt,pEncP )
   ;DllCall( "gdiplus\GdipDisposeImage", Ptr,pBitmap )
   DllCall( "ole32\GetHGlobalFromStream", UInt,pStream, UIntP,hData )
   pData := DllCall( "GlobalLock", UInt,hData )
   nSize := DllCall( "GlobalSize", UInt,pData )
   VarSetCapacity( Buffer, nSize, 0 )
   DllCall( "RtlMoveMemory", UInt,&Buffer, UInt,pData, UInt,nSize )
   DllCall( "GlobalUnlock", UInt,hData )
   DllCall( NumGet( NumGet( 1*pStream ) + 8 ), UInt,pStream )
   DllCall( "GlobalFree", UInt,hData )
   
   return Buffer

Code: Select all

SetWorkingDir, %A_ScriptDir%
SetBatchLines, -1



If !pToken := Gdip_Startup()
{
   MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
   ExitApp
}


---------------- create red square bitmap for test ----------

pBitmap:=Gdip_CreateBitmap(10,10)
pGraphics:=Gdip_GraphicsFromImage(pBitmap)
Gdip_GraphicsClear(pGraphics, 0xffff0000)


---------------- ---------------- ---------------- ----------


encoded:=Gdip_EncodeBitmapTo64string(pBitmap, "png")
msgbox %encoded%




---------------- test create the image ---------------- 

pBm:=get_bitmapfrom64(encoded)
Gdip_SaveBitmapToFile(pbm,"red_square.png")

Gdip_Shutdown(pToken)
exitapp


; based on gdip_all.ahk save bitmap to file

Gdip_EncodeBitmapTo64string(pBitmap, ext, Quality=75)
{
	
	if Ext not in BMP,DIB,RLE,JPG,JPEG,JPE,JFIF,GIF,TIF,TIFF,PNG
		return -1
	Extension := "." Ext

	DllCall("gdiplus\GdipGetImageEncodersSize", "uint*", nCount, "uint*", nSize)
	VarSetCapacity(ci, nSize)
	DllCall("gdiplus\GdipGetImageEncoders", "uint", nCount, "uint", nSize, Ptr, &ci)
	if !(nCount && nSize)
		return -2
	


		Loop, %nCount%
		{
			sString := StrGet(NumGet(ci, (idx := (48+7*A_PtrSize)*(A_Index-1))+32+3*A_PtrSize), "UTF-16")
			if !InStr(sString, "*" Extension)
				continue
			
			pCodec := &ci+idx
			break
		}
	
	
	if !pCodec
		return -3

	if (Quality != 75)
	{
		Quality := (Quality < 0) ? 0 : (Quality > 100) ? 100 : Quality
		if Extension in .JPG,.JPEG,.JPE,.JFIF
		{
			DllCall("gdiplus\GdipGetEncoderParameterListSize", Ptr, pBitmap, Ptr, pCodec, "uint*", nSize)
			VarSetCapacity(EncoderParameters, nSize, 0)
			DllCall("gdiplus\GdipGetEncoderParameterList", Ptr, pBitmap, Ptr, pCodec, "uint", nSize, Ptr, &EncoderParameters)
			Loop, % NumGet(EncoderParameters, "UInt")      
			{
				elem := (24+(A_PtrSize ? A_PtrSize : 4))*(A_Index-1) + 4 + (pad := A_PtrSize = 8 ? 4 : 0)
				if (NumGet(EncoderParameters, elem+16, "UInt") = 1) && (NumGet(EncoderParameters, elem+20, "UInt") = 6)
				{
					p := elem+&EncoderParameters-pad-4
					NumPut(Quality, NumGet(NumPut(4, NumPut(1, p+0)+20, "UInt")), "UInt")
					break
				}
			}      
		}
	}
	

DllCall("Ole32.dll\CreateStreamOnHGlobal", Ptr, 0, Int, True, PtrP, pStream)

E:=DllCall( "gdiplus\GdipSaveImageToStream", Ptr,pBitmap, Ptr,pStream, Ptr, pCodec, uint, p ? p : 0)
 
DllCall( "ole32\GetHGlobalFromStream", Ptr ,pStream , UIntP,hData )
pData :=DllCall("Kernel32.dll\GlobalLock", Ptr, hData, UPtr)
nSize := DllCall( "GlobalSize", UInt,pData )

VarSetCapacity( Bin, nSize, 0 )
 DllCall( "RtlMoveMemory", Ptr, &Bin , Ptr, pData , UInt, nSize )
 DllCall( "GlobalUnlock", Ptr,hData )
 DllCall(NumGet(NumGet(pStream + 0, 0, "UPtr") + (A_PtrSize * 2), 0, "UPtr"), Ptr, pStream)
 DllCall( "GlobalFree", Ptr,hData )
 
 
   DllCall("Crypt32.dll\CryptBinaryToString", "Ptr", &Bin, "UInt", nSize, "UInt", 0x01, "Ptr", 0, "UIntP", enc64Len)
   VarSetCapacity(enc64, enc64Len*2, 0)
   DllCall("Crypt32.dll\CryptBinaryToString", "Ptr", &Bin, "UInt", nSize, "UInt", 0x01, "Ptr", &enc64, "UIntP", enc64Len)
   Bin := ""
   VarSetCapacity(Bin, 0)
   VarSetCapacity(enc64, -1)

Return enc64
}


; based upon just me code: https://autohotkey.com/board/topic/93292-image2include-include-images-in-your-scripts/

get_bitmapfrom64(enc64){
If !DllCall("Crypt32.dll\CryptStringToBinary", "Ptr", &enc64, "UInt", 0, "UInt", 0x01, "Ptr", 0, "UIntP", BinLen, "Ptr", 0, "Ptr", 0)
   Return False
VarSetCapacity(Bin, BinLen, 0)
If !DllCall("Crypt32.dll\CryptStringToBinary", "Ptr", &enc64, "UInt", 0, "UInt", 0x01, "Ptr", &Bin, "UIntP", BinLen, "Ptr", 0, "Ptr", 0)
   Return False

hData := DllCall("Kernel32.dll\GlobalAlloc", "UInt", 2, "UPtr", BinLen, "UPtr")
pData := DllCall("Kernel32.dll\GlobalLock", "Ptr", hData, "UPtr")
DllCall("Kernel32.dll\RtlMoveMemory", "Ptr", pData, "Ptr", &Bin, "UPtr", BinLen)
DllCall("Kernel32.dll\GlobalUnlock", "Ptr", hData)
DllCall("Ole32.dll\CreateStreamOnHGlobal", "Ptr", hData, "Int", True, "PtrP", pStream)
hGdip := DllCall("Kernel32.dll\LoadLibrary", "Str", "Gdiplus.dll", "UPtr")
VarSetCapacity(SI, 16, 0), NumPut(1, SI, 0, "UChar")
DllCall("Gdiplus.dll\GdiplusStartup", "PtrP", pToken, "Ptr", &SI, "Ptr", 0)
DllCall("Gdiplus.dll\GdipCreateBitmapFromStream",  "Ptr", pStream, "PtrP", pBitmap)

DllCall("Gdiplus.dll\GdiplusShutdown", "Ptr", pToken)
DllCall("Kernel32.dll\FreeLibrary", "Ptr", hGdip)
DllCall(NumGet(NumGet(pStream + 0, 0, "UPtr") + (A_PtrSize * 2), 0, "UPtr"), "Ptr", pStream)
Return pBitmap
}