Procedure

TfrmPtSelOptSave.btnOKClick

Module

fPtSelOptSave

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmPtSelOptSave

Declaration

procedure btnOKClick(Sender: TObject);


Source

54    procedure TfrmPtSelOptSave.btnOKClick(Sender: TObject);
55    begin
56    
57    if ((rGrpClinSave.itemIndex < 0) or (rGrpClinSave.itemIndex >1)) then
58      begin
59        InfoBox('No selection made', 'Clinic Save Options', MB_OK);
60        exit;
61      end;
62      if (rGrpClinSave.itemIndex = 0) then
63        fPtSelOptns.clinSaveToday := false;
64      if (rGrpClinSave.itemIndex = 1) then
65        fPtSelOptns.clinSaveToday := true;
66      fPtSelOptns.clinDoSave := true;
67    close;
68    
69    end;