-- Author: AylinCE
-- Source: https://forum.cheatengine.org/viewtopic.php?p=5789589
--[[
Zoom 'Address List' font size in and out with CTRL.
Size ranging from 7 ~20 maximum.

Usage:
 - Select Address List (click in it).
 - Hold down the Ctrl key and move the mouse wheel (do it slow).
 - Hold down the Ctrl key and click on the address list title to return to the default size.
]]

alist = getAddressList()
alistTbl1 = {}
lstFntsz = 0

if alist.List.Font.Size==0 then
  lstFntsz=10 -- or Default
else
  lstFntsz=alist.List.Font.Size
end
alistTbl1[1] = lstFntsz
alist.List.Font.Size = lstFntsz

  for i=0, alist.Header.Sections.count -1 do
    alistTbl1[#alistTbl1 + 1] = alist.Header.Sections[i].width
  end

function dftText()
 if isKeyPressed(VK_LCONTROL) then
   alist.List.Font.Size = alistTbl1[1]
   local idx = 1
   for i=0, alist.Header.Sections.count -1 do
     idx = tonumber(idx) + 1
      alist.Header.Sections[i].width = alistTbl1[idx]
   end
 end
end

alist.List.OnMouseWheelUp=function(sender)
    sleep(150)
  if isKeyPressed(VK_LCONTROL) then
   if alist.List.Font.Size < 20 then -- max = 20
    alist.List.Font.Size = alist.List.Font.Size + 4
    for i=1, alist.Header.Sections.count -1 do
      alist.Header.Sections[i].width=alist.Header.Sections[i].width + 1
    end
   end
  end
end

alist.List.OnMouseWheelDown=function(sender)
  if isKeyPressed(VK_LCONTROL) then
    sleep(150)
   if alist.List.Font.Size > 7 then  -- min = 7
    alist.List.Font.Size = alist.List.Font.Size - 2
    for i=1, alist.Header.Sections.count -1 do
      alist.Header.Sections[i].width=alist.Header.Sections[i].width - 1
    end
   end
  end
end

alist.Header.OnClick=function() dftText() end