San Pedro Alcantara
Tengo el siguiente codigo que me crea una serie de botones:
PUBLIC PROCEDURE BotonesArticulos(Rs AS Result)
DIM X AS Integer = 10 ' Establecemos la posicion inicial de los botones.
DIM Y AS Integer = 10 '
DIM i AS Integer ' Contador de botones.
DIM btnArticulo AS ToolButton ' creamos el boton del articulo.
'Me muevo al primero
Rs.MoveFirst
'Consultamos el numero de articulos de una categoria concreta, y creamos tantos botones como articulos haya.
FOR i = 0 TO Rs.Count - 1
btnArticulo = NEW ToolButton(FTPV.VisorArticulos) AS "btnArticulo"
'Si el boton que voy a poner está en una posicion mayor del ancho del visor de articulos, vuelvo a empezar una linea mas abajo.
IF X >= FTPV.VisorArticulos.Width THEN
X = 10
Y += 110
ENDIF
btnArticulo.X = X
btnArticulo.Y = Y
btnArticulo.W = 150
btnArticulo.H = 100
btnArticulo.Border = TRUE
btnArticulo.Text = Rs["NombreArticulo"]
btnArticulo.Name = Rs["id"]
X += 160
Rs.MoveNext
NEXT
END
DIM X AS Integer = 10 ' Establecemos la posicion inicial de los botones.
DIM Y AS Integer = 10 '
DIM i AS Integer ' Contador de botones.
DIM btnArticulo AS ToolButton ' creamos el boton del articulo.
'Me muevo al primero
Rs.MoveFirst
'Consultamos el numero de articulos de una categoria concreta, y creamos tantos botones como articulos haya.
FOR i = 0 TO Rs.Count - 1
btnArticulo = NEW ToolButton(FTPV.VisorArticulos) AS "btnArticulo"
'Si el boton que voy a poner está en una posicion mayor del ancho del visor de articulos, vuelvo a empezar una linea mas abajo.
IF X >= FTPV.VisorArticulos.Width THEN
X = 10
Y += 110
ENDIF
btnArticulo.X = X
btnArticulo.Y = Y
btnArticulo.W = 150
btnArticulo.H = 100
btnArticulo.Border = TRUE
btnArticulo.Text = Rs["NombreArticulo"]
btnArticulo.Name = Rs["id"]
X += 160
Rs.MoveNext
NEXT
END
El caso, es que segun voy cambiando de categoria, voy cambiando el Rs que le paso a esa funcion, y me vá mostrando los articulos de las otras categorias.... pero como no borro antes los botones que ya habia... me superpone unos a otros....
