Ejemplo de codigo Combobox en ButtonBar
Posted: Thu May 23, 2019 5:57 pm
Hola amigos:
Bueno pues eso me gustaria un ejemplo de codigo de como colocais un Combobox en un BUTTONBAR ,
yo lo hago asi.
El problema , es estetico ya que no se ajusta perfectamente a la BUTTONBAR , las coordenadas estan sacadas de prueba error.
¿Vosotros como lo calculais, ? ¿Como lo haceis?
Bueno pues eso me gustaria un ejemplo de codigo de como colocais un Combobox en un BUTTONBAR ,
yo lo hago asi.
- Code: Select all Expand view
DEFINE BUTTONBAR oBar SIZE 36, 36 3D OF oWndTrab CURSOR oCursor
DEFINE BUTTON RESOURCE "ADD1" OF oBar GROUP;
ACTION (EditTraba(.T.),Trabaw:Refresh()) TOOLTIP "Añadir nuevo registro" NOBORDER;
MESSAGE "Añadir nuevo registro"
// Mas codigo
// COMBOBOX
@ .31, 59.4 COMBOBOX oCombo VAR cCombo ITEMS aCombo ;
ON CHANGE IndexTraba(Trabaw) ;
SIZE 125, 120 FONT oFsSerif COLOR CLR_BLACK,NIL ;
MESSAGE "Cambia el indice de ordenación" WHEN Trab->(LastRec())>0 OF oBar
El problema , es estetico ya que no se ajusta perfectamente a la BUTTONBAR , las coordenadas estan sacadas de prueba error.
¿Vosotros como lo calculais, ? ¿Como lo haceis?