pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxDateEdit - fix popup position

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3319 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-07-15 12:33:10 +00:00
parent 3f292f5e99
commit 32a5a26fe8
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/trunk/tooledit.pas
View File

@@ -608,7 +608,7 @@ begin
ABounds := Screen.MonitorFromPoint(P).BoundsRect; ABounds := Screen.MonitorFromPoint(P).BoundsRect;
Y := P.Y + Height; Y := P.Y + Height;
if Y + FPopup.Height > ABounds.Right then if Y + FPopup.Height > ABounds.Bottom then
Y := P.Y - FPopup.Height; Y := P.Y - FPopup.Height;
case FPopupAlign of case FPopupAlign of
epaRight: epaRight: