Changeset 1679 for cprs/trunk/CPRS-Chart/fTimeout.pas

Timestamp:

May 7, 2015, 12:34:29 PM (10 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/fTimeout.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/fTimeout.pas

@@ -9 +9 @@
 type
   TfrmTimeout = class(TfrmAutoSz)
+    timCountDown: TTimer;
+    pnlTop: TPanel;
     Label1: TStaticText;
     Label2: TStaticText;
+    pnlBottom: TPanel;
+    btnClose: TButton;
     cmdContinue: TButton;
     lblCount: TStaticText;
-    timCountDown: TTimer;
+    pnlWarning: TPanel;
+    imgWarning: TImage;
+    lblWarning: TLabel;
+    lblWarningMultiple: TLabel;
+    lblWarningContinue: TLabel;
+    lblWarningPatient: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure cmdContinueClick(Sender: TObject);
     procedure timCountDownTimer(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure btnCloseClick(Sender: TObject);
   private
     { Private declarations }
@@ -55 +66 @@
 end;
 
+procedure TfrmTimeout.FormShow(Sender: TObject);
+begin
+  inherited;
+  SetForegroundWindow(Handle);
+  lblWarningPatient.Caption := Patient.Name;
+  lblWarning.Font.Size := lblWarningPatient.Font.Size + 4;
+  if CPRSInstances < 2 then
+  begin
+    pnlWarning.Visible := false;
+    Height := Height - pnlWarning.Height;
+  end;
+end;
+
+procedure TfrmTimeout.btnCloseClick(Sender: TObject);
+begin
+  inherited;
+  FContinue := False;
+  Close;
+end;
+
 procedure TfrmTimeout.cmdContinueClick(Sender: TObject);
 begin
@@ -74 +105 @@
   Dec(FCount);
   lblCount.Caption := IntToStr(FCount);
-  if FCount = 0 then
+  if FCount < 1 then
   begin
     timCountDown.Enabled := False;