TreeView 'raise' messages do not look nice
- Lazarus/FPC Version: today's last dev version
What happens
lcl/include/treeview.inc:
TreeNodeError('TTreeNodes.GetSelections Index '+IntToStr(AIndex)
+' out of bounds (Count='+IntToStr(FSelection.Count)+')');
TreeNodeError('TTreeNodes.GetNodeFromIndex Index '+IntToStr(Index)
+' out of bounds (Count='+IntToStr(FCount)+')');
TreeViewError('TTreeStrings.Add: Invalid level, Level='+IntToStr(Level)
+' OldLevel='+IntToStr(OldLevel));
TreeViewError('TTreeStrings.Add: Invalid level, Node=nil I='+IntToStr(I)
+' Level='+IntToStr(Level));
else TreeViewError('TTreeStrings.LoadTreeFromStream: Level='
+IntToStr(ALevel)+' CuurStr="'+CurrStr+'"');
I suggest to use Format() here.