Procedure

TfrmRemCoverSheet.SetSeq

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmRemCoverSheet

Declaration

procedure SetSeq(Item: TListItem; const Value: string);

Calls Hierarchy


TfrmRemCoverSheet.SetSeq
 ├TfrmRemCoverSheet.GetCurrent
 │ └TfrmRemCoverSheet.GetCoverSheetLvlData
 │   └GetCoverSheetLevelData
 ├TfrmRemCoverSheet.GetIndex
 ├TfrmRemCoverSheet.MarkListAsChanged
 │ └TfrmRemCoverSheet.UpdateView
 │   └TfrmRemCoverSheet.GetCurrent...
 └TfrmRemCoverSheet.SetupItem

Called-By Hierarchy


        TfrmRemCoverSheet.SetSeq
TfrmRemCoverSheet.edtSeqChange┤ 
   TfrmRemCoverSheet.sbUpClick┤ 
 TfrmRemCoverSheet.sbDownClick┘ 

Calls

Name Declaration Comments
TfrmRemCoverSheet.GetCurrent function GetCurrent(IEN: Int64; Level: TRemCoverDataLevel; Show: boolean; Add: boolean = FALSE): TORStringList; -
TfrmRemCoverSheet.GetIndex function GetIndex(List: TORStringList; Item: TListItem): integer; -
TfrmRemCoverSheet.MarkListAsChanged procedure MarkListAsChanged; -
TfrmRemCoverSheet.SetupItem procedure SetupItem(Item: TListItem; const Data: string); overload; -

Called-By

Name Declaration Comments
TfrmRemCoverSheet.edtSeqChange procedure edtSeqChange(Sender: TObject); -
TfrmRemCoverSheet.sbDownClick procedure sbDownClick(Sender: TObject); -
TfrmRemCoverSheet.sbUpClick procedure sbUpClick(Sender: TObject); -


Source

1363  procedure TfrmRemCoverSheet.SetSeq(Item: TListItem; const Value: string);
1364  var
1365    tmpSL: TORStringList;
1366    Idx: integer;
1367    tmp: string;
1368  
1369  begin
1370    tmpSL := GetCurrent(FEditingIEN, FEditingLevel, FALSE);
1371    if assigned(tmpSL) then
1372    begin
1373      Idx := GetIndex(tmpSL, Item);
1374      if Idx >= 0 then
1375      begin
1376        tmp := tmpSL[idx];
1377        if(Piece(Tmp,U,1) <> Value) then
1378        begin
1379          SetPiece(tmp,U,1,Value);
1380          tmpSL[idx] := tmp;
1381          MarkListAsChanged;
1382          SetupItem(Item, tmp);
1383        end;
1384      end;
1385    end;
1386  end;