paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:19:24 +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; end;
procedure TDesigner.HandlePopupMenu(Sender: TControl; var Message: TLMContextMenu); procedure TDesigner.HandlePopupMenu(Sender: TControl; var Message: TLMContextMenu);
var
lPos: TPoint;
begin begin
//debugln(['TDesigner.HandlePopupMenu ',DbgSName(Sender),' ',Message.XPos,',',Message.YPos]); //debugln(['TDesigner.HandlePopupMenu ',DbgSName(Sender),' ',Message.XPos,',',Message.YPos]);
{$IFDEF EnableDesignerPopupRightClick} {$IFDEF EnableDesignerPopupRightClick}
@ -2042,10 +2040,7 @@ begin
begin begin
PopupMenuComponentEditor := GetComponentEditorForSelection; PopupMenuComponentEditor := GetComponentEditorForSelection;
BuildPopupMenu; BuildPopupMenu;
if Message.XPos >= 0 FDesignerPopupMenu.Popup(Message.XPos, Message.YPos);
then lPos := Point(Message.XPos,Message.YPos)
else lPos := Form.ClientToScreen(Point(Selection.Left + Selection.Width, Selection.Top));
FDesignerPopupMenu.Popup(lPos.X, lPos.Y);
end; end;
Message.Result := 1; Message.Result := 1;
end; end;