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

Timestamp:

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

Author:

Kevin Toppenberg

Message:

Added Colorful Tabs, Changable Tab positions, Demographics translation enabled

File:

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

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.