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

Timestamp:

Mar 31, 2010, 5:06:56 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Added functions to Templates, and Images tab

File:

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

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

@@ -70 +70 @@
   public
     { Public declarations }
+    procedure SaveTabColors(ColorsList : TStringList); //kt
   end;
 
@@ -80 +81 @@
 
 procedure DialogOptionsOther(topvalue, leftvalue, fontsize: integer; var actiontype: Integer);
-procedure SetTabPosition(Position : TTabPosition);
+procedure SetTabPosition(Position : TTabPosition); //kt
 
 implementation
@@ -87 +88 @@
 
 uses
-  rOptions, uOptions, rCore, rSurgery, uConst, fMeds, fFrame;
+  rOptions, uOptions, rCore, rSurgery, uConst, fMeds, fFrame,
+  uTMGOptions //kt
+  ;
 
 procedure DialogOptionsOther(topvalue, leftvalue, fontsize: integer; var actiontype: Integer);
@@ -124 +127 @@
 begin
   cboTabColors.Items.Assign(frmFrame.tabPage.Tabs);  //kt 8/09
-  //cboTabColors.Items.Assign(uTabColorsList);       //kt added8808
+  //cboTabColors.Items.Assign(TabColorsList);       //kt added8808
   cboTabColors.ItemIndex := 0;                       //kt
   cboTab.Items.Assign(rpcGetOtherTabs);              //kt
   cboTabColorsChange(nil);                           //kt
-  cbEnableTabColors.Checked := uTabColorsEnabled;    //kt 8/09
+  cbEnableTabColors.Checked := TabColorsEnabled;    //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
@@ -199 +202 @@
 procedure TfrmOptionsOther.FormCreate(Sender: TObject);
 begin
-  cbEnableTabColors.checked := uTabColorsEnabled;
+  cbEnableTabColors.checked := TabColorsEnabled;
   FStartDT  := 0;
   FStopDT   := 0;
@@ -313 +316 @@
 
 procedure SetTabPosition(Position : TTabPosition);
+//NOTE: Don't make this a member function of TFrmOptionsOther, becuase frmFrame needs
+//      to be able to call it, even if the OtionsOther form is not instantiated.
 //kt added 8/8/08
 begin
@@ -322 +327 @@
     tpRight : frmFrame.tabPage.Align := alRight;
   end; {case}
+  uTMGOptions.WriteInteger('Tab Location',integer(frmFrame.tabPage.TabPosition));
+end;
+
+procedure TfrmOptionsOther.SaveTabColors(ColorsList : TStringList);
+//kt added 8/8/08  Entire function
+var i : integer;
+begin
+  for i := 0 to ColorsList.Count-1 do begin
+    uTMGOptions.WriteInteger('Tab '+IntToStr(i)+' Color',longword(ColorsList.Objects[i]));
+  end;
+  uTMGOptions.WriteBool('TAB_COLORS ENABLE',TabColorsEnabled); //kt 8/09
 end;
 
@@ -345 +361 @@
     if selIndex < 0 then exit;
     cboTabColors.Items.Objects[selIndex] := pointer(ColorDialog.Color);
-    uTabColorsList.Objects[selIndex] := pointer(ColorDialog.Color);
+    TabColorsList.Objects[selIndex] := pointer(ColorDialog.Color);
+    uTMGOptions.WriteInteger('Tab '+IntToStr(selIndex)+' Color',longword(TabColorsList.Objects[selIndex]));
   end;
 end;
@@ -352 +369 @@
 //kt added
 begin
-  uTabColorsEnabled := cbEnableTabColors.Checked;          //elh 01/12/10
+  TabColorsEnabled := cbEnableTabColors.Checked;          //elh 01/12/10
   frmFrame.tabPage.OwnerDraw := cbEnableTabColors.Checked; //elh 01/12/10
-  //cboTabColors.Enabled    := uTabColorsEnabled;
-  //lblEditTabColor.Enabled := uTabColorsEnabled;
-  //lblTabColors.Enabled    := uTabColorsEnabled;
-  //pnlShowColor.Enabled    := uTabColorsEnabled;
+  cboTabColors.Enabled    := TabColorsEnabled;
+  lblEditTabColor.Enabled := TabColorsEnabled;
+  lblTabColors.Enabled    := TabColorsEnabled;
+  pnlShowColor.Enabled    := TabColorsEnabled;
+  uTMGOptions.WriteBool('TAB_COLORS ENABLE',TabColorsEnabled); //kt 3/8/10
 end;