Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Чт авг 11, 2022 15:09

...
Google Search
Forth-FAQ Spy Grafic

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




Ответить
Имя пользователя:
Заголовок:
Текст сообщения:
Введите текст вашего сообщения. Длина сообщения в символах не более: 60000

Размер шрифта:
Цвет шрифта
Настройки:
BBCode ВКЛЮЧЕН
[img] ВЫКЛЮЧЕН
[flash] ВЫКЛЮЧЕН
[url] ВКЛЮЧЕН
Смайлики ВЫКЛЮЧЕНЫ
Отключить в этом сообщении BBCode
Не преобразовывать адреса URL в ссылки
Вопрос
Теперь гостю придется вводить здесь пароль. Не от своей учетной записи, а ПАРОЛЬ ДЛЯ ГОСТЯ, получить который можно после регистрации на форуме через ЛС.:
Этот вопрос предназначен для выявления и предотвращения автоматических регистраций.
   

Обзор темы - Quark.exe: окно без кнопок и границ. Полноэкранный режим.
Автор Сообщение
  Заголовок сообщения:  Re: Quark.exe: окно без кнопок и границ. Полноэкранный режим  Ответить с цитатой
Упс, бага - окно ужимается. :shuffle;
Завтра разберусь.
Сообщение Добавлено: Вс авг 07, 2011 23:42
  Заголовок сообщения:  Re: Quark.exe: окно без кнопок и границ. Полноэкранный режим  Ответить с цитатой
Ой, точно. На автомате сделал =)
Сообщение Добавлено: Вс авг 07, 2011 23:38
  Заголовок сообщения:  Re: Quark.exe: окно без кнопок и границ. Полноэкранный режим  Ответить с цитатой
'FULLSCREEN-ON TO <FULLSCREEN> можно заменить на ['] FULLSCREEN-ON TO <FULLSCREEN>

['] - immediate-слово. Алиас - USE.
Сообщение Добавлено: Вс авг 07, 2011 23:31
  Заголовок сообщения:  Quark.exe: окно без кнопок и границ. Полноэкранный режим.  Ответить с цитатой
Слова для скрытия управляющих кнопок и границ окна, полноэкраннный режим.
Код:
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
Сообщение Добавлено: Вс авг 07, 2011 23:26

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


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