Index: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.dfm
===================================================================
--- cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.dfm	(revision 498)
+++ cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.dfm	(revision 541)
@@ -87,5 +87,5 @@
       Height = 323
       HelpContext = 9999
-      ActivePage = tsCoverSheet
+      ActivePage = tsNotes
       Align = alClient
       TabOrder = 0
@@ -1770,4 +1770,5 @@
           Width = 281
           Height = 241
+          Enabled = False
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
@@ -1789,4 +1790,5 @@
           Caption = 'Load last selected skin when starting program'
           Checked = True
+          Enabled = False
           State = cbChecked
           TabOrder = 1
@@ -1798,4 +1800,5 @@
           Height = 25
           Caption = '&More skins...'
+          Enabled = False
           TabOrder = 2
           OnClick = btnMoreSkinsClick
@@ -1807,4 +1810,5 @@
           Height = 25
           Caption = '&Disable skin'
+          Enabled = False
           ModalResult = 7
           TabOrder = 3
@@ -1817,4 +1821,5 @@
           Height = 25
           Caption = '&Apply skin'
+          Enabled = False
           TabOrder = 4
           OnClick = btnApplySkinClick
Index: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsNotes.dfm
===================================================================
--- cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsNotes.dfm	(revision 498)
+++ cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsNotes.dfm	(revision 541)
@@ -6,6 +6,6 @@
   BorderStyle = bsSingle
   Caption = 'Notes'
-  ClientHeight = 150
-  ClientWidth = 399
+  ClientHeight = 226
+  ClientWidth = 398
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -17,4 +17,5 @@
   OldCreateOrder = False
   Position = poScreenCenter
+  OnCreate = FormCreate
   OnShow = FormShow
   PixelsPerInch = 96
@@ -40,4 +41,11 @@
     Height = 13
     Caption = 'of notes (sec):'
+  end
+  object lblHTMLViewSize: TLabel
+    Left = 8
+    Top = 144
+    Width = 159
+    Height = 13
+    Caption = 'Formatted Text (HTML) View Size'
   end
   object txtAutoSave: TCaptionEdit
@@ -113,6 +121,6 @@
   object pnlBottom: TPanel
     Left = 0
-    Top = 117
-    Width = 399
+    Top = 193
+    Width = 398
     Height = 33
     HelpContext = 9110
@@ -124,5 +132,5 @@
       Left = 0
       Top = 0
-      Width = 399
+      Width = 398
       Height = 2
       Align = alTop
@@ -152,10 +160,35 @@
     end
   end
+  object cboHTMLViewSize: TComboBox
+    Left = 8
+    Top = 162
+    Width = 153
+    Height = 21
+    ItemHeight = 13
+    TabOrder = 6
+    Text = '<View Size>'
+    OnChange = cboHTMLViewSizeChange
+    Items.Strings = (
+      'Smallest'
+      'Small'
+      'Medium'
+      'Large'
+      'Largest')
+  end
+  object cbDefaultHTMLMode: TCheckBox
+    Left = 8
+    Top = 120
+    Width = 225
+    Height = 17
+    Caption = 'Start notes in Formatted (HTML) Mode'
+    TabOrder = 7
+    OnClick = cbDefaultHTMLModeClick
+  end
   object DKLanguageController1: TDKLanguageController
-    Left = 192
-    Top = 80
+    Left = 352
+    Top = 88
     LangData = {
       0F0066726D4F7074696F6E734E6F746573010200000001000000070043617074
-      696F6E02000000080048656C7046696C65010C0000000C006C626C4175746F53
+      696F6E02000000080048656C7046696C65010F0000000C006C626C4175746F53
       61766531010100000003000000070043617074696F6E000B006C626C436F7369
       676E6572010100000004000000070043617074696F6E000C006C626C4175746F
@@ -167,5 +200,9 @@
       6F74746F6D0000090062766C426F74746F6D0000050062746E4F4B0101000000
       09000000070043617074696F6E00090062746E43616E63656C01010000000A00
-      0000070043617074696F6E00}
+      0000070043617074696F6E000F006C626C48544D4C5669657753697A65010100
+      00000B000000070043617074696F6E000F0063626F48544D4C5669657753697A
+      6501020000000D00000005004974656D730C0000000400546578740011006362
+      44656661756C7448544D4C4D6F646501010000000E000000070043617074696F
+      6E00}
   end
 end
Index: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsNotes.pas
===================================================================
--- cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsNotes.pas	(revision 498)
+++ cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsNotes.pas	(revision 541)
@@ -4,6 +4,43 @@
 interface
 
