Procedure

TfrmGraphs.cboDateRangeDropDown

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphs

Declaration

procedure cboDateRangeDropDown(Sender: TObject);


Source

7560  procedure TfrmGraphs.cboDateRangeDropDown(Sender: TObject);
7561  begin
7562    if (Top + Height) > (Screen.Height - 100) then
7563      cboDateRange.DropDownCount := 3
7564    else
7565      cboDateRange.DropDownCount := 9;
7566  end;