From dea25b8bc2f18a2a7a113a532e30b0b8be5c1040 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 9 Mar 2009 14:04:11 +0000
Subject: [PATCH] codetools: lfm parser: fixed FindProperty, thanks to Mazen

git-svn-id: trunk@18925 -
---
 components/codetools/lfmtrees.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/lfmtrees.pas b/components/codetools/lfmtrees.pas
index 0cbb004676..45e9ac9f86 100644
--- a/components/codetools/lfmtrees.pas
+++ b/components/codetools/lfmtrees.pas
@@ -508,7 +508,7 @@ begin
     Node:=Root
   else
     Node:=ContextNode.FirstChild;
-  p:=System.Pos(PropertyPath,'.');
+  p:=System.Pos('.',PropertyPath);
   FirstPart:=copy(PropertyPath,1,p-1);
   RestParts:=copy(PropertyPath,p+1,length(PropertyPath));
   while Node<>nil do begin