Sub WindowColor(ByVal hWin As HWND, ByVal iColor As ulong)
Устанавливает цвет заданного окна в формате BGR (синий,зеленый, красный). Для выбора цвета окна, можно воспользоваться макросом BGR или функцией ColorRequester
hWin - описание
iColor - описание
Windows , Linux
#Include "window9.bi"
Dim As integer event
var hwnd=OpenWindow("1",30,30,500,500)
Do
event=WaitEvent()
If event=EventClose Then End
If event=eventlbdown Then WindowColor(hwnd,BGR(255,0,0))
If event=eventrbdown Then WindowColor(hwnd,BGR(0,255,0))
Loop
Created with the Personal Edition of HelpNDoc: Free help authoring tool