Procedure

TfrmChgEvent.Highlight

Module

fOrdersCV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public

Owner

TfrmChgEvent

Declaration

procedure Highlight(APtEvtID: string);

Calls Hierarchy


TfrmChgEvent.Highlight
 ├TfrmChgEvent.FilterOutEmptyPtEvt
 │ ├LoadOrderSheetsED
 │ ├DeleteEmptyEvt
 │ │ ├PtEvtEmpty
 │ │ ├GetEventName
 │ │ └DeletePtEvent
 │ └TfrmOrders.ChangesUpdate
 │   ├TheParentPtEvt
 │   └TChanges.Remove
 │     ├UnlockOrder
 │     └UnlockDocument
 └TfrmOrders.InitOrderSheetsForEvtDelay
   ├TfrmOrders.InitOrderSheets
   │ ├TfrmOrders.ClearOrderSheets
   │ ├LoadOrderSheetsED
   │ ├DGroupAll
   │ └EventInfo
   └TfrmOrders.DfltViewForEvtDelay
     ├TfrmOrders.CanChangeOrderView
     │ └ActiveOrdering
     └LoadOrderViewDefault

Called-By Hierarchy


           TfrmChgEvent.Highlight
               ExecuteChangeEvt┘ 
TfrmOrders.mnuActChgEvntClick┘   

Calls

Name Declaration Comments
TfrmChgEvent.FilterOutEmptyPtEvt procedure FilterOutEmptyPtEvt; -
TfrmOrders.InitOrderSheetsForEvtDelay procedure InitOrderSheetsForEvtDelay; -

Called-By

Name Declaration Comments
ExecuteChangeEvt function ExecuteChangeEvt(SelectedList: TList; var DoesDestEvtOccur: boolean; var DestPtEvtID: integer; var DestPtEvtName: string): boolean; -


Source

410   procedure TfrmChgEvent.Highlight(APtEvtID: string);
411   var
412     jjj: integer;
413   begin
414     FilterOutEmptyPtEvt;
415     frmOrders.InitOrderSheetsForEvtDelay;
416     for jjj := 0 to frmOrders.lstSheets.Items.Count - 1 do
417     begin
418       if Piece(frmOrders.lstSheets.Items[jjj],'^',1)=APtEvtID then
419       begin
420         frmOrders.lstSheets.ItemIndex := jjj;
421         break;
422       end;
423     end;
424   end;