pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix context menu of weekview

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4766 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-17 22:41:57 +00:00
parent e655a1d85e
commit 0ca1fb03e6
1 changed files with 15 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
components/tvplanit/source/vpweekview.pas
View File

@ -1457,28 +1457,24 @@ procedure TVpWeekView.WMRButtonDown(var Msg : TWMRButtonDown);
procedure TVpWeekView.WMRButtonDown(var Msg : TLMRButtonDown);
{$ENDIF}
var
ClientOrigin : TPoint;
i : Integer;
i: Integer;
begin
inherited;
if not Assigned (PopupMenu) then begin
// if not focused then
// SetFocus;
{ The mouse click landed inside the client area }
wvSetDateByCoord(Point(Msg.XPos, Msg.YPos));
EventAtCoord (Point (Msg.XPos, Msg.YPos));
wvClickTimer.Enabled := false;
ClientOrigin := GetClientOrigin;
if not Assigned(PopupMenu) then
exit;
if not Assigned (ActiveEvent) then
for i := 0 to FDefaultPopup.Items.Count - 1 do begin
if (FDefaultPopup.Items[i].Tag = 1) or (ReadOnly) then
FDefaultPopup.Items[i].Enabled := False;
end
else
for i := 0 to FDefaultPopup.Items.Count - 1 do
FDefaultPopup.Items[i].Enabled := True;
{ The mouse click landed inside the client area }
wvSetDateByCoord(Point(Msg.XPos, Msg.YPos));
EventAtCoord(Point(Msg.XPos, Msg.YPos));
wvClickTimer.Enabled := false;
if not Assigned(ActiveEvent) then begin
for i := 0 to FDefaultPopup.Items.Count - 1 do
if (FDefaultPopup.Items[i].Tag = 1) or (ReadOnly) then
FDefaultPopup.Items[i].Enabled := False;
end else begin
for i := 0 to FDefaultPopup.Items.Count - 1 do
FDefaultPopup.Items[i].Enabled := True;
end;
end;
{=====}