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

LCL, LCLTranslator: Do not check if a property has a setter before even attempting to read what it is and thus ignoring classes (with translatable properties) returned by properties without setters. Check if a property setter is present only just before actually writing to it.

Browse Source 
Fixes translation of TLabeledEdit.EditLabel.Caption (EditLabel is a property without setter there).

It was a regression after commit 36c7ef29ed which fixed issue #35202.
This commit is contained in:
Maxim Ganetsky 2023-10-13 02:28:44 +03:00
parent 94cbb565d7
commit ddbcec7bcc
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/lcltranslator.pas
View File

@ -347,13 +347,12 @@ begin
begin
APropInfo:=APropList^[i];
if Assigned(PPropInfo(APropInfo)^.GetProc) and
Assigned(APropInfo^.PropType) and
Assigned(PPropInfo(APropInfo)^.SetProc) then
Assigned(APropInfo^.PropType) then
case APropInfo^.PropType^.Kind of
tkSString,
tkLString,
tkAString:
if APropInfo^.PropType=TypeInfo(TTranslateString) then
if (Assigned(PPropInfo(APropInfo)^.SetProc)) and (APropInfo^.PropType=TypeInfo(TTranslateString)) then
begin
TmpStr := GetStrProp(AnInstance, APropInfo);
{$IFDEF VerbosePOTranslator}