CoolBasic SDK

ChangeWindowBorderColors

Include "cbJanelas.cb"

KUVAUS
Tämä funktio muuttaa ikkunan kehyksen aktiivista ja ei-aktiivista väriä.

Funktion vaikutuksen voi kohdistaa myös seuraaviin uusiin ikkunoihin, jolloin väreistä tulee siis oletusvärit.

Huom! Funktiolle ei kelpaa CoolBasicin värivakiot!

KÄYTTÖ
ChangeWindowBorderColors(id, r,g,b, ra,ga,ba)
Id - Muutettavan ikkunan id. Jos käytät ALL_WINDOWS-vakiota, väreistä tehdään oletusvärit.
r,g,b - Kehyksen väri silloin, kun ikkuna ei ole aktiivinen.
ra,ga,ba - Kehyksen väri silloin, kun ikkuna on aktiivinen.

Katso myös: ChangeWindowBackgroundColor, ChangeWindowHeadbarColors

ESIMERKKI
SCREEN 800,600
Include "sdk/include/cbJanelas.cb"

w = NewWindow("Väritettävä ikkuna",100,150,300,100)
Repeat
    DrawToWindow(w)
    Color 255,255,255
    Text 0,0, "Paina Enter vaihtaaksesi värejäni."
    DrawToScreen
    If KeyHit(cbkeyreturn) Then
        r1 = Rand(0,255)
        g1 = Rand(0,255)
        b1 = Rand(0,255)
        r2 = Rand(0,255)
        g2 = Rand(0,255)
        b2 = Rand(0,255)
        ra1 = Rand(0,255)
        ga1 = Rand(0,255)
        ba1 = Rand(0,255)
        ra2 = Rand(0,255)
        ga2 = Rand(0,255)
        ba2 = Rand(0,255)
        ChangeWindowBorderColors(w, r1,g1,b1, r2,g2,b2)
        ChangeWindowBackgroundColor(w, Rand(255),Rand(255),Rand(255))
        ChangeWindowHeadbarColors(w, r1,g1,b1, r2,g2,b2, ra1,ga1,ba1, ra2,ga2,ba2)
    End If
    UpdateWindows()
    DrawScreen
Forever