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

Timestamp:

Jul 2, 2010, 7:54:17 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Fixed crash on non-login

File:

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

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

@@ -369 +369 @@
     procedure SetEditorFocus;                                                  //kt
     function  EditorHasText : boolean;                                         //kt
+    procedure ChangeToNote(IEN : String; ADFN : String = '-1');                //kt 6/26/10
   public
     HtmlEditor : THtmlObj; //kt 8/09
@@ -594 +595 @@
   TX_AUTH_SIGNED    := DKLangConstW('fNotes_Author_has_not_signedx_are_you_SURE_you_want_to_signx') +CRLF;
 end;
- 
+
 var
   uPCEShow, uPCEEdit:  TPCEData;
@@ -1611 +1612 @@
   //          another object (say a prior THtmlObj) has become active and already
   //          changed the handler, then there will be a problem.  So probably best
-  //          to create them all at one.  //kt
+  //          to create them all at once.  //kt
   HtmlViewer := THtmlObj.Create(pnlHTMLViewer,Application);
   HtmlEditor := THtmlObj.Create(pnlHTMLEdit,Application);
@@ -1705 +1706 @@
       if FEditNote.Lines = nil then FEditNote.Lines := TStringList.Create; //kt 8/09
       Note := FEditNote.Lines;                                             //kt 8/09
-      {pnlWrite.Visible := True;                                           //kt 8/09
-      pnlRead.Visible := False; } //kt done in SetHTMLorTextEditor         //kt 8/09
       mnuViewDetail.Enabled    := False;
       if (FEditNote.IDParent <> 0) and (not FNewIDChild) then
@@ -4894 +4893 @@
 
 procedure TfrmNotes.mnuSearchNotesClick(Sender: TObject);
+//kt added
 begin
   inherited;
   Application.CreateForm(TfrmPtDocSearch, frmPtDocSearch);
-  frmPtDocSearch.ShowModal;
-  //open diff note it selected
+  if frmPtDocSearch.ShowModal > -1 then begin
+    //open diff note it selected
+
+  end;
   frmPtDocSearch.Free;
 end;
+
+procedure TfrmNotes.ChangeToNote(IEN : String; ADFN : String = '-1');
+//kt added 6/26/10
+//Effect changing note by simulating a notification click.
+begin
+end;
+
 
 initialization