Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 32 → Rev 33

/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;