+{ //kt 8/09  The following objects were addeded to the *FORM* of this unit
+
+  object lblHTMLViewSize: TLabel
+    Left = 8
+    Top = 144
+    Width = 159
+    Height = 13
+    Caption = 'Formatted Text (HTML) View Size'
+  end
+  object cboHTMLViewSize: TComboBox
+  Left = 8
+  Top = 162
+  Width = 153
+  Height = 21
+  ItemHeight = 13
+  TabOrder = 6
+  Text = '<View Size>'
+  OnClick = cboHTMLViewSizeClick
+  Items.Strings = (
+    'Smallest'
+    'Small'
+    'Medium'
+    'Large'
+    'Largest')
+  end
+  object cbDefaultHTMLMode: TCheckBox
+    Left = 8
+    Top = 112
+    Width = 225
+    Height = 17
+    Caption = 'Start notes in Formatted (HTML) Mode'
+    TabOrder = 7
+    OnClick = cbDefaultHTMLModeClick
+}
+
+
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  IniFiles,    //kt for IniFile
   StdCtrls, ExtCtrls, ORCtrls, ORFn, ComCtrls, DKLang;
 
@@ -22,5 +59,8 @@
     btnCancel: TButton;
     lblAutoSave2: TLabel;
-    DKLanguageController1: TDKLanguageController;
+    cboHTMLViewSize: TComboBox;   //kt 8/09
+    lblHTMLViewSize: TLabel;      //kt 8/09
+    cbDefaultHTMLMode: TCheckBox; //kt 8/09
+    DKLanguageController1: TDKLanguageController; //kt
     procedure FormShow(Sender: TObject);
     procedure btnOKClick(Sender: TObject);
@@ -32,4 +72,7 @@
       Direction, InsertAt: Integer);
     procedure cboCosignerExit(Sender: TObject);
+    procedure FormCreate(Sender: TObject);              //kt 8/09
+    procedure cbDefaultHTMLModeClick(Sender: TObject);  //kt 8/09
+    procedure cboHTMLViewSizeChange(Sender: TObject);   //kt 8/09
   private
     { Private declarations }
@@ -40,6 +83,11 @@
 var
   frmOptionsNotes: TfrmOptionsNotes;
+  OptionsNotesIniFile : TIniFile;  //kt 8/09
+  DefaultEditHTMLMode : boolean;   //kt 8/09
+  FHTMLEditTextSize   : integer;   //kt 8/09
 
 procedure DialogOptionsNotes(topvalue, leftvalue, fontsize: integer; var actiontype: Integer);
+procedure SetDefaultEditHTMLMode(Value : boolean);  //kt 8/09
+procedure Loaded;                                   //kt 8/09
 
 implementation
@@ -48,5 +96,13 @@
 
 uses
+  uCore,    //kt 8/09
+  Registry, //kt 8/09
   rOptions, uOptions, rCore, rTIU, rDCSumm;
+
+const
+  DEFAULT_HTML_EDIT_MODE = 'Edit-in-HTML default mode';       //kt 8/09
+  DEFAULT_HTML_TEXT_SIZE = 'Edit-in-HTML default text size';  //kt 8/09
+
+procedure SetRegHTMLViewSize(Size : integer); forward;        //kt 8/09
 
 procedure DialogOptionsNotes(topvalue, leftvalue, fontsize: integer; var actiontype: Integer);
@@ -102,4 +158,5 @@
   chkAskSubject.Checked := rpcGetSubject;
   if chkAskSubject.Checked then chkAskSubject.Tag := 1;
+  cbDefaultHTMLMode.Checked := DefaultEditHTMLMode; //kt
 end;
 
@@ -207,3 +264,78 @@
 end;
 
