paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 14:59:15 +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 var
Point: TQtPoint; Point: TQtPoint;
Size: TSize; Size: TSize;
Alignment: TPopupAlignment;
begin begin
{$ifdef VerboseQt} {$ifdef VerboseQt}
WriteLn('[TQtWSPopupMenu.Popup] APopupMenu.Handle ' + dbghex(APopupMenu.Handle) WriteLn('[TQtWSPopupMenu.Popup] APopupMenu.Handle ' + dbghex(APopupMenu.Handle)
@ -414,7 +415,18 @@ begin
Point.X := X; Point.X := X;
Point.Y := Y; 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: paCenter:
begin begin
QMenu_sizeHint(QMenuH(TQtMenu(APopupMenu.Handle).Widget), @Size); QMenu_sizeHint(QMenuH(TQtMenu(APopupMenu.Handle).Widget), @Size);