Procedure

TfrmTIUView.lstStatusSelect

Module

fTIUView

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmTIUView

Declaration

procedure lstStatusSelect(Sender: TObject);

Calls Hierarchy


TfrmTIUView.lstStatusSelect
 └FMToday
   └FMNow

Called-By Hierarchy


                   TfrmTIUView.lstStatusSelect
                               SelectTIUView┘ 
                   TfrmDCSumm.mnuViewClick┤   
               TfrmDCSumm.SetViewContext┤ │   
                TfrmDCSumm.DisplayPage┤ │ │   
TfrmDCSumm.mnuViewReturntoDefaultClick┘ │ │   
    TfrmDCSumm.mnuViewSaveAsDefaultClick┘ │   
                    TfrmNotes.mnuViewClick┘   
                TfrmNotes.SetViewContext┤     
                 TfrmNotes.DisplayPage┤ │     
 TfrmNotes.mnuViewReturntoDefaultClick┘ │     
     TfrmNotes.mnuViewSaveAsDefaultClick┘     

Calls

Name Declaration Comments
FMToday function FMToday: TFMDateTime; -

Called-By

Name Declaration Comments
SelectTIUView function SelectTIUView(FontSize: Integer; ShowForm: Boolean; CurrentContext: TTIUContext; var TIUContext: TTIUContext): boolean ; -


Source

248   procedure TfrmTIUView.lstStatusSelect(Sender: TObject);
249   var
250     EnableDates: Boolean;
251   begin
252     EnableDates := (lstStatus.ItemID <> '1');
253     lblBeginDate.Enabled := EnableDates;
254     calBeginDate.Enabled := EnableDates;
255     lblEndDate.Enabled := EnableDates;
256     calEndDate.Enabled := EnableDates;
257     if not EnableDates then
258       begin
259         calBeginDate.Text := '';
260         calEndDate.Text := '';
261       end
262     else
263       begin
264         calBeginDate.Text := FCurrentContext.BeginDate;
265         calEndDate.Text   := FCurrentContext.EndDate;
266         if FCurrentContext.EndDate = '' then calEndDate.FMDateTime := FMToday;
267       end;
268     if lstStatus.ItemID = '3' then
269       lblAuthor.Caption := 'Expected Cosigner:'
270     else
271       lblAuthor.Caption := 'Author:';
272     cboAuthor.Caption := lblAuthor.Caption;
273     if (lstStatus.ItemID = '1') or (lstStatus.ItemID = '5') then
274       begin
275         cboAuthor.ItemIndex := -1;
276         cboAuthor.Enabled := False;
277         lblAuthor.Enabled := False;
278         if FMaxDocs > 0 then
279           edMaxDocs.Text := IntToStr(FMaxDocs)
280         else
281           edMaxDocs.Text := '';
282         edMaxDocs.Enabled := True;
283         lblMaxDocs.Enabled := True;
284       end
285     else
286       begin
287         cboAuthor.Enabled := True;
288         cboAuthor.SelectByIEN(FAuthor);
289         lblAuthor.Enabled := True;
290         edMaxDocs.Text := '';
291         edMaxDocs.Enabled := False;
292         lblMaxDocs.Enabled := False;
293       end;
294   end;