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

Designer: Fix popup menu position. Issue #40807.

Browse Source
This commit is contained in:
Juha 2024-04-15 12:05:38 +03:00
parent 6b1edee566
commit c971eaaa76
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/designer.pp
View File

@ -2032,8 +2032,6 @@ begin
end;
procedure TDesigner.HandlePopupMenu(Sender: TControl; var Message: TLMContextMenu);
var
lPos: TPoint;
begin
//debugln(['TDesigner.HandlePopupMenu ',DbgSName(Sender),' ',Message.XPos,',',Message.YPos]);
{$IFDEF EnableDesignerPopupRightClick}
@ -2042,10 +2040,7 @@ begin
begin
PopupMenuComponentEditor := GetComponentEditorForSelection;
BuildPopupMenu;
if Message.XPos >= 0
then lPos := Point(Message.XPos,Message.YPos)
else lPos := Form.ClientToScreen(Point(Selection.Left + Selection.Width, Selection.Top));
FDesignerPopupMenu.Popup(lPos.X, lPos.Y);
FDesignerPopupMenu.Popup(Message.XPos, Message.YPos);
end;
Message.Result := 1;
end;