Надпись поверх всех окон!

Раздел посвящен программированию с использованием Power Basic.
TrueTrue
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 167
Зарегистрирован: 20.05.2009 (Ср) 23:18

Надпись поверх всех окон!

Сообщение TrueTrue » 06.03.2013 (Ср) 23:35

Подскажите, как в PB, вывести надпись на экран, в цвете, с прозрачным фоном, поверх всех окон, игр, и видео... Видел такое в комп клубах, когда завершается оплаченное время, отсчитывает 10 секунд, в любом приложении, а так же поверх видео.

Димитрий
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 26.01.2005 (Ср) 22:47
Откуда: Волгоград

Re: Надпись поверх всех окон!

Сообщение Димитрий » 12.03.2013 (Вт) 13:13

Поверх всех окон
Код: Выделить всё
#COMPILE EXE
#DIM ALL
#INCLUDE ONCE "WIN32API.INC"

FUNCTION PBMAIN () AS LONG
  LOCAL i AS LONG
  LOCAL R AS RECT
  LOCAL hdc AS LONG

    SetRect R, 0, 0, 200, 20
    OffsetRect R, 100, 100
    hdc = GetDC(0)

    FOR i = 0 TO 200
        DrawText hdc, "Hello World" + STR$(i), LEN("Hello World" + STR$(i)), R, %DT_CENTER
        SLEEP 100
    NEXT i
END FUNCTION

Размер, цвет, фон надо покопать :) А нужна ли тут красивость?


Вернуться в Power Basic

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

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

    TopList  
cron