paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-30 09:01:28 +01: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; function TSetElementPropertyEditor.GetVisualValue: ansistring;
begin begin
Result := inherited GetVisualValue; Result := inherited GetVisualValue;
Assert(Result <> '', 'TSetElementPropertyEditor.GetVisualValue: Result="".'); if Result = '' then
Result := oisMixed;
end; end;
procedure TSetElementPropertyEditor.GetValues(Proc: TGetStrProc); procedure TSetElementPropertyEditor.GetValues(Proc: TGetStrProc);