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

Qt: fix TPopupMenu.Alignment when we use RightToLeft.

Browse Source 
git-svn-id: trunk@22740 -
This commit is contained in:
zeljko 2009-11-24 09:10:57 +00:00
parent 756c8f3da5
commit 9cf4e736f0
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/qt/qtwsmenus.pp
View File

@ -404,6 +404,7 @@ class procedure TQtWSPopupMenu.Popup(const APopupMenu: TPopupMenu; const X, Y: i
var
Point: TQtPoint;
Size: TSize;
Alignment: TPopupAlignment;
begin
{$ifdef VerboseQt}
WriteLn('[TQtWSPopupMenu.Popup] APopupMenu.Handle ' + dbghex(APopupMenu.Handle)
@ -414,7 +415,18 @@ begin
Point.X := X;
Point.Y := Y;
case APopupMenu.Alignment of
Alignment := APopupMenu.Alignment;
if APopupMenu.IsRightToLeft then
begin
if Alignment = paLeft then
Alignment := paRight
else
if Alignment = paRight then
Alignment := paLeft;
end;
case Alignment of
paCenter:
begin
QMenu_sizeHint(QMenuH(TQtMenu(APopupMenu.Handle).Widget), @Size);