CoolBasic SDK

ChangeWindowTitle

Include "cbJanelas.cb"

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