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

fixed scrolling offset of TScrollingWinControl

Browse Source 
git-svn-id: trunk@2297 -
This commit is contained in:
mattias 2002-08-17 23:41:13 +00:00
parent 52222da2ae
commit c0df7f9bb2
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

@ -1684,7 +1684,7 @@ end;
Procedure TControl.WMMouseMove(Var Message: TLMMouseMove); Procedure TControl.WMMouseMove(Var Message: TLMMouseMove);
Begin Begin
{$IFDEF VerboseMouseBugfix} {$IFDEF VerboseMouseBugfix}
writeln('[TControl.WMMouseMove] ',Name,':',ClassName); writeln('[TControl.WMMouseMove] ',Name,':',ClassName,' ',Message.XPos,',',Message.YPos);
{$ENDIF} {$ENDIF}
DoBeforeMouseMessage; DoBeforeMouseMessage;
if not (csNoStdEvents in ControlStyle) if not (csNoStdEvents in ControlStyle)
@ -2055,6 +2055,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.115 2003/01/18 21:31:43 mattias
fixed scrolling offset of TScrollingWinControl
Revision 1.114 2003/01/01 13:01:01 mattias Revision 1.114 2003/01/01 13:01:01 mattias
fixed setcolor for streamed components fixed setcolor for streamed components