paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 11:59:20 +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); PropInfo: PPropInfo; var Content: string);
var var
LRSWriter: TLRSObjectWriter; LRSWriter: TLRSObjectWriter;
Path: String; Path, WriterRootPath: String;
begin begin
if not Assigned(Instance) then exit; if not Assigned(Instance) then exit;
if not Assigned(PropInfo) then exit; if not Assigned(PropInfo) then exit;
@ -5064,7 +5064,8 @@ begin
Path:=''; Path:='';
if Writer.Driver is TLRSObjectWriter then begin if Writer.Driver is TLRSObjectWriter then begin
LRSWriter:=TLRSObjectWriter(Writer.Driver); 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 end else begin
Path:=Instance.ClassName+'.'+PropInfo^.Name; Path:=Instance.ClassName+'.'+PropInfo^.Name;
end; end;