Procedure

TfrmOrderView.chkDateRangeClick

Module

fOrderVw

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmOrderView

Declaration

procedure chkDateRangeClick(Sender: TObject);

Calls Hierarchy


TfrmOrderView.chkDateRangeClick
 └TfrmOrderView.UpdateViewName

Called-By Hierarchy


    TfrmOrderView.chkDateRangeClick
      TfrmOrderView.SynchViewData┤ 
                SelectOrderView┘ │ 
TfrmOrders.mnuViewCustomClick┘   │ 
     TfrmOrderView.trFiltersClick┘ 

Calls

Name Declaration Comments
TfrmOrderView.UpdateViewName procedure UpdateViewName; -

Called-By

Name Declaration Comments
TfrmOrderView.SynchViewData procedure SynchViewData; -
TfrmOrderView.trFiltersClick procedure trFiltersClick(Sender: TObject); -


Source

240   procedure TfrmOrderView.chkDateRangeClick(Sender: TObject);
241   begin
242     inherited;
243     lblThru.Enabled := chkDateRange.Checked;
244     calThru.Enabled := chkDateRange.Checked;
245     lblFrom.Enabled := chkDateRange.Checked;
246     calFrom.Enabled := chkDateRange.Checked;
247     if chkDateRange.Checked then
248     begin
249       calFrom.Color := clWindow;
250       calThru.Color := clWindow;
251       if calThru.FMDateTime = 0 then calThru.Text := 'NOW';
252     end else
253     begin
254       calFrom.FMDateTime := 0;
255       calThru.FMDateTime := 0;
256       calFrom.Color := clBtnFace;
257       calThru.Color := clBtnFace;
258     end;
259     UpdateViewName;
260   end;