Procedure

TfrmRemCoverSheet.sbUpClick

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmRemCoverSheet

Declaration

procedure sbUpClick(Sender: TObject);

Calls Hierarchy


TfrmRemCoverSheet.sbUpClick
 ├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

1307  procedure TfrmRemCoverSheet.sbUpClick(Sender: TObject);
1308  var
1309    NextItem: TListItem;
1310    Seq1, Seq2: string;
1311  
1312  begin
1313    if assigned(lvCover.Selected) then
1314    begin
1315      if FBottomSortTag <> 2 then
1316      begin
1317        FBottomSortTag := 2;
1318        lvCover.CustomSort(nil, 0);
1319      end;
1320      if lvCover.Selected.Index > 0 then
1321      begin
1322        NextItem := lvCover.Items[lvCover.Selected.Index - 1];
1323        Seq1 := NextItem.SubItems[IdxSeq];
1324        Seq2 := lvCover.Selected.SubItems[IdxSeq];
1325        SetSeq(NextItem, Seq2);
1326        SetSeq(lvCover.Selected, Seq1);
1327        lvCover.CustomSort(nil, 0);
1328        If ScreenReaderSystemActive then
1329          GetScreenReader.Speak('Reminder Moved up in Sequence');
1330        UpdateButtons;
1331      end;            
1332    end;
1333  end;