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

MG: reduced output

Browse Source 
git-svn-id: trunk@1018 -
This commit is contained in:
lazarus 2002-02-09 01:47:39 +00:00
parent 3cda4862b4
commit 1b9bcdcf3f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/control.inc
View File

@ -929,7 +929,6 @@ end;
procedure TControl.WMRButtonUp(var Message: TLMRButtonUp); procedure TControl.WMRButtonUp(var Message: TLMRButtonUp);
begin begin
DoMouseUp(Message, mbRight); DoMouseUp(Message, mbRight);
writeln('TControl.WMRButtonUp ',Name,':',ClassName,' ',Message.Result);
if Message.Result = 0 then CheckMenuPopup(Message.pos); if Message.Result = 0 then CheckMenuPopup(Message.pos);
end; end;
@ -1749,6 +1748,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.64 2002/08/24 12:57:32 lazarus
MG: reduced output
Revision 1.63 2002/08/24 12:54:59 lazarus Revision 1.63 2002/08/24 12:54:59 lazarus
MG: fixed mouse capturing, OI edit focus MG: fixed mouse capturing, OI edit focus