args List
local hwnd = win.handle("c=TTOTAL_CMD")
local Panel = ifelse(tc.active(hwnd) == "left", 8, 7)
local Config = env("WINDIR") ++ "\wincmd.ini"
local Str, i, Hand, Tabs, j, Ind, Temp, Buttons
global TMLB = childwin.handle(hwnd, "TMyListBox", Panel)
global Counter = win.sendmessage(TMLB, 0x0190, 0, 0)
local Total = win.sendmessage(TMLB, 0x018B, 0, 0)

if(not Counter) do
	messagebox("ok error", "At least two files must be selected", "ABLV Script")
	quit
endif

if(Counter != Total) do
	Panel = ifelse(Panel == 8, 12, 19)
	Tabs = childwin.handle(hwnd, Panel)
	i = win.sendmessage(Tabs, 4868, 0, 0)
	win.postmessage(hwnd, 0x400+51, 501, 0)
	wait.for(1500, activewindow("c=TFindFile"))
	*keys {del}
	Hand = win.handle("c=TFindFile")
	Str = win.childhandlelist(Hand, "c=TButton")
	static v = vec.createfromwords(Str)

	if(v <= 0) do
		messagebox("ok error", "Failure creating vector", "VEC plugin Error #2")
		quit
	endif

	Buttons = v.length
	Str = .ABLV@TL(0)
	for(j = 1; j < Buttons; j++)
		if(win.parent(v[j]) != Hand)
			continue

		Temp = .ABLV@TL(j)
		if(Temp < Str) do
			Str = Temp
			Ind = j
		endif

	endfor
	Str = v[Ind]
	win.sendmessage(Str, 0x00F5, 0, 0)

	for(not win.gettext(win.childhandlelist(Hand, "c=TMyPanel")))
	endfor

	Str = .ABLV@BL(0)
	Ind = 0

	for(j = 1; j < Buttons; j++)
		Temp = .ABLV@BL(j)
		if(Temp > Str) do
			Str = Temp
			Ind = j
		endif

	endfor
	Str = v[Ind]
	win.sendmessage(Str, 0x00F5, 0, 0)
	wait.for(1000, i != win.sendmessage(Tabs, 4868, 0, 0))
	win.sendmessage(hwnd, 0x400+51, 523, 0)
endif


Panel = file.readall(List)
v = vec.createfromlines(Panel)

Str = ini.get(Config, "Configuration", "Viewertype")

if(Str == "1") do
	keys {F3}
else
	keys +{F3}
endif
quit
;;**************************************
Function TL(i)
quit(float.divide(win.top(v[i]), win.right(v[i])))
;;**************************************
Function BL(i)
quit(float.mul(win.top(v[i]), win.right(v[i])))