Tekstin sijoittelu

[FuJi]

Kun minulla on nappi, johon tulee tektiä ja haluaisin sen tektin keskelle sitä nappia. Miten tämä onnistuisi?
Olen tällaista yrittänyt tehdä, mutta ei ole onnistunut. Tässä vielä sen napin funktio:

Code: Select all

Function Button(x,y,txt$)
    fontti = LoadFont("Impact",25)
    SetFont fontti
    w = TextWidth(txt$)+100
    h = TextHeight(txt$)+10
    If MouseX()>x And MouseY()>y And MouseX()<x+w+4 And MouseY()<y+h+4 Then a=1
    If a Then Color 225,225,225 Else Color 255,255,255
    Box x,y,w+4,h+4
    Color 0,0,0
    Box x,y,w+4,h+4, 0
    Box x-1,y-1,w+6,h+6, 0
    Text x+w/2-TextWidth(txt$),y+h/2-textheight(txt$), txt$
    If a And MouseHit(1) Then Return 1
EndFunction

Tuossa tekstin sijoittelussa on nyt jotain väärin.

[CCE]

Tätäkö tarkoitit?

Code: Select all

Function Button(x,y,txt$)
    fontti = LoadFont("Impact",25)
    SetFont fontti
    w = TextWidth(txt$)+100
    h = TextHeight(txt$)+10
    If MouseX()>x And MouseY()>y And MouseX()<x+w+4 And MouseY()<y+h+4 Then a=1
    If a Then Color 225,225,225 Else Color 255,255,255
    Box x,y,w+4,h+4
    Color 0,0,0
    Box x,y,w+4,h+4, 0
    Box x-1,y-1,w+6,h+6, 0
    Text x+w/2-TextWidth(txt$)/2,y+h/2-TextHeight(txt$)/2, txt$
    If a And MouseHit(1) Then Return 1
EndFunction

[FuJi]

Tätäkö tarkoitit?

Code: Select all

Function Button(x,y,txt$)
    fontti = LoadFont("Impact",25)
    SetFont fontti
    w = TextWidth(txt$)+100
    h = TextHeight(txt$)+10
    If MouseX()>x And MouseY()>y And MouseX()<x+w+4 And MouseY()<y+h+4 Then a=1
    If a Then Color 225,225,225 Else Color 255,255,255
    Box x,y,w+4,h+4
    Color 0,0,0
    Box x,y,w+4,h+4, 0
    Box x-1,y-1,w+6,h+6, 0
    Text x+w/2-TextWidth(txt$)/2,y+h/2-TextHeight(txt$)/2, txt$
    If a And MouseHit(1) Then Return 1
EndFunction

Kiitos. Juuri tätä tarkoitin.

[Pie2]

Myöskin CnterText on hyvä komento, tosin bugaa joskus erikoisia fontteja käytettäessä.