paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:39:31 +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;
SenderParentForm: TCustomForm;
RubberBandWasActive: boolean;
ParentClientOrigin: TPoint;
ParentClientOrigin, PopupPos: TPoint;
SelectedCompClass: TRegisteredComponent;
SelectionChanged, NewRubberbandSelection: boolean;
@ -1346,7 +1346,8 @@ Begin
PointSelect;
PopupMenuComponentEditor:=GetComponentEditorForSelection;
BuildPopupMenu;
FPopupMenu.Popup(MouseUpPos.X,MouseUpPos.Y);
PopupPos := Form.ClientToScreen(MouseUpPos);
FPopupMenu.Popup(PopupPos.X,PopupPos.Y);
end;
DisableRubberBand;