AutoHotkey Community

ATC:=A_TickCount
SetBatchLines -1
DetectHiddenWindows, On
#include lowlevel.ahk
; Creating a 256x256 24bit bitmap file in memory
Id:="BM",Hdr:=54,W:=256,H:=256,Bit:=24,Byt:=W*H*(Bit/8),  VarSetCapacity(BMP,Hdr+Byt,0)
NumPut( NumGet( Id,0,"UShort" ),BMP,0,"UShort" ), NumPut( Hdr+Byt,BMP,2 )
NumPut( Hdr,BMP,10 ), NumPut( 40,BMP,14 ), NumPut( W,BMP,18 ), NumPut( H,BMP,22 )
NumPut( 1,BMP,26,"UShort" ), NumPut( Bit,BMP,28,"UShort" ), NumPut( Byt,BMP,34 )

Gui, 99:+AlwaysOnTop +ToolWindow +LastFound
Gui99:=WinExist(), hDC:=DllCall("GetDC",UInt,Gui99)
Gui, 99:Add, Text, w256 h256 0x120E hWndhPic gSelColor
;LowLevel.ahk required.
prepare_bitmap(bmp){
}LowLevel_init(),__mcode("prepare_bitmap"
, "8B4424088B088B118B0283C03633D29033C988104088084"
. "0C60000414081F9000100007CED4281FA000100007CE2C3")
prepare_bitmap(BMP)
hBMP := DllCall( "CreateDIBitmap", UInt,hDC, UInt,&BMP+14, Int,4, UInt,&BMP+NumGet(BMP,10)
              , UInt,&BMP+14, UInt,1 )       
SendMessage, (STM_SETIMAGE:=0x172), (IMAGE_BITMAP:=0x0), hBMP,, ahk_id %hPic%
Gui, 99:Show,, % "ColorPicker [ " (A_TickCount-ATC) "ms ]"
Return

SelColor:
 MouseGetPos, X, Y
 PixelGetColor,Color, X, Y, RGB
 Tooltip % SubStr(Color,-5)
 SetTimer, TooltipOff, -2000
Return

ToolTipOff:
 ToolTip
Return

GuiClose:
 ExitApp

__expr(expr, pScopeFunc=0, function = "__expr_sub")
{
    static pThisFunc
        pFunc:=__getFuncUDF(function), pThisFunc:=__getFuncUDF(A_ThisFunc), __init()
   
    nInst := NumGet(pThisFunc+40)
    VarSetCapacity(Line%nInst%,44,0), __static(Line%nInst%), pLine:=&Line%nInst%

    if ! __ParseExpressionArg(expr, pArg:=&Line%nInst%+32, pScopeFunc)
        return
   
    NumPut(pArg,NumPut(1,NumPut(102,pLine+0,0,"char"),0,"char"),2)
    , NumPut(pLine,NumPut(pLine,pLine+16))
    , NumPut(pLine,pFunc+4)
    , ret := %function%()
    return ret
}

setq(ByRef var, val){
var = %val%
}

myMsg(msg)
{
Msgbox % msg
}
function1() {
    global
    ; Contents replaced at run-time by __expr.
}
function2() {
    global
    ; Contents replaced at run-time by __expr.
}

F11::  ;; test various dynamic functions

setq(x, 5)
setq(y, 7)
__expr("myMsg(y)", 0, "function2")
__expr("myMsg(x)", 0, "function1")
function1()
function2()
return

x=Ex.
y=Why?
LowLevel_init()
__expr_("function2", "myMsg(y)")
__expr_("function1", "myMsg(x)")
function1()
function2()

__expr_(function, expr, pScopeFunc=0)
{
    __init()
    pFunc:=__getFuncUDF(function)
    VarSetCapacity(Line%function%,44,0), __static(Line%function%), pLine:=&Line%function%
    if ! __ParseExpressionArg(expr, pArg:=&Line%function%+32, pScopeFunc)
        return false
    NumPut(pArg,NumPut(1,NumPut(102,pLine+0,0,"char"),0,"char"),2)
    , NumPut(pLine,NumPut(pLine,pLine+16))
    , NumPut(pLine,pFunc+4)
    return true
}


myMsg(msg)
{
Msgbox % msg
}
function1() {
    global
    ; Contents replaced at run-time by __expr.
}
function2() {
    global
    ; Contents replaced at run-time by __expr.
}

private=no
FuncA()

FuncA()
{
    static _T,_F ; Generate the exression function only once.
    if !_T
        LowLevel_init(),_T:=__findFunc(A_ThisFunc)
   
    private=yep
   
    ; Demonstrate that FuncB cannot access 'private' directly.
    MsgBox % FuncB("private")
    ; Demonstrate that via _T, functions created by __function CAN access our local variables.
    MsgBox % FuncB(__function(_F,"private '!'",_T) "()")
}

FuncB(x)
{
    if SubStr(x,-1)="()"
    {
        F := SubStr(x,1,-2)
        return %F%()
    }
    else
        return (%x%)
}

; Builds a function from a given expression, and returns its name.
; DO NOT CALL if func_buf has been assigned contents or given
;   non-zero capacity by anything other than this function.
; IT IS NOT SAFE to simply clear func_buf since it will not release
;   resources allocated by __ParseExpressionArg.
__function(ByRef func_buf, expr="", pScopeFunc=0)
{
    static ACT_RETURN:=102, VAR_ASSUME_LOCAL:=1
        , SIZE_FUNC:=52, SIZE_LINE:=32, SIZE_ARGSTRUCT:=12
        , func_index:=0
    LowLevel_init()
    if !(first_func:=__getFirstFunc())
        return ; FATAL ERROR.
   
    ; Recommended usage is to use 'func' to conveniently cache the result.
    ; func MUST have capacity=0 unless set by a previous call to this function.
    if VarSetCapacity(func_buf)
        return __str(NumGet(func_buf))
    if expr =
        return ; OOPS!
   
    ; Function name can be anything since AutoHotkey won't be validating it.
    func_index += 1
   
    VarSetCapacity(func_buf, SIZE_FUNC + SIZE_LINE + SIZE_ARGSTRUCT + StrLen(func_index) + 1, 0)
   
    ptr_func := &func_buf
    ptr_line := ptr_func + SIZE_FUNC
    ptr_arg  := ptr_line + SIZE_LINE
    ptr_name := ptr_arg  + SIZE_ARGSTRUCT
   
    DllCall("lstrcpy","uint",ptr_name,"str",func_index) ; Copy name into buffer.
   
    NumPut(ptr_name, ptr_func + 0) ; Func->Name
    NumPut(ptr_line, ptr_func + 4) ; Func->JumpToLine
    NumPut(VAR_ASSUME_LOCAL, ptr_func + 48, 0, "char") ; Func->DefaultVarType
   
    NumPut(ACT_RETURN | 1<<8, ptr_line + 0, 0, "short") ; Line->{ActionType,Argc}
    NumPut(ptr_arg, ptr_line + 4) ; Line->Arg
   
    ; ArgStruct will be initialised by the following call:
    __ParseExpressionArg(expr, ptr_arg, pScopeFunc)
   
    ; Now that Func, Line and ArgStruct are valid, insert function into list.
    NumPut(NumGet(first_func + 44), ptr_func + 44)
    NumPut(ptr_func, first_func + 44)
   
    return func_index ; Name, not address.
}

MyFunc(myparam) {
    ...
    Foreach(list, __function(_F
        , "(f, i) => mylocal .= f + myparam * i . ','"
    ,_T))
}

Foreach(list, func, delim=",") {
    Loop, Parse, list, %delim%
        %func%(A_LoopField, A_Index)
}