2008-10-06 14:13 UTC
OpenDCL Version 5.0.0.25 ENU
ListView Problems:
dcl_ListView_SortTextItems not ordered the images of the ListView ..
Example:
ColumnClick event:
(defun c:2DrawArch_MemCarp_ListView1_OnColumnClick (nColumn / Fila TextAct Pos)
(if (and (setq Fila (car (dcl_ListView_GetSelectedNths 2DrawArch_MemCarp_ListView1)))
(>= Fila 0))
(Setq TextAct (dcl_ListView_GetItemText 2DrawArch_MemCarp_ListView1 Fila 0))
)
;$SortColsDat$ (t = Ascending, nil = Descending)
(setq $SortColsDat$ (not $SortColsDat$))
(dcl_ListView_SortTextItems 2DrawArch_MemCarp_ListView1 nColumn $SortColsDat$)
;;Seleccionar item actual
(if (and TextAct
(Setq Pos (vl-position TextAct
(dcl_ListView_GetColumnItems 2DrawArch_MemCarp_ListView1 0))))
(dcl_ListView_SetCurSel 2DrawArch_MemCarp_ListView1 Pos)
);c.if
)
Is this a BUG?
¿Solution?
?????????
ListView Problems:
dcl_ListView_SortTextItems not ordered the images of the ListView ..
Example:
ColumnClick event:
(defun c:2DrawArch_MemCarp_ListView1_OnColumnClick (nColumn / Fila TextAct Pos)
(if (and (setq Fila (car (dcl_ListView_GetSelectedNths 2DrawArch_MemCarp_ListView1)))
(>= Fila 0))
(Setq TextAct (dcl_ListView_GetItemText 2DrawArch_MemCarp_ListView1 Fila 0))
)
;$SortColsDat$ (t = Ascending, nil = Descending)
(setq $SortColsDat$ (not $SortColsDat$))
(dcl_ListView_SortTextItems 2DrawArch_MemCarp_ListView1 nColumn $SortColsDat$)
;;Seleccionar item actual
(if (and TextAct
(Setq Pos (vl-position TextAct
(dcl_ListView_GetColumnItems 2DrawArch_MemCarp_ListView1 0))))
(dcl_ListView_SetCurSel 2DrawArch_MemCarp_ListView1 Pos)
);c.if
)
Is this a BUG?
¿Solution?
?????????