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

Timestamp:

Aug 8, 2008, 8:34:55 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Added Colorful Tabs, Changable Tab positions, Demographics translation enabled

Location:

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

Files:

• fOptions.dfm (modified) (2 diffs)
• fOptionsOther.dfm (modified) (14 diffs)
• fOptionsOther.pas (modified) (6 diffs)

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

@@ -86 +86 @@
       Height = 323
       HelpContext = 9999
-      ActivePage = tsLanguage
+      ActivePage = tsCoverSheet
       Align = alClient
       TabOrder = 0
@@ -1753 +1753 @@
   end
   object DKLanguageController1: TDKLanguageController
-    Left = 136
-    Top = 240
+    Left = 80
+    Top = 280
     LangData = {
       0A0066726D4F7074696F6E73010200000001000000070043617074696F6E0200

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

@@ -1 +1 @@
 object frmOptionsOther: TfrmOptionsOther
-  Left = 341
-  Top = 96
+  Left = 298
+  Top = 189
   Hint = 'Use system default settings'
   HelpContext = 9110
@@ -9 +9 @@
   Caption = 'Other Parameters'
   ClientHeight = 436
-  ClientWidth = 329
+  ClientWidth = 391
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -26 +26 @@
   object lblMedsTab: TLabel
     Left = 7
-    Top = 121
-    Width = 135
-    Height = 26
+    Top = 168
+    Width = 178
+    Height = 17
     Hint = 'Set date ranges for displaying medication orders on Meds tab.'
     Caption = 'Set date range for Meds tab display:'
@@ -44 +44 @@
   object Bevel1: TBevel
     Left = 1
-    Top = 110
-    Width = 327
-    Height = 2
+    Top = 150
+    Width = 392
+    Height = 3
   end
   object lblEncAppts: TLabel
@@ -62 +62 @@
     Left = 1
     Top = 256
-    Width = 327
+    Width = 392
     Height = 2
+  end
+  object Label1: TLabel
+    Left = 232
+    Top = 27
+    Width = 106
+    Height = 13
+    Caption = 'Select Tab Positioning'
+  end
+  object Label2: TLabel
+    Left = 8
+    Top = 104
+    Width = 83
+    Height = 13
+    Caption = 'Adjust Tab Colors'
+  end
+  object Label3: TLabel
+    Left = 232
+    Top = 104
+    Width = 138
+    Height = 13
+    Caption = '(Click box below to edit color)'
   end
   object pnlBottom: TPanel
     Left = 0
     Top = 403
-    Width = 329
+    Width = 391
     Height = 33
     HelpContext = 9110
@@ -78 +99 @@
       Left = 0
       Top = 0
-      Width = 329
+      Width = 391
       Height = 2
       Align = alTop
@@ -108 +129 @@
   object stStart: TStaticText
     Left = 7
-    Top = 151
+    Top = 191
     Width = 55
     Height = 17
@@ -115 +136 @@
   end
   object stStop: TStaticText
-    Left = 7
-    Top = 207
+    Left = 199
+    Top = 191
     Width = 55
     Height = 17
@@ -124 +145 @@
   object dtStart: TORDateBox
     Left = 7
-    Top = 170
-    Width = 187
+    Top = 210
+    Width = 178
     Height = 21
     TabOrder = 4
@@ -135 +156 @@
   end
   object dtStop: TORDateBox
-    Left = 8
-    Top = 225
+    Left = 200
+    Top = 209
     Width = 186
     Height = 21
@@ -148 +169 @@
     Left = 8
     Top = 6
-    Width = 52
+    Width = 62
     Height = 17
     Caption = 'Chart tabs'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'MS Sans Serif'
+    Font.Style = [fsBold]
+    ParentFont = False
     TabOrder = 0
   end
   object cboTab: TORComboBox
     Left = 8
-    Top = 51
+    Top = 43
     Width = 217
     Height = 21
@@ -180 +207 @@
   object chkLastTab: TCheckBox
     Left = 8
-    Top = 82
-    Width = 312
+    Top = 74
+    Width = 233
     Height = 21
     HelpContext = 9112
@@ -313 +340 @@
     OnClick = btnEncDefaultsClick
   end
+  object TabPositionComboBox: TComboBox
+    Left = 232
+    Top = 43
+    Width = 145
+    Height = 21
+    ItemHeight = 13
+    ItemIndex = 0
+    TabOrder = 23
+    Text = 'Tabs on BOTTOM'
+    OnChange = TabPositionComboBoxChange
+    Items.Strings = (
+      'Tabs on BOTTOM'
+      'Tabs on TOP'
+      'Tabs on LEFT'
+      'Tabs on RIGHT')
+  end
+  object pnlShowColor: TPanel
+    Left = 232
+    Top = 120
+    Width = 145
+    Height = 22
+    BevelInner = bvLowered
+    TabOrder = 24
+    OnClick = pnlShowColorClick
+  end
+  object cboTabColors: TComboBox
+    Left = 8
+    Top = 120
+    Width = 217
+    Height = 21
+    ItemHeight = 13
+    ItemIndex = 0
+    TabOrder = 25
+    Text = ' '
+    OnChange = cboTabColorsChange
+    Items.Strings = (
+      ' ')
+  end
   object DKLanguageController1: TDKLanguageController
     Left = 152
-    Top = 224
+    Top = 8
     LangData = {
       0F0066726D4F7074696F6E734F74686572010300000002000000070043617074
-      696F6E03000000080048656C7046696C6501000000040048696E74011B000000
+      696F6E03000000080048656C7046696C6501000000040048696E740122000000
       0A006C626C4D656473546162010200000005000000070043617074696F6E0400
       0000040048696E740006006C626C546162010100000006000000070043617074
@@ -342 +407 @@
       6E000E00737453746F70456E6341707074730101000000190000000700436170
       74696F6E000E0062746E456E6344656661756C747301010000001A0000000700
-      43617074696F6E00}
+      43617074696F6E001300546162506F736974696F6E436F6D626F426F78010200
+      00001C00000005004974656D731B0000000400546578740006004C6162656C31
+      01010000001D000000070043617074696F6E0006004C6162656C320101000000
+      1E000000070043617074696F6E000C00706E6C53686F77436F6C6F7200000B00
+      436F6C6F724469616C6F67000006004C6162656C3301010000001F0000000700
+      43617074696F6E000C0063626F546162436F6C6F72730000}
+  end
+  object ColorDialog: TColorDialog
+    Left = 192
+    Top = 8
   end
 end

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

