| KUVAUS |
| Tällä funktiolla voit muuttaa tietyn ikkunan otsikkopalkin tekstiä väreineen ja fontteineen. Voit myös asettaa tekstin värin oletusväriksi seuraaville uusille ikkunoille. Huom! CoolBasicin värivakiot eivät kelpaa tälle funktiolle! |
| KÄYTTÖ |
| ChangeWindowTitle(id, r,g,b, [fontti], [teksti]) |
| id - Muutettavan ikkunan id. Jos ALL_WINDOWS, niin otsikon väristä tulee oletusväri, ja valinnaiset parametrit eivät tee enää mitään. r,g,b - Otsikon uusi väri. fontti - Muistiin valmiiksi ladattu fonttimuuttuja. Jos nolla (niin kuin oletuksena), ikkunalla jo mahdollisesti olevaa fonttia ei vaihdeta. teksti - Uusi otsikkoteksti. Oletuksena tekstiä ei muuteta. |
Katso myös:
| ESIMERKKI |
SCREEN 800,600
Include "sdk/include/cbJanelas.cb"
Dim fontit(4)
fontit(0) = LoadFont("times new roman",16)
fontit(1) = LoadFont("times new roman",14, ON)
fontit(2) = LoadFont("arial",16,OFF,ON)
fontit(3) = LoadFont("arial black",16,OFF,OFF,ON)
fontit(4) = LoadFont("tahoma",14,ON,ON,ON)
w = NewWindow("Muuttuva otsikko",100,150,300,100)
Dim otsikot(4) As String
otsikot(0) = "Muuttunut otsikko"
otsikot(1) = "Hullu otsikko"
otsikot(2) = "Kokeilua"
otsikot(3) = "Näinhän täällä käy"
otsikot(4) = "guud"
DrawToWindow(w)
Color 255,255,255
Text 0,0, "Paina Enter muuttaaksesi otsikkoa."
DrawToScreen
Repeat
If KeyHit(cbkeyreturn) Then
r = Rand(0,255)
g = Rand(0,255)
b = Rand(0,255)
fontti = fontit(Rand(4))
otsikko$ = otsikot(Rand(4))
ChangeWindowTitle(w, r,g,b, fontti, otsikko)
End If
UpdateWindows()
DrawScreen
Forever |