paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 18:58:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added TPopupMenu.OnPopup and SourceEditor PopupMenu checks

Browse Source 
git-svn-id: trunk@991 -
This commit is contained in:
lazarus 2002-02-09 01:47:35 +00:00
parent dfdb2d1a7e
commit 1c621915e8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/control.inc
View File

@ -217,7 +217,7 @@ begin
if not TempPopupMenu.AutoPopup then Exit;
// SendCancelMode(nil);
TempPopupMenu.PopupComponent := Control;
P2 := SmallPointtoPoint(P);
P2 := SmallPointToPoint(P);
P2 := ClientToScreen(P2);
TempPopupMenu.Popup(P2.X, P2.Y);
Exit;
@ -1769,6 +1769,9 @@ end;
{ =============================================================================
$Log$
Revision 1.60 2002/08/17 07:57:05 lazarus
MG: added TPopupMenu.OnPopup and SourceEditor PopupMenu checks
Revision 1.59 2002/08/05 08:56:56 lazarus
MG: TMenuItems can now be enabled and disabled