Hello.
I'm trying to create some gui buttons for my application.
1) So i use 'DrawBox' for the button background and SetTextPosition for the caption.
But i don't know how to draw the box before the text ! My filled drawbox overlap the text !
Could you help me ?
Function Afficher_boutons(Num_ecran)
local i as Integer
local Couleur as Integer
local x as Integer
Local y as Integer
local h as integer
local l as integer
For i=0 to Boutons_tableau.Length
if Boutons_tableau[i].Num_ecran = Num_ecran
Couleur = MakeColor (255,255,255)
x = Boutons_tableau[i].x
y = Boutons_tableau[i].y
l = Boutons_tableau[i].Largeur
h = Boutons_tableau[i].Hauteur
DrawBox (x, y, x+l, y+h, Couleur, Couleur, Couleur, Couleur, FALSE)
inc x, 20
inc y, 20
SetTextVisible (1000 + Boutons_tableau[i].Id, TRUE)
SetTextPosition (1000 + Boutons_tableau[i].Id, x,y)
else
SetTextVisible (1000 + Boutons_tableau[i].Id, FALSE)
endif
Next i
EndFunction
2) Perhaps you have another idea. Is there a method to use an image (1x1 px), change the depth, and stretch it (how to)?
Many thanks!
