paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 22:59:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: implemented TPopupMenu.Alignment

Browse Source 
git-svn-id: trunk@22739 -
This commit is contained in:
zeljko 2009-11-24 09:04:35 +00:00
parent 4915f50748
commit 756c8f3da5
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -33,7 +33,7 @@ uses
qt4,
qtwidgets, qtobjects, qtproc, QtWsControls,
// LCL
SysUtils, Classes, LCLType, LCLProc, Graphics, Controls, Forms, Menus,
SysUtils, Classes, Types, LCLType, LCLProc, Graphics, Controls, Forms, Menus,
// Widgetset
WSMenus, WSLCLClasses;
@ -403,6 +403,7 @@ end;
class procedure TQtWSPopupMenu.Popup(const APopupMenu: TPopupMenu; const X, Y: integer);
var
Point: TQtPoint;
Size: TSize;
begin
{$ifdef VerboseQt}
WriteLn('[TQtWSPopupMenu.Popup] APopupMenu.Handle ' + dbghex(APopupMenu.Handle)
@ -413,6 +414,18 @@ begin
Point.X := X;
Point.Y := Y;
case APopupMenu.Alignment of
paCenter:
begin
QMenu_sizeHint(QMenuH(TQtMenu(APopupMenu.Handle).Widget), @Size);
Point.X := Point.X - (Size.cx div 2);
end;
paRight:
begin
QMenu_sizeHint(QMenuH(TQtMenu(APopupMenu.Handle).Widget), @Size);
Point.X := Point.X - Size.cx;
end;
end;
if APopupMenu.TrackButton = tbLeftButton then
TQtMenu(APopupMenu.Handle).trackButton := QtLeftButton