AutoHotkey Community

#SingleInstance, force

Gui, +LastFound +Resize
hwnd := WinExist()

RG_Init()
hGrd := RG_Add(hwnd, 4, 4, 500, 300, STYLE_VGRIDLINES | STYLE_GRIDLINES )

RG_AddColumn(hGrd, "cap=Name", "w=150", "ha=2", "ca=2" )
RG_AddColumn(hGrd, "cap=Ext", "w=50", "ha=1", "ca=1")
RG_AddColumn(hGrd, "cap=Time", "w=125", "ha=1", "ca=1")
RG_AddColumn(hGrd, "cap=Size", "w=75", "ha=1", "ca=1")
RG_SetFont(hGrd, "s10 bold, Arial")
RG_SetColors(hGrd, "BAAEEFF G551100 T005588")

Loop %A_WinDir%\*.bmp
{
   aCol1 := A_LoopFileName
   aCol2 := A_LoopFileExt
   FormatTime aCol3, %A_LoopFileTimeModified%, yyyy-MM-dd HH:mm:ss
   aCol4 := A_LoopFileSize
   RG_AddRow(hGrd, "aCol")
}

RG_SetHdrHeight(hGrd, 30)
RG_SetRowHeight(hGrd, 22)
RG_Sort(hGrd, 0, 1)

Gui, Show, w510 h310

return

GuiClose:
GuiEscape:
ExitApp

InsertInteger(pInteger, ByRef pDest, pOffset = 0, pSize = 4)
{
    Loop %pSize%  ; Copy each byte in the integer into the structure as raw binary data.
        DllCall("RtlFillMemory", "UInt", &pDest + pOffset + A_Index-1, "UInt", 1, "UChar", pInteger >> 8*(A_Index-1) & 0xFF)
}

#Include RaGrid.ahk

RG_AddRow(hGrd, aColName){
   local RAW, colCount

   SendMessage GM_GETCOLCOUNT,,,, ahk_id %hGrd%
   colCount := ErrorLevel

   VarSetCapacity(RAW, 4 * colCount, 0)
   Loop %colCount%
   {
      InsertInteger(&%aColName%%A_Index%, RAW, (A_Index - 1) * 4)
   }

   SendMessage,GM_ADDROW,0,&RAW,, ahk_id %hGrd%
   return ErrorLevel
}