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

...
Google Search
Forth-FAQ Spy Grafic

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




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

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

Обзор темы - Quark: message
Автор Сообщение
  Заголовок сообщения:  Quark: message  Ответить с цитатой
По технологии временного перехвата сообщений от мышки, использованной 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 !
;
Сообщение Добавлено: Ср сен 01, 2010 01:58

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


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