Changeset 877 for cprs/branches/tmg-cprs/CPRS-Chart/fNotes.pas

Timestamp:

Jul 15, 2010, 8:02:17 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Dual sync of source code enabled: SVN + BZR

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fNotes.pas (modified) (10 diffs)

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

@@ -184 +184 @@
     mnuSelectExistingImage: TMenuItem;
     mnuAddNewImage: TMenuItem;
-    mnuSearchNotes: TMenuItem;                //kt 4/10
+    mnuSearchNotes: TMenuItem;                //kt 7/5/10
     procedure mnuChartTabClick(Sender: TObject);
     procedure lstNotesClick(Sender: TObject);
@@ -665 +665 @@
     case BOOLCHAR[frmFrame.CCOWContextChanging] of
       '1': begin
-             if ((vmHTML in FViewMode) and (HTMLEditor.Text <> ''))                 //kt 8/09
-               or ((not (vmHTML in FViewMode)) and (memNewNote.GetTextLen > 0 )) then begin  //kt
+             {if ((vmHTML in FViewMode) and (HTMLEditor.Text <> ''))                 //kt 8/09
+               or ((not (vmHTML in FViewMode)) and (memNewNote.GetTextLen > 0 )) then begin  //kt }
+             if EditorHasText then begin  //kt 7/10                 
 //             WhyNot := WhyNot + 'A note in progress will be saved as unsigned.  '  <-- original line.  //kt 7/19/2007
                WhyNot := WhyNot + DKLangConstW('fNotes_A_note_in_progress_will_be_saved_as_unsignedx') //kt added 7/19/2007
@@ -698 +699 @@
                end;
            end;
-    end;
-end;
-
-procedure TfrmNotes.LstNotesToPrint;       
+    end; {case}
+end;
+
+procedure TfrmNotes.LstNotesToPrint;
 var
   AParentID: string;
@@ -709 +710 @@
   inherited;
   if not uIDNotesActive then exit;
-  if lstNotes.ItemIEN = 0 then exit;           
+  if lstNotes.ItemIEN = 0 then exit;
   SavedDocID := lstNotes.ItemID;
   if EditingIndex <> -1 then
@@ -1759 +1760 @@
   DisplayPCE;                          //kt 5-31-05 (move down from above)
   BroadcastImages(Note);               //kt 8/09
-
-  //-----------------------------
-  //kt RESTORE LATER... frmImages.NewNoteSelected(lstNotes.ItemIndex=EditingIndex);  //kt added 9-20-05
 end;
 
@@ -1802 +1800 @@
 begin
   if (vmHTML in FViewMode) then begin
-    Result := (HTMLViewer.Text <> '');
+    //kt Result := (HTMLViewer.Text <> '');
+    Result := (HTMLEditor.Text <> ''); // kt 7/10
   end else begin
-    Result := (memNote.Lines.Count > 0);
+    //kt Result := (memNote.Lines.Count > 0);
+    Result := (memNewNote.GetTextLen > 0);  //kt 7/10
   end;
 end;
@@ -2477 +2477 @@
   ReasonForDelete, AVisitStr, SavedDocID, x: string;
   Saved: boolean;
+const
+  ATTACHED_IMAGES_SERVER_REPLY = 'You must "delete" the Images using the Imaging package before proceeding.';
 begin
   SetupVars;  //kt added 7/19/2007 to replace constants with vars.
@@ -2482 +2484 @@
   if lstNotes.ItemIEN = 0 then Exit;
   ActOnDocument(ActionSts, lstNotes.ItemIEN, 'DELETE RECORD');
+  if Pos(ATTACHED_IMAGES_SERVER_REPLY, ActionSts.Reason) > 0 then ActionSts.Success := true;  //elh 7-13-10
   if ShowMsgOn(not ActionSts.Success, ActionSts.Reason, TX_IN_AUTH) then Exit;
   ReasonForDelete := SelectDeleteReason(lstNotes.ItemIEN);
   if ReasonForDelete = DR_CANCEL then Exit;
+  if Pos(ATTACHED_IMAGES_SERVER_REPLY, ActionSts.Reason) > 0 then frmImages.DeleteAll(idmDelete);  //elh 7-13-10
   // suppress prompt for deletion when called from SaveEditedNote (Sender = Self)
   if (Sender <> Self) and (InfoBox(MakeNoteDisplayText(lstNotes.Items[lstNotes.ItemIndex]) + TX_DEL_OK,
@@ -4899 +4903 @@
   if frmPtDocSearch.ShowModal > -1 then begin
     //open diff note it selected
-
   end;
   frmPtDocSearch.Free;
@@ -4908 +4911 @@
 //Effect changing note by simulating a notification click.
 begin
+  //implement later
 end;