Function

TfrmRemCoverSheet.GetIndex

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmRemCoverSheet

Declaration

function GetIndex(List: TORStringList; Item: TListItem): integer;

Called-By Hierarchy


                   TfrmRemCoverSheet.GetIndex
            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.btnAddClick┤ │ 
     TfrmRemCoverSheet.LockButtonUpdate┘ │ │ 
   TfrmRemCoverSheet.UpdateButtons...┤   │ │ 
    TfrmRemCoverSheet.ChangeStatus...┘   │ │ 
         TfrmRemCoverSheet.btnRemoveClick┤ │ 
           TfrmRemCoverSheet.btnLockClick┘ │ 
  TfrmRemCoverSheet.LockButtonUpdate...┘   │ 
                   TfrmRemCoverSheet.SetSeq┤ 
           TfrmRemCoverSheet.edtSeqChange┤ │ 
              TfrmRemCoverSheet.sbUpClick┤ │ 
            TfrmRemCoverSheet.sbDownClick┘ │ 
          TfrmRemCoverSheet.sbCopyLeftClick┘ 

Called-By

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


Source

1104  function TfrmRemCoverSheet.GetIndex(List: TORStringList;
1105    Item: TListItem): integer;
1106  var
1107    IEN: string;
1108  
1109  begin
1110    if assigned(Item) and assigned(List) then
1111    begin
1112      IEN := Item.SubItems[IdxAdd] + Item.SubItems[IdxIEN];
1113      Result := List.IndexOfPiece(IEN,U,2);
1114    end
1115    else
1116      Result := -1;
1117  end;