Changeset 830 for cprs/trunk/CPRS-Chart/fPtSelDemog.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/fPtSelDemog.pas (modified) (5 diffs)

cprs/trunk/CPRS-Chart/fPtSelDemog.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ExtCtrls, ORCtrls;
+  StdCtrls, ExtCtrls, ORCtrls, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmPtSelDemog = class(TForm)
+  TfrmPtSelDemog = class(TfrmBase508Form)
     orapnlMain: TORAutoPanel;
     lblSSN: TStaticText;
@@ -41 +41 @@
 implementation
 
-uses rCore;
+uses rCore, VA508AccessibilityRouter;
 
 {$R *.DFM}
@@ -139 +139 @@
 const
   Gap = 4;
+  MaxFont = 10;
+  var uHeight:integer;
+
 
 begin
@@ -162 +165 @@
       lblPtRoomBed.Left := lblPtLocation.Left;
   end;
+  if frmPtSelDemog.Canvas.Font.Size > MaxFont then
+  begin
+    uHeight         := frmPtSelDemog.Canvas.TextHeight(lblPtSSN.Caption)-2;
+    lblPtSSN.Top    := (lblPtName.Top + uHeight);
+    lblSSN.Top      := lblPtSSN.Top;
+    lblPtDOB.Height := uHeight;
+    lblPtDOB.Top    := (lblPtSSn.Top + uHeight);
+    lblDOB.Top      := lblPtDOB.Top;
+    lblPtSex.Height :=  uHeight;
+    lblPtSex.Top    := (lblPtDOB.Top + uHeight);
+    lblPtVet.Height :=  uHeight;
+    lblPtVet.Top    := (lblPtSex.Top + uHeight);
+    lblPtSC.Height  := uHeight;
+    lblPtSC.Top     :=  lblPtVet.Top;
+    lblLocation.Height := uHeight;
+    lblLocation.Top := ( lblPtVet.Top + uHeight);
+    lblPtLocation.Top := lblLocation.Top;
+    lblRoomBed.Height := uHeight;
+    lblRoomBed.Top    :=(lblLocation.Top + uHeight)+ 2;
+    lblPtRoomBed.Height := uHeight;
+    lblPtRoomBed.Top  := lblRoomBed.Top ;
+  end;
 end;
 
@@ -169 +194 @@
 end;
 
+initialization
+  SpecifyFormIsNotADialog(TfrmPtSelDemog);
+
 end.