From 99c23d89c73ecc88b3111da340b45ca1e6a394be Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Sat, 15 May 2010 15:48:07 +0000
Subject: [PATCH] IDE: fix grid columns localization via .lrt/.po (use
 TPersistent.GetNamePath for string ID). Bug #15180.

git-svn-id: trunk@25431 -
---
 ide/main.pp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index 457d0f773e..2a53da8fd5 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -5056,7 +5056,7 @@ procedure TLRTGrubber.Grub(Sender: TObject; const Instance: TPersistent;
   PropInfo: PPropInfo; var Content: string);
 var
   LRSWriter: TLRSObjectWriter;
-  Path: String;
+  Path, WriterRootPath: String;
 begin
   if not Assigned(Instance) then exit;
   if not Assigned(PropInfo) then exit;
@@ -5064,7 +5064,8 @@ begin
   Path:='';
   if Writer.Driver is TLRSObjectWriter then begin
     LRSWriter:=TLRSObjectWriter(Writer.Driver);
-    Path:=LRSWriter.GetStackPath(Writer.Root);
+    WriterRootPath:=LRSWriter.GetStackPath(Writer.Root);
+    Path:=Copy(WriterRootPath, 1, Pos('.',WriterRootPath))+Instance.GetNamePath+'.'+PropInfo^.Name;
   end else begin
     Path:=Instance.ClassName+'.'+PropInfo^.Name;
   end;