Procedure

TfrmRemCoverSheet.edtSeqChange

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmRemCoverSheet

Declaration

procedure edtSeqChange(Sender: TObject);

Calls Hierarchy


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

1066  procedure TfrmRemCoverSheet.edtSeqChange(Sender: TObject);
1067  begin
1068    if FUpdating or (not FInitialized) then exit;
1069    if FBottomSortTag <> 2 then
1070    begin
1071      FBottomSortTag := 2;
1072      lvCover.CustomSort(nil, 0);
1073    end;
1074    SetSeq(lvCover.Selected, IntToStr(udSeq.Position));
1075    lvCover.CustomSort(nil, 0);
1076    UpdateButtons;
1077  end;