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

T(Float)SpinEdit: update the control in EditingDone so that text matches Value. Reported by Jamie in https://forum.lazarus.freepascal.org/index.php/topic,57722.msg429596.html#msg429596

Browse Source
This commit is contained in:
Bart 2022-01-05 12:33:08 +01:00
parent f48623e90c
commit 603fb72945
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/spinedit.inc
View File

@ -43,6 +43,12 @@ begin
inherited Change;
end;
procedure TCustomFloatSpinEdit.EditingDone;
begin
UpdateControl;
inherited EditingDone;
end;
function TCustomFloatSpinEdit.RealGetText: TCaption;
begin
if HandleAllocated then

1
lcl/spin.pp
View File

@ -53,6 +53,7 @@ type
protected
class procedure WSRegisterClass; override;
procedure Change; override;
procedure EditingDone; override;
function RealGetText: TCaption; override;
procedure RealSetText(const AValue: TCaption); override;
procedure TextChanged; override;