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

win32: updated the popup menu creation flag by using TPM_LAYOUTRTL for RtL mode. #25330

Browse Source 
git-svn-id: trunk@43510 -
This commit is contained in:
dmitry 2013-12-02 05:11:48 +00:00
parent d6a3637128
commit 0a62d8b17e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32wsmenus.pp
View File

@ -1502,9 +1502,9 @@ var
const
lAlignment: array[TPopupAlignment, Boolean] of DWORD = (
{ left-to-rght } { right-to-left }
{ paLeft } (TPM_LEFTALIGN, TPM_RIGHTALIGN),
{ paRight } (TPM_RIGHTALIGN, TPM_LEFTALIGN),
{ paCenter } (TPM_CENTERALIGN, TPM_CENTERALIGN)
{ paLeft } (TPM_LEFTALIGN, TPM_RIGHTALIGN or TPM_LAYOUTRTL),
{ paRight } (TPM_RIGHTALIGN, TPM_LEFTALIGN or TPM_LAYOUTRTL),
{ paCenter } (TPM_CENTERALIGN, TPM_CENTERALIGN or TPM_LAYOUTRTL)
);
lTrackButtons: array[TTrackButton] of DWORD = (
{ tbRightButton } TPM_RIGHTBUTTON,