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: ChangeWindowBorderColors, ChangeWindowBackgroundColor
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 |