|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Полноэкранный режим в OPENGL
Народ очень надо сделать чтоб при нажатии кнопки приложение переводилось с формы в полноэкранный режим.Кто знает как подскажите пожалуйста.
|
#2
|
|||
|
|||
WindowState:=wsMaximized; // увеличиваем
(мож я чето не догоняю) |
#3
|
||||
|
||||
Функции для смены разрешения экрана
Код:
function SetScreen:Boolean; begin with DeviceMode do begin dmSize:=SizeOf(DeviceMode); dmBitsPerPel:=32; dmPelsWidth:=640; dmPelsHeight:=480; dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT; result:=False; if ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL then Exit; Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL; end; end; function RestoreScreen:Boolean; begin with DeviceMode do begin dmSize:=SizeOf(DeviceMode); dmBitsPerPel:=pel; dmPelsWidth:=widthscr; dmPelsHeight:=heightscr; dmDisplayFrequency:=frec; dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT; result:=False; if ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL then Exit; Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL; end; end; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось Admin, 01.05.2008 в 20:25. |
#4
|
|||
|
|||
Огромнейшее СПАСИБО!!!
|
#5
|
|||
|
|||
Серый
Есть ещё вариант:
Form1.WindowsState := wsMaximized; Form1.BorderStyle := baNone; |
#6
|
||||
|
||||
Цитата:
|