Procedure

TfrmGraphs.PositionSelections

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphs

Declaration

procedure PositionSelections(aListView: TListView);

Called-By Hierarchy


         TfrmGraphs.PositionSelections
   TfrmGraphs.btnChangeSettingsClick┤ 
    TfrmReports.btnChangeViewClick┘ │ 
TfrmGraphs.mnuPopGraphMergeLabsClick┘ 

Called-By

Name Declaration Comments
TfrmGraphs.btnChangeSettingsClick procedure btnChangeSettingsClick(Sender: TObject); -
TfrmGraphs.mnuPopGraphMergeLabsClick procedure mnuPopGraphMergeLabsClick(Sender: TObject); -


Source

6067  procedure TfrmGraphs.PositionSelections(aListView: TListView);
6068  var
6069    bottomitem, i: integer;
6070  begin
6071    if aListView.SelCount > 0 then
6072    begin
6073      bottomitem := 0;
6074      for i := aListView.Items.Count - 1 downto 0 do
6075        if aListView.Items[i].Selected then
6076        begin
6077          bottomitem := i;
6078          break;
6079        end;
6080      aListView.Items[bottomitem].MakeVisible(true);
6081    end;
6082  end;