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

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

Location:

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

Files:

• fOptions.dfm (modified) (6 diffs)
• fOptionsNotes.dfm (modified) (7 diffs)
• fOptionsNotes.pas (modified) (7 diffs)
• fOptionsOther.dfm (modified) (27 diffs)
• fOptionsOther.pas (modified) (4 diffs)

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

@@ -87 +87 @@
       Height = 323
       HelpContext = 9999
-      ActivePage = tsCoverSheet
+      ActivePage = tsNotes
       Align = alClient
       TabOrder = 0
@@ -1770 +1770 @@
           Width = 281
           Height = 241
+          Enabled = False
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
@@ -1789 +1790 @@
           Caption = 'Load last selected skin when starting program'
           Checked = True
+          Enabled = False
           State = cbChecked
           TabOrder = 1
@@ -1798 +1800 @@
           Height = 25
           Caption = '&More skins...'
+          Enabled = False
           TabOrder = 2
           OnClick = btnMoreSkinsClick
@@ -1807 +1810 @@
           Height = 25
           Caption = '&Disable skin'
+          Enabled = False
           ModalResult = 7
           TabOrder = 3
@@ -1817 +1821 @@
           Height = 25
           Caption = '&Apply skin'
+          Enabled = False
           TabOrder = 4
           OnClick = btnApplySkinClick

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

@@ -6 +6 @@
   BorderStyle = bsSingle
   Caption = 'Notes'
-  ClientHeight = 150
-  ClientWidth = 399
+  ClientHeight = 226
+  ClientWidth = 398
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -17 +17 @@
   OldCreateOrder = False
   Position = poScreenCenter
+  OnCreate = FormCreate
   OnShow = FormShow
   PixelsPerInch = 96
@@ -40 +41 @@
     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 +121 @@
   object pnlBottom: TPanel
     Left = 0
-    Top = 117
-    Width = 399
+    Top = 193
+    Width = 398
     Height = 33
     HelpContext = 9110
@@ -124 +132 @@
       Left = 0
       Top = 0
-      Width = 399
+      Width = 398
       Height = 2
       Align = alTop
@@ -152 +160 @@
     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 +200 @@
       6F74746F6D0000090062766C426F74746F6D0000050062746E4F4B0101000000
       09000000070043617074696F6E00090062746E43616E63656C01010000000A00
-      0000070043617074696F6E00}
+      0000070043617074696F6E000F006C626C48544D4C5669657753697A65010100
+      00000B000000070043617074696F6E000F0063626F48544D4C5669657753697A
+      6501020000000D00000005004974656D730C0000000400546578740011006362
+      44656661756C7448544D4C4D6F646501010000000E000000070043617074696F
+      6E00}
   end
 end

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

@@ -4 +4 @@
 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 +59 @@
     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 +72 @@
       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 +83 @@
 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 +96 @@
 
 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 +158 @@
   chkAskSubject.Checked := rpcGetSubject;
   if chkAskSubject.Checked then chkAskSubject.Tag := 1;
+  cbDefaultHTMLMode.Checked := DefaultEditHTMLMode; //kt
 end;
 
@@ -207 +264 @@
 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.

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

@@ -8 +8 @@
   BorderStyle = bsDialog
   Caption = 'Other Parameters'
-  ClientHeight = 436
+  ClientHeight = 463
   ClientWidth = 391
   Color = clBtnFace
@@ -26 +26 @@
   object lblMedsTab: TLabel
     Left = 7
-    Top = 168
+    Top = 184
     Width = 170
     Height = 13
@@ -44 +44 @@
   object Bevel1: TBevel
     Left = 1
-    Top = 150
+    Top = 174
     Width = 392
     Height = 3
@@ -50 +50 @@
   object lblEncAppts: TLabel
     Left = 8
-    Top = 269
+    Top = 285
     Width = 207
     Height = 13
@@ -61 +61 @@
   object Bevel2: TBevel
     Left = 1
-    Top = 256
+    Top = 272
     Width = 392
     Height = 2
@@ -72 +72 @@
     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 +88 @@
   object pnlBottom: TPanel
     Left = 0
-    Top = 403
+    Top = 430
     Width = 391
     Height = 33
