Procedure

TfrmOrders.SynchListToOrders

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

Make sure lstOrders now reflects the current state of orders

Visibility

Private

Owner

TfrmOrders

Declaration

procedure SynchListToOrders;

Calls Hierarchy


TfrmOrders.SynchListToOrders
 └TfrmOrders.GetPlainText
   └TfrmOrders.GetOrderText
     ├LoadFlagReason
     ├TfrmOrders.GetStartStopText
     └NameOfStatus

Called-By Hierarchy


    TfrmOrders.SynchListToOrders
        TfrmOrders.NotifyOrder┤ 
        TfrmFrame.UMNewOrder┘ │ 
      TfrmOrders.mnuActDCClick┤ 
 TfrmOrders.mnuActChgEvntClick┤ 
    TfrmOrders.mnuActHoldClick┤ 
  TfrmOrders.mnuActUnholdClick┤ 
   TfrmOrders.mnuActRenewClick┤ 
TfrmOrders.mnuActCompleteClick┤ 
  TfrmOrders.mnuActVerifyClick┤ 
TfrmOrders.mnuActChartRevClick┤ 
       TfrmOrders.RequestPrint┘ 
 TfrmFrame.mnuFilePrintClick┘   

Calls

Name Declaration Comments
TfrmOrders.GetPlainText function GetPlainText(AnOrder: TOrder; index: integer):string; -

Called-By

Name Declaration Comments
TfrmOrders.mnuActChartRevClick procedure mnuActChartRevClick(Sender: TObject); -
TfrmOrders.mnuActChgEvntClick procedure mnuActChgEvntClick(Sender: TObject); -
TfrmOrders.mnuActCompleteClick procedure mnuActCompleteClick(Sender: TObject); -
TfrmOrders.mnuActDCClick procedure mnuActDCClick(Sender: TObject); -
TfrmOrders.mnuActHoldClick procedure mnuActHoldClick(Sender: TObject); -
TfrmOrders.mnuActRenewClick procedure mnuActRenewClick(Sender: TObject); -
TfrmOrders.mnuActUnholdClick procedure mnuActUnholdClick(Sender: TObject); -
TfrmOrders.mnuActVerifyClick procedure mnuActVerifyClick(Sender: TObject); -
TfrmOrders.NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; -
TfrmOrders.RequestPrint procedure RequestPrint; override; -


Source

1783  procedure TfrmOrders.SynchListToOrders;
1784  { make sure lstOrders now reflects the current state of orders }
1785  var
1786    i: Integer;
1787  begin
1788    with lstOrders do for i := 0 to Items.Count - 1 do
1789    begin
1790      Items[i] := GetPlainText(TOrder(Items.Objects[i]),i);
1791      if Selected[i] then Selected[i] := False;
1792    end;
1793    lstOrders.Invalidate;
1794  end;