paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 06:58:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: default translator - search section better

Browse Source 
git-svn-id: trunk@23224 -
This commit is contained in:
paul 2009-12-22 04:36:00 +00:00
parent d4b181ab2b
commit 6e58d63e16
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/defaulttranslator.pas
View File

@ -236,7 +236,16 @@ begin
s := FMOFile.Translate(Content);
if s = '' then
begin
Section := 'T' + UpperCase(Instance.GetNamePath) + '.' + UpperCase(PropInfo^.Name);
if not (Sender is TReader) then
Exit;
if Component = TReader(Sender).Root then
Section := UpperCase(Component.ClassName)
else
if Component.Owner = TReader(Sender).Root then
Section := UpperCase(Component.Owner.ClassName + '.' + Instance.GetNamePath)
else
Exit;
Section := Section + '.' + UpperCase(PropInfo^.Name);
s := FMoFile.Translate(Section + #4 + Content);
end;
if s <> '' then