Tekstin sijoittelu
Posted: 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:
Tuossa tekstin sijoittelussa on nyt jotain väärin.
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