Procedure

TfrmRemCoverSheet.UpdateMasterListView

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmRemCoverSheet

Declaration

procedure UpdateMasterListView;

Calls Hierarchy


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

Called-By Hierarchy


   TfrmRemCoverSheet.UpdateMasterListView
     TfrmRemCoverSheet.cbEditLevelClick┤ 
   TfrmRemCoverSheet.cbxDropDownClose┘ │ 
TfrmRemCoverSheet.cbxDivisionChange┤   │ 
 TfrmRemCoverSheet.cbxServiceChange┤   │ 
TfrmRemCoverSheet.cbxLocationChange┤   │ 
   TfrmRemCoverSheet.cbxClassChange┤   │ 
    TfrmRemCoverSheet.cbxUserChange┤   │ 
 TfrmRemCoverSheet.lvViewSelectItem┘   │ 
   TfrmRemCoverSheet.lvViewChange┘     │ 
     TfrmRemCoverSheet.sbCopyRightClick┤ 
      TfrmRemCoverSheet.sbCopyLeftClick┤ 
             TfrmRemCoverSheet.SaveData┘ 
      TfrmRemCoverSheet.btnApplyClick┤   
         TfrmRemCoverSheet.btnOKClick┘   

Calls

Name Declaration Comments
TfrmRemCoverSheet.GetCurrent function GetCurrent(IEN: Int64; Level: TRemCoverDataLevel; Show: boolean; Add: boolean = FALSE): TORStringList; -
TfrmRemCoverSheet.UpdateButtons procedure UpdateButtons; -

Called-By

Name Declaration Comments
TfrmRemCoverSheet.cbEditLevelClick procedure cbEditLevelClick(Sender: TObject); -
TfrmRemCoverSheet.SaveData procedure SaveData(FromApply: boolean); -
TfrmRemCoverSheet.sbCopyLeftClick procedure sbCopyLeftClick(Sender: TObject); -
TfrmRemCoverSheet.sbCopyRightClick procedure sbCopyRightClick(Sender: TObject); -


Source

860   procedure TfrmRemCoverSheet.UpdateMasterListView;
861   var
862     i: integer;
863     tmpSL: TStringList;
864     itm: TListItem;
865   
866   begin
867     lvCover.Items.BeginUpdate;
868     try
869       lvCover.Items.Clear;
870       if FEditingLevel <> dlPackage then
871       begin
872         tmpSL := GetCurrent(FEditingIEN, FEditingLevel, FALSE);
873         if assigned(tmpSL) then
874         begin
875           for i := 0 to tmpSL.Count-1 do
876           begin
877             itm := lvCover.Items.Add;
878             SetupItem(itm, tmpSL[i]);
879           end;
880         end;
881       end;
882     finally
883       lvCover.Items.EndUpdate;
884     end;
885     UpdateButtons;
886   end;