Last active
December 8, 2023 22:54
-
-
Save JoeGlines/44a8edbf95cf6b9c1d976344ceb85cba to your computer and use it in GitHub Desktop.
Window Snipping with Opacity
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;******************************************************* | |
| ; Want a clear path for learning AutoHotkey; Take a look at our AutoHotkey Udemy courses. They're structured in a way to make learning AHK EASY | |
| ; Right now you can get a coupon code here: https://the-Automator.com/Learn | |
| ;******************************************************* | |
| ;Added a GUI for Transparency. 4/13/21 ~BK | |
| ; Could also modify directly in the original code by adjusting Alpha from 0-255 | |
| ; I'm having trouble getting the new Transparency GUI to save the varaible | |
| ; Also, cannot seem to make a variable work instead of the Alpha number | |
| ; Only modified the OpacityMenu in the GUI & the OpacityGUI at the end | |
| #NoEnv | |
| #SingleInstance, Force | |
| #include B:\Dropbox\Guests\Isaias\Scripts to Work on\WindowSnipping\lib | |
| #include B:\Dropbox\Guests\Isaias\Scripts to Work on\WindowSnipping\lib\ScriptObj\scriptobj.ahk | |
| ;~ #include ScriptObj/scriptobj.ahk | |
| if((A_PtrSize=8&&A_IsCompiled="")||!A_IsUnicode){ ;32 bit=4 ;64 bit=8 | |
| SplitPath,A_AhkPath,,dir | |
| if(!FileExist(correct:=dir "\AutoHotkeyU32.exe")){ | |
| MsgBox error | |
| ExitApp | |
| } | |
| Run,"%correct%" "%A_ScriptName%",%A_ScriptDir% | |
| ExitApp | |
| } | |
| if !InStr(A_OSVersion, "10.") | |
| appdata := A_ScriptDir | |
| else | |
| appdata := A_AppData "\" regexreplace(A_ScriptName, "\.\w+"), isWin10 := true | |
| global script := {base : script | |
| ,name : regexreplace(A_ScriptName, "\.\w+") | |
| ,version : "1.28.0" | |
| ,author : "Joe Glines" | |
| ,email : "[email protected]" | |
| ,homepagetext : "www.the-automator.com/snip" | |
| ,homepagelink : "www.the-automator.com/snip?src=app" | |
| ,donateLink : "https://www.paypal.com/donate?hosted_button_id=MBT5HSD9G94N6" | |
| ,resfolder : appdata "\res" | |
| ,iconfile : appdata "\res\sct.ico" | |
| ,configfolder : appdata | |
| ,configfile : appdata "\settings.ini"} | |
| /* ; Credits I borrowed heavily from ... | |
| Screen clipping by Learning one https://autohotkey.com/boards/viewtopic.php?f=6&t=12088 | |
| OCR by malcev https://www.autohotkey.com/boards/viewtopic.php?f=6&t=72674 | |
| */ | |
| if !fileExist(script.resfolder) | |
| { | |
| FileCreateDir, % script.resfolder | |
| FileInstall, res\sct.ico, % script.iconfile | |
| } | |
| ;@Ahk2Exe-SetMainIcon res\sct.ico | |
| ;~ Menu, Tray, Icon, % script.iconfile | |
| ;~ Menu,Tray,Add,"Windows and left mouse click" | |
| IniRead, ShowUsage, % script.configfile, Settings, ShowUsage, % true | |
| Menu, Tray, NoStandard ;removes default options | |
| Menu, Tray, Add ; to divide from standard menu, remove when above line is uncommented | |
| Menu, Tray, Add, Hotkeys, Hotkeys | |
| Menu, Tray, Add, Opacity, OpacityGUI ; BK Add 4/13/21 | |
| Menu, Tray, Add, Email Signature, SignatureGUI | |
| Menu, Tray, Add | |
| Menu, Tray, Add, Show Usage at Startup, ShowUsageSet | |
| Menu, Tray, % ShowUsage ? "Check" : "Uncheck", Show Usage at Startup | |
| Menu, Tray, Add | |
| Menu, Tray, Add, About, AboutGUI | |
| Menu, Tray, Add, Check for Updates, Update_WindowSnipping | |
| Menu, Tray, Add, Clear Settings, ClearSettings | |
| Menu, Tray,Add,Exit App,Exit | |
| Menu, Tray, Default, Hotkeys | |
| if (!FileExist(script.configfile)) | |
| { | |
| FileCreateDir % regexreplace(script.configfile, "^(.*)\\([^\\]*)$", "$1") | |
| FileAppend,, % script.configfile, UTF-8-RAW | |
| IniWrite, % true, % script.configfile, Settings, FirstRun | |
| IniWrite, % true, % script.configfile, Settings, ShowUsage | |
| Gosub Hotkeys | |
| } | |
| else | |
| { | |
| IniWrite, % false, % script.configfile, Settings, FirstRun | |
| Gosub SetHotkeys | |
| } | |
| if (ShowUsage) | |
| Gosub ShowUsageGUI | |
| return | |
| ;===Functions========================================================================== | |
| UriEncode(Uri, Enc = "UTF-8"){ | |
| StrPutVar(Uri, Var, Enc) | |
| f := A_FormatInteger | |
| SetFormat, IntegerFast, H | |
| Loop | |
| { | |
| Code := NumGet(Var, A_Index - 1, "UChar") | |
| If (!Code) | |
| Break | |
| If (Code >= 0x30 && Code <= 0x39 ; 0-9 | |
| || Code >= 0x41 && Code <= 0x5A ; A-Z | |
| || Code >= 0x61 && Code <= 0x7A) ; a-z | |
| Res .= Chr(Code) | |
| Else | |
| Res .= "%" . SubStr(Code + 0x100, -1) | |
| } | |
| SetFormat, IntegerFast, %f% | |
| Return, Res | |
| } | |
| StrPutVar(Str, ByRef Var, Enc = ""){ | |
| Len := StrPut(Str, Enc) * (Enc = "UTF-16" || Enc = "CP1200" ? 2 : 1) | |
| VarSetCapacity(Var, Len, 0) | |
| Return, StrPut(Str, &Var, Enc) | |
| } | |
| SCW_DestroyAllClipWins() { | |
| MaxGuis := SCW_Reg("MaxGuis"), StartAfter := SCW_Reg("StartAfter") | |
| Loop, %MaxGuis% { | |
| StartAfter++ | |
| Gui %StartAfter%: Destroy | |
| } | |
| } | |
| SCW_SetUp(Options="") { | |
| if !(Options = "") { | |
| Loop, Parse, Options, %A_Space% | |
| { | |
| Field := A_LoopField | |
| DotPos := InStr(Field, ".") | |
| if (DotPos = 0) | |
| Continue | |
| var := SubStr(Field, 1, DotPos-1) | |
| val := SubStr(Field, DotPos+1) | |
| if var in StartAfter,MaxGuis,AutoMonitorWM_LBUTTONDOWN,DrawCloseButton,BorderAColor,BorderBColor,SelColor,SelTrans | |
| %var% := val | |
| } | |
| } | |
| SCW_Default(StartAfter,80), SCW_Default(MaxGuis,6) | |
| SCW_Default(AutoMonitorWM_LBUTTONDOWN,1), SCW_Default(DrawCloseButton,0) | |
| SCW_Default(BorderAColor,"ff6666ff"), SCW_Default(BorderBColor,"ffffffff") | |
| SCW_Default(SelColor,"Yellow"), SCW_Default(SelTrans,80) | |
| SCW_Reg("MaxGuis", MaxGuis), SCW_Reg("StartAfter", StartAfter), SCW_Reg("DrawCloseButton", DrawCloseButton) | |
| SCW_Reg("BorderAColor", BorderAColor), SCW_Reg("BorderBColor", BorderBColor) | |
| SCW_Reg("SelColor", SelColor), SCW_Reg("SelTrans",SelTrans) | |
| SCW_Reg("WasSetUp", 1) | |
| if AutoMonitorWM_LBUTTONDOWN | |
| OnMessage(0x201, "SCW_LBUTTONDOWN") | |
| } | |
| SCW_ScreenClip2Win(clip=0,email=0,OCR=0) { | |
| static c | |
| global defaultSignature, origText | |
| if !(SCW_Reg("WasSetUp")) | |
| SCW_SetUp() | |
| StartAfter := SCW_Reg("StartAfter"), MaxGuis := SCW_Reg("MaxGuis"), SelColor := SCW_Reg("SelColor"), SelTrans := SCW_Reg("SelTrans") | |
| c++ | |
| if (c > MaxGuis) | |
| c := 1 | |
| GuiNum := StartAfter + c | |
| Area := SCW_SelectAreaMod("g" GuiNum " c" SelColor " t" SelTrans) | |
| StringSplit, v, Area, | | |
| if (v3 < 10 and v4 < 10) ; too small area | |
| return | |
| pToken := Gdip_Startup() | |
| if (! pToken ) { | |
| MsgBox, 64, GDI+ error, GDI+ failed to start. Please ensure you have GDI+ on your system. | |
| return | |
| } | |
| Sleep, 100 | |
| pBitmap := Gdip_BitmapFromScreen(Area) | |
| if (OCR=1) | |
| { | |
| hBitmap:=Gdip_CreateHBITMAPFromBitmap(pBitmap) ;Convert an hBitmap from the pBitmap | |
| pIRandomAccessStream := HBitmapToRandomAccessStream(hBitmap) ;OCR function needs a randome access stream (so it isn't "locked down") | |
| DllCall("DeleteObject", "Ptr", hBitmap) | |
| IniRead, currLang, % script.configfile, OCR, lang, en | |
| Clipboard:=ocr(pIRandomAccessStream, currLang) | |
| ObjRelease(pIRandomAccessStream) | |
| if (!Clipboard) | |
| MsgBox % 0x10, % "Error" | |
| , % "No text was captured by the OCR engine.`nPlease Try again." | |
| else if (Clipboard != "error") | |
| { | |
| Gui, ocrResult:new | |
| Gui, font, s14 Courier New | |
| Gui, add, edit, w600 r20 vorigText, % Clipboard | |
| Gui, add, button, gtranslate, % "Translate using Google" | |
| Gui, show | |
| } | |
| Gdip_Shutdown("pToken") ;clear selection | |
| return | |
| translate: | |
| Gui, ocrResult:Submit, NoHide | |
| IniRead, currLang, % script.configfile, OCR, lang, en | |
| IniRead, tgtlang, % script.configfile, OCR, tgtlang, en | |
| Run % "https://translate.google.com/?sl=" currLang "&tl=" tgtlang "&text=" UriEncode(origText) "&op=translate" | |
| return | |
| } | |
| if (email=1){ | |
| ;**********************Added to automatically save to bmp********************************* | |
| File1:=A_ScriptDir . "\example.BMP" ;path to file to save (make sure uppercase extenstion. see below for options | |
| Gdip_SaveBitmapToFile(pBitmap, File1) ;Saves file as bmp | |
| File2:=A_ScriptDir . "\example.JPG" ;path to file to save (make sure uppercase extenstion. see below for options | |
| Gdip_SaveBitmapToFile(pBitmap, File2) ;Exports automatcially to file | |
| Clipboard:=File2 ;Set the clipboard with path to jpg file by default | |
| ;**********************make sure outlook is running so email will be sent********************************* | |
| Process, Exist, Outlook.exe ; check to see if Outlook is running. | |
| Outlook_pid=%errorLevel% ; errorlevel equals the PID if active | |
| If (Outlook_pid = 0) { ; | |
| ; run outlook.exe | |
| ; WinWait, Microsoft Outlook, ,3 | |
| MsgBox, % 0x40 | |
| , % "Outlook is not open" | |
| , % "For this feature to work correctly you should open Outlook.`n`n" | |
| . "After is open try using the hotkey again." | |
| return | |
| } | |
| ;**********************Write email********************************* | |
| olMailItem := 0 | |
| try IsObject(MailItem := ComObjActive("Outlook.Application").CreateItem(olMailItem)) ; Get the Outlook application object if Outlook is open | |
| catch | |
| MailItem := ComObjCreate("Outlook.Application").CreateItem(olMailItem) ; Create if Outlook is not open | |
| olFormatHTML := 2 | |
| MailItem.BodyFormat := olFormatHTML | |
| ;~ MailItem.TO := (MailTo) | |
| ;~ MailItem.CC :="[email protected]" | |
| FormatTime, TodayDate , YYYYMMDDHH24MISS, dddd MMMM d, yyyy h:mm:ss tt | |
| MailItem.Subject :="Screen shot taken : " (TodayDate) ;Subject line of email | |
| if (FileExist(script.configfile)) | |
| IniRead, currSig, % script.configfile, Email, signature | |
| if (!currSig || currSig == "ERROR") | |
| currSig := defaultSignature | |
| StringReplace, currSig, currSig, |, `n, All | |
| StringReplace, currSig, currSig, `%date`%, %TodayDate%, All | |
| StringReplace, currSig, currSig, </HTML>, | |
| (LTrim | |
| <br> | |
| This email and screen clipping was created from Screen Clipper by <a href="https://www.the-automator.com/screenclipping/">the-Automator</a>. | |
| </HTML> | |
| ), All | |
| MailItem.HTMLBody := currSig | |
| IniRead, currImg, % script.configfile, Email, images | |
| if (!currImg || currImg == "ERROR") | |
| currImg := 11 | |
| file := StrSplit(currImg) | |
| if (file[1]) | |
| MailItem.Attachments.Add(File1) | |
| if (file[2]) | |
| MailItem.Attachments.Add(File2) | |
| MailItem.Display | |
| ; Reload | |
| } | |
| ;******************************************************* | |
| SCW_CreateLayeredWinMod(GuiNum,pBitmap,v1,v2, SCW_Reg("DrawCloseButton")) | |
| Gdip_Shutdown("pToken") | |
| if (clip=1){ | |
| ;********************** added to copy to clipboard by default********************************* | |
| WinActivate, ScreenClippingWindow ahk_class AutoHotkeyGUI ;activates last clipped window | |
| SCW_Win2Clipboard(0) ;copies to clipboard by default w/o border | |
| ;******************************************************* | |
| } | |
| } | |
| SCW_SelectAreaMod(Options="") { | |
| CoordMode, Mouse, Screen | |
| MouseGetPos, MX, MY | |
| loop, parse, Options, %A_Space% | |
| { | |
| Field := A_LoopField | |
| FirstChar := SubStr(Field,1,1) | |
| if FirstChar contains c,t,g,m | |
| { | |
| StringTrimLeft, Field, Field, 1 | |
| %FirstChar% := Field | |
| } | |
| } | |
| c := (c = "") ? "Blue" : c, t := (t = "") ? "50" : t, g := (g = "") ? "99" : g | |
| Gui %g%: Destroy | |
| Gui %g%: +AlwaysOnTop -caption +Border +ToolWindow +LastFound -DPIScale ;provided from rommmcek 10/23/16 | |
| WinSet, Transparent, %t% | |
| Gui %g%: Color, %c% | |
| Hotkey := RegExReplace(A_ThisHotkey,"^(\w* & |\W*)") | |
| While, (GetKeyState(Hotkey, "p")) { | |
| Sleep, 10 | |
| MouseGetPos, MXend, MYend | |
| w := abs(MX - MXend), h := abs(MY - MYend) | |
| X := (MX < MXend) ? MX : MXend | |
| Y := (MY < MYend) ? MY : MYend | |
| Gui %g%: Show, x%X% y%Y% w%w% h%h% NA | |
| } | |
| Gui %g%: Destroy | |
| MouseGetPos, MXend, MYend | |
| If ( MX > MXend ) | |
| temp := MX, MX := MXend, MXend := temp | |
| If ( MY > MYend ) | |
| temp := MY, MY := MYend, MYend := temp | |
| Return MX "|" MY "|" w "|" h | |
| } | |
| SCW_CreateLayeredWinMod(GuiNum,pBitmap,x,y,DrawCloseButton=0) { | |
| static CloseButton := 16 | |
| BorderAColor := SCW_Reg("BorderAColor"), BorderBColor := SCW_Reg("BorderBColor") | |
| ; IniRead, ClipBorder, % script.configfile, Settings, ClipBorder, % false | |
| Gui %GuiNum%: -Caption +E0x80000 +LastFound +ToolWindow +AlwaysOnTop +OwnDialogs | |
| Gui %GuiNum%: Show, Na, ScreenClippingWindow | |
| hwnd := WinExist() | |
| Width := Gdip_GetImageWidth(pBitmap), Height := Gdip_GetImageHeight(pBitmap) | |
| hbm := CreateDIBSection(Width+6, Height+6), hdc := CreateCompatibleDC(), obm := SelectObject(hdc, hbm) | |
| G := Gdip_GraphicsFromHDC(hdc), Gdip_SetSmoothingMode(G, 4), Gdip_SetInterpolationMode(G, 7) | |
| Gdip_DrawImage(G, pBitmap, 3, 3, Width, Height) | |
| Gdip_DisposeImage(pBitmap) | |
| pPen1 := Gdip_CreatePen("0x" BorderAColor, 3), pPen2 := Gdip_CreatePen("0x" BorderBColor, 1) | |
| if DrawCloseButton { | |
| Gdip_DrawRectangle(G, pPen1, 1+Width-CloseButton+3, 1, CloseButton, CloseButton) | |
| Gdip_DrawRectangle(G, pPen2, 1+Width-CloseButton+3, 1, CloseButton, CloseButton) | |
| } | |
| Gdip_DrawRectangle(G, pPen1, 1, 1, Width+3, Height+3) | |
| Gdip_DrawRectangle(G, pPen2, 1, 1, Width+3, Height+3) | |
| Gdip_DeletePen(pPen1), Gdip_DeletePen(pPen2) | |
| IniRead, opacity, % script.configfile,Settings, Opacity, 255 | |
| UpdateLayeredWindow(hwnd, hdc, x-3, y-3, Width+6, Height+6, opacity) | |
| SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc), Gdip_DeleteGraphics(G) | |
| SCW_Reg("G" GuiNum "#HWND", hwnd) | |
| SCW_Reg("G" GuiNum "#XClose", Width+6-CloseButton) | |
| SCW_Reg("G" GuiNum "#YClose", CloseButton) | |
| Return hwnd | |
| } | |
| SCW_LBUTTONDOWN() { | |
| MouseGetPos,,, WinUMID | |
| WinGetTitle, Title, ahk_id %WinUMID% | |
| if (Title = "ScreenClippingWindow") { | |
| PostMessage, 0xA1, 2,,, ahk_id %WinUMID% | |
| KeyWait, Lbutton | |
| CoordMode, mouse, Relative | |
| MouseGetPos, x,y | |
| XClose := SCW_Reg("G" A_Gui "#XClose"), YClose := SCW_Reg("G" A_Gui "#YClose") | |
| if (x > XClose and y < YClose) | |
| Gui %A_Gui%: Destroy | |
| return 1 ; confirm that click was on module's screen clipping windows | |
| } | |
| } | |
| SCW_Reg(variable, value="") { | |
| static | |
| if (value = "") { | |
| yaqxswcdevfr := kxucfp%variable%pqzmdk | |
| Return yaqxswcdevfr | |
| } Else | |
| kxucfp%variable%pqzmdk = %value% | |
| } | |
| SCW_Default(ByRef Variable,DefaultValue) { | |
| if (Variable="") | |
| Variable := DefaultValue | |
| } | |
| SCW_Win2Clipboard(KeepBorders=0) { | |
| Send, !{PrintScreen} ; Active Win's client area to Clipboard | |
| if !KeepBorders { | |
| pToken := Gdip_Startup() | |
| pBitmap := Gdip_CreateBitmapFromClipboard() | |
| Gdip_GetDimensions(pBitmap, w, h) | |
| pBitmap2 := SCW_CropImage(pBitmap, 3, 3, w-6, h-6) | |
| Gdip_SetBitmapToClipboard(pBitmap2) | |
| Gdip_DisposeImage(pBitmap), Gdip_DisposeImage(pBitmap2) | |
| Gdip_Shutdown("pToken") | |
| } | |
| } | |
| SCW_CropImage(pBitmap, x, y, w, h) { | |
| pBitmap2 := Gdip_CreateBitmap(w, h), G2 := Gdip_GraphicsFromImage(pBitmap2) | |
| Gdip_DrawImage(G2, pBitmap, 0, 0, w, h, x, y, w, h) | |
| Gdip_DeleteGraphics(G2) | |
| return pBitmap2 | |
| } | |
| UpdateLayeredWindow(hwnd, hdc, x="", y="", w="", h="", Alpha=125){ | |
| if ((x != "") && (y != "")) | |
| VarSetCapacity(pt, 8), NumPut(x, pt, 0), NumPut(y, pt, 4) | |
| if (w = "") ||(h = "") | |
| WinGetPos,,, w, h, ahk_id %hwnd% | |
| return DllCall("UpdateLayeredWindow", "uint", hwnd, "uint", 0, "uint", ((x = "") && (y = "")) ? 0 : &pt, "int64*", w|h<<32, "uint", hdc, "int64*", 0, "uint", 0, "uint*", Alpha<<16|1<<24, "uint", 2) | |
| } | |
| BitBlt(ddc, dx, dy, dw, dh, sdc, sx, sy, Raster=""){ | |
| return DllCall("gdi32\BitBlt", "uint", dDC, "int", dx, "int", dy, "int", dw, "int", dh, "uint", sDC, "int", sx, "int", sy, "uint", Raster ? Raster : 0x00CC0020) | |
| } | |
| StretchBlt(ddc, dx, dy, dw, dh, sdc, sx, sy, sw, sh, Raster=""){ | |
| return DllCall("gdi32\StretchBlt", "uint", ddc, "int", dx, "int", dy, "int", dw, "int", dh, "uint", sdc, "int", sx, "int", sy, "int", sw, "int", sh, "uint", Raster ? Raster : 0x00CC0020) | |
| } | |
| SetStretchBltMode(hdc, iStretchMode=4){ | |
| return DllCall("gdi32\SetStretchBltMode", "uint", hdc, "int", iStretchMode) | |
| } | |
| SetImage(hwnd, hBitmap){ | |
| SendMessage, 0x172, 0x0, hBitmap,, ahk_id %hwnd% | |
| E := ErrorLevel | |
| DeleteObject(E) | |
| return E | |
| } | |
| SetSysColorToControl(hwnd, SysColor=15){ | |
| WinGetPos,,, w, h, ahk_id %hwnd% | |
| bc := DllCall("GetSysColor", "Int", SysColor) | |
| pBrushClear := Gdip_BrushCreateSolid(0xff000000 | (bc >> 16 | bc & 0xff00 | (bc & 0xff) << 16)) | |
| pBitmap := Gdip_CreateBitmap(w, h), G := Gdip_GraphicsFromImage(pBitmap) | |
| Gdip_FillRectangle(G, pBrushClear, 0, 0, w, h) | |
| hBitmap := Gdip_CreateHBITMAPFromBitmap(pBitmap) | |
| SetImage(hwnd, hBitmap) | |
| Gdip_DeleteBrush(pBrushClear) | |
| Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmap), DeleteObject(hBitmap) | |
| return 0 | |
| } | |
| Gdip_BitmapFromScreen(Screen=0, Raster=""){ | |
| if (Screen = 0) { | |
| Sysget, x, 76 | |
| Sysget, y, 77 | |
| Sysget, w, 78 | |
| Sysget, h, 79 | |
| } else if (Screen&1 != "") { | |
| Sysget, M, Monitor, %Screen% | |
| x := MLeft, y := MTop, w := MRight-MLeft, h := MBottom-MTop | |
| } else { | |
| StringSplit, S, Screen, | | |
| x := S1, y := S2, w := S3, h := S4 | |
| } | |
| if (x = "") || (y = "") || (w = "") || (h = "") | |
| return -1 | |
| chdc := CreateCompatibleDC(), hbm := CreateDIBSection(w, h, chdc), obm := SelectObject(chdc, hbm), hhdc := GetDC() | |
| BitBlt(chdc, 0, 0, w, h, hhdc, x, y, Raster) | |
| ReleaseDC(hhdc) | |
| pBitmap := Gdip_CreateBitmapFromHBITMAP(hbm) | |
| SelectObject(hhdc, obm), DeleteObject(hbm), DeleteDC(hhdc), DeleteDC(chdc) | |
| return pBitmap | |
| } | |
| Gdip_BitmapFromHWND(hwnd){ | |
| WinGetPos,,, Width, Height, ahk_id %hwnd% | |
| hbm := CreateDIBSection(Width, Height), hdc := CreateCompatibleDC(), obm := SelectObject(hdc, hbm) | |
| PrintWindow(hwnd, hdc) | |
| pBitmap := Gdip_CreateBitmapFromHBITMAP(hbm) | |
| SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc) | |
| return pBitmap | |
| } | |
| CreateRectF(ByRef RectF, x, y, w, h){ | |
| VarSetCapacity(RectF, 16) | |
| NumPut(x, RectF, 0, "float"), NumPut(y, RectF, 4, "float"), NumPut(w, RectF, 8, "float"), NumPut(h, RectF, 12, "float") | |
| } | |
| CreateSizeF(ByRef SizeF, w, h){ | |
| VarSetCapacity(SizeF, 8) | |
| NumPut(w, SizeF, 0, "float"), NumPut(h, SizeF, 4, "float") | |
| } | |
| CreatePointF(ByRef PointF, x, y){ | |
| VarSetCapacity(PointF, 8) | |
| NumPut(x, PointF, 0, "float"), NumPut(y, PointF, 4, "float") | |
| } | |
| CreateDIBSection(w, h, hdc="", bpp=32, ByRef ppvBits=0){ | |
| hdc2 := hdc ? hdc : GetDC() | |
| VarSetCapacity(bi, 40, 0) | |
| NumPut(w, bi, 4), NumPut(h, bi, 8), NumPut(40, bi, 0), NumPut(1, bi, 12, "ushort"), NumPut(0, bi, 16), NumPut(bpp, bi, 14, "ushort") | |
| hbm := DllCall("CreateDIBSection", "uint" , hdc2, "uint" , &bi, "uint" , 0, "uint*", ppvBits, "uint" , 0, "uint" , 0) | |
| If !hdc | |
| ReleaseDC(hdc2) | |
| return hbm | |
| } | |
| PrintWindow(hwnd, hdc, Flags=0){ | |
| return DllCall("PrintWindow", "uint", hwnd, "uint", hdc, "uint", Flags) | |
| } | |
| DestroyIcon(hIcon){ | |
| return DllCall("DestroyIcon", "uint", hIcon) | |
| } | |
| PaintDesktop(hdc){ | |
| return DllCall("PaintDesktop", "uint", hdc) | |
| } | |
| CreateCompatibleBitmap(hdc, w, h){ | |
| return DllCall("gdi32\CreateCompatibleBitmap", "uint", hdc, "int", w, "int", h) | |
| } | |
| CreateCompatibleDC(hdc=0){ | |
| return DllCall("CreateCompatibleDC", "uint", hdc) | |
| } | |
| SelectObject(hdc, hgdiobj){ | |
| return DllCall("SelectObject", "uint", hdc, "uint", hgdiobj) | |
| } | |
| DeleteObject(hObject){ | |
| return DllCall("DeleteObject", "uint", hObject) | |
| } | |
| GetDC(hwnd=0){ | |
| return DllCall("GetDC", "uint", hwnd) | |
| } | |
| ReleaseDC(hdc, hwnd=0){ | |
| return DllCall("ReleaseDC", "uint", hwnd, "uint", hdc) | |
| } | |
| DeleteDC(hdc){ | |
| return DllCall("DeleteDC", "uint", hdc) | |
| } | |
| Gdip_LibraryVersion(){ | |
| return 1.38 | |
| } | |
| Gdip_BitmapFromBRA(ByRef BRAFromMemIn, File, Alternate=0){ | |
| if !BRAFromMemIn | |
| return -1 | |
| Loop, Parse, BRAFromMemIn, `n | |
| { | |
| if (A_Index = 1) { | |
| StringSplit, Header, A_LoopField, | | |
| if (Header0 != 4 || Header2 != "BRA!") | |
| return -2 | |
| } | |
| else if (A_Index = 2) { | |
| StringSplit, Info, A_LoopField, | | |
| if (Info0 != 3) | |
| return -3 | |
| } else | |
| break | |
| } | |
| if !Alternate | |
| StringReplace, File, File, \, \\, All | |
| RegExMatch(BRAFromMemIn, "mi`n)^" (Alternate ? File "\|.+?\|(\d+)\|(\d+)" : "\d+\|" File "\|(\d+)\|(\d+)") "$", FileInfo) | |
| if !FileInfo | |
| return -4 | |
| hData := DllCall("GlobalAlloc", "uint", 2, "uint", FileInfo2) | |
| pData := DllCall("GlobalLock", "uint", hData) | |
| DllCall("RtlMoveMemory", "uint", pData, "uint", &BRAFromMemIn+Info2+FileInfo1, "uint", FileInfo2) | |
| DllCall("GlobalUnlock", "uint", hData) | |
| DllCall("ole32\CreateStreamOnHGlobal", "uint", hData, "int", 1, "uint*", pStream) | |
| DllCall("gdiplus\GdipCreateBitmapFromStream", "uint", pStream, "uint*", pBitmap) | |
| DllCall(NumGet(NumGet(1*pStream)+8), "uint", pStream) | |
| return pBitmap | |
| } | |
| Gdip_DrawRectangle(pGraphics, pPen, x, y, w, h){ | |
| return DllCall("gdiplus\GdipDrawRectangle", "uint", pGraphics, "uint", pPen, "float", x, "float", y, "float", w, "float", h) | |
| } | |
| Gdip_DrawRoundedRectangle(pGraphics, pPen, x, y, w, h, r){ | |
| Gdip_SetClipRect(pGraphics, x-r, y-r, 2*r, 2*r, 4) | |
| Gdip_SetClipRect(pGraphics, x+w-r, y-r, 2*r, 2*r, 4) | |
| Gdip_SetClipRect(pGraphics, x-r, y+h-r, 2*r, 2*r, 4) | |
| Gdip_SetClipRect(pGraphics, x+w-r, y+h-r, 2*r, 2*r, 4) | |
| E := Gdip_DrawRectangle(pGraphics, pPen, x, y, w, h) | |
| Gdip_ResetClip(pGraphics) | |
| Gdip_SetClipRect(pGraphics, x-(2*r), y+r, w+(4*r), h-(2*r), 4) | |
| Gdip_SetClipRect(pGraphics, x+r, y-(2*r), w-(2*r), h+(4*r), 4) | |
| Gdip_DrawEllipse(pGraphics, pPen, x, y, 2*r, 2*r) | |
| Gdip_DrawEllipse(pGraphics, pPen, x+w-(2*r), y, 2*r, 2*r) | |
| Gdip_DrawEllipse(pGraphics, pPen, x, y+h-(2*r), 2*r, 2*r) | |
| Gdip_DrawEllipse(pGraphics, pPen, x+w-(2*r), y+h-(2*r), 2*r, 2*r) | |
| Gdip_ResetClip(pGraphics) | |
| return E | |
| } | |
| Gdip_DrawEllipse(pGraphics, pPen, x, y, w, h){ | |
| return DllCall("gdiplus\GdipDrawEllipse", "uint", pGraphics, "uint", pPen, "float", x, "float", y, "float", w, "float", h) | |
| } | |
| Gdip_DrawBezier(pGraphics, pPen, x1, y1, x2, y2, x3, y3, x4, y4){ | |
| return DllCall("gdiplus\GdipDrawBezier", "uint", pgraphics, "uint", pPen, "float", x1, "float", y1, "float", x2, "float", y2, "float", x3, "float", y3, "float", x4, "float", y4) | |
| } | |
| Gdip_DrawArc(pGraphics, pPen, x, y, w, h, StartAngle, SweepAngle){ | |
| return DllCall("gdiplus\GdipDrawArc", "uint", pGraphics, "uint", pPen, "float", x, "float", y, "float", w, "float", h, "float", StartAngle, "float", SweepAngle) | |
| } | |
| Gdip_DrawPie(pGraphics, pPen, x, y, w, h, StartAngle, SweepAngle){ | |
| return DllCall("gdiplus\GdipDrawPie", "uint", pGraphics, "uint", pPen, "float", x, "float", y, "float", w, "float", h, "float", StartAngle, "float", SweepAngle) | |
| } | |
| Gdip_DrawLine(pGraphics, pPen, x1, y1, x2, y2){ | |
| return DllCall("gdiplus\GdipDrawLine", "uint", pGraphics, "uint", pPen, "float", x1, "float", y1, "float", x2, "float", y2) | |
| } | |
| Gdip_DrawLines(pGraphics, pPen, Points){ | |
| StringSplit, Points, Points, | | |
| VarSetCapacity(PointF, 8*Points0) | |
| Loop, %Points0% { | |
| StringSplit, Coord, Points%A_Index%, `, | |
| NumPut(Coord1, PointF, 8*(A_Index-1), "float"), NumPut(Coord2, PointF, (8*(A_Index-1))+4, "float") | |
| } | |
| return DllCall("gdiplus\GdipDrawLines", "uint", pGraphics, "uint", pPen, "uint", &PointF, "int", Points0) | |
| } | |
| Gdip_FillRectangle(pGraphics, pBrush, x, y, w, h){ | |
| return DllCall("gdiplus\GdipFillRectangle", "uint", pGraphics, "int", pBrush, "float", x, "float", y, "float", w, "float", h) | |
| } | |
| Gdip_FillRoundedRectangle(pGraphics, pBrush, x, y, w, h, r){ | |
| Region := Gdip_GetClipRegion(pGraphics) | |
| Gdip_SetClipRect(pGraphics, x-r, y-r, 2*r, 2*r, 4) | |
| Gdip_SetClipRect(pGraphics, x+w-r, y-r, 2*r, 2*r, 4) | |
| Gdip_SetClipRect(pGraphics, x-r, y+h-r, 2*r, 2*r, 4) | |
| Gdip_SetClipRect(pGraphics, x+w-r, y+h-r, 2*r, 2*r, 4) | |
| E := Gdip_FillRectangle(pGraphics, pBrush, x, y, w, h) | |
| Gdip_SetClipRegion(pGraphics, Region, 0) | |
| Gdip_SetClipRect(pGraphics, x-(2*r), y+r, w+(4*r), h-(2*r), 4) | |
| Gdip_SetClipRect(pGraphics, x+r, y-(2*r), w-(2*r), h+(4*r), 4) | |
| Gdip_FillEllipse(pGraphics, pBrush, x, y, 2*r, 2*r) | |
| Gdip_FillEllipse(pGraphics, pBrush, x+w-(2*r), y, 2*r, 2*r) | |
| Gdip_FillEllipse(pGraphics, pBrush, x, y+h-(2*r), 2*r, 2*r) | |
| Gdip_FillEllipse(pGraphics, pBrush, x+w-(2*r), y+h-(2*r), 2*r, 2*r) | |
| Gdip_SetClipRegion(pGraphics, Region, 0) | |
| Gdip_DeleteRegion(Region) | |
| return E | |
| } | |
| Gdip_FillPolygon(pGraphics, pBrush, Points, FillMode=0){ | |
| StringSplit, Points, Points, | | |
| VarSetCapacity(PointF, 8*Points0) | |
| Loop, %Points0% { | |
| StringSplit, Coord, Points%A_Index%, `, | |
| NumPut(Coord1, PointF, 8*(A_Index-1), "float"), NumPut(Coord2, PointF, (8*(A_Index-1))+4, "float") | |
| } | |
| return DllCall("gdiplus\GdipFillPolygon", "uint", pGraphics, "uint", pBrush, "uint", &PointF, "int", Points0, "int", FillMode) | |
| } | |
| Gdip_FillPie(pGraphics, pBrush, x, y, w, h, StartAngle, SweepAngle){ | |
| return DllCall("gdiplus\GdipFillPie", "uint", pGraphics, "uint", pBrush, "float", x, "float", y, "float", w, "float", h, "float", StartAngle, "float", SweepAngle) | |
| } | |
| Gdip_FillEllipse(pGraphics, pBrush, x, y, w, h){ | |
| return DllCall("gdiplus\GdipFillEllipse", "uint", pGraphics, "uint", pBrush, "float", x, "float", y, "float", w, "float", h) | |
| } | |
| Gdip_FillRegion(pGraphics, pBrush, Region){ | |
| return DllCall("gdiplus\GdipFillRegion", "uint", pGraphics, "uint", pBrush, "uint", Region) | |
| } | |
| Gdip_FillPath(pGraphics, pBrush, Path){ | |
| return DllCall("gdiplus\GdipFillPath", "uint", pGraphics, "uint", pBrush, "uint", Path) | |
| } | |
| Gdip_DrawImagePointsRect(pGraphics, pBitmap, Points, sx="", sy="", sw="", sh="", Matrix=1){ | |
| StringSplit, Points, Points, | | |
| VarSetCapacity(PointF, 8*Points0) | |
| Loop, %Points0% | |
| { | |
| StringSplit, Coord, Points%A_Index%, `, | |
| NumPut(Coord1, PointF, 8*(A_Index-1), "float"), NumPut(Coord2, PointF, (8*(A_Index-1))+4, "float") | |
| } | |
| if (Matrix&1 = "") | |
| ImageAttr := Gdip_SetImageAttributesColorMatrix(Matrix) | |
| else if (Matrix != 1) | |
| ImageAttr := Gdip_SetImageAttributesColorMatrix("1|0|0|0|0|0|1|0|0|0|0|0|1|0|0|0|0|0|" Matrix "|0|0|0|0|0|1") | |
| if (sx = "" && sy = "" && sw = "" && sh = ""){ | |
| sx := 0, sy := 0,sw := Gdip_GetImageWidth(pBitmap),sh := Gdip_GetImageHeight(pBitmap) | |
| } | |
| E := DllCall("gdiplus\GdipDrawImagePointsRect","uint",pGraphics,"uint",pBitmap,"uint",&PointF,"int",Points0,"float",sx,"float",sy,"float",sw,"float",sh,"int",2,"uint", ImageAttr, "uint", 0, "uint", 0) | |
| if ImageAttr | |
| Gdip_DisposeImageAttributes(ImageAttr) | |
| return E | |
| } | |
| Gdip_DrawImage(pGraphics, pBitmap, dx="", dy="", dw="", dh="", sx="", sy="", sw="", sh="", Matrix=1){ | |
| if (Matrix&1 = "") | |
| ImageAttr := Gdip_SetImageAttributesColorMatrix(Matrix) | |
| else if (Matrix != 1) | |
| ImageAttr := Gdip_SetImageAttributesColorMatrix("1|0|0|0|0|0|1|0|0|0|0|0|1|0|0|0|0|0|" Matrix "|0|0|0|0|0|1") | |
| if (sx = "" && sy = "" && sw = "" && sh = "") { | |
| if (dx = "" && dy = "" && dw = "" && dh = "") { | |
| sx := dx := 0, sy := dy := 0,sw :=dw:=Gdip_GetImageWidth(pBitmap),sh := dh := Gdip_GetImageHeight(pBitmap) | |
| } else { | |
| sx := sy := 0, sw := Gdip_GetImageWidth(pBitmap),sh := Gdip_GetImageHeight(pBitmap) | |
| } | |
| } | |
| E := DllCall("gdiplus\GdipDrawImageRectRect","uint", pGraphics,"uint",pBitmap,"float",dx,"float",dy,"float",dw,"float", dh,"float",sx,"float",sy,"float", sw, "float",sh,"int", 2, "uint", ImageAttr, "uint", 0, "uint", 0) | |
| if ImageAttr | |
| Gdip_DisposeImageAttributes(ImageAttr) | |
| return E | |
| } | |
| Gdip_SetImageAttributesColorMatrix(Matrix){ | |
| VarSetCapacity(ColourMatrix, 100, 0) | |
| Matrix := RegExReplace(RegExReplace(Matrix, "^[^\d-\.]+([\d\.])", "$1", "", 1), "[^\d-\.]+", "|") | |
| StringSplit, Matrix, Matrix, | | |
| Loop, 25 { | |
| Matrix := (Matrix%A_Index% != "") ? Matrix%A_Index% : Mod(A_Index-1, 6) ? 0 : 1 | |
| NumPut(Matrix, ColourMatrix, (A_Index-1)*4, "float") | |
| } | |
| DllCall("gdiplus\GdipCreateImageAttributes", "uint*", ImageAttr) | |
| DllCall("gdiplus\GdipSetImageAttributesColorMatrix", "uint", ImageAttr, "int", 1, "int", 1, "uint", &ColourMatrix, "int", 0, "int", 0) | |
| return ImageAttr | |
| } | |
| Gdip_GraphicsFromImage(pBitmap){ | |
| DllCall("gdiplus\GdipGetImageGraphicsContext", "uint", pBitmap, "uint*", pGraphics) | |
| return pGraphics | |
| } | |
| Gdip_GraphicsFromHDC(hdc){ | |
| DllCall("gdiplus\GdipCreateFromHDC", "uint", hdc, "uint*", pGraphics) | |
| return pGraphics | |
| } | |
| Gdip_GetDC(pGraphics){ | |
| DllCall("gdiplus\GdipGetDC", "uint", pGraphics, "uint*", hdc) | |
| return hdc | |
| } | |
| Gdip_ReleaseDC(pGraphics, hdc){ | |
| return DllCall("gdiplus\GdipReleaseDC", "uint", pGraphics, "uint", hdc) | |
| } | |
| Gdip_GraphicsClear(pGraphics, ARGB=0x00ffffff){ | |
| return DllCall("gdiplus\GdipGraphicsClear", "uint", pGraphics, "int", ARGB) | |
| } | |
| Gdip_BlurBitmap(pBitmap, Blur){ | |
| if (Blur > 100) || (Blur < 1) | |
| return -1 | |
| sWidth := Gdip_GetImageWidth(pBitmap), sHeight := Gdip_GetImageHeight(pBitmap) | |
| dWidth := sWidth//Blur, dHeight := sHeight//Blur | |
| pBitmap1 := Gdip_CreateBitmap(dWidth, dHeight) | |
| G1 := Gdip_GraphicsFromImage(pBitmap1) | |
| Gdip_SetInterpolationMode(G1, 7) | |
| Gdip_DrawImage(G1, pBitmap, 0, 0, dWidth, dHeight, 0, 0, sWidth, sHeight) | |
| Gdip_DeleteGraphics(G1) | |
| pBitmap2 := Gdip_CreateBitmap(sWidth, sHeight) | |
| G2 := Gdip_GraphicsFromImage(pBitmap2) | |
| Gdip_SetInterpolationMode(G2, 7) | |
| Gdip_DrawImage(G2, pBitmap1, 0, 0, sWidth, sHeight, 0, 0, dWidth, dHeight) | |
| Gdip_DeleteGraphics(G2) | |
| Gdip_DisposeImage(pBitmap1) | |
| return pBitmap2 | |
| } | |
| Gdip_SaveBitmapToFile(pBitmap, sOutput, Quality=100){ | |
| SplitPath, sOutput,,, Extension | |
| if Extension not in BMP,DIB,RLE,JPG,JPEG,JPE,JFIF,GIF,TIF,TIFF,PNG | |
| return -1 | |
| Extension := "." Extension | |
| DllCall("gdiplus\GdipGetImageEncodersSize", "uint*", nCount, "uint*", nSize) | |
| VarSetCapacity(ci, nSize) | |
| DllCall("gdiplus\GdipGetImageEncoders", "uint", nCount, "uint", nSize, "uint", &ci) | |
| if !(nCount && nSize) | |
| return -2 | |
| Loop, %nCount% { | |
| Location := NumGet(ci, 76*(A_Index-1)+44) | |
| if !A_IsUnicode { | |
| nSize := DllCall("WideCharToMultiByte", "uint", 0, "uint", 0, "uint", Location, "int", -1, "uint", 0, "int", 0, "uint", 0, "uint", 0) | |
| VarSetCapacity(sString, nSize) | |
| DllCall("WideCharToMultiByte", "uint", 0, "uint", 0, "uint", Location, "int", -1, "str", sString, "int", nSize, "uint", 0, "uint", 0) | |
| if !InStr(sString, "*" Extension) | |
| continue | |
| }else{ | |
| nSize := DllCall("WideCharToMultiByte", "uint", 0, "uint", 0, "uint", Location, "int", -1, "uint", 0, "int", 0, "uint", 0, "uint", 0) | |
| sString := "" | |
| Loop, %nSize% | |
| sString .= Chr(NumGet(Location+0, 2*(A_Index-1), "char")) | |
| if !InStr(sString, "*" Extension) | |
| continue | |
| } | |
| pCodec := &ci+76*(A_Index-1) | |
| 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", "uint", pBitmap, "uint", pCodec, "uint*", nSize) | |
| VarSetCapacity(EncoderParameters, nSize, 0) | |
| DllCall("gdiplus\GdipGetEncoderParameterList", "uint", pBitmap, "uint", pCodec, "uint", nSize, "uint", &EncoderParameters) | |
| Loop, % NumGet(EncoderParameters) { ;% | |
| if (NumGet(EncoderParameters, (28*(A_Index-1))+20) = 1) && (NumGet(EncoderParameters, (28*(A_Index-1))+24) = 6){ | |
| p := (28*(A_Index-1))+&EncoderParameters | |
| NumPut(Quality, NumGet(NumPut(4, NumPut(1, p+0)+20))) | |
| break | |
| } | |
| } | |
| } | |
| } | |
| if !A_IsUnicode { | |
| nSize := DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, "uint", &sOutput, "int", -1, "uint", 0, "int", 0) | |
| VarSetCapacity(wOutput, nSize*2) | |
| DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, "uint", &sOutput, "int", -1, "uint", &wOutput, "int", nSize) | |
| VarSetCapacity(wOutput, -1) | |
| if !VarSetCapacity(wOutput) | |
| return -4 | |
| E := DllCall("gdiplus\GdipSaveImageToFile", "uint", pBitmap, "uint", &wOutput, "uint", pCodec, "uint", p ? p : 0) | |
| } else | |
| E := DllCall("gdiplus\GdipSaveImageToFile", "uint", pBitmap, "uint", &sOutput, "uint", pCodec, "uint", p ? p : 0) | |
| return E ? -5 : 0 | |
| } | |
| Gdip_GetPixel(pBitmap, x, y){ | |
| DllCall("gdiplus\GdipBitmapGetPixel", "uint", pBitmap, "int", x, "int", y, "uint*", ARGB) | |
| return ARGB | |
| } | |
| Gdip_SetPixel(pBitmap, x, y, ARGB){ | |
| return DllCall("gdiplus\GdipBitmapSetPixel", "uint", pBitmap, "int", x, "int", y, "int", ARGB) | |
| } | |
| Gdip_GetImageWidth(pBitmap){ | |
| DllCall("gdiplus\GdipGetImageWidth", "uint", pBitmap, "uint*", Width) | |
| return Width | |
| } | |
| Gdip_GetImageHeight(pBitmap){ | |
| DllCall("gdiplus\GdipGetImageHeight", "uint", pBitmap, "uint*", Height) | |
| return Height | |
| } | |
| Gdip_GetDimensions(pBitmap, ByRef Width, ByRef Height){ | |
| Width := Gdip_GetImageWidth(pBitmap) | |
| Height := Gdip_GetImageHeight(pBitmap) | |
| } | |
| Gdip_GetImagePixelFormat(pBitmap){ | |
| DllCall("gdiplus\GdipGetImagePixelFormat", "uint", pBitmap, "uint*", Format) | |
| return Format | |
| } | |
| Gdip_GetDpiX(pGraphics){ | |
| DllCall("gdiplus\GdipGetDpiX", "uint", pGraphics, "float*", dpix) | |
| return Round(dpix) | |
| } | |
| Gdip_GetDpiY(pGraphics){ | |
| DllCall("gdiplus\GdipGetDpiY", "uint", pGraphics, "float*", dpiy) | |
| return Round(dpiy) | |
| } | |
| Gdip_GetImageHorizontalResolution(pBitmap){ | |
| DllCall("gdiplus\GdipGetImageHorizontalResolution", "uint", pBitmap, "float*", dpix) | |
| return Round(dpix) | |
| } | |
| Gdip_GetImageVerticalResolution(pBitmap){ | |
| DllCall("gdiplus\GdipGetImageVerticalResolution", "uint", pBitmap, "float*", dpiy) | |
| return Round(dpiy) | |
| } | |
| Gdip_CreateBitmapFromFile(sFile, IconNumber=1, IconSize=""){ | |
| SplitPath, sFile,,, ext | |
| if ext in exe,dll | |
| { | |
| Sizes := IconSize ? IconSize : 256 "|" 128 "|" 64 "|" 48 "|" 32 "|" 16 | |
| VarSetCapacity(buf, 40) | |
| Loop, Parse, Sizes, | | |
| { | |
| DllCall("PrivateExtractIcons", "str", sFile, "int", IconNumber-1, "int", A_LoopField, "int", A_LoopField, "uint*", hIcon, "uint*", 0, "uint", 1, "uint", 0) | |
| if !hIcon | |
| continue | |
| if !DllCall("GetIconInfo", "uint", hIcon, "uint", &buf) { | |
| DestroyIcon(hIcon) | |
| continue | |
| } | |
| hbmColor := NumGet(buf, 16) | |
| hbmMask := NumGet(buf, 12) | |
| if !(hbmColor && DllCall("GetObject", "uint", hbmColor, "int", 24, "uint", &buf)) | |
| { | |
| DestroyIcon(hIcon) | |
| continue | |
| } | |
| break | |
| } | |
| if !hIcon | |
| return -1 | |
| Width := NumGet(buf, 4, "int"), Height := NumGet(buf, 8, "int") | |
| hbm := CreateDIBSection(Width, -Height), hdc := CreateCompatibleDC(), obm := SelectObject(hdc, hbm) | |
| if !DllCall("DrawIconEx", "uint", hdc, "int", 0, "int", 0, "uint", hIcon, "uint", Width, "uint", Height, "uint", 0, "uint", 0, "uint", 3) { | |
| DestroyIcon(hIcon) | |
| return -2 | |
| } | |
| VarSetCapacity(dib, 84) | |
| DllCall("GetObject", "uint", hbm, "int", 84, "uint", &dib) | |
| Stride := NumGet(dib, 12), Bits := NumGet(dib, 20) | |
| DllCall("gdiplus\GdipCreateBitmapFromScan0", "int", Width, "int", Height, "int", Stride, "int", 0x26200A, "uint", Bits, "uint*", pBitmapOld) | |
| pBitmap := Gdip_CreateBitmap(Width, Height), G := Gdip_GraphicsFromImage(pBitmap) | |
| Gdip_DrawImage(G, pBitmapOld, 0, 0, Width, Height, 0, 0, Width, Height) | |
| SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc) | |
| Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmapOld) | |
| DestroyIcon(hIcon) | |
| } else { | |
| if !A_IsUnicode { | |
| VarSetCapacity(wFile, 1023) | |
| DllCall("kernel32\MultiByteToWideChar", "uint", 0, "uint", 0, "uint", &sFile, "int", -1, "uint", &wFile, "int", 512) | |
| DllCall("gdiplus\GdipCreateBitmapFromFile", "uint", &wFile, "uint*", pBitmap) | |
| } else | |
| DllCall("gdiplus\GdipCreateBitmapFromFile", "uint", &sFile, "uint*", pBitmap) | |
| } | |
| return pBitmap | |
| } | |
| Gdip_CreateBitmapFromHBITMAP(hBitmap, Palette=0){ | |
| DllCall("gdiplus\GdipCreateBitmapFromHBITMAP", "uint", hBitmap, "uint", Palette, "uint*", pBitmap) | |
| return pBitmap | |
| } | |
| Gdip_CreateHBITMAPFromBitmap(pBitmap, Background=0xffffffff){ | |
| DllCall("gdiplus\GdipCreateHBITMAPFromBitmap", "uint", pBitmap, "uint*", hbm, "int", Background) | |
| return hbm | |
| } | |
| Gdip_CreateBitmapFromHICON(hIcon){ | |
| DllCall("gdiplus\GdipCreateBitmapFromHICON", "uint", hIcon, "uint*", pBitmap) | |
| return pBitmap | |
| } | |
| Gdip_CreateHICONFromBitmap(pBitmap){ | |
| DllCall("gdiplus\GdipCreateHICONFromBitmap", "uint", pBitmap, "uint*", hIcon) | |
| return hIcon | |
| } | |
| Gdip_CreateBitmap(Width, Height, Format=0x26200A){ | |
| DllCall("gdiplus\GdipCreateBitmapFromScan0", "int", Width, "int", Height, "int", 0, "int", Format, "uint", 0, "uint*", pBitmap) | |
| Return pBitmap | |
| } | |
| Gdip_CreateBitmapFromClipboard(){ | |
| if !DllCall("OpenClipboard", "uint", 0) | |
| return -1 | |
| if !DllCall("IsClipboardFormatAvailable", "uint", 8) | |
| return -2 | |
| if !hBitmap := DllCall("GetClipboardData", "uint", 2) | |
| return -3 | |
| if !pBitmap := Gdip_CreateBitmapFromHBITMAP(hBitmap) | |
| return -4 | |
| if !DllCall("CloseClipboard") | |
| return -5 | |
| DeleteObject(hBitmap) | |
| return pBitmap | |
| } | |
| Gdip_SetBitmapToClipboard(pBitmap){ | |
| hBitmap := Gdip_CreateHBITMAPFromBitmap(pBitmap) | |
| DllCall("GetObject", "uint", hBitmap, "int", VarSetCapacity(oi, 84, 0), "uint", &oi) | |
| hdib := DllCall("GlobalAlloc", "uint", 2, "uint", 40+NumGet(oi, 44)) | |
| pdib := DllCall("GlobalLock", "uint", hdib) | |
| DllCall("RtlMoveMemory", "uint", pdib, "uint", &oi+24, "uint", 40) | |
| DllCall("RtlMoveMemory", "Uint", pdib+40, "Uint", NumGet(oi, 20), "uint", NumGet(oi, 44)) | |
| DllCall("GlobalUnlock", "uint", hdib) | |
| DllCall("DeleteObject", "uint", hBitmap) | |
| DllCall("OpenClipboard", "uint", 0) | |
| DllCall("EmptyClipboard") | |
| DllCall("SetClipboardData", "uint", 8, "uint", hdib) | |
| DllCall("CloseClipboard") | |
| } | |
| Gdip_CloneBitmapArea(pBitmap, x, y, w, h, Format=0x26200A){ | |
| DllCall("gdiplus\GdipCloneBitmapArea", "float", x, "float", y, "float", w, "float", h , "int", Format, "uint", pBitmap, "uint*", pBitmapDest) | |
| return pBitmapDest | |
| } | |
| Gdip_CreatePen(ARGB, w){ | |
| DllCall("gdiplus\GdipCreatePen1", "int", ARGB, "float", w, "int", 2, "uint*", pPen) | |
| return pPen | |
| } | |
| Gdip_CreatePenFromBrush(pBrush, w){ | |
| DllCall("gdiplus\GdipCreatePen2", "uint", pBrush, "float", w, "int", 2, "uint*", pPen) | |
| return pPen | |
| } | |
| Gdip_BrushCreateSolid(ARGB=0xff000000){ | |
| DllCall("gdiplus\GdipCreateSolidFill", "int", ARGB, "uint*", pBrush) | |
| return pBrush | |
| } | |
| Gdip_BrushCreateHatch(ARGBfront, ARGBback, HatchStyle=0){ | |
| DllCall("gdiplus\GdipCreateHatchBrush", "int", HatchStyle, "int", ARGBfront, "int", ARGBback, "uint*", pBrush) | |
| return pBrush | |
| } | |
| Gdip_CreateTextureBrush(pBitmap, WrapMode=1, x=0, y=0, w="", h=""){ | |
| if !(w && h) | |
| DllCall("gdiplus\GdipCreateTexture", "uint", pBitmap, "int", WrapMode, "uint*", pBrush) | |
| else | |
| DllCall("gdiplus\GdipCreateTexture2", "uint", pBitmap, "int", WrapMode, "float", x, "float", y, "float", w, "float", h, "uint*", pBrush) | |
| return pBrush | |
| } | |
| Gdip_CreateLineBrush(x1, y1, x2, y2, ARGB1, ARGB2, WrapMode=1){ | |
| CreatePointF(PointF1, x1, y1), CreatePointF(PointF2, x2, y2) | |
| DllCall("gdiplus\GdipCreateLineBrush", "uint", &PointF1, "uint", &PointF2, "int", ARGB1, "int", ARGB2, "int", WrapMode, "uint*", LGpBrush) | |
| return LGpBrush | |
| } | |
| Gdip_CreateLineBrushFromRect(x, y, w, h, ARGB1, ARGB2, LinearGradientMode=1, WrapMode=1){ | |
| CreateRectF(RectF, x, y, w, h) | |
| DllCall("gdiplus\GdipCreateLineBrushFromRect", "uint", &RectF, "int", ARGB1, "int", ARGB2, "int", LinearGradientMode, "int", WrapMode, "uint*", LGpBrush) | |
| return LGpBrush | |
| } | |
| Gdip_CloneBrush(pBrush){ | |
| static pNewBrush | |
| VarSetCapacity(pNewBrush, 288, 0) | |
| DllCall("RtlMoveMemory", "uint", &pNewBrush, "uint", pBrush, "uint", 288) | |
| VarSetCapacity(pNewBrush, -1) | |
| return &pNewBrush | |
| } | |
| Gdip_DeletePen(pPen){ | |
| return DllCall("gdiplus\GdipDeletePen", "uint", pPen) | |
| } | |
| Gdip_DeleteBrush(pBrush){ | |
| return DllCall("gdiplus\GdipDeleteBrush", "uint", pBrush) | |
| } | |
| Gdip_DisposeImage(pBitmap){ | |
| return DllCall("gdiplus\GdipDisposeImage", "uint", pBitmap) | |
| } | |
| Gdip_DeleteGraphics(pGraphics){ | |
| return DllCall("gdiplus\GdipDeleteGraphics", "uint", pGraphics) | |
| } | |
| Gdip_DisposeImageAttributes(ImageAttr){ | |
| return DllCall("gdiplus\GdipDisposeImageAttributes", "uint", ImageAttr) | |
| } | |
| Gdip_DeleteFont(hFont){ | |
| return DllCall("gdiplus\GdipDeleteFont", "uint", hFont) | |
| } | |
| Gdip_DeleteStringFormat(hFormat){ | |
| return DllCall("gdiplus\GdipDeleteStringFormat", "uint", hFormat) | |
| } | |
| Gdip_DeleteFontFamily(hFamily){ | |
| return DllCall("gdiplus\GdipDeleteFontFamily", "uint", hFamily) | |
| } | |
| Gdip_DeleteMatrix(Matrix){ | |
| return DllCall("gdiplus\GdipDeleteMatrix", "uint", Matrix) | |
| } | |
| Gdip_TextToGraphics(pGraphics, Text, Options, Font="Arial", Width="", Height="", Measure=0){ | |
| IWidth := Width, IHeight:= Height | |
| RegExMatch(Options, "i)X([\-\d\.]+)(p*)", xpos) | |
| RegExMatch(Options, "i)Y([\-\d\.]+)(p*)", ypos) | |
| RegExMatch(Options, "i)W([\-\d\.]+)(p*)", Width) | |
| RegExMatch(Options, "i)H([\-\d\.]+)(p*)", Height) | |
| RegExMatch(Options, "i)C(?!(entre|enter))([a-f\d]+)", Colour) | |
| RegExMatch(Options, "i)Top|Up|Bottom|Down|vCentre|vCenter", vPos) | |
| RegExMatch(Options, "i)R(\d)", Rendering) | |
| RegExMatch(Options, "i)S(\d+)(p*)", Size) | |
| if !Gdip_DeleteBrush(Gdip_CloneBrush(Colour2)) | |
| PassBrush := 1, pBrush := Colour2 | |
| if !(IWidth && IHeight) && (xpos2 || ypos2 || Width2 || Height2 || Size2) | |
| return -1 | |
| Style := 0, Styles := "Regular|Bold|Italic|BoldItalic|Underline|Strikeout" | |
| Loop, Parse, Styles, | | |
| { | |
| if RegExMatch(Options, "\b" A_loopField) | |
| Style |= (A_LoopField != "StrikeOut") ? (A_Index-1) : 8 | |
| } | |
| Align := 0, Alignments := "Near|Left|Centre|Center|Far|Right" | |
| Loop, Parse, Alignments, | | |
| { | |
| if RegExMatch(Options, "\b" A_loopField) | |
| Align |= A_Index//2.1 ; 0|0|1|1|2|2 | |
| } | |
| xpos := (xpos1 != "") ? xpos2 ? IWidth*(xpos1/100) : xpos1 : 0 | |
| ypos := (ypos1 != "") ? ypos2 ? IHeight*(ypos1/100) : ypos1 : 0 | |
| Width := Width1 ? Width2 ? IWidth*(Width1/100) : Width1 : IWidth | |
| Height := Height1 ? Height2 ? IHeight*(Height1/100) : Height1 : IHeight | |
| if !PassBrush | |
| Colour := "0x" (Colour2 ? Colour2 : "ff000000") | |
| Rendering := ((Rendering1 >= 0) && (Rendering1 <= 5)) ? Rendering1 : 4 | |
| Size := (Size1 > 0) ? Size2 ? IHeight*(Size1/100) : Size1 : 12 | |
| hFamily := Gdip_FontFamilyCreate(Font) | |
| hFont := Gdip_FontCreate(hFamily, Size, Style) | |
| hFormat := Gdip_StringFormatCreate(0x4000) | |
| pBrush := PassBrush ? pBrush : Gdip_BrushCreateSolid(Colour) | |
| if !(hFamily && hFont && hFormat && pBrush && pGraphics) | |
| return !pGraphics ? -2 : !hFamily ? -3 : !hFont ? -4 : !hFormat ? -5 : !pBrush ? -6 : 0 | |
| CreateRectF(RC, xpos, ypos, Width, Height) | |
| Gdip_SetStringFormatAlign(hFormat, Align) | |
| Gdip_SetTextRenderingHint(pGraphics, Rendering) | |
| ReturnRC := Gdip_MeasureString(pGraphics, Text, hFont, hFormat, RC) | |
| if vPos{ | |
| StringSplit, ReturnRC, ReturnRC, | | |
| if (vPos = "vCentre") || (vPos = "vCenter") | |
| ypos += (Height-ReturnRC4)//2 | |
| else if (vPos = "Top") || (vPos = "Up") | |
| ypos := 0 | |
| else if (vPos = "Bottom") || (vPos = "Down") | |
| ypos := Height-ReturnRC4 | |
| CreateRectF(RC, xpos, ypos, Width, ReturnRC4) | |
| ReturnRC := Gdip_MeasureString(pGraphics, Text, hFont, hFormat, RC) | |
| } | |
| if !Measure | |
| E := Gdip_DrawString(pGraphics, Text, hFont, hFormat, pBrush, RC) | |
| if !PassBrush | |
| Gdip_DeleteBrush(pBrush) | |
| Gdip_DeleteStringFormat(hFormat) | |
| Gdip_DeleteFont(hFont) | |
| Gdip_DeleteFontFamily(hFamily) | |
| return E ? E : ReturnRC | |
| } | |
| Gdip_DrawString(pGraphics, sString, hFont, hFormat, pBrush, ByRef RectF){ | |
| if !A_IsUnicode { | |
| nSize := DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, "uint", &sString, "int", -1, "uint", 0, "int", 0) | |
| VarSetCapacity(wString, nSize*2) | |
| DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, "uint", &sString, "int", -1, "uint", &wString, "int", nSize) | |
| return DllCall("gdiplus\GdipDrawString", "uint", pGraphics | |
| , "uint", &wString, "int", -1, "uint", hFont, "uint", &RectF, "uint", hFormat, "uint", pBrush) | |
| } else { | |
| return DllCall("gdiplus\GdipDrawString", "uint", pGraphics | |
| , "uint", &sString, "int", -1, "uint", hFont, "uint", &RectF, "uint", hFormat, "uint", pBrush) | |
| } | |
| } | |
| Gdip_MeasureString(pGraphics, sString, hFont, hFormat, ByRef RectF){ | |
| VarSetCapacity(RC, 16) | |
| if !A_IsUnicode | |
| { | |
| nSize := DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, "uint", &sString, "int", -1, "uint", 0, "int", 0) | |
| VarSetCapacity(wString, nSize*2) | |
| DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, "uint", &sString, "int", -1, "uint", &wString, "int", nSize) | |
| DllCall("gdiplus\GdipMeasureString", "uint", pGraphics | |
| , "uint", &wString, "int", -1, "uint", hFont, "uint", &RectF, "uint", hFormat, "uint", &RC, "uint*", Chars, "uint*", Lines) | |
| } | |
| else | |
| { | |
| DllCall("gdiplus\GdipMeasureString", "uint", pGraphics | |
| , "uint", &sString, "int", -1, "uint", hFont, "uint", &RectF, "uint", hFormat, "uint", &RC, "uint*", Chars, "uint*", Lines) | |
| } | |
| return &RC ? NumGet(RC, 0, "float") "|" NumGet(RC, 4, "float") "|" NumGet(RC, 8, "float") "|" NumGet(RC, 12, "float") "|" Chars "|" Lines : 0 | |
| } | |
| Gdip_SetStringFormatAlign(hFormat, Align){ | |
| return DllCall("gdiplus\GdipSetStringFormatAlign", "uint", hFormat, "int", Align) | |
| } | |
| Gdip_StringFormatCreate(Format=0, Lang=0){ | |
| DllCall("gdiplus\GdipCreateStringFormat", "int", Format, "int", Lang, "uint*", hFormat) | |
| return hFormat | |
| } | |
| Gdip_FontCreate(hFamily, Size, Style=0){ | |
| DllCall("gdiplus\GdipCreateFont", "uint", hFamily, "float", Size, "int", Style, "int", 0, "uint*", hFont) | |
| return hFont | |
| } | |
| Gdip_FontFamilyCreate(Font){ | |
| if !A_IsUnicode | |
| { | |
| nSize := DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, "uint", &Font, "int", -1, "uint", 0, "int", 0) | |
| VarSetCapacity(wFont, nSize*2) | |
| DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, "uint", &Font, "int", -1, "uint", &wFont, "int", nSize) | |
| DllCall("gdiplus\GdipCreateFontFamilyFromName", "uint", &wFont, "uint", 0, "uint*", hFamily) | |
| } | |
| else | |
| DllCall("gdiplus\GdipCreateFontFamilyFromName", "uint", &Font, "uint", 0, "uint*", hFamily) | |
| return hFamily | |
| } | |
| Gdip_CreateAffineMatrix(m11, m12, m21, m22, x, y){ | |
| DllCall("gdiplus\GdipCreateMatrix2", "float", m11, "float", m12, "float", m21, "float", m22, "float", x, "float", y, "uint*", Matrix) | |
| return Matrix | |
| } | |
| Gdip_CreateMatrix(){ | |
| DllCall("gdiplus\GdipCreateMatrix", "uint*", Matrix) | |
| return Matrix | |
| } | |
| Gdip_CreatePath(BrushMode=0){ | |
| DllCall("gdiplus\GdipCreatePath", "int", BrushMode, "uint*", Path) | |
| return Path | |
| } | |
| Gdip_AddPathEllipse(Path, x, y, w, h){ | |
| return DllCall("gdiplus\GdipAddPathEllipse", "uint", Path, "float", x, "float", y, "float", w, "float", h) | |
| } | |
| Gdip_AddPathPolygon(Path, Points){ | |
| StringSplit, Points, Points, | | |
| VarSetCapacity(PointF, 8*Points0) | |
| Loop, %Points0% | |
| { | |
| StringSplit, Coord, Points%A_Index%, `, | |
| NumPut(Coord1, PointF, 8*(A_Index-1), "float"), NumPut(Coord2, PointF, (8*(A_Index-1))+4, "float") | |
| } | |
| return DllCall("gdiplus\GdipAddPathPolygon", "uint", Path, "uint", &PointF, "int", Points0) | |
| } | |
| Gdip_DeletePath(Path){ | |
| return DllCall("gdiplus\GdipDeletePath", "uint", Path) | |
| } | |
| Gdip_SetTextRenderingHint(pGraphics, RenderingHint){ | |
| return DllCall("gdiplus\GdipSetTextRenderingHint", "uint", pGraphics, "int", RenderingHint) | |
| } | |
| Gdip_SetInterpolationMode(pGraphics, InterpolationMode){ | |
| return DllCall("gdiplus\GdipSetInterpolationMode", "uint", pGraphics, "int", InterpolationMode) | |
| } | |
| Gdip_SetSmoothingMode(pGraphics, SmoothingMode){ | |
| return DllCall("gdiplus\GdipSetSmoothingMode", "uint", pGraphics, "int", SmoothingMode) | |
| } | |
| Gdip_SetCompositingMode(pGraphics, CompositingMode=0){ | |
| return DllCall("gdiplus\GdipSetCompositingMode", "uint", pGraphics, "int", CompositingMode) | |
| } | |
| Gdip_Startup(){ | |
| if !DllCall("GetModuleHandle", "str", "gdiplus") | |
| DllCall("LoadLibrary", "str", "gdiplus") | |
| VarSetCapacity(si, 16, 0), si := Chr(1) | |
| DllCall("gdiplus\GdiplusStartup", "uint*", pToken, "uint", &si, "uint", 0) | |
| return pToken | |
| } | |
| Gdip_Shutdown(pToken){ | |
| DllCall("gdiplus\GdiplusShutdown", "uint", pToken) | |
| if hModule := DllCall("GetModuleHandle", "str", "gdiplus") | |
| DllCall("FreeLibrary", "uint", hModule) | |
| return 0 | |
| } | |
| Gdip_RotateWorldTransform(pGraphics, Angle, MatrixOrder=0){ | |
| return DllCall("gdiplus\GdipRotateWorldTransform", "uint", pGraphics, "float", Angle, "int", MatrixOrder) | |
| } | |
| Gdip_ScaleWorldTransform(pGraphics, x, y, MatrixOrder=0){ | |
| return DllCall("gdiplus\GdipScaleWorldTransform", "uint", pGraphics, "float", x, "float", y, "int", MatrixOrder) | |
| } | |
| Gdip_TranslateWorldTransform(pGraphics, x, y, MatrixOrder=0){ | |
| return DllCall("gdiplus\GdipTranslateWorldTransform", "uint", pGraphics, "float", x, "float", y, "int", MatrixOrder) | |
| } | |
| Gdip_ResetWorldTransform(pGraphics){ | |
| return DllCall("gdiplus\GdipResetWorldTransform", "uint", pGraphics) | |
| } | |
| Gdip_GetRotatedTranslation(Width, Height, Angle, ByRef xTranslation, ByRef yTranslation){ | |
| pi := 3.14159, TAngle := Angle*(pi/180) | |
| Bound := (Angle >= 0) ? Mod(Angle, 360) : 360-Mod(-Angle, -360) | |
| if ((Bound >= 0) && (Bound <= 90)) | |
| xTranslation := Height*Sin(TAngle), yTranslation := 0 | |
| else if ((Bound > 90) && (Bound <= 180)) | |
| xTranslation := (Height*Sin(TAngle))-(Width*Cos(TAngle)), yTranslation := -Height*Cos(TAngle) | |
| else if ((Bound > 180) && (Bound <= 270)) | |
| xTranslation := -(Width*Cos(TAngle)), yTranslation := -(Height*Cos(TAngle))-(Width*Sin(TAngle)) | |
| else if ((Bound > 270) && (Bound <= 360)) | |
| xTranslation := 0, yTranslation := -Width*Sin(TAngle) | |
| } | |
| Gdip_GetRotatedDimensions(Width, Height, Angle, ByRef RWidth, ByRef RHeight){ | |
| pi := 3.14159, TAngle := Angle*(pi/180) | |
| if !(Width && Height) | |
| return -1 | |
| RWidth := Ceil(Abs(Width*Cos(TAngle))+Abs(Height*Sin(TAngle))) | |
| RHeight := Ceil(Abs(Width*Sin(TAngle))+Abs(Height*Cos(Tangle))) | |
| } | |
| Gdip_SetClipRect(pGraphics, x, y, w, h, CombineMode=0){ | |
| return DllCall("gdiplus\GdipSetClipRect", "uint", pGraphics, "float", x, "float", y, "float", w, "float", h, "int", CombineMode) | |
| } | |
| Gdip_SetClipPath(pGraphics, Path, CombineMode=0){ | |
| return DllCall("gdiplus\GdipSetClipPath", "uint", pGraphics, "uint", Path, "int", CombineMode) | |
| } | |
| Gdip_ResetClip(pGraphics){ | |
| return DllCall("gdiplus\GdipResetClip", "uint", pGraphics) | |
| } | |
| Gdip_GetClipRegion(pGraphics){ | |
| Region := Gdip_CreateRegion() | |
| DllCall("gdiplus\GdipGetClip", "uint" pGraphics, "uint*", Region) | |
| return Region | |
| } | |
| Gdip_SetClipRegion(pGraphics, Region, CombineMode=0){ | |
| return DllCall("gdiplus\GdipSetClipRegion", "uint", pGraphics, "uint", Region, "int", CombineMode) | |
| } | |
| Gdip_CreateRegion(){ | |
| DllCall("gdiplus\GdipCreateRegion", "uint*", Region) | |
| return Region | |
| } | |
| Gdip_DeleteRegion(Region){ | |
| return DllCall("gdiplus\GdipDeleteRegion", "uint", Region) | |
| } | |
| ;***********Function by Tervon******************* | |
| SCW_Win2File(KeepBorders=0) { | |
| Send, !{PrintScreen} ; Active Win's client area to Clipboard | |
| sleep 50 | |
| if !KeepBorders | |
| { | |
| pToken := Gdip_Startup() | |
| pBitmap := Gdip_CreateBitmapFromClipboard() | |
| Gdip_GetDimensions(pBitmap, w, h) | |
| pBitmap2 := SCW_CropImage(pBitmap, 3, 3, w-6, h-6) | |
| ;~ File2:=A_Desktop . "\" . A_Now . ".PNG" ; tervon time /path to file to save | |
| FormatTime, TodayDate , YYYYMMDDHH24MISS, yyyy_MM_dd@h-mmtt ;This is Joe's time format | |
| File2:=A_Desktop . "\" . TodayDate . ".PNG" ;path to file to save | |
| Gdip_SaveBitmapToFile(pBitmap2, File2) ;Exports automatcially to file | |
| Gdip_DisposeImage(pBitmap), Gdip_DisposeImage(pBitmap2) | |
| Gdip_Shutdown("pToken") | |
| } | |
| } | |
| ;******************************************************* | |
| CreateClass(string, interface, ByRef Class){ | |
| CreateHString(string, hString) | |
| VarSetCapacity(GUID, 16) | |
| DllCall("ole32\CLSIDFromString", "wstr", interface, "ptr", &GUID) | |
| result := DllCall("Combase.dll\RoGetActivationFactory", "ptr", hString, "ptr", &GUID, "ptr*", Class) | |
| if (result != 0){ | |
| if (result = 0x80004002) | |
| msgbox No such interface supported | |
| else if (result = 0x80040154) | |
| msgbox Class not registered | |
| else | |
| msgbox error: %result% | |
| ExitApp | |
| } | |
| DeleteHString(hString) | |
| } | |
| CreateHString(string, ByRef hString){ | |
| DllCall("Combase.dll\WindowsCreateString", "wstr", string, "uint", StrLen(string), "ptr*", hString) | |
| } | |
| DeleteHString(hString){ | |
| DllCall("Combase.dll\WindowsDeleteString", "ptr", hString) | |
| } | |
| WaitForAsync(Object, ByRef ObjectResult){ | |
| AsyncInfo := ComObjQuery(Object, IAsyncInfo := "{00000036-0000-0000-C000-000000000046}") | |
| loop { | |
| DllCall(NumGet(NumGet(AsyncInfo+0)+7*A_PtrSize), "ptr", AsyncInfo, "uint*", status) ; IAsyncInfo.Status | |
| if (status != 0) { | |
| if (status != 1) { | |
| msgbox AsyncInfo status error. | |
| ExitApp | |
| } | |
| ObjRelease(AsyncInfo) | |
| AsyncInfo := "" | |
| break | |
| } | |
| sleep 10 | |
| } | |
| DllCall(NumGet(NumGet(Object+0)+8*A_PtrSize), "ptr", Object, "ptr*", ObjectResult) ; GetResults | |
| } | |
| ;******************************************************* | |
| HBitmapToRandomAccessStream(hBitmap) { | |
| static IID_IRandomAccessStream := "{905A0FE1-BC53-11DF-8C49-001E4FC686DA}", IID_IPicture:= "{7BF80980-BF32-101A-8BBB-00AA00300CAB}", PICTYPE_BITMAP := 1, BSOS_DEFAULT := 0 | |
| DllCall("Ole32\CreateStreamOnHGlobal", "Ptr", 0, "UInt", true, "PtrP", pIStream, "UInt") | |
| VarSetCapacity(PICTDESC, sz := 8 + A_PtrSize*2, 0) | |
| NumPut(sz, PICTDESC) | |
| NumPut(PICTYPE_BITMAP, PICTDESC, 4) | |
| NumPut(hBitmap, PICTDESC, 8) | |
| riid := CLSIDFromString(IID_IPicture, GUID1) | |
| DllCall("OleAut32\OleCreatePictureIndirect", "Ptr", &PICTDESC, "Ptr", riid, "UInt", false, "PtrP", pIPicture, "UInt") | |
| ; IPicture::SaveAsFile | |
| DllCall(NumGet(NumGet(pIPicture+0) + A_PtrSize*15), "Ptr", pIPicture, "Ptr", pIStream, "UInt", true, "UIntP", size, "UInt") | |
| riid := CLSIDFromString(IID_IRandomAccessStream, GUID2) | |
| DllCall("ShCore\CreateRandomAccessStreamOverStream", "Ptr", pIStream, "UInt", BSOS_DEFAULT, "Ptr", riid, "PtrP", pIRandomAccessStream, "UInt") | |
| ObjRelease(pIPicture) | |
| ObjRelease(pIStream) | |
| Return pIRandomAccessStream | |
| } | |
| CLSIDFromString(IID, ByRef CLSID) { | |
| VarSetCapacity(CLSID, 16, 0) | |
| if res := DllCall("ole32\CLSIDFromString", "WStr", IID, "Ptr", &CLSID, "UInt") | |
| throw Exception("CLSIDFromString failed. Error: " . Format("{:#x}", res)) | |
| Return &CLSID | |
| } | |
| ;********************teadrinker OCR *********************************** | |
| OCR(IRandomAccessStream, language := "en"){ | |
| static OcrEngineClass, OcrEngineObject, MaxDimension, LanguageClass, LanguageObject, CurrentLanguage, StorageFileClass, BitmapDecoderClass | |
| static rlangList := {"ar":"Arabic (Saudi Arabia)","bg":"Bulgarian (Bulgaria)","zh":"Chinese (Hong Kong S.A.R.)","zh":"Chinese (PRC)","zh":"Chinese (Taiwan)","hr":"Croatian (Croatia)","cs":"Czech (Czech Republic)","da":"Danish (Denmark)","nl":"Dutch (Netherlands)","En":"English (Great Britain)","en":"English (United States)","et":"Estonian (Estonia)","fi":"Finnish (Finland)","fr":"French (France)","de":"German (Germany)","el":"Greek (Greece)","he":"Hebrew (Israel)","hu":"Hungarian (Hungary)","it":"Italian (Italy)","ja":"Japanese (Japan)","ko":"Korean (Korea)","lv":"Latvian (Latvia)","lt":"Lithuanian (Lithuania)","nb":"Norwegian, Bokmål (Norway)","pl":"Polish (Poland)","pt":"Portuguese (Brazil)","pt":"Portuguese (Portugal)","ro":"Romanian (Romania)","ru":"Russian (Russia)","sr":"Serbian (Latin, Serbia)","sr":"Serbian (Latin, Serbia)","sk":"Slovak (Slovakia)","sl":"Slovenian (Slovenia)","es":"Spanish (Spain)","sv":"Swedish (Sweden)","th":"Thai (Thailand)","tr":"Turkish (Turkey)","uk":"Ukrainian (Ukraine)"} | |
| if (OcrEngineClass = "") { | |
| CreateClass("Windows.Globalization.Language", ILanguageFactory := "{9B0252AC-0C27-44F8-B792-9793FB66C63E}", LanguageClass) | |
| CreateClass("Windows.Graphics.Imaging.BitmapDecoder", IStorageFileStatics := "{438CCB26-BCEF-4E95-BAD6-23A822E58D01}", BitmapDecoderClass) | |
| CreateClass("Windows.Media.Ocr.OcrEngine", IOcrEngineStatics := "{5BFFA85A-3384-3540-9940-699120D428A8}", OcrEngineClass) | |
| DllCall(NumGet(NumGet(OcrEngineClass+0)+6*A_PtrSize), "ptr", OcrEngineClass, "uint*", MaxDimension) ; MaxImageDimension | |
| } | |
| if (CurrentLanguage != language){ | |
| if (LanguageObject != ""){ | |
| ObjRelease(LanguageObject) | |
| ObjRelease(OcrEngineObject) | |
| LanguageObject := OcrEngineObject := "" | |
| } | |
| CreateHString(language, hString) | |
| DllCall(NumGet(NumGet(LanguageClass+0)+6*A_PtrSize), "ptr", LanguageClass, "ptr", hString, "ptr*", LanguageObject) ; CreateLanguage | |
| DeleteHString(hString) | |
| DllCall(NumGet(NumGet(OcrEngineClass+0)+9*A_PtrSize), "ptr", OcrEngineClass, ptr, LanguageObject, "ptr*", OcrEngineObject) ; TryCreateFromLanguage | |
| if (OcrEngineObject = 0){ | |
| Run % "ms-settings:regionlanguage" | |
| MsgBox % 0x10, % "OCR Error" | |
| , % "Can not use language """ rlangList[language] """ for OCR, please install the corresponding language pack." | |
| return "error" | |
| } | |
| CurrentLanguage := language | |
| } | |
| DllCall(NumGet(NumGet(BitmapDecoderClass+0)+14*A_PtrSize), "ptr", BitmapDecoderClass, "ptr", IRandomAccessStream, "ptr*", BitmapDecoderObject) ; CreateAsync | |
| WaitForAsync(BitmapDecoderObject, BitmapDecoderObject1) | |
| BitmapFrame := ComObjQuery(BitmapDecoderObject1, IBitmapFrame := "{72A49A1C-8081-438D-91BC-94ECFC8185C6}") | |
| DllCall(NumGet(NumGet(BitmapFrame+0)+12*A_PtrSize), "ptr", BitmapFrame, "uint*", width) ; get_PixelWidth | |
| DllCall(NumGet(NumGet(BitmapFrame+0)+13*A_PtrSize), "ptr", BitmapFrame, "uint*", height) ; get_PixelHeight | |
| if (width > MaxDimension) or (height > MaxDimension){ | |
| msgbox Image is to big - %width%x%height%.`nIt should be maximum - %MaxDimension% pixels | |
| return | |
| } | |
| SoftwareBitmap := ComObjQuery(BitmapDecoderObject1, IBitmapFrameWithSoftwareBitmap := "{FE287C9A-420C-4963-87AD-691436E08383}") | |
| DllCall(NumGet(NumGet(SoftwareBitmap+0)+6*A_PtrSize), "ptr", SoftwareBitmap, "ptr*", BitmapFrame1) ; GetSoftwareBitmapAsync | |
| WaitForAsync(BitmapFrame1, BitmapFrame2) | |
| DllCall(NumGet(NumGet(OcrEngineObject+0)+6*A_PtrSize), "ptr", OcrEngineObject, ptr, BitmapFrame2, "ptr*", OcrResult) ; RecognizeAsync | |
| WaitForAsync(OcrResult, OcrResult1) | |
| DllCall(NumGet(NumGet(OcrResult1+0)+6*A_PtrSize), "ptr", OcrResult1, "ptr*", lines) ; get_Lines | |
| DllCall(NumGet(NumGet(lines+0)+7*A_PtrSize), "ptr", lines, "int*", count) ; count | |
| loop % count { | |
| DllCall(NumGet(NumGet(lines+0)+6*A_PtrSize), "ptr", lines, "int", A_Index-1, "ptr*", OcrLine) | |
| DllCall(NumGet(NumGet(OcrLine+0)+7*A_PtrSize), "ptr", OcrLine, "ptr*", hText) | |
| buffer := DllCall("Combase.dll\WindowsGetStringRawBuffer", "ptr", hText, "uint*", length, "ptr") | |
| text .= StrGet(buffer, "UTF-16") "`n" | |
| ObjRelease(OcrLine) | |
| OcrLine := "" | |
| } | |
| ObjRelease(BitmapDecoderObject) | |
| ObjRelease(BitmapDecoderObject1) | |
| ObjRelease(SoftwareBitmap) | |
| ObjRelease(BitmapFrame) | |
| ObjRelease(BitmapFrame1) | |
| ObjRelease(BitmapFrame2) | |
| ObjRelease(OcrResult) | |
| ObjRelease(OcrResult1) | |
| ObjRelease(lines) | |
| BitmapDecoderObject := BitmapDecoderObject1 := SoftwareBitmap := BitmapFrame := BitmapFrame1 := BitmapFrame2 := OcrResult := OcrResult1 := lines := "" | |
| return text | |
| } | |
| notUnique(mod1, mod2, mod3) | |
| { | |
| if (mod1 && mod2 || mod1 && mod3 || mod2 && mod3) ; at least 2 of them are set | |
| { | |
| if (mod1 == mod2 || mod1 == mod3 || mod2 == mod3) | |
| return true | |
| else | |
| return false | |
| } | |
| } | |
| Base64Enc( ByRef Bin, nBytes, LineLength := 64, LeadingSpaces := 0 ) | |
| { ; By SKAN / 18-Aug-2017 | |
| Local Rqd := 0, B64, B := "", N := 0 - LineLength + 1 ; CRYPT_STRING_BASE64 := 0x1 | |
| DllCall( "Crypt32.dll\CryptBinaryToString", "Ptr",&Bin ,"UInt",nBytes, "UInt",0x1, "Ptr",0, "UIntP",Rqd ) | |
| VarSetCapacity( B64, Rqd * ( A_Isunicode ? 2 : 1 ), 0 ) | |
| DllCall( "Crypt32.dll\CryptBinaryToString", "Ptr",&Bin, "UInt",nBytes, "UInt",0x1, "Str",B64, "UIntP",Rqd ) | |
| If ( LineLength = 64 and ! LeadingSpaces ) | |
| Return B64 | |
| B64 := StrReplace( B64, "`r`n" ) | |
| Loop % Ceil( StrLen(B64) / LineLength ) | |
| B .= Format("{1:" LeadingSpaces "s}","" ) . SubStr( B64, N += LineLength, LineLength ) . "`n" | |
| Return RTrim( B,"`n" ) | |
| } | |
| ;******************************************************* | |
| ShowUsageSet: | |
| IniRead, ShowUsage, % script.configfile, Settings, ShowUsage, % true ; read value in case variable was reset | |
| Menu, Tray, ToggleCheck, Show Usage at Startup | |
| if (ShowUsage := !ShowUsage) ; set variable for later use on the gui | |
| Gosub, ShowUsageGUI | |
| IniWrite, % ShowUsage, % script.configfile, Settings, ShowUsage | |
| return | |
| ShowUsageGUI: | |
| FileGetSize, icosize, res\sct.ico | |
| FileRead, icobin, *c res\sct.ico | |
| base64ico := Base64Enc(icobin, icosize) | |
| info = | |
| ( | |
| <!DOCTYPE html> | |
| <html lang="en" dir="ltr"> | |
| <head> | |
| <meta charset="utf-8"> | |
| <meta http-equiv="X-UA-Compatible" content="IE=edge"> | |
| <style media="screen"> | |
| h2 | |
| { | |
| text-align:center; | |
| color:SteelBlue; | |
| } | |
| p | |
| { | |
| text-align:center; | |
| } | |
| li | |
| { | |
| margin-bottom:15px; | |
| } | |
| ol.secondary li | |
| { | |
| margin-bottom:5px; | |
| } | |
| img | |
| { | |
| width:35px; | |
| height:35px; | |
| } | |
| </style> | |
| </head> | |
| <body> | |
| <h2>Thank you for using WindowSnipping!</h2> | |
| <p>To learn how to use the tool you can watch <a href="https://www.the-automator.com/WindowSnippingVideo">this video</a>, however here are some quick tips.</p> | |
| <hr> | |
| <ol> | |
| <li>After launching WindowSnipping you will see this icon in your system tray | |
| <img src="data:image/x-icon;base64,%base64ico%" style="padding-left:15px"></li> | |
| <li>If you right-click the icon you'll see the below menu items</li> | |
| <ol type="a" class="secondary"> | |
| <li>Hotkeys (select the key combinations with the left mouse button)</li> | |
| <li>Email signature (customizable Outlook signature)</li> | |
| <li>About ( Links to website and <strong>donation</strong> button )</li> | |
| <li>Check for updates (will look to see if there is a newer version of this program)</li> | |
| <li>Exit app (Closes this program)</li> | |
| </ol> | |
| </ol> | |
| </body> | |
| </html> | |
| ) | |
| gui showusage:new, +toolwindow | |
| gui margin, 0,0 | |
| gui color, white | |
| gui add, activex, w600 h360 vdoc, htmlfile | |
| gui margin, 0,10 | |
| gui add, checkbox, x10 y+10 checked%ShowUsage% gShowUsageSet vShowUsageShow, % "Show Usage at Startup" | |
| doc.write(info) | |
| gui show | |
| return | |
| AboutGUI: | |
| script.about() | |
| return | |
| Update_WindowSnipping: | |
| try | |
| script.update("https://raw.githubusercontent.com/RaptorX/WindowSnipping/master/ver" | |
| ,"https://github.com/RaptorX/WindowSnipping/archive/refs/tags/latest.zip") | |
| catch e | |
| { | |
| if (e.code == 6) | |
| msgbox % e.msg | |
| } | |
| return | |
| SignatureGUI: | |
| IniRead, currSig, % script.configfile, Email, signature | |
| IniRead, currImg, % script.configfile, Email, images | |
| if (!currSig || currSig == "ERROR") | |
| currSig := defaultSignature | |
| if (!currImg || currImg == "ERROR") | |
| currImg := 11 | |
| StringReplace, currSig, currSig, |, `n, All | |
| imgSet := StrSplit(currImg) | |
| Gui Signature:New,,Signature Settings | |
| Gui Add, GroupBox, w320 h55 section, Description | |
| Gui Add, Text, w300 xp+10 yp+20,This signature will be used when creating a clip and attaching it to an email. You can use HTML here. | |
| Gui Add, GroupBox, w320 h145 xs, Signature | |
| Gui Add, Edit, w300 r8 xp+10 yp+20 vSigEdit, %currSig% | |
| Gui Add, GroupBox, w320 h70 xs, Send Images as: | |
| Gui Add, Checkbox, % "checked" imgSet[1] " xp+10 yp+20 vbmp", BMP | |
| Gui Add, Checkbox, % "checked" imgSet[2] " y+10 vjpg", JPG | |
| Gui Add, Text, w360 x0 y+20 0x10 | |
| Gui Add, Button, w75 x170 yp+10 gSignatureSave, Save | |
| Gui Add, Button, w75 x+10 gSignatureHide, Cancel | |
| Gui Show, w340 | |
| return | |
| SignatureHide: | |
| Gui Signature:Destroy | |
| return | |
| SignatureSave: | |
| Gui Signature:Submit | |
| StringReplace, SigEdit, SigEdit, `n, |, All | |
| IniWrite, % SigEdit, % script.configfile, Email, signature | |
| IniWrite, % bmp jpg, % script.configfile, Email, images | |
| return | |
| Hotkeys: | |
| Gui Hotkeys:New,, Hotkey Settings | |
| IniRead, firstRun, % script.configfile, Settings, FirstRun | |
| IniRead, currHK, % script.configfile, Hotkeys, Screen | |
| if (firstRun) | |
| currHK := "#" | |
| Gui Add,Text,, Please select the hotkeys of your choice:`n | |
| Gui Add, Text, w220 x0 right, Left mouse drag to screen capture + | |
| Gui Add, Checkbox, % (instr(currHK, "#") ? "checked" : "") " x+10 section vWsc gdisableHK", Win | |
| Gui Add, Checkbox, % (instr(currHK, "^") ? "checked" : "") " x+10 vCsc gdisableHK", Ctrl | |
| Gui Add, Checkbox, % (instr(currHK, "+") ? "checked" : "") " x+10 vSsc gdisableHK", Shift | |
| Gui Add, Checkbox, % (instr(currHK, "!") ? "checked" : "") " x+10 vAsc gdisableHK", Alt | |
| Gui Add, Checkbox, % (instr(currHK, "disabled") ? "checked" : "") " x+10 gdisableHK vDisabledsc", Disabled | |
| IniRead, currHK, % script.configfile, Hotkeys, Outlook | |
| if (firstRun) | |
| currHK := "#!" | |
| Gui Add, Text, w220 x0 right, Left mouse drag to Attach to Outlook email + | |
| Gui Add, Checkbox, % (instr(currHK, "#") ? "checked" : "") " xs yp vWom gdisableHK", Win | |
| Gui Add, Checkbox, % (instr(currHK, "^") ? "checked" : "") " x+10 vCom gdisableHK", Ctrl | |
| Gui Add, Checkbox, % (instr(currHK, "+") ? "checked" : "") " x+10 vSom gdisableHK", Shift | |
| Gui Add, Checkbox, % (instr(currHK, "!") ? "checked" : "") " x+10 vAom gdisableHK", Alt | |
| Gui Add, Checkbox, % (instr(currHK, "disabled") ? "checked" : "") " x+10 gdisableHK vDisabledom", Disabled | |
| if (isWin10) | |
| { | |
| ;~ Language CodeDescription (informative)BCP 47 Code | |
| langList := {"Arabic (Saudi Arabia)":"ar","Bulgarian (Bulgaria)":"bg","Chinese (Hong Kong S.A.R.)":"zh","Chinese (PRC)":"zh","Chinese (Taiwan)":"zh","Croatian (Croatia)":"hr","Czech (Czech Republic)":"cs","Danish (Denmark)":"da","Dutch (Netherlands)":"nl","English (Great Britain)":"En","English (United States)":"en","Estonian (Estonia)":"et","Finnish (Finland)":"fi","French (France)":"fr","German (Germany)":"de","Greek (Greece)":"el","Hebrew (Israel)":"he","Hungarian (Hungary)":"hu","Italian (Italy)":"it","Japanese (Japan)":"ja","Korean (Korea)":"ko","Latvian (Latvia)":"lv","Lithuanian (Lithuania)":"lt","Norwegian, Bokmål (Norway)":"nb","Polish (Poland)":"pl","Portuguese (Brazil)":"pt","Portuguese (Portugal)":"pt","Romanian (Romania)":"ro","Russian (Russia)":"ru","Serbian (Latin, Serbia)":"sr","Serbian (Latin, Serbia)":"sr","Slovak (Slovakia)":"sk","Slovenian (Slovenia)":"sl","Spanish (Spain)":"es","Swedish (Sweden)":"sv","Thai (Thailand)":"th","Turkish (Turkey)":"tr","Ukrainian (Ukraine)":"uk"} | |
| IniRead, currLang, % script.configfile, OCR, lang, en | |
| for lang,code in langList | |
| curvar .= lang (langList[lang] == (currLang ? currLang : "en") ? "||" : "|") | |
| IniRead, currtgtLang, % script.configfile, OCR, tgtlang, en | |
| for lang,code in langList | |
| tgtvar .= lang (langList[lang] == (currtgtLang ? currtgtLang : "en") ? "||" : "|") | |
| IniRead, currHK, % script.configfile, Hotkeys, OCR | |
| if (firstRun) | |
| currHK := "#^" | |
| Gui Add, Text, w220 x0 right, Left mouse drag to perform OCR + | |
| Gui Add, Checkbox, % (instr(currHK, "#") ? "checked" : "") " xs yp vWpo gdisableHK", % "Win" | |
| Gui Add, Checkbox, % (instr(currHK, "^") ? "checked" : "") " x+10 vCpo gdisableHK", % "Ctrl" | |
| Gui Add, Checkbox, % (instr(currHK, "+") ? "checked" : "") " x+10 vSpo gdisableHK", % "Shift" | |
| Gui Add, Checkbox, % (instr(currHK, "!") ? "checked" : "") " x+10 vApo gdisableHK", % "Alt" | |
| Gui Add, Checkbox, % (instr(currHK, "disabled") ? "checked" : "") " x+10 gdisableHK vDisabledpo", % "Disabled" | |
| Gui Add, Text, w220 x0 y+10 right, % "Select OCR Language" | |
| Gui Add, DropDownList, w185 x+10 yp-3 vselLanguage, % RegExReplace(curvar, "|$") | |
| Gui Add, Text, w220 x0 y+10 right, % "Translate to" | |
| Gui Add, DropDownList, w185 x+10 yp-3 vtgtLanguage, % RegExReplace(tgtvar, "|$") | |
| } | |
| IniRead, currHK, % script.configfile, Hotkeys, Desktop | |
| if (firstRun) | |
| currHK := "^s" | |
| Gui Add, Text, w220 x0 y+13 right, Save clip to desktop | |
| Gui Add, Hotkey, w185 xs yp-3 vdeshk, % currHK | |
| Gui Add, Checkbox, % (instr(currHK, "disabled") ? "checked" : "") " x+10 yp+3 gdisableHK vDisableddt", Disabled | |
| Gui Add, Text, w500 x0 y+20 0x10 | |
| Gui Add, Button, x230 yp+10 gHokeysReset, Reset Hotkeys | |
| Gui Add, Button, w75 x+10 gHokeysSave, Save | |
| Gui Add, Button, w75 x+10 gHokeysSave, Cancel | |
| Gui Hotkeys:show, w495 | |
| return | |
| HokeysReset: | |
| Loop, Parse, hotkeys, | | |
| { | |
| if (A_LoopField == "Desktop") | |
| GuiControl,, % "deshk", % defDesktopHK | |
| else | |
| { | |
| currDef := "def" A_LoopField "HK" | |
| GuiControl,, % "W" suffix[A_Index], % (instr(%currDef%, "#") ? true : false) | |
| GuiControl,, % "C" suffix[A_Index], % (instr(%currDef%, "^") ? true : false) | |
| GuiControl,, % "S" suffix[A_Index], % (instr(%currDef%, "+") ? true : false) | |
| GuiControl,, % "A" suffix[A_Index], % (instr(%currDef%, "!") ? true : false) | |
| } | |
| } | |
| for i, suf in suffix | |
| GuiControl,, % "Disabled" suf, % false | |
| return | |
| HokeysSave: | |
| Gui Hotkeys:Submit, NoHide | |
| if (A_GuiControl == "Cancel") | |
| { | |
| Gui Hotkeys:Destroy | |
| return | |
| } | |
| scrhk := (Wsc ? "#" : "") (Csc ? "^" : "") (Ssc ? "+" : "") (Asc ? "!" : "") | |
| outhk := (Wom ? "#" : "") (Com ? "^" : "") (Som ? "+" : "") (Aom ? "!" : "") | |
| ocrhk := (Wpo ? "#" : "") (Cpo ? "^" : "") (Spo ? "+" : "") (Apo ? "!" : "") | |
| if (notUnique(scrhk, outhk, ocrhk)) | |
| { | |
| msgbox % 0x10 | |
| ,% "Error" | |
| ,% "One of the hotkeys you tried to setup is already used by another" | |
| . " command, please check and try again." | |
| return | |
| } | |
| Gui Hotkeys:Submit | |
| SetHotkeys: | |
| defOCRHK := "#^" | |
| defScreenHK := "#" | |
| defOutlookHK := "#!" | |
| defDesktopHK := "^s" | |
| preffix := "wcsa" | |
| suffix := ["sc", "om", "po", "dt"] | |
| hotkeys := "Screen|Outlook|OCR|Desktop" | |
| defaultSignature := | |
| ("%" | |
| "<HTML> | |
| Attached you will find the screenshot taken on %date%.<br><br> | |
| <span style='color:black'>Please let me know if you have any questions.<br><br> | |
| <H2 style='BACKGROUND-COLOR: red'><br></H2> | |
| <a href='mailto:[email protected]'>Joe Glines</a><br>682.xxx.xxxx</span>. | |
| </HTML>" | |
| ) | |
| ; we make sure to disable all hotkeys to be able to set the new ones without issues | |
| ; without this the new hotkeys wont work | |
| Loop parse, hotkeys, | | |
| { | |
| defHK := "def" A_LoopField "HK" | |
| newHK := SubStr(A_LoopField, 1, 3) "HK" | |
| disHK := "Disabled" suffix[A_Index] | |
| if (A_loopField == "Desktop") | |
| Hotkey, IfWinActive, % "ScreenClippingWindow ahk_class AutoHotkeyGUI" | |
| IniRead, currHK, % script.configfile, Hotkeys, % A_LoopField, % %defHK% | |
| try | |
| Hotkey, % currHK (A_LoopField != "Desktop" ? "Lbutton" : ""), OFF | |
| catch e | |
| if ((!currHK || currHK == "disabled") && !%disHK%) | |
| currHK := %defHK% | |
| Finally | |
| if (!%disHK%) | |
| Hotkey, % (%newHK% ? %newHK% : currHK) (A_LoopField != "Desktop" ? "Lbutton" : ""), % A_LoopField "HK", ON | |
| ; OutputDebug, % currHK ">" %newHK% | |
| Hotkey, IfWinActive | |
| if (newHK == "ocrhk" && !isWin10) | |
| continue | |
| else | |
| { | |
| if (%disHK%) | |
| IniWrite, % "disabled", % script.configfile, Hotkeys, % A_LoopField | |
| else | |
| IniWrite, % %newHK% ? %newHK% : currHK, % script.configfile, Hotkeys, % A_LoopField | |
| } | |
| } | |
| if (selLanguage) | |
| IniWrite, % langList[selLanguage], % script.configfile, OCR, lang | |
| if (tgtLanguage) | |
| IniWrite, % langList[tgtLanguage], % script.configfile, OCR, tgtlang | |
| return | |
| disableHK: | |
| Gui Hotkeys:Submit, NoHide | |
| if (!InStr(A_GuiControl, "Disabled")) | |
| { | |
| GuiControl,, % "Disabled" SubStr(A_GuiControl, 2), % false | |
| return | |
| } | |
| if (SubStr(A_GuiControl, -1) == "dt") | |
| GuiControl,, deshk, % "" | |
| else | |
| { | |
| loop parse, preffix | |
| { | |
| currCB := A_LoopField SubStr(A_GuiControl, -1) | |
| GuiControl,, % currCB, % false | |
| } | |
| } | |
| return | |
| #IfWinActive ScreenClippingWindow ahk_class AutoHotkeyGUI ;activates last clipped window | |
| ~Esc::WinClose, ScreenClippingWindow ahk_class AutoHotkeyGUI | |
| ^c:: | |
| SCW_Win2Clipboard(0) ;copies to clipboard by default w/o border | |
| return | |
| #IfWinActive | |
| ScreenHK: | |
| SCW_ScreenClip2Win(clip:=1,email:=0,OCR:=0) | |
| return | |
| OutlookHK: | |
| SCW_ScreenClip2Win(clip:=0,email:=1,OCR:=0) | |
| return | |
| OCRHK: | |
| if (isWin10) | |
| SCW_ScreenClip2Win(clip:=0,email:=0,OCR:=1) | |
| return | |
| DesktopHK: | |
| SCW_Win2File(0) | |
| return | |
| ClearSettings: | |
| FileRemoveDir, % script.configfilefolder, true | |
| Reload | |
| return | |
| ; Added for Opacity 4/23/21 | |
| OpacityGUI: | |
| Gui +AlwaysOnTop +Resize | |
| Gui Show, w300 h80, Opacity Settings | |
| ;Gui Opacity:New,, Opacity Settings | |
| Gui Add,Text,, Adjust Transparency + | |
| Gui Add,Slider, x150 y05 Range1-255 TickInterval10 vOpacity, 255 | |
| ;Gui Add,Edit, x150 y05 number limit3 vOpacity, 255 | |
| Gui Add, Button, x10 y35 w80 h30 gSubmit, Save | |
| Gui Add, Button, x200 y35 w80 h30 gGuiClose, Cancel | |
| ;Gui Hotkeys:Submit, NoHide | |
| return | |
| Submit: | |
| Gui, Submit ;NoHide | |
| IniWrite, %opacity%, % script.configfile,Settings, Opacity | |
| return | |
| GuiClose: | |
| ExitApp | |
| return | |
| GuiEscape: | |
| ExitApp | |
| return | |
| ; End of 4/23/21 additions | |
| Exit: | |
| ExitApp |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment