Procedure

TfrmGraphs.mnuPopGraphSortClick

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphs

Declaration

procedure mnuPopGraphSortClick(Sender: TObject);

Calls Hierarchy


TfrmGraphs.mnuPopGraphSortClick
 ├TfrmGraphs.lvwItemsTopColumnClick
 └TfrmGraphs.lvwItemsBottomColumnClick

Calls

Name Declaration Comments
TfrmGraphs.lvwItemsBottomColumnClick procedure lvwItemsBottomColumnClick(Sender: TObject; Column: TListColumn); -
TfrmGraphs.lvwItemsTopColumnClick procedure lvwItemsTopColumnClick(Sender: TObject; Column: TListColumn); -


Source

3296  procedure TfrmGraphs.mnuPopGraphSortClick(Sender: TObject);
3297  begin
3298    with FGraphSetting do
3299    begin
3300      if SortColumn = 1 then SortColumn := 0
3301      else SortColumn := 1;
3302      mnuPopGraphSort.Checked := SortColumn = 1;
3303      if not FItemsSortedTop then
3304      begin
3305        lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[0]);
3306        FItemsSortedTop := true;
3307      end;
3308      if not FItemsSortedBottom then
3309      begin
3310        lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[0]);
3311        FItemsSortedBottom := true;
3312      end;
3313      if SortColumn > 0 then
3314      begin
3315        lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[SortColumn]);
3316        lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[SortColumn]);
3317        FItemsSortedTop := false;
3318        FItemsSortedBottom := false;
3319      end;
3320    end;
3321  end;