Changeset 667 for cprs/branches/tmg-cprs/CPRS-Chart/Options

Timestamp:

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

Author:

Kevin Toppenberg

Message:

Added button to turn Colored Tabs off

Location:

cprs/branches/tmg-cprs/CPRS-Chart/Options

Files:

• fOptionsOther.dfm (modified) (2 diffs)
• fOptionsOther.pas (modified) (2 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsOther.dfm

@@ -1 +1 @@
 object frmOptionsOther: TfrmOptionsOther
-  Left = 298
-  Top = 189
+  Left = 517
+  Top = 143
   Hint = 'Use system default settings'
   HelpContext = 9110
@@ -380 +380 @@
   object cbEnableTabColors: TCheckBox
     Left = 9
-    Top = 110
+    Top = 102
     Width = 169
     Height = 17
     Caption = 'Enable Custom Tab Colors'
     Checked = True
-    Enabled = False
     State = cbChecked
     TabOrder = 26
-    Visible = False
     OnClick = cbEnableTabColorsClick
   end

cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsOther.pas

@@ -199 +199 @@
 procedure TfrmOptionsOther.FormCreate(Sender: TObject);
 begin
+  cbEnableTabColors.checked := uTabColorsEnabled;
   FStartDT  := 0;
   FStopDT   := 0;
@@ -351 +352 @@
 //kt added
 begin
-  uTabColorsEnabled := cbEnableTabColors.Checked;
-  cboTabColors.Enabled    := uTabColorsEnabled;
-  lblEditTabColor.Enabled := uTabColorsEnabled;
-  lblTabColors.Enabled    := uTabColorsEnabled;
-  pnlShowColor.Enabled    := uTabColorsEnabled;
+  uTabColorsEnabled := cbEnableTabColors.Checked;          //elh 01/12/10
+  frmFrame.tabPage.OwnerDraw := cbEnableTabColors.Checked; //elh 01/12/10
+  //cboTabColors.Enabled    := uTabColorsEnabled;
+  //lblEditTabColor.Enabled := uTabColorsEnabled;
+  //lblTabColors.Enabled    := uTabColorsEnabled;
+  //pnlShowColor.Enabled    := uTabColorsEnabled;
 end;