Changeset 1679 for cprs/trunk/CPRS-Chart/Encounter/fPCEBaseMain.pas

Timestamp:

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

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

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

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

@@ -60 +60 @@
     FPCECode: string;
     FSplitterMove: boolean;
+    FProblems: TStringList;
     function GetCat: string;
     procedure UpdateNewItemStr(var x: string); virtual;
@@ -86 +87 @@
 
 uses fPCELex, fPCEOther, fEncounterFrame, fHFSearch, VA508AccessibilityRouter,
-  ORCtrlsVA508Compatibility, fBase508Form;
+  ORCtrlsVA508Compatibility, fBase508Form, UBAConst;
 
 {$R *.DFM}
@@ -104 +105 @@
   CheckOffEntries;
   FSectionPopulated := TRUE;
+  if (lbSection.Items.Count > 0) then
+    lblList.Caption := StringReplace(lbSection.DisplayText[lbSection.ItemIndex],
+      '&', '&&', [rfReplaceAll] );
+  if (lbSection.DisplayText[lbSection.ItemIndex] = DX_PROBLEM_LIST_TXT) then
+    FastAssign(lbxSection.Items, FProblems);
 end;
 
@@ -296 +302 @@
 begin
   inherited FormCreate(Sender);
+  FProblems := TStringList.Create;
   lbxSection.HideSelection := TRUE;
   amgrMain.ComponentManager[lbSection] := TLBSectionManager.Create;
@@ -301 +308 @@
 
 procedure TfrmPCEBaseMain.FormDestroy(Sender: TObject);
-var
-  i:integer;
-
-begin
-  inherited;
-  with lbGrid.Items do for i := 0 to Count - 1 do TPCEItem(Objects[i]).Free;
+begin
+  inherited;
+  FProblems.Free;
 end;