/trunk/FastPHPTreeView.pas |
---|
18,6 → 18,8 |
<DecreaseLevel> ::= "D" . |
<Exit> ::= "X" . |
<Icon(8)> ::= <Type(4)> <Attr(4)> . |
*) |
type |
142,6 → 144,7 |
lastTn := Self.Items.Add(nil, caption) |
else |
lastTn := Self.Items.AddChild(tn, caption); |
// lastTn.ImageIndex := // TODO |
lastTn.Data := Pointer(StrToInt(lineno)); // TODO: is this good? |
end |
else if typ = 'I' then // increase level |
155,9 → 158,12 |
end; |
except |
on E: EAbort do |
if tn = nil then |
exit |
else |
raise; |
else |
raise; |
end; |
end; |