BGR

Синтаксис

function BGR(r as UByte , g as Ubyte , b as Ubyte) as Long

Описание

Устанавливает значение цвета. (встроенная во FreeBasic функция!)

Параметры

r , g , b - три компонента цвета от 0 до 255

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Hwnd hwnd
Dim As Long event
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 HTML Help documentation generator