[Duda] Lista de Objetos ...

[Chantiel]

Saludos gente,

tengo una duda de programacion. Tengo un array de objetos y quisiera que todos obtuviesen la propiedad de Disable().

lista:= {oGet1,oGet2,oGet3,....}

He intentado varias cosas pero no me han funcionado:

- Utilizar un bucle for asignando a cada valor del array la propiedad Disable().

Code: Select all  Expand view  RUN

for i:= 1 to n
    lista[i]:= Disable()
next


- Asignar de alguna manera a la variable lista directamente la propiedad.

Code: Select all  Expand view  RUN

lista:= Disable()


Tambien quisiera saber como modificar la propiedad de uno de los objetos en especifico de la lista, y si hay alguna forma de hacer un Refresh() de los mismos.


Muchas gracias por adelantado.


Nos leemos!!

[DanielPuente]

Chantiel:

La primer manera que comentas deberia funcionar:

lista[i]:= Disable()

Solo asegurate que la asignacion en el vector se haga DESPUES de que los objetos esten definidos y que el isable() se haga en el lugar adecuado, cuando ya esten creados, por ejemplo al activar el dialogo. Toma cualquier prg y hace algo como lo siguiente:

Local lista:={}

REDEFINE GET oFecha VAR vFecha ID 102 FONT oFont2 of oDlg COLOR CLR_BLACK,RGB(255,255,168)
REDEFINE GET oAtiende VAR cAtiende PICTURE "@Z 99" ID 101 FONT oFont of oDlg

REDEFINE GET oCliente VAR vCliente PICTURE "@z 999999" ID 103 of oDlg FONT oFont

LISTA:={oFecha,oAtiende,oCliente}

ACTIVATE DIALOG oDlg CENTERED ON INIT (Lista[1]:Disable(),Lista[2]:Disable(),Lista[3]:Disable())

Y al activar el dialogo veras los tres gets deshabilitados.

Saludos,

[Chantiel]

Muchas gracias Daniel,

lo probare y te dire que tal va.



Nos leemos!!