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

LCL: cleanup unnecessary local variable (bug #9218)

Browse Source 
git-svn-id: trunk@11432 -
This commit is contained in:
vincents 2007-07-06 07:56:44 +00:00
parent 1518e4a714
commit fd11231a53
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/wincontrol.inc
View File

@ -5067,15 +5067,13 @@ end;
procedure TWinControl.WMMouseWheel(var Message: TLMMouseEvent); procedure TWinControl.WMMouseWheel(var Message: TLMMouseEvent);
Var Var
MousePos : TPoint; MousePos : TPoint;
Shift : TShiftState;
begin begin
Assert(False, Format('Trace: [TWinControl.LMMouseWheel] %s', [ClassName])); Assert(False, Format('Trace: [TWinControl.LMMouseWheel] %s', [ClassName]));
MousePos.X := Message.X; MousePos.X := Message.X;
MousePos.Y := Message.Y; MousePos.Y := Message.Y;
Shift := Message.State;
if DoMouseWheel(Shift, Message.WheelDelta, MousePos) then if DoMouseWheel(Message.State, Message.WheelDelta, MousePos) then
Message.Result := 1 Message.Result := 1
else else
inherited; inherited;