paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 08:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fix grid columns localization via .lrt/.po (use TPersistent.GetNamePath for string ID). Bug #15180.

Browse Source 
git-svn-id: trunk@25431 -
This commit is contained in:
maxim 2010-05-15 15:48:07 +00:00
parent 98777bd9db
commit 99c23d89c7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -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;