Procedure

TfrmRemCoverSheet.MarkListAsChanged

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmRemCoverSheet

Declaration

procedure MarkListAsChanged;

Calls Hierarchy


TfrmRemCoverSheet.MarkListAsChanged
 └TfrmRemCoverSheet.UpdateView
   └TfrmRemCoverSheet.GetCurrent
     └TfrmRemCoverSheet.GetCoverSheetLvlData
       └GetCoverSheetLevelData

Called-By Hierarchy


                TfrmRemCoverSheet.MarkListAsChanged
                   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┘ │ 
               TfrmRemCoverSheet.sbCopyRightClick┤ 
                TfrmRemCoverSheet.sbCopyLeftClick┘ 

Calls

Name Declaration Comments
TfrmRemCoverSheet.UpdateView procedure UpdateView; -

Called-By

Name Declaration Comments
TfrmRemCoverSheet.ChangeStatus procedure ChangeStatus(Code: string); -
TfrmRemCoverSheet.sbCopyLeftClick procedure sbCopyLeftClick(Sender: TObject); -
TfrmRemCoverSheet.sbCopyRightClick procedure sbCopyRightClick(Sender: TObject); -
TfrmRemCoverSheet.SetSeq procedure SetSeq(Item: TListItem; const Value: string); -


Source

1049  procedure TfrmRemCoverSheet.MarkListAsChanged;
1050  var
1051    tmp: string;
1052    idx: integer;
1053  
1054  begin
1055    idx := FData.IndexOfPiece(DataCode[FEditingLevel] + IntToStr(FEditingIEN));
1056    if idx >= 0 then
1057    begin
1058      tmp := FData[idx];
1059      SetPiece(Tmp,U,2,BoolChar[TRUE]);
1060      FData[idx] := tmp;
1061      btnApply.Enabled := TRUE;
1062      UpdateView;
1063    end;
1064  end;