Xailer forum

Hola
Estoy tratando de utilizar un pequeño ComboBoxEx para seleccionar el Idioma, pero no me muestra nada en el control. La rutina es la siguiente:
METHOD FormInitialize( oSender ) CLASS TForm0101E
WITH OBJECT ::oComboBoxEx1
WITH OBJECT :oImageList
:Add( "Espanol" )
:Add( "Ingles" )
END
// AddItem( cString, cBitmap, nIndent, nSelectedImage )
:AddItem( "Español","Espanol.Bmp",,1 )
:AddItem( "Inglés" ,"Ingles.Bmp" ,,2 )
END
RETURN Nil
Agradezco cualquier ayuda.
--
Saludos

Raúl Eduardo Cárdenas S.
Law & Accounting System's, Inc.
Gerente General
Celular: (507) 672-8838
Email: rcardenas@fgs2002.com
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.802 / Virus Database: 545 - Release Date: 11/26/2004
--

Raúl,
en vez de:
:AddItem( "Español","Espanol.Bmp",,1 )
:AddItem( "Inglés" ,"Ingles.Bmp" ,,2 )
prueba:
:AddItem( "Español",,, 1 )
:AddItem( "Ingles",,, 2 )
--
Un saludo,
José F. Giménez
--

Jose F.
Me hace lo mismo, no mustra nada
--
Saludos

Raúl Eduardo Cárdenas S.
Law & Accounting System's, Inc.
Gerente General
Celular: (507) 672-8838
Email: rcardenas@fgs2002.com
"José F. Giménez" <jfgimenez@wanadoo.es> escribió en el mensaje news:41adbeda$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
Raúl,
en vez de:
:AddItem( "Español","Espanol.Bmp",,1 )
:AddItem( "Inglés" ,"Ingles.Bmp" ,,2 )
prueba:
:AddItem( "Español",,, 1 )
:AddItem( "Ingles",,, 2 )
--
Un saludo,
José F. Giménez
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.802 / Virus Database: 545 - Release Date: 11/26/2004
--

Raúl,
parece que hay algún bug dentro de la clase. Esta tarde intentaré revisarla. Mientras tanto, prueba simplemente con esto:
METHOD FormInitialize( oSender ) CLASS TForm0101E
WITH OBJECT ::oComboBoxEx1
:AddItem( "Español","Espanol.Bmp" )
:AddItem( "Inglés" ,"Ingles.Bmp" )
:nIndex := 1
END
RETURN Nil
--
Un saludo,
José F. Giménez
--

José F.
SIgue Igual, solo muestra la palabra "Español" pero no permite cambiar ni moverse.
--
Saludos

Raúl Eduardo Cárdenas S.
Law & Accounting System's, Inc.
Gerente General
Celular: (507) 672-8838
Email: rcardenas@fgs2002.com
"José F. Giménez" <jfgimenez@wanadoo.es> escribió en el mensaje news:41aef16f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
Raúl,
parece que hay algún bug dentro de la clase. Esta tarde intentaré revisarla. Mientras tanto, prueba simplemente con esto:
METHOD FormInitialize( oSender ) CLASS TForm0101E
WITH OBJECT ::oComboBoxEx1
:AddItem( "Español","Espanol.Bmp" )
:AddItem( "Inglés" ,"Ingles.Bmp" )
:nIndex := 1
END
RETURN Nil
--
Un saludo,
José F. Giménez
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.804 / Virus Database: 546 - Release Date: 11/30/2004
--

Raúl,
por favor, utiliza la opción "Publicar proyecto" del menú "Proyecto" y
envíame el fichero .zip.
NOTA: Antes de enviármelo, por favor, incluye los bitmaps dentro del .zip
--
Un saludo,
José F. Giménez