Changeset 829 for cprs/trunk/CPRS-Chart/Encounter/fDiagnoses.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Encounter/fDiagnoses.pas (modified) (6 diffs)

cprs/trunk/CPRS-Chart/Encounter/fDiagnoses.pas

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   fPCEBase, StdCtrls, CheckLst, ORCtrls, ORNet, ExtCtrls, Buttons, uPCE, rPCE, ORFn,
-  ComCtrls, fPCEBaseMain, UBAGlobals, UBAConst, UCore;
+  ComCtrls, fPCEBaseMain, UBAGlobals, UBAConst, UCore, VA508AccessibilityManager;
 
 type
@@ -12 +12 @@
     cmdDiagPrimary: TButton;
     ckbDiagProb: TCheckBox;
-    lblAdd2PL: TLabel;
     procedure cmdDiagPrimaryClick(Sender: TObject);
     procedure ckbDiagProbClicked(Sender: TObject);
@@ -49 +48 @@
 
 uses
-  fEncounterFrame, uConst, UBACore;
+  fEncounterFrame, uConst, UBACore, VA508AccessibilityRouter;
 
 procedure TfrmDiagnoses.EnsurePrimaryDiag;
@@ -153 +152 @@
             PLItemCount := PLItemCount + 1;
       OK := OK and (PLItemCount < lbGrid.SelCount);
-      lblAdd2PL.Enabled := OK;
       ckbDiagProb.Enabled := OK;
       if(OK) then
@@ -182 +180 @@
 begin
   inherited;
+  if lbxSection.width = 0 then Exit;
   FSectionTabs[0] := -(lbxSection.width - LBCheckWidthSpace - (8*MainFontWidth) - ScrollBarWidth);
   FSectionTabs[1] := -FSectionTabs[0]+2;
@@ -257 +256 @@
 end;
 
+initialization
+  SpecifyFormIsNotADialog(TfrmDiagnoses);
+
 end.