//kt -- Modified with SourceScanner on 9/5/2007 unit fPtSelOptSave; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ORCtrls, ORFn, DKLang; type TfrmPtSelOptSave = class(TForm) pnlClinSave: TPanel; rGrpClinSave: TKeyClickRadioGroup; lblClinSettings: TMemo; btnOK: TButton; btnCancel: TButton; procedure FormCreate(Sender: TObject); procedure btnCancelClick(Sender: TObject); procedure btnOKClick(Sender: TObject); procedure rGrpClinSaveClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var frmPtSelOptSave: TfrmPtSelOptSave; implementation {$R *.DFM} uses rCore, fPtSelOptns; procedure TfrmPtSelOptSave.FormCreate(Sender: TObject); begin ResizeAnchoredFormToFont(self); //self.caption := 'Save Patient List Settings'; <-- original line. //kt 9/5/2007 self.caption := DKLangConstW('fPtSelOptSave_Save_Patient_List_Settings'); //kt added 9/5/2007 fPtSelOptns.clinDoSave := false; // Initialize. fPtSelOptns.clinSaveToday := false; //lblClinSettings.text := 'Save ' + fPtSelOptns.clinDefaults + <-- original line. //kt 9/5/2007 lblClinSettings.text := DKLangConstW('fPtSelOptSave_Save') + fPtSelOptns.clinDefaults + //kt added 9/5/2007 // CRLF + ' defaults as follows?'; <-- original line. //kt 9/5/2007 CRLF + DKLangConstW('fPtSelOptSave_defaults_as_followsx'); //kt added 9/5/2007 rGrpClinSave.itemIndex := -1; // rGrpClinSave.TabStop := True; btnOK.Enabled := False; end; procedure TfrmPtSelOptSave.btnCancelClick(Sender: TObject); begin close; end; procedure TfrmPtSelOptSave.btnOKClick(Sender: TObject); begin if ((rGrpClinSave.itemIndex < 0) or (rGrpClinSave.itemIndex >1)) then begin // InfoBox('No selection made', 'Clinic Save Options', MB_OK); <-- original line. //kt 9/5/2007 InfoBox(DKLangConstW('fPtSelOptSave_No_selection_made'), DKLangConstW('fPtSelOptSave_Clinic_Save_Options'), MB_OK); //kt added 9/5/2007 exit; end; if (rGrpClinSave.itemIndex = 0) then fPtSelOptns.clinSaveToday := false; if (rGrpClinSave.itemIndex = 1) then fPtSelOptns.clinSaveToday := true; fPtSelOptns.clinDoSave := true; close; end; procedure TfrmPtSelOptSave.rGrpClinSaveClick(Sender: TObject); var Chosen: Boolean; begin Chosen := rGrpClinSave.ItemIndex >= 0; // rGrpClinSave.TabStop := not Chosen; btnOK.Enabled := Chosen; end; end.