Tekstin sijoittelu

Voit pyytää apua ohjelmointiongelmiin täältä.
Post Reply
FuJi
Member
Posts: 70
Joined: Tue Aug 28, 2007 3:09 pm

Tekstin sijoittelu

Post by FuJi » Fri Sep 28, 2007 8:47 pm

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.

User avatar
CCE
Artist
Artist
Posts: 650
Joined: Mon Aug 27, 2007 9:53 pm

Re: Tekstin sijoittelu

Post by CCE » Fri Sep 28, 2007 9:14 pm

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
Member
Posts: 70
Joined: Tue Aug 28, 2007 3:09 pm

Re: Tekstin sijoittelu

Post by FuJi » Fri Sep 28, 2007 9:41 pm

CCE wrote: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.

User avatar
Pie2
Member
Posts: 55
Joined: Mon Aug 27, 2007 8:14 pm
Location: Porvoo

Re: Tekstin sijoittelu

Post by Pie2 » Sat Sep 29, 2007 8:31 pm

Myöskin CnterText on hyvä komento, tosin bugaa joskus erikoisia fontteja käytettäessä.
Since 24-March 05

Post Reply