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

PoChecker: remove redundant code from TGraphStatForm.ListViewMouseMove.

Browse Source 
git-svn-id: trunk@46309 -
This commit is contained in:
bart 2014-09-24 14:46:56 +00:00
parent f69337f6ce
commit b717742113
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/pochecker/graphstat.pp
View File

@ -88,13 +88,11 @@ end;
procedure TGraphStatForm.ListViewMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
Pt: types.TPoint;
Item: TListItem;
Index: Integer;
AStat: TStat;
begin
Pt:= Listview.ScreenToClient(Mouse.CursorPos );
Item := Listview.GetItemAt(Pt.X, Pt.Y);
Item := Listview.GetItemAt(X, Y);
if Assigned(Item) then
begin
Index := Item.Index;