Page 1 of 1

fold transparentes

Posted: Fri Dec 22, 2006 1:25 pm
by Elias Torres
Hola a todos...

Alguien puede decirme como hacer transparentes las dos fold que tengo declaradas para que parezca que está encima del fondo?? El fondo no es una imagen sino que le he dado un color a la pantalla....

DEFINE WINDOW oWnd1 TITLE "Configuración"

@ 3, 1 FOLDER oFld PROMPTS "Parámetros", "Sistema" ;
SIZE 225, 150

@ 2, 1 SAY "Codigo PDA" OF oFld:aDialogs[ 1 ] SIZE 70, 15
@ 2, 10 GET oCod_pda var (cAliasVector)->codpda OF oFld:aDialogs[ 1 ] SIZE 130, 21
@ 3.6, 1 SAY "Aplicación" OF oFld:aDialogs[ 1 ] SIZE 70, 15
@ 4, 10 GET oAplic var (cAliasVector)->aplicacion OF oFld:aDialogs[ 1 ] SIZE 130, 21
@ 5.4, 1 SAY "Almacen" OF oFld:aDialogs[ 1 ] SIZE 70, 15
@ 6, 10 GET oAlmacen var (cAliasVector)->almacen OF oFld:aDialogs[ 1 ] SIZE 130, 21
@ 7.1, 1 SAY "Lista Precios" OF oFld:aDialogs[ 1 ] SIZE 70, 15
@ 8, 10 GET oPrecios var (cAliasVector)->lista_pvp OF oFld:aDialogs[ 1 ] SIZE 130, 21


// Second page

@ 2, 1 SAY "Dirección IP" OF oFld:aDialogs[ 2 ] SIZE 70, 15
@ 2, 10 GET oIP var (cAliasVector)->ip_equipo OF oFld:aDialogs[ 2 ] SIZE 130, 21
@ 3.6, 1 SAY "Nombre del Equipo" OF oFld:aDialogs[ 2 ] SIZE 70, 15
@ 4, 10 GET oNombreEq var (cAliasVector)->equipo OF oFld:aDialogs[ 2 ] SIZE 130, 21

oWnd1:setcolor(RGB(1,1,1),RGB(230,184,94))

ACTIVATE WINDOW oWnd1


Saludos

Elías Torres.

Posted: Fri Dec 22, 2006 3:06 pm
by Antonio Linares
Elias,

Has probado a darle color al folder con oFld:SetColor( ... ) ?

Posted: Fri Dec 22, 2006 5:24 pm
by Elias Torres
Antonio,

Gracias... Como no me di cuenta antes....

Saludos.

Elías Torres.