Changeset 541 for cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsOther.pas

Timestamp:

Aug 12, 2009, 7:14:16 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

TMG Ver 1.1 Added HTML Support, better demographics editing

File:

• cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsOther.pas (modified) (4 diffs)

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

@@ -41 +41 @@
     TabPositionComboBox: TComboBox;
     Label1: TLabel;
-    Label2: TLabel;
+    lblTabColors: TLabel;
     pnlShowColor: TPanel;
     ColorDialog: TColorDialog;
-    Label3: TLabel;
+    lblEditTabColor: TLabel;
     cboTabColors: TComboBox;
+    cbEnableTabColors: TCheckBox;
     procedure FormShow(Sender: TObject);
     procedure btnOKClick(Sender: TObject);
@@ -60 +61 @@
     procedure cboTabColorsChange(Sender: TObject);
     procedure pnlShowColorClick(Sender: TObject);
+    procedure cbEnableTabColorsClick(Sender: TObject);
   private
     { Private declarations }
@@ -121 +123 @@
   values, tab: string;
 begin
-  cboTabColors.Items.Assign(uTabColorsList);  //kt added8808
-  cboTabColors.ItemIndex := 0;      //kt
-  cboTab.Items.Assign(rpcGetOtherTabs);   //kt
- cboTabColorsChange(nil);   //kt 
+  cboTabColors.Items.Assign(frmFrame.tabPage.Tabs);  //kt 8/09
+  //cboTabColors.Items.Assign(uTabColorsList);       //kt added8808
+  cboTabColors.ItemIndex := 0;                       //kt
+  cboTab.Items.Assign(rpcGetOtherTabs);              //kt
+  cboTabColorsChange(nil);                           //kt
+  cbEnableTabColors.Checked := uTabColorsEnabled;    //kt 8/09
 //if (cboTab.Items.IndexOf('Surgery') > -1) and (not ShowSurgeryTab) then  <-- original line.  //kt 8/8/2007
   if (cboTab.Items.IndexOf(DKLangConstW('fOptionsOther_Surgery')) > -1) and (not ShowSurgeryTab) then //kt added 8/8/2007
@@ -344 +348 @@
 end;
 
+procedure TfrmOptionsOther.cbEnableTabColorsClick(Sender: TObject);
+//kt added
+begin
+  uTabColorsEnabled := cbEnableTabColors.Checked;
+  cboTabColors.Enabled    := uTabColorsEnabled;
+  lblEditTabColor.Enabled := uTabColorsEnabled;
+  lblTabColors.Enabled    := uTabColorsEnabled;
+  pnlShowColor.Enabled    := uTabColorsEnabled;
+end;
+
 end.