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

Timestamp:

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

Author:

Kevin Toppenberg

Message:

Added functions to Templates, and Images tab

Location:

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

Files:

• fOptions.dfm (modified) (3 diffs)
• fOptions.pas (modified) (7 diffs)
• fOptionsOther.dfm (modified) (4 diffs)
• fOptionsOther.pas (modified) (9 diffs)

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

@@ -1 +1 @@
 object frmOptions: TfrmOptions
-  Left = 334
-  Top = 229
+  Left = 321
+  Top = 155
   Width = 435
   Height = 397
@@ -87 +87 @@
       Height = 323
       HelpContext = 9999
-      ActivePage = tsNotes
+      ActivePage = tsAppearance
       Align = alClient
       TabOrder = 0
@@ -1793 +1793 @@
           State = cbChecked
           TabOrder = 1
+          OnClick = cbSkinAtStartupClick
         end
         object btnMoreSkins: TButton

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

@@ -172 +172 @@
     procedure FormShow(Sender: TObject);
     procedure lbSkinsKeyPress(Sender: TObject; var Key: Char);
-    procedure btnDisableSkinClick(Sender: TObject);  //kt added 6/29/07
+    procedure btnDisableSkinClick(Sender: TObject);
+    procedure cbSkinAtStartupClick(Sender: TObject);  //kt added 6/29/07
   private
     { Private declarations }
@@ -209 +210 @@
        rOptions, rCore, uCore, uOptions, UBACore, fFrame,
        //fTestDialog;
-
     //kt mod 6/29/07 -----
     ShellAPI, //kt 9/8/08
+    uTMGOptions, //kt 2/10/10
     ORNet, //allows access to RPCBrokerV
     TntForms, TntSystem, TntSysUtils;
@@ -340 +341 @@
 
     //kt begin modification 6/29/07 ---------------
-
     // Fill cbLanguage with available languages
     // Note: LangManager was populated at form creation of fFrame
@@ -347 +347 @@
     cbLanguage.ItemIndex := LangManager.LanguageIndex;
     //kt end modification 6/29/07 ---------------
-
     cbSkinAtStartup.Checked := frmFrame.SkinAtStartup; //kt 9/8/08
-
   end;
 
@@ -867 +865 @@
   procedure TfrmOptions.cbLanguageChange(Sender: TObject);  //kt added 6/29/07
   var iIndex: Integer;
-  CPRSChartINI: TINIFile;
   begin
     iIndex := cbLanguage.ItemIndex;
@@ -881 +878 @@
     frmFrame.RenameTabs;  //Resets names of tabs to correct translation  //kt
     frmFrame.mnuFileRefreshClick(self); //elh 6/23/08
-    CPRSChartINI := TINIFile.Create(ExtractFilePath(ParamStr(0)) + 'CPRSChart.ini');  // Write to INI  elh  6/23/08
-    CPRSChartINI.WriteInteger('Options','Language',LangManager.LanguageID);
-    CPRSChartINI.Free;
+    uTMGOptions.WriteInteger('Language',LangManager.LanguageID);
   end;
 
@@ -945 +940 @@
   end;
 
+  procedure TfrmOptions.cbSkinAtStartupClick(Sender: TObject);
+  begin
+    frmFrame.SkinAtStartup := cbSkinAtStartup.Checked;
+    uTMGOptions.WriteBool('Load Skin At Startup',frmFrame.SkinAtStartup);  //kt 9/11/08
+  end;
+
 end.
 

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

@@ -1 +1 @@
 object frmOptionsOther: TfrmOptionsOther
-  Left = 517
+  Left = 522
   Top = 143
   Hint = 'Use system default settings'
@@ -9 +9 @@
   Caption = 'Other Parameters'
   ClientHeight = 463
-  ClientWidth = 391
+  ClientWidth = 386
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -89 +89 @@
     Left = 0
     Top = 430
-    Width = 391
+    Width = 386
     Height = 33
     HelpContext = 9110
@@ -99 +99 @@
       Left = 0
       Top = 0
-      Width = 391
+      Width = 386
       Height = 2
       Align = alTop

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;