Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/fProbEdt.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/fProbEdt.pas (modified) (3 diffs)

cprs/branches/foia-cprs/CPRS-Chart/fProbEdt.pas

@@ -140 +140 @@
 begin
   Result := not fChanged;
-(*  if not fChanged then
-    begin
-      result := true;
-      exit;
-    end;
-  if InfoBox('Discard changes?', 'Confirmation', MB_OKCANCEL or MB_ICONQUESTION) <> IDOK then
-    result := false
-  else
-    result := true;*)
 end;
 
@@ -160 +151 @@
   else
     begin
-    if (not FSilent) and
-       (InfoBox('Discard changes?', 'Confirmation', MB_YESNO or MB_ICONQUESTION) <> IDYES) then
-      begin
-        FCanQuit := False;
-        exit;
-      end
-    else
-      begin
-        frmProblems.lblProbList.caption := frmProblems.pnlRight.Caption ;
-        FCanQuit := True;
-        close;
-      end;
+      if (not FSilent) and
+         (InfoBox('Discard changes?', 'Add/Edit a Problem', MB_YESNO or MB_ICONQUESTION) <> IDYES) then
+        begin
+          FCanQuit := False;
+          exit;
+        end
+      else
+        begin
+          frmProblems.lblProbList.caption := frmProblems.pnlRight.Caption ;
+          FCanQuit := True;
+          close;
+        end;
     end;
 end;
@@ -388 +379 @@
 
     if Pos(Reason,'E,C') > 0 then ShowComments  ;
+    if ProbRec.CmtIsXHTML then
+      begin
+        bbAdd.Enabled := FALSE;
+        bbEdit.Enabled := FALSE;
+        bbRemove.Enabled := FALSE;
+        pnlComments.Hint := ProbRec.CmtNoEditReason;
+      end
+    else
+      begin
+        bbAdd.Enabled := TRUE;
+        bbEdit.Enabled := TRUE;
+        bbRemove.Enabled := TRUE;
+        pnlComments.Hint := '';
+      end ;
    // ===================  changed code - REV 7/30/98  =========================
    // PlUser.usVerifyTranscribed is a SITE requirement, not a user ability