paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 04:00:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL, DefaultTranslator: translate Frame owned components too, patch by wp with minor changes, bug #23820

Browse Source 
git-svn-id: trunk@40164 -
This commit is contained in:
maxim 2013-02-03 21:52:11 +00:00
parent 66c2a0c61a
commit caf6b21874
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/defaulttranslator.pas
View File

@ -330,7 +330,9 @@ begin
for i := 0 to TComponent(AnInstance).ComponentCount-1 do
begin
StoreStackPath:=FStackPath;
FStackPath:=FStackPath+'.'+TComponent(AnInstance).Components[i].Name;
if TComponent(AnInstance).Components[i] is TCustomFrame then
UpdateTranslation(TComponent(AnInstance).Components[i]);
FStackPath:=StoreStackPath+'.'+TComponent(AnInstance).Components[i].Name;
IntUpdateTranslation(TComponent(AnInstance).Components[i]);
FStackPath:=StoreStackPath;
end;