Code: Select all
Procedure SetVScrollPosition_()
Define.f ScrollPos
If IsGadget(ListEx()\VScrollNum)
ScrollPos = ListEx()\Row\Offset
If ScrollPos > ListEx()\VScroll\MaxPos : ScrollPos = ListEx()\VScroll\MaxPos : EndIf
ListEx()\VScroll\Position = ScrollPos
SetGadgetState(ListEx()\VScrollNum, ScrollPos)
If ListEx()\Focus : SelectElement(ListEx()\Rows(), ListEx()\Row\Focus) : EndIf
EndIf
EndProcedure
If ListEx()\Focus : SelectElement(ListEx()\Rows(), ListEx()\Row\Focus) : EndIf
if is commened -> all Ok.
Got this error, after this code:
Code: Select all
ListEx::ClearItems(#List) ; !!!!!!!!!!!
ForEach ScanList()
ListEx::AddItem(#List, ListEx::#LastItem, #LF$ + ............ )
Next
ListEx::Sort(#List, 4, ListEx::#Sort_Descending, ListEx::#SortTime) ; ??????????
[ERROR] SelectElement(): SelectElement(): index value can Not be negative.
without "ListEx::ClearItems(#List)" Or "without ListEx::Sort(#List, ...)" - no error
and How to set ProgressBar Font (percent) ???? can you try ?
... and if I set 2 columns with buttons or last column is buttons .. buttons not work.