| 87 |
|
//VST |
| 88 |
|
VST.Clear; |
| 89 |
|
VST.BeginUpdate; |
| 90 |
< |
root := ConManager.Connection[FConnectionID].MetaData.Root; |
| 90 |
> |
// root := ConManager.Connection[FConnectionID].MetaData.Root; |
| 91 |
> |
root := ConManager.Connection[FConnectionID].MetaData.FileById[454]; |
| 92 |
|
for i := 0 to root.ChildCount - 1 do |
| 93 |
|
begin |
| 94 |
|
data.Field := root.Child[i]; |
| 111 |
|
begin |
| 112 |
|
data := Sender.GetNodeData(node); |
| 113 |
|
Meta := ConManager.Connection[ConnectionID].MetaData; |
| 113 |
– |
if data.Field is TExtension then |
| 114 |
– |
if TExtension(data.Field).ChildCount = 0 then |
| 115 |
– |
TExtension(data.Field).InitList; |
| 114 |
|
|
| 115 |
|
if data.Field.ChildCount > 0 then |
| 116 |
|
begin |
| 202 |
|
if Data.Field is TFile then |
| 203 |
|
CellText := IntToStr(TFile(Data.Field).FileInfo.ID); |
| 204 |
|
end; |
| 205 |
+ |
3: |
| 206 |
+ |
begin |
| 207 |
+ |
if Data.Field is TDataField then |
| 208 |
+ |
CellText := TDataField(Data.Field).ValueAsString; |
| 209 |
+ |
end; |
| 210 |
|
end; |
| 211 |
|
end; |
| 212 |
|
end; |