Zloy_Gelud
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KRAUSER0993 -- тоже пример.
On Preload страницы:
Код: --[[ Описание: Функция создает вертикальный список чекбоксов,
формируя их названия согласно названиям найденных папок
в папке Soft, находящейся рядом с исполняемым файлом.
Параметры: x - позиция по оси X
y - начальная позиция по оси Y]]
_MakeList = function(x, y)
local tblCheckBoxProps = {};
tblCheckBoxProps.FontName = "Verdana"; -- тип начертания
tblCheckBoxProps.FontSize = 8; -- размер шрифта
tblCheckBoxProps.FontScript = 204; -- кирил. набор символов
local nHeight = 15; -- высота чекбокса
tblCheckBoxProps.Height = nHeight ;
local nWidth = 200; -- ширина чекбокса
tblCheckBoxProps.Width = nWidth;
tblCheckBoxProps.X = x; -- отступ по оси Х
local tDirs = Folder.Find(_SourceFolder.."\\Soft", "*", false, nil);
if tDirs then
for i = 1, #tDirs do
local sDirPath = String.TrimRight(tDirs[i], "\\");
local sFoldername = String.Mid(sDirPath, (String.ReverseFind(sDirPath, "\\") + 1), -1);
tblCheckBoxProps.Text = sFoldername;
if i == 1 then
nY = y;
else
nY = y + (i - 1) * (nHeight + 2);
end
tblCheckBoxProps.Y = nY;
Page.CreateObject(OBJECT_CHECKBOX, "Chk_"..i, tblCheckBoxProps);
end
end
end
_MakeList(10, 10); |
On Click кнопки:
Код: local tObjects = Page.EnumerateObjects();
if tObjects then
for k = 1, #tObjects do
if Page.GetObjectType(tObjects[k]) == 15 and String.Left(tObjects[k], 4) == "Chk_" then
if CheckBox.GetChecked(tObjects[k]) then
File.Run(_SourceFolder.."\\Soft\\"..CheckBox.GetText(tObjects[k]).."\\setup.exe", "", "", SW_SHOWNORMAL, true);
Application.Sleep(20);
end
end
end
end |
|
Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 11:21 15-01-2011 | Исправлено: Zloy_Gelud, 19:16 15-01-2011 |
|
Дружественная тема в Варезнике
Вроде все элементарно. 
Помогаю время от времени нуждающимся. 