Changeset 1679 for cprs/trunk/CPRS-Chart/fDrawers.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/fDrawers.pas (modified) (4 diffs)

cprs/trunk/CPRS-Chart/fDrawers.pas

@@ -4 +4 @@
   if delete only note (currently editing) then drawers and encounter button still enabled
 }
-//vw mod for template callup. Checks in test  4/15/07
 interface
 
@@ -693 +692 @@
   Node: TTreeNode);
 begin
-//vw mod for template callup. Checks in test
-
-   //Application.MessageBox(PChar('Node='+IntToStr(Node.Index)+' tvtemplates.VertScrollPos='+IntToStr(tvTemplates.VertScrollPos)),PChar(Application.Title),MB_ICONINFORMATION);
-    sbTemplates.Caption := 'Templates '+ 'Node='+IntToStr(Node.Index)+' VertScrollPos='+IntToStr(tvTemplates.VertScrollPos) ;
-//end vw mod
   Node.SelectedIndex := dmodShared.ImgIdx(Node);
 end;
@@ -724 +718 @@
     end;
   end;
-  //vw mod for template callup. Checks in test
-
-   //Application.MessageBox(PChar('Node='+IntToStr(Node.Index)+' tvtemplates.VertScrollPos='+IntToStr(tvTemplates.VertScrollPos)),PChar(Application.Title),MB_ICONINFORMATION);
-    sbTemplates.Caption := 'Templates '+ 'Node='+IntToStr(Node.Index)+' VertScrollPos='+IntToStr(tvTemplates.VertScrollPos) ;
-  //end vw mod
 end;
 
@@ -785 +774 @@
       FClickOccurred := FALSE;
   end;
-  //vw mod for template callup. Checks in test
-
-   //Application.MessageBox(PChar('Node='+IntToStr(Node.Index)+' tvtemplates.VertScrollPos='+IntToStr(tvTemplates.VertScrollPos)),PChar(Application.Title),MB_ICONINFORMATION);
-    sbTemplates.Caption := 'Templates '+ 'Node='+IntToStr(Node.Index)+' VertScrollPos='+IntToStr(tvTemplates.VertScrollPos) ;
-  //end vw mod
 end;