+
+procedure SetRegHTMLViewSize(Size : integer);
+//kt added entire function 8/09
+//NOTE: The only way to affect the view size of the HTML renderer (IE) is to
+//      change a system-wide setting in the registry.  Then CPRS has to be
+//      restarted for changes to take effect.
+var
+  FontSizeData : array[0..3] of byte;
+  ZoomReg      : TRegistry;
+begin
+  if (Size < 0) or (Size > 255) then exit;
+  ZoomReg := TRegistry.Create;
+  FontSizeData[0] := Lo(Size); FontSizeData[1] := 0; FontSizeData[2] := 0; FontSizeData[3] := 0;
+  try
+    ZoomReg.Rootkey := HKEY_CURRENT_USER;
+    if ZoomReg.OpenKey('\Software\Microsoft\Internet Explorer\International\Scripts\3', False) then begin
+      ZoomReg.WriteBinaryData('IEFontSize',FontSizeData,SizeOf(FontSizeData));
+    end;
+  finally
+    ZoomReg.Free;
+  end;
+end;
+
+procedure SetDefaultEditHTMLMode(Value : boolean);
+//kt added entire function 8/09
+begin
+  if Value <> DefaultEditHTMLMode then begin
+    OptionsNotesIniFile.WriteBool(User.Name,DEFAULT_HTML_EDIT_MODE,Value);
+    DefaultEditHTMLMode := Value;
+  end;
+end;
+
+procedure TfrmOptionsNotes.cbDefaultHTMLModeClick(Sender: TObject);
+//kt added entire function 8/09
+begin
+  SetDefaultEditHTMLMode(cbDefaultHTMLMode.Checked);
+end;
+
+procedure TfrmOptionsNotes.cboHTMLViewSizeChange(Sender: TObject);
+//kt added entire function 8/09
+begin
+  SetRegHTMLViewSize(cboHTMLViewSize.ItemIndex);
+  OptionsNotesIniFile.WriteInteger(User.Name,DEFAULT_HTML_TEXT_SIZE,cboHTMLViewSize.ItemIndex);
+  MessageDlg('Formated text size change will take '+#10+#13+
+             'effect next time CPRS is restarted.',mtInformation,[mbOK],0);
+end;
+
+procedure Loaded;
+//kt added entire function 8/09
+begin
+  //Code was put in global access space because object is not instantiated until
+  //after user shows options (which could be never)
+  OptionsNotesIniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.INI'));  //kt
+  DefaultEditHTMLMode := OptionsNotesIniFile.ReadBool(User.Name,DEFAULT_HTML_EDIT_MODE,false);
+  FHTMLEditTextSize := OptionsNotesIniFile.ReadInteger(User.Name,DEFAULT_HTML_TEXT_SIZE,2);
+  SetRegHTMLViewSize(FHTMLEditTextSize);
+end;
+
+procedure TfrmOptionsNotes.FormCreate(Sender: TObject);
+//kt added entire function 8/09
+//NOTE: form is not created until first time needed.
+begin
+  //NOTE: FHTMLEditTextSize is set in Loaded function (has to be called after sign on (so User.Name is available)
+  if (FHTMLEditTextSize > -1) and (FHTMLEditTextSize < cboHTMLViewSize.Items.Count) then begin
+    cboHTMLViewSize.ItemIndex := FHTMLEditTextSize;
+    cboHTMLViewSize.Text := cboHTMLViewSize.Items[FHTMLEditTextSize];
+    SetRegHTMLViewSize(cboHTMLViewSize.ItemIndex);
+  end;
+end;
+
+initialization
+
+finalization
+  OptionsNotesIniFile.Free;  //kt 8/09
+
 end.
Index: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsOther.dfm
===================================================================
--- cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsOther.dfm	(revision 498)
+++ cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsOther.dfm	(revision 541)
@@ -8,5 +8,5 @@
   BorderStyle = bsDialog
   Caption = 'Other Parameters'
-  ClientHeight = 436
+  ClientHeight = 463
   ClientWidth = 391
   Color = clBtnFace
@@ -26,5 +26,5 @@
   object lblMedsTab: TLabel
     Left = 7
-    Top = 168
+    Top = 184
     Width = 170
     Height = 13
@@ -44,5 +44,5 @@
   object Bevel1: TBevel
     Left = 1
-    Top = 150
+    Top = 174
     Width = 392
     Height = 3
@@ -50,5 +50,5 @@
   object lblEncAppts: TLabel
     Left = 8
-    Top = 269
+    Top = 285
     Width = 207
     Height = 13
@@ -61,5 +61,5 @@
   object Bevel2: TBevel
     Left = 1
-    Top = 256
+    Top = 272
     Width = 392
     Height = 2
@@ -72,14 +72,14 @@
     Caption = 'Select Tab Positioning'
   end
-  object Label2: TLabel
-    Left = 8
-    Top = 104
+  object lblTabColors: TLabel
+    Left = 8
+    Top = 128
     Width = 83
     Height = 13
     Caption = 'Adjust Tab Colors'
   end
-  object Label3: TLabel
+  object lblEditTabColor: TLabel
     Left = 232
-    Top = 104
+    Top = 128
     Width = 138
     Height = 13
@@ -88,5 +88,5 @@
   object pnlBottom: TPanel
     Left = 0
-    Top = 403
+    Top = 430
     Width = 391
     Height = 33
@@ -129,5 +129,5 @@
   object stStart: TStaticText
     Left = 7
-    Top = 191
+    Top = 207
     Width = 55
     Height = 17
@@ -137,5 +137,5 @@
   object stStop: TStaticText
     Left = 199
-    Top = 191
+    Top = 207
     Width = 55
     Height = 17
@@ -145,5 +145,5 @@
   object dtStart: TORDateBox
     Left = 7
-    Top = 210
+    Top = 226
     Width = 178
     Height = 21
@@ -157,5 +157,5 @@
   object dtStop: TORDateBox
     Left = 200
