paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 21:59:07 +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 
(cherry picked from commit 603fb72945)
This commit is contained in:
Bart 2022-01-05 12:33:08 +01:00 committed by Maxim Ganetsky
parent c2d023ea9e
commit db180e7818
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; inherited Change;
end; end;
procedure TCustomFloatSpinEdit.EditingDone;
begin
UpdateControl;
inherited EditingDone;
end;
function TCustomFloatSpinEdit.RealGetText: TCaption; function TCustomFloatSpinEdit.RealGetText: TCaption;
begin begin
if HandleAllocated then if HandleAllocated then

1
lcl/spin.pp
View File

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