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

Timestamp:

Jan 7, 2010, 10:11:41 AM (15 years ago)

Author:

Kevin Toppenberg

Message:

Fixed Exception Error That Occurred When Starting a Plain/Formatted Text by Default

File:

• cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsNotes.pas (modified) (1 diff)

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

@@ -291 +291 @@
 begin
   if Value <> DefaultEditHTMLMode then begin
-    OptionsNotesIniFile.WriteBool(User.Name,DEFAULT_HTML_EDIT_MODE,Value);
-    DefaultEditHTMLMode := Value;
+    if OptionsNotesIniFile = nil then begin
+      OptionsNotesIniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.INI'));  //kt
+      OptionsNotesIniFile.WriteBool(User.Name,DEFAULT_HTML_EDIT_MODE,Value);
+      DefaultEditHTMLMode := Value;
+      OptionsNotesIniFile.Free;
+      OptionsNotesIniFile := nil;
+    end else begin
+      OptionsNotesIniFile.WriteBool(User.Name,DEFAULT_HTML_EDIT_MODE,Value);
+      DefaultEditHTMLMode := Value;
+    end;
   end;
 end;