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

IdeIntf: Fix TVariantPropertyEditor. Issue #19324.

Browse Source 
git-svn-id: trunk@56146 -
This commit is contained in:
juha 2017-10-22 16:01:36 +00:00
parent a94aba960e
commit 82ea3d79fe
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/propedits.pp
View File

@ -5449,9 +5449,9 @@ var
V: Variant; V: Variant;
begin begin
try try
VarCast(V{%H-}, Value, VarType(GetVarValue));
except
V := Value; V := Value;
except
V := 0; // Some backup value.
end; end;
SetVarValue(V); SetVarValue(V);
end; end;