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

lcl: lcltranslator: use typeinfo instead of type name

Browse Source 
git-svn-id: branches/fixes_1_8@56128 -
This commit is contained in:
mattias 2017-10-18 12:03:03 +00:00
parent 04ffbfcd3f
commit 4ec8f57ef7
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/lcltranslator.pas
View File

@ -284,8 +284,7 @@ var
Reader: TReader;
begin
Result := '';
if (PropInfo = nil) or
(SysUtils.CompareText(PropInfo^.PropType^.Name, 'TTRANSLATESTRING') <> 0) then
if (PropInfo=nil) or (PropInfo^.PropType<>TypeInfo(TTranslateString)) then
exit;
// do not translate at design time