paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 12:20:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: update TUpDown WS implementation - setting up the initial Min value

Browse Source 
git-svn-id: trunk@61063 -
This commit is contained in:
dmitry 2019-04-26 13:42:31 +00:00
parent 36919b50ca
commit 94fcd9ed54
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/customupdown.inc
View File

@ -268,6 +268,7 @@ procedure TCustomUpDown.InitializeWnd;
begin
inherited InitializeWnd;
if not FUseWS then Exit;
TWSCustomUpDownClass(WidgetSetClass).SetMinPosition(Self, FMin);
TWSCustomUpDownClass(WidgetSetClass).SetMaxPosition(Self, FMax);
TWSCustomUpDownClass(WidgetSetClass).SetPosition(Self, FPosition);
TWSCustomUpDownClass(WidgetSetClass).SetIncrement(Self, FIncrement);