@@ -129 +129 @@
   object stStart: TStaticText
     Left = 7
-    Top = 191
+    Top = 207
     Width = 55
     Height = 17
@@ -137 +137 @@
   object stStop: TStaticText
     Left = 199
-    Top = 191
+    Top = 207
     Width = 55
     Height = 17
@@ -145 +145 @@
   object dtStart: TORDateBox
     Left = 7
-    Top = 210
+    Top = 226
     Width = 178
     Height = 21
@@ -157 +157 @@
   object dtStop: TORDateBox
     Left = 200
-    Top = 209
+    Top = 225
     Width = 186
     Height = 21
@@ -216 +216 @@
   object stStartEncAppts: TStaticText
     Left = 9
-    Top = 296
+    Top = 312
     Width = 55
     Height = 17
@@ -224 +224 @@
   object txtTodayMinus: TStaticText
     Left = 38
-    Top = 321
+    Top = 337
     Width = 64
     Height = 17
@@ -235 +235 @@
   object txtEncStart: TCaptionEdit
     Left = 110
-    Top = 318
+    Top = 334
     Width = 50
     Height = 21
@@ -248 +248 @@
   object txtDaysMinus: TStaticText
     Left = 178
-    Top = 322
+    Top = 338
     Width = 26
     Height = 17
@@ -259 +259 @@
     Tag = 30
     Left = 160
-    Top = 318
+    Top = 334
     Width = 15
     Height = 21
@@ -271 +271 @@
   object txtDaysPlus: TStaticText
     Left = 180
-    Top = 374
+    Top = 390
     Width = 26
     Height = 17
@@ -282 +282 @@
     Tag = 30
     Left = 162
-    Top = 369
+    Top = 385
     Width = 15
     Height = 21
@@ -294 +294 @@
   object txtEncStop: TCaptionEdit
     Left = 112
-    Top = 369
+    Top = 385
     Width = 50
     Height = 21
@@ -307 +307 @@
   object txtTodayPlus: TStaticText
     Left = 46
-    Top = 372
+    Top = 388
     Width = 56
     Height = 17
@@ -318 +318 @@
   object stStopEncAppts: TStaticText
     Left = 10
-    Top = 348
+    Top = 364
     Width = 55
     Height = 17
@@ -326 +326 @@
   object btnEncDefaults: TButton
     Left = 248
-    Top = 287
+    Top = 303
     Width = 75
     Height = 22
@@ -358 +358 @@
   object pnlShowColor: TPanel
     Left = 232
-    Top = 120
+    Top = 144
     Width = 145
     Height = 22
@@ -367 +367 @@
   object cboTabColors: TComboBox
     Left = 8
-    Top = 120
+    Top = 144
     Width = 217
     Height = 21
@@ -378 +378 @@
       ' ')
   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 +396 @@
     LangData = {
       0F0066726D4F7074696F6E734F74686572010300000002000000070043617074
-      696F6E03000000080048656C7046696C6501000000040048696E740122000000
+      696F6E03000000080048656C7046696C6501000000040048696E740123000000
       0A006C626C4D656473546162010200000005000000070043617074696F6E0400
       0000040048696E740006006C626C546162010100000006000000070043617074
@@ -409 +422 @@
       43617074696F6E001300546162506F736974696F6E436F6D626F426F78010200
       00001C00000005004974656D731B0000000400546578740006004C6162656C31
-      01010000001D000000070043617074696F6E0006004C6162656C320101000000
-      1E000000070043617074696F6E000C00706E6C53686F77436F6C6F7200000B00
-      436F6C6F724469616C6F67000006004C6162656C3301010000001F0000000700
-      43617074696F6E000C0063626F546162436F6C6F72730000}
+      01010000001D000000070043617074696F6E000C006C626C546162436F6C6F72
+      7301010000001E000000070043617074696F6E000C00706E6C53686F77436F6C
+      6F7200000B00436F6C6F724469616C6F6700000F006C626C4564697454616243
+      6F6C6F7201010000001F000000070043617074696F6E000C0063626F54616243
+      6F6C6F7273000011006362456E61626C65546162436F6C6F7273010100000020
+      000000070043617074696F6E00}
   end
   object ColorDialog: TColorDialog

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.