local F = far.Flags
local Items = {
--[[01]] {F.DI_DOUBLEBOX, 3,1, 24,3, 0, 0,0, 0,"TEST GOTFOCUS Param1"},
--[[02]] {F.DI_BUTTON, 0,2, 0,0, 0, 0,0, F.DIF_CENTERGROUP,"id: 2"},
--[[03]] {F.DI_BUTTON, 0,2, 0,0, 0, 0,0, F.DIF_DEFAULTBUTTON+F.DIF_CENTERGROUP,"id: 3"}
}
local id=3
local function DlgProc(hDlg,Msg,Param1,Param2)
if Msg==F.DN_INITDIALOG then hDlg:send(F.DM_SETFOCUS,id,0)
elseif Msg==F.DN_GOTFOCUS then far.Show("id: "..id,"id Param1: "..Param1,"id GETFOCUS: "..hDlg:send(F.DM_GETFOCUS))
end
end
far.Dialog("",1,-1,28,5,"",Items,0,DlgProc) |
