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

T(Float)SpinEditEx: In InitializeWnd set Text to represent FValue, otherwise NullValueBehavious will be applied in call to UpdateControl.

Browse Source 
(cherry picked from commit a3ba11e5c3)
This commit is contained in:
Bart 2024-02-21 23:44:31 +01:00 committed by Maxim Ganetsky
parent 8b8bcd3a51
commit 433708a18b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazcontrols/spinex.inc
View File

@ -204,6 +204,9 @@ end;
procedure TSpinEditExBase.InitializeWnd; procedure TSpinEditExBase.InitializeWnd;
begin begin
inherited InitializeWnd; inherited InitializeWnd;
// at this point Text will be empty, which in UpdateControl will invoke the NullValueBehaviour
// so make sure that Text will represent FValue now
Text := ValueToStr(FValue);
UpdateControl; UpdateControl;
end; end;