Changeset 729 for cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.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/fOptions.pas (modified) (7 diffs)

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.