mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 00:38:18 +02:00
lcl: default translator - search section better
git-svn-id: trunk@23224 -
This commit is contained in:
parent
d4b181ab2b
commit
6e58d63e16
@ -236,7 +236,16 @@ begin
|
|||||||
s := FMOFile.Translate(Content);
|
s := FMOFile.Translate(Content);
|
||||||
if s = '' then
|
if s = '' then
|
||||||
begin
|
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);
|
s := FMoFile.Translate(Section + #4 + Content);
|
||||||
end;
|
end;
|
||||||
if s <> '' then
|
if s <> '' then
|
||||||
|
Loading…
Reference in New Issue
Block a user