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 |