-    Top = 209
+    Top = 225
     Width = 186
     Height = 21
@@ -216,5 +216,5 @@
   object stStartEncAppts: TStaticText
     Left = 9
-    Top = 296
+    Top = 312
     Width = 55
     Height = 17
@@ -224,5 +224,5 @@
   object txtTodayMinus: TStaticText
     Left = 38
-    Top = 321
+    Top = 337
     Width = 64
     Height = 17
@@ -235,5 +235,5 @@
   object txtEncStart: TCaptionEdit
     Left = 110
-    Top = 318
+    Top = 334
     Width = 50
     Height = 21
@@ -248,5 +248,5 @@
   object txtDaysMinus: TStaticText
     Left = 178
-    Top = 322
+    Top = 338
     Width = 26
     Height = 17
@@ -259,5 +259,5 @@
     Tag = 30
     Left = 160
-    Top = 318
+    Top = 334
     Width = 15
     Height = 21
@@ -271,5 +271,5 @@
   object txtDaysPlus: TStaticText
     Left = 180
-    Top = 374
+    Top = 390
     Width = 26
     Height = 17
@@ -282,5 +282,5 @@
     Tag = 30
     Left = 162
-    Top = 369
+    Top = 385
     Width = 15
     Height = 21
@@ -294,5 +294,5 @@
   object txtEncStop: TCaptionEdit
     Left = 112
-    Top = 369
+    Top = 385
     Width = 50
     Height = 21
@@ -307,5 +307,5 @@
   object txtTodayPlus: TStaticText
     Left = 46
-    Top = 372
+    Top = 388
     Width = 56
     Height = 17
@@ -318,5 +318,5 @@
   object stStopEncAppts: TStaticText
     Left = 10
-    Top = 348
+    Top = 364
     Width = 55
     Height = 17
@@ -326,5 +326,5 @@
   object btnEncDefaults: TButton
     Left = 248
-    Top = 287
+    Top = 303
     Width = 75
     Height = 22
@@ -358,5 +358,5 @@
   object pnlShowColor: TPanel
     Left = 232
-    Top = 120
+    Top = 144
     Width = 145
     Height = 22
@@ -367,5 +367,5 @@
   object cboTabColors: TComboBox
     Left = 8
-    Top = 120
+    Top = 144
     Width = 217
     Height = 21
@@ -378,4 +378,17 @@
       ' ')
   end
+  object cbEnableTabColors: TCheckBox
+    Left = 9
+    Top = 110
+    Width = 169
+    Height = 17
+    Caption = 'Enable Custom Tab Colors'
+    Checked = True
+    Enabled = False
+    State = cbChecked
+    TabOrder = 26
+    Visible = False
+    OnClick = cbEnableTabColorsClick
+  end
   object DKLanguageController1: TDKLanguageController
     Left = 152
@@ -383,5 +396,5 @@
     LangData = {
       0F0066726D4F7074696F6E734F74686572010300000002000000070043617074
-      696F6E03000000080048656C7046696C6501000000040048696E740122000000
+      696F6E03000000080048656C7046696C6501000000040048696E740123000000
       0A006C626C4D656473546162010200000005000000070043617074696F6E0400
       0000040048696E740006006C626C546162010100000006000000070043617074
@@ -409,8 +422,10 @@
       43617074696F6E001300546162506F736974696F6E436F6D626F426F78010200
       00001C00000005004974656D731B0000000400546578740006004C6162656C31
-      01010000001D000000070043617074696F6E0006004C6162656C320101000000
-      1E000000070043617074696F6E000C00706E6C53686F77436F6C6F7200000B00
-      436F6C6F724469616C6F67000006004C6162656C3301010000001F0000000700
-      43617074696F6E000C0063626F546162436F6C6F72730000}
+      01010000001D000000070043617074696F6E000C006C626C546162436F6C6F72
+      7301010000001E000000070043617074696F6E000C00706E6C53686F77436F6C
+      6F7200000B00436F6C6F724469616C6F6700000F006C626C4564697454616243
+      6F6C6F7201010000001F000000070043617074696F6E000C0063626F54616243
+      6F6C6F7273000011006362456E61626C65546162436F6C6F7273010100000020
+      000000070043617074696F6E00}
   end
   object ColorDialog: TColorDialog
Index: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsOther.pas
===================================================================
--- cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsOther.pas	(revision 498)
+++ cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsOther.pas	(revision 541)
@@ -41,9 +41,10 @@
     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,4 +61,5 @@
     procedure cboTabColorsChange(Sender: TObject);
     procedure pnlShowColorClick(Sender: TObject);
+    procedure cbEnableTabColorsClick(Sender: TObject);
   private
     { Private declarations }
@@ -121,8 +123,10 @@
   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,3 +348,13 @@
 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.