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

* Don't use C-style assignments

Browse Source 
git-svn-id: trunk@19141 -
This commit is contained in:
marc 2009-03-28 16:23:09 +00:00
parent 7f68d3bce3
commit 08b05a7399
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/propedits.pp
View File

@ -4388,7 +4388,7 @@ function TPersistentPropertyEditor.GetAttributes: TPropertyAttributes;
begin
Result := [paMultiSelect];
if Assigned(GetPropInfo^.SetProc) then
Result += [paValueList, paSortList, paRevertable, paVolatileSubProperties]
Result := Result + [paValueList, paSortList, paRevertable, paVolatileSubProperties]
else
Result := Result + [paReadOnly];
if GReferenceExpandable and (GetPersistentReference <> nil) and AllEqual then