Página 1 de 1

Como redefinir un oImageList de un TOptionList en tiempo de ejcuación y no por el IDE?

Publicado: Mar Mar 16, 2010 12:22 am
por Carlos Ortiz
Tengo una pantalla en particular que no usa los iconos oImageList de una tOptionList general que tiene nuestro sistema, sino que quiero que aparte de cambiar los textos de los items y los metodos que llama pueda cambiar los iconos que los tengo dentro de un .rc.
WITH OBJECT Application:oMainForm
WITH OBJECT :oOpLstManten
:aItems := {}
WITH OBJECT :AddItem( "Apertura inicial",1 ) // Aca en lugar de 1 se puede pasar el nombre del bmp
:OnClick := "AperturaInicialZ"
END
WITH OBJECT :AddItem( "Agregar",1 )
:OnClick := "MantenAgregar"
END
WITH OBJECT :AddItem( "Cerrar",2 )
:OnClick := "CerrarZ"
END
END WITH
:oBarraLateral:refresh()
END WITH
o cómo se hace para redefinir los iconos con los iconos particulares de una pantalla que hereda de tFormFolder como en ejemplo de datacontrols 6.
Muchas gracias.
--