Ejemplo controles Windev

[Dasije]

Es un ejemplo compilado con Windev 21, para que podáis ver el resultado de como funciona los controles.

https://www.dropbox.com/s/0kv24pz9lndikot/Controles_Windev.rar?dl=0


Kuk, Fito, JRBonafonte, Nitzer,

[Hrmcobol]

Muy Bueno !!

[JRBonafonte]

Hola Julio.
No he podido verlo ya que tengo el Windev 18, y no deja abrirlo, cuando estés por el Skype ya lo te comento.

[Hrmcobol]

Hola Dasije, podrías poner como es el código !!
Saludos

[Dasije]

Condiciones y estado de botones:

// Activar/Desactivar un botón, es con la propiedad Grayed

IF BTN_BUTTON6..Grayed=False THEN
BTN_BUTTON6..Grayed=True
RETURN
END

IF BTN_BUTTON6..Grayed=True THEN
BTN_BUTTON6..Grayed=False
RETURN
END

// Para evitar que siga el código/procedimiento utilizar RETURN para salir de él

Cargar valores a una tabla:


// Borra todas las líneas de la tabla

TableDeleteAll(TABLA_1)

// Ejemplo de uso: Tableaddline(nombre objeto, valor columna 1, valor columna 2, etc...)

TableAddLine(TABLA_1,1,True,("Prueba 1"))
TableAddLine(TABLA_1,2,False,("Prueba 2"))
TableAddLine(TABLA_1,3,True,("Prueba 3"))
TableAddLine(TABLA_1,99,True,("Prueba 99"))

// Ir el foco a la tabla

SetFocus(TABLA_1)

Correr barra de proceso:


PROGBAR_1..Value=0
LOOP
PROGBAR_1..Value=PROGBAR_1..Value+1
Wait(1,waitRedraw)
IF PROGBAR_1..Value=100 THEN BREAK
END

Preparar y crear una gráfica:


// Borra el contenido de la gráfica

grDeleteAll(CHART_1)

// Asigna un título a la gráfica y configura su orientación

grTitle(CHART_1,"Operaciones por secciones en euros",grAtTop)

// Crea el tipo de gráfica

grCreate(CHART_1,grPie,False)

// Configura la orientación del cuadro de la leyenda

grLegend(CHART_1,grAtRight)

// Asigna las descripciones de cada categoría

grCategoryLabel(CHART_1,1,"Ventas")
grCategoryLabel(CHART_1,2,"Compras")
grCategoryLabel(CHART_1,3,"Intercambios")

// Asigna valores a cada categoría

grAddData(CHART_1,1,1,1293.75)
grAddData(CHART_1,1,2,130.00)
grAddData(CHART_1,1,3,807.00)

// Dibuja la gráfica

grDraw(CHART_1)

Os tiene que interesar: Fito, Nitzer, JRBonafonte,