paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 15:39:20 +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; procedure TGraphStatForm.ListViewMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer); X, Y: Integer);
var var
Pt: types.TPoint;
Item: TListItem; Item: TListItem;
Index: Integer; Index: Integer;
AStat: TStat; AStat: TStat;
begin begin
Pt:= Listview.ScreenToClient(Mouse.CursorPos ); Item := Listview.GetItemAt(X, Y);
Item := Listview.GetItemAt(Pt.X, Pt.Y);
if Assigned(Item) then if Assigned(Item) then
begin begin
Index := Item.Index; Index := Item.Index;