source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODRadImType.pas@ 453

//kt -- Modified with SourceScanner on 8/8/2007
unit fODRadImType;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ORCtrls, ORfn, ExtCtrls, DKLang;

type
  TfrmODRadImType = class(TForm)
    cmdOK: TButton;
    cmdCancel: TButton;
    cboImType: TORComboBox;
    SrcLabel: TLabel;
    pnlBase: TORAutoPanel;
    DKLanguageController1: TDKLanguageController;
    procedure cmdOKClick(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
    procedure cboImTypeDblClick(Sender: TObject);
  private
    FImagingType: string  ;
    FChanged: Boolean;
  end;

procedure SelectImagingType(FontSize: Integer; var ImagingType: string) ;

implementation

{$R *.DFM}

uses rODRad, rCore, uCore;

//const
//TX_RAD_TEXT = 'Select imaging type or press Cancel.';  <-- original line.  //kt 8/8/2007
//TX_RAD_CAP = 'No imaging type Selected';  <-- original line.  //kt 8/8/2007

var
  TX_RAD_TEXT  : string;  //kt
  TX_RAD_CAP   : string;  //kt


procedure SetupVars;
//kt Added entire function to replace constant declarations 8/8/2007
begin
  TX_RAD_TEXT := DKLangConstW('fODRadImType_Select_imaging_type_or_press_Cancelx');
  TX_RAD_CAP := DKLangConstW('fODRadImType_No_imaging_type_Selected');
end;
 
procedure SelectImagingType(FontSize: Integer; var ImagingType: string) ;
{ displays imaging type selection form and returns a record of the selection }
var
  frmODRadImType: TfrmODRadImType;
  W, H: Integer;
begin
  frmODRadImType := TfrmODRadImType.Create(Application);
  try
    with frmODRadImType do
    begin
      Font.Size := FontSize;
      W := ClientWidth;
      H := ClientHeight;
      ResizeToFont(FontSize, W, H);
      ClientWidth  := W; pnlBase.Width  := W;
      ClientHeight := H; pnlBase.Height := H;
      FChanged := False;
      cboImType.Items.Assign(SubsetOfImagingTypes);
      if cboImType.Items.Count > 1 then
         ShowModal
      else
         FImagingType := cboImType.Items[0] ;
      ImagingType:= FImagingType ;
    end; {with frmODRadImType}
  finally
    frmODRadImType.Release;
  end;
end;

procedure TfrmODRadImType.cmdCancelClick(Sender: TObject);
begin
  FImagingType := '-1';
  Close;
end;

procedure TfrmODRadImType.cmdOKClick(Sender: TObject);
begin
  SetupVars;  //kt added 8/8/2007 to replace constants with vars.
 with cboImType do
  begin
   if ItemIEN = 0 then
    begin
     InfoBox(TX_RAD_TEXT, TX_RAD_CAP, MB_OK or MB_ICONWARNING);
     FChanged := False ;
     FImagingType := '-1';
     Exit;
    end;
   FChanged := True;
   FImagingType := Items[ItemIndex];
   Close;
  end ;
end;

procedure TfrmODRadImType.cboImTypeDblClick(Sender: TObject);
begin
  cmdOKClick(Self);
end;

end.