CoolBasic SDK

ChangeWindowHeadbarColors

Include "cbJanelas.cb"

KUVAUS
Tällä funktiolla voit muuttaa haluamasi ikkunan otsikkopalkin aktiivista ja ei-aktiivista liukuväriä.

Voit asettaa värit myös oletusväreiksi seuraaville uusille ikkunoille.

Huom! Funktiolle ei kelpaa CoolBasicin värivakiot! Lisäksi ikkunan otsikkopalkin päivitys vaatii myös sen, että CoolBasicin piirtoväri muutetaan.

KÄYTTÖ
ChangeWindowHeadbarColors(id, r1,g1,b1, r2,g2,b2, ra1,ga1,ba1, ra2,ga2,ba2)
Id - Muutettavan ikkunan id. Voit korvata tämän myös ALL_WINDOWS-vakiolla, jolloin väreistä tulee oletusvärit.
r1,g1,b1 - Ei-aktiivisen liukuvärin se ääripää, joka tulee uloimmaksi koko ikkunassa.
r2,g2,b2 - Ei-aktiivisen liukuvärin se ääripää, joka tulee ikkunassa sisemmäksi.
ra1,ga1,ba1 - Aktiivisen liukuvärin se ääripää, joka tulee uloimmaksi koko ikkunassa.
ra2,ga2,ba2 - Aktiivisen liukuvärin se ääripää, joka tulee ikkunassa sisemmäksi.

Katso myös: ChangeWindowBorderColorsChangeWindowBackgroundColor

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