paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 13:30:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

TPopupMenu.Popup needs x,y position relative to screen, not to form

Browse Source 
git-svn-id: trunk@4763 -
This commit is contained in:
micha 2003-11-05 08:32:17 +00:00
parent ed636973a6
commit cc6d8c284e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
designer/designer.pp
View File

@ -1116,7 +1116,7 @@ var
Shift: TShiftState; Shift: TShiftState;
SenderParentForm: TCustomForm; SenderParentForm: TCustomForm;
RubberBandWasActive: boolean; RubberBandWasActive: boolean;
ParentClientOrigin: TPoint; ParentClientOrigin, PopupPos: TPoint;
SelectedCompClass: TRegisteredComponent; SelectedCompClass: TRegisteredComponent;
SelectionChanged, NewRubberbandSelection: boolean; SelectionChanged, NewRubberbandSelection: boolean;
@ -1346,7 +1346,8 @@ Begin
PointSelect; PointSelect;
PopupMenuComponentEditor:=GetComponentEditorForSelection; PopupMenuComponentEditor:=GetComponentEditorForSelection;
BuildPopupMenu; BuildPopupMenu;
FPopupMenu.Popup(MouseUpPos.X,MouseUpPos.Y); PopupPos := Form.ClientToScreen(MouseUpPos);
FPopupMenu.Popup(PopupPos.X,PopupPos.Y);
end; end;
DisableRubberBand; DisableRubberBand;