From 83c6aa7374dccb5b5cf4eb1f87ee61b9a45cbbb5 Mon Sep 17 00:00:00 2001 From: mattias Date: Fri, 12 Apr 2013 14:40:01 +0000 Subject: [PATCH] LCL: simplify code for fpdoc git-svn-id: trunk@40798 - --- lcl/shellctrls.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lcl/shellctrls.pas b/lcl/shellctrls.pas index 4939209736..f725b88fe5 100644 --- a/lcl/shellctrls.pas +++ b/lcl/shellctrls.pas @@ -280,10 +280,10 @@ type const //ToDo: make it a resource string - SShellCtrlsInvalidRoot = 'Invalid pathname:'+^m+'"%s"'; - SShellCtrlsInvalidPath = 'Invalid pathname:'+^m+'"%s"'; - SShellCtrlsInvalidPathRelative = 'Invalid relative pathname:'+^m+'"%s"'+ - ^m+'in relation to rootpath:'+^m+'"%s"'; + SShellCtrlsInvalidRoot = 'Invalid pathname:'#13'"%s"'; + SShellCtrlsInvalidPath = 'Invalid pathname:'#13'"%s"'; + SShellCtrlsInvalidPathRelative = 'Invalid relative pathname:'#13'"%s"'#13 + +'in relation to rootpath:'#13'"%s"'; procedure Register;