pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:fix error in priperty Value

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3631 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-10-06 06:51:05 +00:00
parent 93da62030e
commit e2a302b8e6
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/trunk/curredit.pas
View File

@ -289,12 +289,14 @@ end;
function TCustomNumEdit.GetValue: Extended; function TCustomNumEdit.GetValue: Extended;
begin begin
if not (csDesigning in ComponentState) then if (not (csDesigning in ComponentState)) and FFocusedDisplay then
begin
try try
UpdateData; UpdateData;
except except
FValue := FMinValue; FValue := FMinValue;
end; end;
end;
Result := FValue; Result := FValue;
end; end;