citPiks
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
-- Max Rusov » Сб 02 мар, 2013 23:40 http://forum.farmanager.com/viewtopic.php?p=104992#p104992
-- У каждого диалога FAR есть (по крайней мере - должен быть) уникальный GUID.
-- Посмотреть его можно с помощью макроса, например такого: https://code.google.com/p/far-macro-library/wiki/Common_MacroAreaInfo
macro Descr="инфаПоТекущейMacroArea+GUID (Max Rusov)" Key="CtrlAltF12"
{{
s = "MacroArea : "..Area.Current;
s = s .. "\nTitle : "..Object.Title;
if Area.Menu or Area.MainMenu or Area.UserMenu or Area.Disks then
s = s .. "\nGUID (в буфере) : "..(Menu.Id and Menu.Id or "");
num=Menu.Id; mf.clip(1,num)
s = s .. "\nPos/Count : "..Object.CurPos.." / "..Object.ItemCount;
s = s .. "\nMenu.Value : "..Menu.Value;
end
if Area.Dialog then
s = s .. "\nGUID (в буфере) : "..(Dlg.Id and Dlg.Id or "")
num=Dlg.Id; mf.clip(1,num)
s = s .. "\nItemType : "..Dlg.ItemType;
s = s .. "\nValue : "..Dlg.GetValue(-1, 0);
s = s .. "\nControls : "..Dlg.CurPos.." / "..Dlg.ItemCount;
s = s .. "\nPos/Count : "..Object.CurPos.." / "..Object.ItemCount;
end
if Area.DialogAutoCompletion then
s = s .. "\nGUID (в буфере) : "..(Dlg.Id and Dlg.Id or "")
num=Dlg.Id; mf.clip(1,num)
s = s .. "\nItemType : "..Dlg.ItemType;
s = s .. "\nValue : "..Dlg.GetValue(-1, 0);
s = s .. "\nControls : "..Dlg.CurPos.." / "..Dlg.ItemCount;
s = s .. "\nPos/Count : "..Object.CurPos.." / "..Object.ItemCount;
end
if Area.Shell then
s = s .. "\nCurrent : "..APanel.Current;
s = s .. "\nPath : "..APanel.Path;
if APanel.Plugin then
s = s .. "\n--- Plugin panel ---";
s = s .. "\nPrefix : "..APanel.Prefix;
if APanel.HostFile then
s = s .. "\nHostFile : "..APanel.HostFile;
end
end
s = s .. "\n--- Items ---";
s = s .. "\nCurrent : "..APanel.CurPos;
s = s .. "\nTotal : "..APanel.ItemCount;
s = s .. "\nSelected : "..APanel.SelCount;
end
msgbox("Current info",s,8)
}} |