@@ -39 +39 @@
     btnEncDefaults: TButton;
     DKLanguageController1: TDKLanguageController;
+    TabPositionComboBox: TComboBox;
+    Label1: TLabel;
+    Label2: TLabel;
+    pnlShowColor: TPanel;
+    ColorDialog: TColorDialog;
+    Label3: TLabel;
+    cboTabColors: TComboBox;
     procedure FormShow(Sender: TObject);
     procedure btnOKClick(Sender: TObject);
@@ -50 +57 @@
     procedure txtEncStopExit(Sender: TObject);
     procedure btnEncDefaultsClick(Sender: TObject);
+    procedure TabPositionComboBoxChange(Sender: TObject);
+    procedure cboTabColorsChange(Sender: TObject);
+    procedure pnlShowColorClick(Sender: TObject);
   private
     { Private declarations }
@@ -66 +76 @@
   ENC_MAX_LIMIT = 999;
 
- 
+
 procedure DialogOptionsOther(topvalue, leftvalue, fontsize: integer; var actiontype: Integer);
+procedure SetTabPosition(Position : TTabPosition);
 
 implementation
@@ -74 +85 @@
 
 uses
-  rOptions, uOptions, rCore, rSurgery, uConst, fMeds;
+  rOptions, uOptions, rCore, rSurgery, uConst, fMeds, fFrame;
 
 procedure DialogOptionsOther(topvalue, leftvalue, fontsize: integer; var actiontype: Integer);
@@ -110 +121 @@
   values, tab: string;
 begin
-  cboTab.Items.Assign(rpcGetOtherTabs);
+  cboTabColors.Items.Assign(uTabColorsList);  //kt added8808
+  cboTabColors.ItemIndex := 0;      //kt
+  cboTab.Items.Assign(rpcGetOtherTabs);   //kt
+ cboTabColorsChange(nil);   //kt 
 //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
@@ -282 +296 @@
 end;
 
+procedure TfrmOptionsOther.TabPositionComboBoxChange(Sender: TObject);
+//kt added 8/8/08
+begin
+  Case TabPositionComboBox.ItemIndex of
+    0 : SetTabPosition(tpBottom);
+    1 : SetTabPosition(tpTop);
+    2 : SetTabPosition(tpLeft);
+    3 : SetTabPosition(tpRight);
+  end; {case}
+end;
+
+procedure SetTabPosition(Position : TTabPosition);
+//kt added 8/8/08
+begin
+  frmFrame.tabPage.TabPosition := Position;
+  Case Position of
+    tpBottom : frmFrame.tabPage.Align := alBottom;
+    tpTop: frmFrame.tabPage.Align := alTop;
+    tpLeft: frmFrame.tabPage.Align := alLeft;
+    tpRight : frmFrame.tabPage.Align := alRight;
+  end; {case}
+end;
+
+
+procedure TfrmOptionsOther.cboTabColorsChange(Sender: TObject);
+var color : TColor;
+    selIndex : integer;
+begin
+  selIndex := cboTabColors.ItemIndex;
+  if selIndex < 0 then exit;
+  color := TColor(cboTabColors.Items.Objects[selIndex]);
+  pnlShowColor.Color := color;
+end;
+
+procedure TfrmOptionsOther.pnlShowColorClick(Sender: TObject);
+//kt added 8/8/08
+var s : string;
+    selIndex : integer;
+begin
+  if ColorDialog.Execute then begin
+    pnlShowColor.Color := ColorDialog.Color;
+    selIndex := cboTabColors.ItemIndex;
+    if selIndex < 0 then exit;
+    cboTabColors.Items.Objects[selIndex] := pointer(ColorDialog.Color);
+    uTabColorsList.Objects[selIndex] := pointer(ColorDialog.Color);
+  end;
+end;
+
 end.