Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Чт мар 28, 2024 12:52

...
Google Search
Forth-FAQ Spy Grafic

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: Quark.exe: окно без кнопок и границ. Полноэкранный режим.
СообщениеДобавлено: Вс авг 07, 2011 23:26 
Не в сети
Аватара пользователя

Зарегистрирован: Вт мар 20, 2007 23:39
Сообщения: 1261
Благодарил (а): 3 раз.
Поблагодарили: 19 раз.
Слова для скрытия управляющих кнопок и границ окна, полноэкраннный режим.
Код:
QUAN ActiveLibrary
: FUNCTION   \ ( str -- ) ( "name" --> ) \ Получить адрес функции с именем, индетифицируемом строкой str из текущей загруженной библиотеки; создать слово "name", возвращающее адрес этой функции. name ( -- addr )
  ActiveLibrary SWAP GETPROCADDRESS VALUE
;

" User32.dll" LOADLIBRARY CONSTANT User32.dll
User32.dll TO ActiveLibrary

" SetWindowLongA" FUNCTION SetWindowLongA@
" SetWindowPos" FUNCTION SetWindowPos@
" GetDesktopWindow" FUNCTION GetDesktopWindow@
" GetWindowRect" FUNCTION GetWindowRect@

VARIABLE QWinStyle
: QW-UPDATE-STYLE
  hwnd @ 0 0 0 0 0 0x0027 7 SetWindowPos@ API DROP
;

: QWBHide  \ ( -- )
  hwnd @ -16 0x94000800 SetWindowLongA@ API3 QWinStyle ! ;
: QWBShow   \ ( -- )
  hwnd @ -16 QWinStyle @ SetWindowLongA@ API3 DROP ;
: QWB-HIDE   \ ( -- )
  QWBHide QW-UPDATE-STYLE ;
: QWB-SHOW   \ ( -- )
  QWBShow QW-UPDATE-STYLE
;

4 CELLS ARRAY NotFScrRect
4 CELLS ARRAY FScrRect

QUAN 'FULLSCREEN-OFF
VECT <FULLSCREEN>

: FULLSCREEN-ON   \ ( -- )
  hwnd @ NotFScrRect GetWindowRect@ API2 DROP
  GetDesktopWindow@ API0 FScrRect GetWindowRect@ API2 DROP
  QWBHide
  hwnd @ -1
  FScrRect @        FScrRect 1 -TH @    \ x y
  FScrRect 2 -TH @  FScrRect 3 -TH @    \ w h
  CR
  0x0060
  7 SetWindowPos@ API DROP
  'FULLSCREEN-OFF TO <FULLSCREEN>
;

' FULLSCREEN-ON TO <FULLSCREEN>

: FULLSCREEN-OFF   \ ( -- )
  QWBShow
  hwnd @ -2
  NotFScrRect @        NotFScrRect 1 -TH @    \ x y
  NotFScrRect 2 -TH @  NotFScrRect 3 -TH @    \ w h
  CR
  0x0060
  7 SetWindowPos@ API DROP
  USE FULLSCREEN-ON TO <FULLSCREEN>
; ' FULLSCREEN-OFF TO 'FULLSCREEN-OFF


' <FULLSCREEN> TO K_F12

_________________
Cтоимость сопровождения программного обеспечения пропорциональна квадрату творческих способностей программиста.
Роберт Д. Блисc


Последний раз редактировалось VoidVolker Пн авг 08, 2011 23:43, всего редактировалось 3 раз(а).

Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Quark.exe: окно без кнопок и границ. Полноэкранный режим
СообщениеДобавлено: Вс авг 07, 2011 23:31 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 7960
Благодарил (а): 25 раз.
Поблагодарили: 144 раз.
'FULLSCREEN-ON TO <FULLSCREEN> можно заменить на ['] FULLSCREEN-ON TO <FULLSCREEN>

['] - immediate-слово. Алиас - USE.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Quark.exe: окно без кнопок и границ. Полноэкранный режим
СообщениеДобавлено: Вс авг 07, 2011 23:38 
Не в сети
Аватара пользователя

Зарегистрирован: Вт мар 20, 2007 23:39
Сообщения: 1261
Благодарил (а): 3 раз.
Поблагодарили: 19 раз.
Ой, точно. На автомате сделал =)

_________________
Cтоимость сопровождения программного обеспечения пропорциональна квадрату творческих способностей программиста.
Роберт Д. Блисc


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Quark.exe: окно без кнопок и границ. Полноэкранный режим
СообщениеДобавлено: Вс авг 07, 2011 23:42 
Не в сети
Аватара пользователя

Зарегистрирован: Вт мар 20, 2007 23:39
Сообщения: 1261
Благодарил (а): 3 раз.
Поблагодарили: 19 раз.
Упс, бага - окно ужимается. :shuffle;
Завтра разберусь.

_________________
Cтоимость сопровождения программного обеспечения пропорциональна квадрату творческих способностей программиста.
Роберт Д. Блисc


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 14


Вы не можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
phpBB сборка от FladeX // Русская поддержка phpBB