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

lcl: lcltranslator: use typeinfo instead of type name

Browse Source 
git-svn-id: trunk@56124 -
This commit is contained in:
mattias 2017-10-18 12:00:30 +00:00
parent 82dabee557
commit faa58c53b1
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