paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 06:07:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: set UpDown Orientation before adding the TUpDownButtons, fixes issue #7855.

Browse Source 
git-svn-id: trunk@10225 -
This commit is contained in:
vincents 2006-11-21 14:19:24 +00:00
parent 7958b8e0ce
commit 82e647b24a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customupdown.inc
View File

@ -207,6 +207,7 @@ begin
fCompStyle := csPanel;
ControlStyle := ControlStyle - [csDoubleClicks] +
[csClickEvents, csOpaque, csReplicatable, csNoFocus];
FOrientation := udVertical;
MinBtn := TUpDownButton.CreateWithParams(Self, btPrev);
MaxBtn := TUpDownButton.CreateWithParams(Self, btNext);
SetInitialBounds(0,0,17,31);
@ -216,7 +217,6 @@ begin
FMax := 100;
FIncrement := 1;
FAlignButton := udRight;
FOrientation := udVertical;
FThousands := True;
end;