Changeset 496 for cprs/branches/tmg-cprs/CPRS-Chart/fDrawers.pas

Timestamp:

Feb 18, 2009, 3:22:51 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Fixed missing TDKLang. Class, Added email demographic, Fixed field error in demographis

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fDrawers.pas (modified) (3 diffs)

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

@@ -697 +697 @@
    //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) ;  <-- original line.  //kt 7/15/2007
-    sbTemplates.Caption := DKLangConstW('fDrawers_Templates')+ DKLangConstW('fDrawers_Nodex')+IntToStr(Node.Index)+DKLangConstW('fDrawers_VertScrollPosx')+IntToStr(tvTemplates.VertScrollPos) ; //kt added 7/15/2007
+
+    // changed caption to only say "Templates"   elh 2/18/09
+    //sbTemplates.Caption := DKLangConstW('fDrawers_Templates')+ DKLangConstW('fDrawers_Nodex')+IntToStr(Node.Index)+DKLangConstW('fDrawers_VertScrollPosx')+IntToStr(tvTemplates.VertScrollPos) ; //kt added 7/15/2007
+    sbTemplates.Caption := DKLangConstW('fDrawers_Templates');
+
 //end vw mod
   Node.SelectedIndex := dmodShared.ImgIdx(Node);
@@ -729 +733 @@
    //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) ;  <-- original line.  //kt 7/15/2007
-    sbTemplates.Caption := DKLangConstW('fDrawers_Templates')+ DKLangConstW('fDrawers_Nodex')+IntToStr(Node.Index)+DKLangConstW('fDrawers_VertScrollPosx')+IntToStr(tvTemplates.VertScrollPos) ; //kt added 7/15/2007
+
+    // changed caption to only say "Templates"   elh 2/18/09
+    //sbTemplates.Caption := DKLangConstW('fDrawers_Templates')+ DKLangConstW('fDrawers_Nodex')+IntToStr(Node.Index)+DKLangConstW('fDrawers_VertScrollPosx')+IntToStr(tvTemplates.VertScrollPos) ; //kt added 7/15/2007
+    sbTemplates.Caption := DKLangConstW('fDrawers_Templates');
+
   //end vw mod
 end;
@@ -791 +799 @@
    //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) ;  <-- original line.  //kt 7/15/2007
-    sbTemplates.Caption := DKLangConstW('fDrawers_Templates')+ DKLangConstW('fDrawers_Nodex')+IntToStr(Node.Index)+DKLangConstW('fDrawers_VertScrollPosx')+IntToStr(tvTemplates.VertScrollPos) ; //kt added 7/15/2007
+
+    // changed caption to only say "Templates"   elh 2/18/09
+    //sbTemplates.Caption := DKLangConstW('fDrawers_Templates')+ DKLangConstW('fDrawers_Nodex')+IntToStr(Node.Index)+DKLangConstW('fDrawers_VertScrollPosx')+IntToStr(tvTemplates.VertScrollPos) ; //kt added 7/15/2007
+    sbTemplates.Caption := DKLangConstW('fDrawers_Templates');
+    
   //end vw mod
 end;