Changeset 654 for cprs/branches/tmg-cprs/CPRS-Chart/fPtSelOptns.pas

Timestamp:

Jan 4, 2010, 8:02:21 AM (14 years ago)

Author:

Kevin Toppenberg

Message:

Added HTML templating

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fPtSelOptns.pas (modified) (6 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/fPtSelOptns.pas

@@ -225 +225 @@
 { called by radTeams, radSpecialties, radWards - shows items for the list source }
 begin
+(*     Commented out until a further clarification    //kt  12/29/09
     //vwpt remove other radio button selections
-// if frmPtSel.radiogroup1.index <> 0 then   //kt
- if frmPtSel.RadioGroup1.ItemIndex <> 0 then
- begin
+ if assigned(frmPtSel) and (frmPtSel.radiogroup1.ItemIndex <> 0) then   //kt
+ begin      //elh
       FSrcType := TControl(Sender).Tag;
       case FSrcType of
@@ -257 +257 @@
  begin
   //end vwpt
+  *)
   cboList.Pieces := '2';
   FSrcType := TControl(Sender).Tag;
@@ -275 +276 @@
   end;
   cboList.Caption := TRadioButton(Sender).Caption;
- end; //else
+ //kt end; //else
 end;
 
@@ -282 +283 @@
 begin
   //vwpt remove other radio button selections
- // if fPtSel.radiogrp1index <> 0 then //kt
+ (*     Commented out until a further clarification    //kt  12/29/09
  if frmPtSel.RadioGroup1.ItemIndex <> 0 then
  begin
@@ -306 +307 @@
  else
  begin
-  //end vwpt
+  //end vwpt  *)
   cboList.Pieces := '2';
   FSrcType := TControl(Sender).Tag;
@@ -331 +332 @@
   end;
   cboList.Caption := TRadioButton(Sender).Caption;
- end; //else
+ //kt end; //else
 end;