Procedure

TfrmRemCoverSheet.SetupItem

Directives

Overload

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmRemCoverSheet

Declaration

procedure SetupItem(Item: TListItem; const Data: string); overload;

Called-By Hierarchy


                        TfrmRemCoverSheet.SetupItem
                      TfrmRemCoverSheet.SetupItem┤ 
                   TfrmRemCoverSheet.ChangeStatus┤ 
                  TfrmRemCoverSheet.btnAddClick┤ │ 
           TfrmRemCoverSheet.LockButtonUpdate┘ │ │ 
            TfrmRemCoverSheet.UpdateButtons┤   │ │ 
                   TfrmRemCoverSheet.Init┤ │   │ │ 
             EditCoverSheetReminderList┘ │ │   │ │ 
  TfrmReminderTree.mnuCoverSheetClick┤   │ │   │ │ 
               DialogOptionsReminders┘   │ │   │ │ 
 TfrmOptions.btnCoverRemindersClick┘     │ │   │ │ 
   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┘   │ │   │ │ 
           TfrmRemCoverSheet.edtSeqChange┤ │   │ │ 
            TfrmRemCoverSheet.tvAllChange┤ │   │ │ 
          TfrmRemCoverSheet.lvCoverChange┤ │   │ │ 
              TfrmRemCoverSheet.sbUpClick┤ │   │ │ 
            TfrmRemCoverSheet.sbDownClick┤ │   │ │ 
   TfrmRemCoverSheet.ActiveControlChanged┘ │   │ │ 
         TfrmRemCoverSheet.btnViewClick┤   │   │ │ 
           TfrmRemCoverSheet.FormCreate┘   │   │ │ 
          TfrmRemCoverSheet.ChangeStatus...┘   │ │ 
               TfrmRemCoverSheet.btnRemoveClick┤ │ 
                 TfrmRemCoverSheet.btnLockClick┘ │ 
        TfrmRemCoverSheet.LockButtonUpdate...┘   │ 
                         TfrmRemCoverSheet.SetSeq┘ 
                 TfrmRemCoverSheet.edtSeqChange┤   
                    TfrmRemCoverSheet.sbUpClick┤   
                  TfrmRemCoverSheet.sbDownClick┘   

Called-By

Name Declaration Comments
TfrmRemCoverSheet.ChangeStatus procedure ChangeStatus(Code: string); -
TfrmRemCoverSheet.SetSeq procedure SetSeq(Item: TListItem; const Value: string); -
TfrmRemCoverSheet.SetupItem procedure SetupItem(Item: TListItem; const Data: string; Level: TRemCoverDataLevel; IEN: Int64); overload; -


Source

577   procedure TfrmRemCoverSheet.SetupItem(Item: TListItem; const Data: string);
578   var
579     AddCode, RemCode, rIEN, Seq: string;
580   
581   begin
582     Seq := Piece(Data,U,1);
583     rIEN := Piece(Data,U,2);
584     Item.Caption := Piece(Data,U,3);
585     AddCode := copy(rIEN,1,1);
586     RemCode := copy(rIEN,2,1);
587     delete(rIEN,1,1);
588     if AddCode = CVLockCode then
589       Item.StateIndex := 5
590     else
591     if AddCode = CVRemoveCode then
592       Item.StateIndex := 4
593     else
594     if AddCode = CVAddCode then
595       Item.StateIndex := 3;
596     if RemCode = CVCatCode then
597       Item.ImageIndex := 1
598     else
599     if RemCode = CVRemCode then
600       Item.ImageIndex := 0
601     else
602       Item.ImageIndex := -1;
603     Item.SubItems.Clear;
604     Item.SubItems.Add(Seq);     // IdxSeq  = 0
605     Item.SubItems.Add('');      // IdxLvl  = 1
606     Item.SubItems.Add('');      // IdxType = 2
607     Item.SubItems.Add('');      // IdxTIEN = 3
608     Item.SubItems.Add('');      // IdxLvl2 = 4
609     Item.SubItems.Add(AddCode); // IdxAdd  = 5
610     Item.SubItems.Add(rIEN);    // IdxIEN  = 6
611   end;