Показать сообщение отдельно
Старый 02.11.2009, 16:19   #1
=MAK$=
Оператор ЭВМ
 
Аватар для =MAK$=
 
Регистрация: 18.05.2009
Адрес: РОССИЯ
Сообщений: 37
Написано 9 полезных сообщений
(для 30 пользователей)
API (Окошко в полноэкранном режиме Blitz'a)

Никогда не имел дел с API , поэтому ... есть вопрос .

Как мне , в полноэкранном режиме блитца ,содзать самое простое окно ?
Делал так
Const WS_CHILD = $40000000
Const WS_VISIBLE = $10000000
Const GWL_STYLE = -16
Const WS_CLIPCHILDREN = $2000000

Graphics 1280,1024,0,1

hWnd = api_GetActiveWindow()
style=api_GetWindowLong(hWnd ,GWL_STYLE)
style = style Xor WS_CLIPCHILDREN
api_SetWindowLong hWnd,GWL_STYLE,style
cstyle = WS_VISIBLE + WS_CHILD
wnd = api_CreateWindowEx(0,"STATIC","",cstyle ,50,30,400,400,hWnd,0,0,0)

While Not KeyHit(1)

Text 0,0,"Бла-Бла-Бля-Бла"
Flip
Wend
Но окно (белый квадрат ) мигает . Если убрать Flip (а это не есть хорошо) , то все норм. В обычном оконном режиме все нормально .
Что делать ?
(Offline)
 
Ответить с цитированием