Zloy_Gelud
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lorents
Цитата:| как сделать, чтобы в объекте input горизонтальная и вертикальная полосы прокрутки появлялись при необходимости, т.е. чтобы они появлялись только тогда, когда например текст не умещается в размере объекта input? |
On Key объекта "Input1":
Код: local EM_GETLINECOUNT = 186; -- API-константа
local nVisibleLine = 7; -- макс. количество видимых линий в объекте
-- дескриптор объекта
local hWnd = Input.GetProperties("Input1").WindowHandle;
-- подсчитываем количество строк в объекте
local nLineCount = DLL.CallFunction("user32.dll", "SendMessageA", hWnd..","..EM_GETLINECOUNT..",0,0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
-- если количество линий превышает макс. кол-во видимых
if (tonumber(nLineCount) > nVisibleLine - 1) and not b then
-- разрешаем прокрутки
Input.SetProperties("Input1", {VScrollbar = true,
HScrollbar = true
});
-- после установки прокрутки мы теряем фокус с объекта.. 
-- так что далее - это попытка вернуть объекту фокус и
-- установить курсор его на последнюю строку
Page.SetFocus("Input1");
Input.ScrollToLine("Input1", -1);
Input.SetSelection("Input1", (nVisibleLine+2)*2 + 1, -1);
b = true;
end |
Цитата:| может кто делал скачивание файла из интернета с использование прогресс бара, но что бы прогресс бар был в окне проекта? |
On Click кнопки загрузки:
Код: function CallBack_for_HTTP(...)
local nEnd = Progress.GetRange("Progress1").End;
if (arg[2] ~= 0) then
Paragraph.SetText("Paragraph1", "Размер файла: "..String.GetFormattedSize(arg[2], FMTSIZE_AUTOMATIC, true).."\r\n"..
"Скорость скачивания: "..Math.Round(arg[3], 2).."кБ/с\r\n"..
"Закачано: "..String.GetFormattedSize(arg[1], FMTSIZE_AUTOMATIC, true).."\r\n"..
"Осталось времени :"..arg[4].."cекунд");
local nPercent = Math.Round(arg[1] * nEnd / arg[2], 1);
Progress.SetCurrentPos("Progress1", nPercent);
Progress.SetText("Progress1", nPercent.."%");
end
if bStop then return false else return true end
end
HTTP.Download("http://mmbuilder.ru/Files/mmb/mmb48.zip", "C:\\mmb48.zip", MODE_BINARY, 20, 80, nil, nil, CallBack_for_HTTP); |
On Click кнопки "Отмена":
Код: |
Всего записей: 3273 | Зарегистр. 30-05-2007 | Отправлено: 20:08 13-06-2009 | Исправлено: Zloy_Gelud, 21:19 13-06-2009 |
|
-умер, сорри... 
Ответы на наиболее часто задаваемые вопросы: 
, автор вроде sside. 
