These 'raise' messages do not look nice

[AlexTP]

lcl/include/treeview.inc

Code: Pascal  [Select][+][-]

1.     TreeNodeError('TTreeNodes.GetSelections Index '+IntToStr(AIndex)
2.         +' out of bounds (Count='+IntToStr(FSelection.Count)+')');
3.  
4.     TreeNodeError('TTreeNodes.GetNodeFromIndex Index '+IntToStr(Index)
5.            +' out of bounds (Count='+IntToStr(FCount)+')');
6.  
7.       TreeViewError('TTreeStrings.Add: Invalid level, Level='+IntToStr(Level)
8.         +' OldLevel='+IntToStr(OldLevel));
9.  
10.         TreeViewError('TTreeStrings.Add: Invalid level, Node=nil I='+IntToStr(I)
11.           +' Level='+IntToStr(Level));
12.  
13.       else TreeViewError('TTreeStrings.LoadTreeFromStream: Level='
14.         +IntToStr(ALevel)+' CuurStr="'+CurrStr+'"');
15.  

I suggest to use Format() here.

[Bart]

Can you open a bugreport and add a patch?
It also strikes me that the messages are hardcoded (so not translatable).

Bart

[AlexTP]

Created the bug report.


[Edited to add bug link.]