REALbasic er et objektorientert programmeringsspråk vanligvis skrevet i en programvarepakke kalt Fast Studio. Bruke REALbasic språk, kan brukerne skape et bredt spekter av programmer så komplisert som sitt eget videospill eller så enkelt som sine egne knapper . Imidlertid kan selv skape noe som en knapp har et unikt utseende . For eksempel bruker noen få linjer med kode i ekte Studio , kan en 3D-effekt bli opprettet som simulerer en knapp blir presset ned i bakgrunnen. Instruksjoner
en

Finn de bildene du ønsker å bruke for 3 - D-knappen . Du trenger minst to: en til å representere når knappen ikke er trykket , og en annen til å representere når knappen trykkes ned. Endre navn på disse bildene " PicButtonUp " og " PicButtonDown , " hhv.
2

Åpen Ekte Studio og starte et nytt prosjekt . Dette vil skje som standard hvis du ikke angir et prosjekt for å åpne . Dra og slipp de to bildene i det hvite området i sentrum av programmet .
3

Kontroller at du har " window1 "-kategorien valgt nær toppen av skjermen . Klikk og dra " Canvas " fra listen på venstre side av skjermen til det store hvite området i sentrum . Den vil vises som en blå boks , og når du ser det , dobbeltklikker du den.
4

Trykk på " Add Property" knappen øverst til høyre på skjermen. I baren som vises skrive " mState " i den første hvite mellomrom, " String " i andre , og "opp" i den tredje. Legg til to flere eiendommer , en med " mDownImage " i den første mellomrommet og "bilde" i den andre , og en med " mUpImage " i den første hvite området og " bilde " i andre .

5

Velg " Paint " fra listen til venstre og lim inn følgende kode i det hvite området i sentrum av programmet .

Velg sak mStatecase "opp" hvis mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase "ned" hvis mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end IfEnd SelectEnd SubSub Draw ( ) Velg sak mStatecase "opp" hvis mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase "ned" hvis mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end IfEnd Select
6

Velg "Open" fra listen til venstre og lim inn følgende kode i det hvite området i sentrum av programmet .

mState = "opp" mDownImage = PicButtonDownmUpImage = PicButtonUp
7

Klikk " mousedown " fra listen til venstre, og lim inn følgende kode inn i det hvite området i sentrum av programmet .

mState = "ned " Select sak mStatecase "opp" hvis mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase "ned" hvis mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end IfEnd Selectreturn sant
8 < p> Velg " mouseup " fra listen til venstre og lim inn følgende kode i det hvite området i sentrum av programmet; . dette vil fullføre 3 - D-knappen

hvis x> 0 og x < Bredde og y > 0 og y < Høyde deretter //musepekeren inne buttonmState = " opp " end ifSelect sak mStatecase "opp" hvis mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase "ned" hvis mDownImage < > nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end IfEnd Select