Procedure

TfrmPtSelOptns.radLongSrcClick

Module

fPtSelOptns

Last Modified

7/15/2014 3:26:38 PM

Comments

Called by radProviders, radClinics - switches to long list & shows items for the list source

Visibility

Public/Published

Owner

TfrmPtSelOptns

Declaration

procedure radLongSrcClick(Sender: TObject);

Calls Hierarchy


TfrmPtSelOptns.radLongSrcClick
 ├TfrmPtSelOptns.HideDateRange
 ├ListProviderTop
 ├TfrmPtSelOptns.ShowDateRange
 │ ├ListDateRangeClinic
 │ └DfltDateRangeClinic
 └ListClinicTop

Calls

Name Declaration Comments
TfrmPtSelOptns.HideDateRange procedure HideDateRange; -
ListClinicTop procedure ListClinicTop(Dest: TStrings); -
ListProviderTop procedure ListProviderTop(Dest: TStrings); -
TfrmPtSelOptns.ShowDateRange procedure ShowDateRange; -


Source

177   procedure TfrmPtSelOptns.radLongSrcClick(Sender: TObject);
178   { called by radProviders, radClinics - switches to long list & shows items for the list source }
179   begin
180     cboList.Pieces := '2';
181     FSrcType := TControl(Sender).Tag;
182     FLastTopList := '';
183     FSetCaptionTop;
184     with cboList do
185     begin
186       Sorted := False;
187       LongList := True;
188       Clear;
189       case FSrcType of
190       TAG_SRC_PROV: begin
191                       cboList.Pieces := '2,3';
192                       HideDateRange;
193                       ListProviderTop(Items);
194                     end;
195       TAG_SRC_CLIN: begin
196                       ShowDateRange;
197                       ListClinicTop(Items);
198                     end;
199       end;
200       InitLongList('');
201       Visible := True;
202     end;
203     cboList.Caption := TRadioButton(Sender).Caption;
204   end;