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

...
Google Search
Forth-FAQ Spy Grafic

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




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Quark: message
СообщениеДобавлено: Ср сен 01, 2010 01:58 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 7960
Благодарил (а): 25 раз.
Поблагодарили: 144 раз.
По технологии временного перехвата сообщений от мышки, использованной white_Tigr-ом в отладчике, получилось вот такое сообщение.
Изображение
Код:
" bmp.fpm" L

// " Images/message_stone.bmp" CREATE-BMP24 MESSAGE.BACK[]
" Images/message_back3.bmp" CREATE-BMP24 MESSAGE.BACK[]

CREATE MESSAGE.RESTORE[] MESSAGE.BACK[] IMAGE-XSIZE MESSAGE.BACK[] IMAGE-YSIZE 1+ * CELLS ALLOT

300 VALUE MESSAGE.X
200 VALUE MESSAGE.Y

['] NOOP VALUE MESSAGE.OLDLMB^
QUAN MESSAGE.CLOSE

: MESSAGE.STORESCR
  MESSAGE.BACK[] IMAGE-YSIZE 1+ 0 DO
    I MESSAGE.Y + 2048 * MESSAGE.X + CELLS GETSCREEN +
    MESSAGE.RESTORE[] I MESSAGE.BACK[] IMAGE-YSIZE * CELLS +
    MESSAGE.BACK[] IMAGE-XSIZE MOVE
  LOOP
;

: MESSAGE.RESTORESCR
  MESSAGE.BACK[] IMAGE-YSIZE 1+ 0 DO
    MESSAGE.RESTORE[] I MESSAGE.BACK[] IMAGE-YSIZE * CELLS +
    I MESSAGE.Y + 2048 * MESSAGE.X + CELLS GETSCREEN +
    MESSAGE.BACK[] IMAGE-XSIZE MOVE
  LOOP
;

: MESSAGE.SHOWBACK
  MESSAGE.BACK[] MESSAGE.X MESSAGE.Y SHOW-BMP24
;

: MESSAGE.LMB
  -1 TO MESSAGE.CLOSE
;

: MESSAGE // STR --
  OPAQUE @ SWAP
  OPAQUE ON
  MESSAGE.STORESCR
  MESSAGE.SHOWBACK
  MESSAGE.BACK[] IMAGE-XSIZE 2 / OVER COUNT 4 * - MESSAGE.X + 8 /
  MESSAGE.Y MESSAGE.BACK[] IMAGE-YSIZE 2 / + 16 / GOTOXY 0xFF00 SETCOLOR PRINT
  FROM <MOUSE_LEFT> TO MESSAGE.OLDLMB^
  0 TO MESSAGE.CLOSE
  USE MESSAGE.LMB AS <MOUSE_LEFT>
  BEGIN
    $
  MESSAGE.CLOSE UNTIL
  MESSAGE.RESTORESCR
  MESSAGE.OLDLMB^ TO <MOUSE_LEFT>
  OPAQUE !
;


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

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


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

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


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

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