Hello
I'm porting HeiziSQL to Lazarus and somehow TVirtualTreeColumns/TCollection don't have property Count in runtime:
List.Header.Columns.Count
In the watch list List.Header.Columns is really a TVirtualTreeColumns which derive from TCollection which should have property Count.
Also there is List.Header.Columns.FITEMS which indicate that there is something:
<TFPLIST> = {
<TOBJECT> = {
_vptr$TOBJECT = $c77c28},
FLIST = $11cf988,
FCOUNT = 1,
FCAPACITY = 4,
CAPACITY = 4,
COUNT = 1,
LIST = $11cf988}
So how it possible that there are no COUNT?
Evaluate of List.Header.Columns is:
<TVIRTUALTREECOLUMNS> = {
<TCOLLECTION> = {
<TPERSISTENT> = {
<TOBJECT> = {
_vptr$TOBJECT = $df0c38},
FOBSERVERS = $0},
FITEMCLASS = $df0fa8,
FITEMS = $11cf1c8,
FUPDATECOUNT = 0,
FNEXTID = 1,
FPROPNAME = $0,
UPDATECOUNT = 0,
ITEMCLASS = $df0fa8},
FHEADER = $11cf068,
FHEADERBITMAP = $11cf1f8,
FHOVERINDEX = -1,
FDOWNINDEX = -1,
FTRACKINDEX = -1,
FCLICKINDEX = -1,
FCHECKBOXHIT = false,
FPOSITIONTOINDEX = $11cf9c8,
FDEFAULTWIDTH = 50,
FNEEDPOSITIONSFIX = false,
FCLEARING = false,
FDRAGINDEX = 0,
FDROPTARGET = -1,
FDROPBEFORE = false,
HEADERBITMAP = $11cf1f8,
POSITIONTOINDEX = $11cf9c8,
HOVERINDEX = -1,
DOWNINDEX = -1,
CHECKBOXHIT = false,
CLICKINDEX = -1,
DEFAULTWIDTH = 50,
HEADER = $11cf068,
TRACKINDEX = -1}