Procedure

Highlight

Module

fOrdersCopy

Last Modified

7/15/2014 3:26:42 PM

Scope

Local

Local subprogram to

SetViewForCopy

Declaration

procedure Highlight(APtEvtID: string);

Calls Hierarchy


Highlight
 └TfrmOrders.InitOrderSheetsForEvtDelay
   ├TfrmOrders.InitOrderSheets
   │ ├TfrmOrders.ClearOrderSheets
   │ ├LoadOrderSheetsED
   │ ├DGroupAll
   │ └EventInfo
   └TfrmOrders.DfltViewForEvtDelay
     ├TfrmOrders.CanChangeOrderView
     │ └ActiveOrdering
     └LoadOrderViewDefault

Called-By Hierarchy


                     Highlight
              SetViewForCopy┘ 
TfrmOrders.mnuActCopyClick┘   

Calls

Name Declaration Comments
TfrmOrders.InitOrderSheetsForEvtDelay procedure InitOrderSheetsForEvtDelay; -

Called-By

Name Declaration Comments
SetViewForCopy function SetViewForCopy(var IsNewEvent: boolean; var DoesDestEvtOccur: boolean; var DestPtEvtID: integer; var DestPtEvtName: string): Boolean; -


Source

62    procedure Highlight(APtEvtID: string);
63    var
64      j: integer;
65    begin
66      frmOrders.InitOrderSheetsForEvtDelay;
67      for j := 0 to frmOrders.lstSheets.Items.Count - 1 do
68      begin
69        if Piece(frmOrders.lstSheets.Items[j],'^',1)=APtEvtID then
70        begin
71          frmOrders.lstSheets.ItemIndex := j;
72          break;
73        end;
74      end;
75    end;