Procedure

TfrmRemCoverSheet.sbDownClick

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmRemCoverSheet

Declaration

procedure sbDownClick(Sender: TObject);

Calls Hierarchy


TfrmRemCoverSheet.sbDownClick
 ├TfrmRemCoverSheet.SetSeq
 │ ├TfrmRemCoverSheet.GetCurrent
 │ │ └TfrmRemCoverSheet.GetCoverSheetLvlData
 │ │   └GetCoverSheetLevelData
 │ ├TfrmRemCoverSheet.GetIndex
 │ ├TfrmRemCoverSheet.MarkListAsChanged
 │ │ └TfrmRemCoverSheet.UpdateView
 │ │   └TfrmRemCoverSheet.GetCurrent...
 │ └TfrmRemCoverSheet.SetupItem
 └TfrmRemCoverSheet.UpdateButtons
   ├TfrmRemCoverSheet.GetCurrent...
   ├TfrmRemCoverSheet.GetIndex
   └TfrmRemCoverSheet.LockButtonUpdate
     ├TfrmRemCoverSheet.btnLockClick
     │ └TfrmRemCoverSheet.ChangeStatus
     │   ├TfrmRemCoverSheet.GetCurrent...
     │   ├TfrmRemCoverSheet.GetIndex
     │   ├TfrmRemCoverSheet.MarkListAsChanged...
     │   ├TfrmRemCoverSheet.SetupItem
     │   └TfrmRemCoverSheet.LockButtonUpdate...
     └TfrmRemCoverSheet.btnAddClick
       └TfrmRemCoverSheet.ChangeStatus...

Calls

Name Declaration Comments
TfrmRemCoverSheet.SetSeq procedure SetSeq(Item: TListItem; const Value: string); -
TfrmRemCoverSheet.UpdateButtons procedure UpdateButtons; -


Source

1335  procedure TfrmRemCoverSheet.sbDownClick(Sender: TObject);
1336  var
1337    NextItem: TListItem;
1338    Seq1, Seq2: string;
1339  
1340  begin
1341    if assigned(lvCover.Selected) then
1342    begin
1343      if FBottomSortTag <> 2 then
1344      begin
1345        FBottomSortTag := 2;
1346        lvCover.CustomSort(nil, 0);
1347      end;
1348      if lvCover.Selected.Index < (lvCover.Items.Count-1) then
1349      begin
1350        NextItem := lvCover.Items[lvCover.Selected.Index + 1];
1351        Seq1 := NextItem.SubItems[IdxSeq];
1352        Seq2 := lvCover.Selected.SubItems[IdxSeq];
1353        SetSeq(NextItem, Seq2);
1354        SetSeq(lvCover.Selected, Seq1);
1355        lvCover.CustomSort(nil, 0);
1356        If ScreenReaderSystemActive then
1357          GetScreenReader.Speak('Reminder Moved down in Sequence');
1358        UpdateButtons;
1359      end;
1360    end;
1361  end;