Changeset 819 for cprs/branches/tmg-cprs/dklang-package-3.01/DKLang.pas

Timestamp:

Jul 2, 2010, 7:54:17 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Fixed crash on non-login

File:

• cprs/branches/tmg-cprs/dklang-package-3.01/DKLang.pas (modified) (2 diffs)

cprs/branches/tmg-cprs/dklang-package-3.01/DKLang.pas

@@ -2271 +2271 @@
 
   destructor TDKLanguageController.Destroy;
-  begin
-    if not (csDesigning in ComponentState) then LangManager.RemoveLangController(Self);
+  var LM: TDKLanguageManager; //kt
+  begin
+    //kt original --> if not (csDesigning in ComponentState) then begin LangManager.RemoveLangController(Self);
+    if not (csDesigning in ComponentState) then begin
+      LM := LangManager;
+      if Assigned(LM) then LM.RemoveLangController(Self);
+    end;
     FRootCompEntry.Free;
     FIgnoreList.Free;
@@ -2771 +2776 @@
 finalization
   _LangManager.Free;
+  _LangManager := nil;  //kt added
 end.