REALbasic est un langage de programmation orienté objet , généralement rédigés dans un logiciel appelé Real Studio . En utilisant le langage REALbasic , les utilisateurs peuvent créer une grande variété de programmes aussi complexes que leur propre jeu vidéo ou aussi simple que leurs propres boutons personnalisés . Cependant, même la création de quelque chose comme un bouton peut avoir un look unique. Par exemple , à l'aide de quelques lignes de code dans Real Studio , un effet 3- D peut être créé qui simule un bouton est poussé vers le bas dans le fond . Instructions
1

Situer les images que vous souhaitez utiliser pour votre touche 3 -D . Vous devez avoir au moins deux: un pour représenter lorsque le bouton n'est pas enfoncé , et un autre pour représenter lorsque le bouton est enfoncé. Renommez ces images " PicButtonUp " et " PicButtonDown », respectivement .
2

Ouvert Real Studio et démarrer un nouveau projet . Ce sera le cas par défaut si vous ne spécifiez pas un projet pour l'ouvrir . Glissez et déposez les deux images dans l'espace blanc au centre du programme.
3

Vérifiez que vous disposez de l'onglet " Window1 " sélectionné dans la partie supérieure de l'écran. Cliquez et faites glisser "Canvas" dans la liste à gauche de l'écran pour le grand espace blanc au centre . Il apparaîtra comme une boîte bleue , et quand vous le voyez , double -cliquez dessus.
4

Appuyez sur le bouton «Ajouter la propriété " , situé en haut à droite de l'écran. Dans la barre qui apparaît écrire " mstate " dans le premier espace blanc, "String" dans le second, et "haut" dans la troisième . Ajoutez deux propriétés , l'une avec " mDownImage " dans le premier espace blanc et " image" dans le second, et l'autre avec " mUpImage " dans le premier espace blanc et " image" dans le second.

5

Sélectionnez "Paint " dans la liste à gauche et coller le code suivant dans l'espace blanc au centre du programme.

Select Case mStatecase "up" si mUpImage < > nil thenme.Graphics.DrawPicture mUpImage , 0, 0End ifcase "bas" si mDownImage <> thenme.Graphics.DrawPicture nul mDownImage , 0, 0End ifend SelectEnd subsub Draw ( ) Select Case mStatecase "up" si mUpImage <> thenme.Graphics.DrawPicture nul mUpImage , 0, 0End ifcase "bas" si mDownImage <> thenme.Graphics.DrawPicture nul mDownImage , 0, 0End ifend Select
6

Sélectionnez "Ouvrir" dans la liste de

mstate = "up" mDownImage = PicButtonDownmUpImage = PicButtonUp
7 gauche et coller le code suivant dans l'espace blanc au centre du programme.

Cliquez sur " MouseDown " dans la liste à gauche, puis collez le code suivant dans l'espace blanc au centre du programme.

mstate = "down" Select Case mStatecase "up" si mUpImage <> thenme.Graphics.DrawPicture nul mUpImage , 0, 0End ifcase "bas" si mDownImage <> thenme.Graphics.DrawPicture nul mDownImage , 0, 0End ifend Selectreturn vrai
8 < p> Sélectionnez " MouseUp " dans la liste à gauche et coller le code suivant dans l'espace blanc au centre du programme; . cela va compléter votre touche 3 -D

si x > 0 et x < largeur et y> 0 et y < Hauteur ensuite curseur //souris à l'intérieur buttonmState = "up" Case ifSelect de fin mStatecase "up" si mUpImage <> thenme.Graphics.DrawPicture nul mUpImage , 0, ifcase 0End "bas" si mDownImage <> thenme.Graphics.DrawPicture nul mDownImage , 0, 0End ifend Select