andreytmn
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
попробовал, точно срабатывает Application.Exit.
окно отладки
*** LOCATION: Project -> On Startup
[1]: display = System.GetDisplayInfo();
TRACE: LastError = 0 ("Success.")
[3]: if (display.Width < 1024) then
[7]: if warning == IDYES then -- пользователь согласен изменить разрешение
[10]: Dialog.Message("Внимание", "Вы отказались от смены разрешения. Программа завершает работу", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
размер проекта 1024*768, resize отключен.
попробовал включит resize 1024*768, проект запустился как надо, но окно смещено от верхнего левого угла экрана примерно на 100 пик. по гор. и вер.
это окно отладки:
*** LOCATION: Project -> On Startup
[1]: display = System.GetDisplayInfo();
TRACE: LastError = 0 ("Success.")
[3]: if (display.Width < 1024) then
[4]: warning = Dialog.Message("Неподдерживаемое разрешение", "Минимальное необходимое разрешение для работы программы 1024х768, а у Вас "..display.Width.." x "..display.Height.."\n\n Если Вы хотите изменить разрешение, нажмите ДА, \n\n\ Чтобы выйти из программы нажмите кнопку НЕТ.", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
TRACE: LastError = 0 ("Success.")
[7]: if warning == IDYES then -- пользователь согласен изменить разрешение
[8]: ChangeDisplaySettings(1024,768,32,60,0)
*** LOCATION: Globals
[20]: args = width..", "..height..", "..Depth..", "..Freq..", "..Permanent
[21]: result = DLL.CallFunction("AutoPlay\\Docs\\DLLDisplaySettings.dll", "ChangeDisplaySettings", args, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);
TRACE: LastError = 0 ("Success.")
[22]: if result == "0" then
[23]: local hWnd = Application.GetWndHandle();
TRACE: LastError = 0 ("Success.")
[24]: local WndSize = Window.GetSize(hWnd);
TRACE: LastError = 0 ("Success.")
[25]: local ScreenRes = System.GetDisplayInfo();
TRACE: LastError = 0 ("Success.")
[26]: local NewPos_X = (ScreenRes.Width - WndSize.Width)/2;
[27]: local NewPos_Y = (ScreenRes.Height - WndSize.Height)/2;
[28]: Window.SetPos(hWnd, NewPos_X, NewPos_Y);
TRACE: LastError = 0 ("Success.")
[38]: end
*** LOCATION: Project -> On Startup
[12]: end
может чего и прояснится. Я так думаю, что по шаманить со строками [22] - [28]. А может это только на моей машине?
И хотелось бы что бы размер окна пользователь не мог изменять. т.е. resize отключен. |
Всего записей: 11 | Зарегистр. 25-06-2010 | Отправлено: 21:08 26-06-2010 | Исправлено: andreytmn, 21:25 26-06-2010 |
|
Дружественная тема в Варезнике
