2008-10-09 18:19 UTC
Initilize:
(dcl_Grid_Clear (vl-doc-ref 'EspaciosTiempos_EPInsert_Grid1))
(dcl_Grid_AddColumns (vl-doc-ref 'EspaciosTiempos_EPInsert_Grid1)
(list (list "Fechas:" 0 100)
(list "Proyecto" 0 100)
(list "Diagrama" 0 100)))
(setq listIndex
(list (dcl_Grid_AddString (vl-doc-ref 'EspaciosTiempos_EPInsert_Grid1)
(strcat "Inicio de Obra" "," FECHAI "," FECHAIEP) ",")
(dcl_Grid_AddString (vl-doc-ref 'EspaciosTiempos_EPInsert_Grid1)
(strcat "Final de Obra" "," FECHAF "," FECHAFEP) ",")
))
(mapcar (function (lambda (idx)
(dcl_Grid_SetItemStyle (vl-doc-ref 'EspaciosTiempos_EPInsert_Grid1) idx 1 15)
(dcl_Grid_SetItemStyle (vl-doc-ref 'EspaciosTiempos_EPInsert_Grid1) idx 2 0)
)) listIndex)
Use:
If you activate the calendar and we use the keyboard changes the values in the Item, but if you activate the calendar we use the mouse and the item loses focus and does not change its value ..
Visual example:
(dcl_Grid_Clear (vl-doc-ref 'EspaciosTiempos_EPInsert_Grid1))
(dcl_Grid_AddColumns (vl-doc-ref 'EspaciosTiempos_EPInsert_Grid1)
(list (list "Fechas:" 0 100)
(list "Proyecto" 0 100)
(list "Diagrama" 0 100)))
(setq listIndex
(list (dcl_Grid_AddString (vl-doc-ref 'EspaciosTiempos_EPInsert_Grid1)
(strcat "Inicio de Obra" "," FECHAI "," FECHAIEP) ",")
(dcl_Grid_AddString (vl-doc-ref 'EspaciosTiempos_EPInsert_Grid1)
(strcat "Final de Obra" "," FECHAF "," FECHAFEP) ",")
))
(mapcar (function (lambda (idx)
(dcl_Grid_SetItemStyle (vl-doc-ref 'EspaciosTiempos_EPInsert_Grid1) idx 1 15)
(dcl_Grid_SetItemStyle (vl-doc-ref 'EspaciosTiempos_EPInsert_Grid1) idx 2 0)
)) listIndex)
Use:
If you activate the calendar and we use the keyboard changes the values in the Item, but if you activate the calendar we use the mouse and the item loses focus and does not change its value ..
Visual example:
