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

IdeIntf: OI: fix assertion when multi-select components with set properties

Browse Source 
git-svn-id: trunk@58270 -
This commit is contained in:
ondrej 2018-06-14 12:46:26 +00:00
parent 3c4d4880fb
commit fbf5f23054
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/ideintf/propedits.pp
View File

@ -4024,7 +4024,8 @@ end;
function TSetElementPropertyEditor.GetVisualValue: ansistring;
begin
Result := inherited GetVisualValue;
Assert(Result <> '', 'TSetElementPropertyEditor.GetVisualValue: Result="".');
if Result = '' then
Result := oisMixed;
end;
procedure TSetElementPropertyEditor.GetValues(Proc: TGetStrProc);