Changeset 667 for cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas

Timestamp:

Jan 12, 2010, 3:30:13 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Added button to turn Colored Tabs off

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas (modified) (6 diffs)

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

@@ -976 +976 @@
   //kt replace later... CreateTab(CT_IMAGES,   'Images');   //kt  8/19/05
   LoadTabColors(CPRSChartINI,uTabColorsList);  //kt added 8/8/08
-
+  TabPage.OwnerDraw := uTabColorsEnabled;
   ShowHideChartTabMenus(mnuViewChart);
   //  We defer calling LoadUserPreferences to UMInitiate, so that the font sizing
@@ -3640 +3640 @@
 //  NF_FLAGGED_OI_EXP_INPT          : AlertType := 'Flagged Orderable Item (INPT)';  <-- original line.  //kt 7/17/2007
     NF_FLAGGED_OI_EXP_INPT          : AlertType := DKLangConstW('fFrame_Flagged_Orderable_Item_xINPTx'); //kt added 7/17/2007
-//  NF_FLAGGED_OI_EXP_OUTPT         : AlertType := 'Flagged Orderable Item (OUTPT)';  <-- original line.  //kt 7/17/2007
-    NF_FLAGGED_OI_EXP_OUTPT         : AlertType := DKLangConstW('fFrame_Flagged_Orderable_Item_xOUTPTx'); //kt added 7/17/2007
+//  NF_FLAGGED_OI_EXP_OUTPT         : AlertType := 'Flagged Orderable Item (OUTPT)';  <-- original line.  //kt2 7/17/2007
+    NF_FLAGGED_OI_EXP_OUTPT         : AlertType := DKLangConstW('fFrame_Flagged_Orderable_Item_xOUTPTx'); //kt2 added 7/17/2007
   else
     Exit;
@@ -4989 +4989 @@
     //this isn't working... This is not what I want.  Fix later...
     //For now, uTabColorsEnabled should always be TRUE.
-    Control.Canvas.FillRect(Rect);
+    //Control.Canvas.FillRect(Rect);   //elh   we will try to alter the OwnerDraw property here
+    //TabPage.OwnerDraw := uTabColorsEnabled;
   end;
 end;
@@ -5044 +5045 @@
 
   begin
+  //NOTE: Something in this function is causing MS Vista to not
+  //show tab text. I am commenting a few items to test at home on
+  //a 64-bit Vista machine.    //elh  01-11-10
     oRect    := Rect;
     inactiveColor := Darken(Color,75);  //75%
@@ -5054 +5058 @@
     end;
 
-    Control.Canvas.Font.Name := 'Tahoma';
+    Control.Canvas.Font.Name := 'Tahoma';  //Test4
     if Active then begin
-      Control.Canvas.Font.Style := Control.Canvas.Font.Style + [fsBold];
-      Control.Canvas.Font.Color := clBlack
+      Control.Canvas.Font.Style := Control.Canvas.Font.Style + [fsBold];  //Test3
+      Control.Canvas.Font.Color := clBlack    //Test1
     end else begin
-      Control.Canvas.Font.Style := Control.Canvas.Font.Style - [fsBold];
+      Control.Canvas.Font.Style := Control.Canvas.Font.Style - [fsBold];  //Test3
       //Control.Canvas.Font.Color := clBlack
-      Control.Canvas.Font.Color := clWhite;
-    end;
-
+      Control.Canvas.Font.Color := clWhite;   //Test1
+    end;
+    
     if (TabControl.TabPosition = tpLeft) or (TabControl.TabPosition = tpRight) then begin
 
@@ -5099 +5103 @@
 
     if Active then begin
-      Control.Canvas.Brush.Color := Color;
+      Control.Canvas.Brush.Color := Color;  //Test2
     end else begin
-      Control.Canvas.Brush.Color := inactiveColor;
+      Control.Canvas.Brush.Color := inactiveColor;  //Test2
     end;
     Control.Canvas.FillRect(Rect);