local F = far.Flags local guid = win.Uuid("db9e2453-9c41-4b99-9924-c0c291896f2b") local Test_string = "Текст поля ввода" local Items = { --[[1]] {F.DI_DOUBLEBOX, 0,0, 41,5, 0, 0,0, 0, "Тест диалога"}, --[[2]] {F.DI_EDIT, 2,1, 38,3, 0, 0,0, F.DIF_SELECTONENTRY+F.DIF_HISTORY, "2128506"}, --[[3]] {F.DI_TEXT, -1,2, 0,0, 0, 0,0, F.DIF_SEPARATOR,""}, --[[4]] {F.DI_BUTTON, 0,3, 0,0, 0, 0,0, F.DIF_DEFAULTBUTTON+F.DIF_CENTERGROUP+F.DIF_NOBRACKETS," ОК "}, --[[5]] {F.DI_BUTTON, 0,3, 0,0, 0, 0,0, F.DIF_CENTERGROUP+F.DIF_NOBRACKETS," Отмена "} } local function dlg_proc(hDlg, Msg, Param1, Param2) if Msg == F.DN_INITDIALOG then hDlg:send(F.DM_SETTEXT, 2, Test_string) else return end return true end Macro { area="Shell Dialog"; key="CtrlShiftK"; description="My.Dialog"; action=function() if 4 == far.Dialog(guid,-1,-1,41,5,nil,Items,F.FDLG_SMALLDIALOG+F.FDLG_NODRAWSHADOW,dlg_proc) then far.Message("Кнопка работает") end end; } |