Procedure

TfrmPtSelOptns.cboDateRangeMouseClick

Module

fPtSelOptns

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmPtSelOptns

Declaration

procedure cboDateRangeMouseClick(Sender: TObject);

Called-By Hierarchy


TfrmPtSelOptns.cboDateRangeMouseClick
    TfrmPtSelOptns.cboDateRangeExit┘ 

Called-By

Name Declaration Comments
TfrmPtSelOptns.cboDateRangeExit procedure cboDateRangeExit(Sender: TObject); -


Source

301   procedure TfrmPtSelOptns.cboDateRangeMouseClick(Sender: TObject);
302   begin
303     if (cboDateRange.ItemID = 'S') then
304     begin
305       with calApptRng do if Execute
306         then cboDateRange.ItemIndex := cboDateRange.Items.Add(RelativeStart + ';' +
307              RelativeStop + U + TextOfStart + ' to ' + TextOfStop)
308         else cboDateRange.ItemIndex := -1;
309     end;
310     FLastDateIndex := cboDateRange.ItemIndex;
311     if cboList.ItemIEN > 0 then FSetPtListTop(cboList.ItemIEN);
312   end;