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

UpdateFloatSpinEditText: only update control if Text actually differs. Resolves issue #21639. Based on patch by cobines

Browse Source 
git-svn-id: trunk@37500 -
This commit is contained in:
bart 2012-06-03 13:08:31 +00:00
parent 0af1e98ba7
commit 35d55d134a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/win32/win32wsspin.pp
View File

@ -143,7 +143,8 @@ var
newValueText: string;
begin
newValueText := ASpinEdit.ValueToStr(ANewValue);
Windows.SendMessage(ASpinEdit.Handle, WM_SETTEXT, 0, Windows.LPARAM(PChar(newValueText)));
if (newValueText <> ASpinEdit.Text) then
Windows.SendMessage(ASpinEdit.Handle, WM_SETTEXT, 0, Windows.LPARAM(PChar(newValueText)));
end;
class function TWin32WSCustomFloatSpinEdit.CreateHandle(const AWinControl: TWinControl;