WindowColor

Color ››
Parent Previous Next

WindowColor

Синтаксис

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