From 0a563086d3019acf095ce0422b74fbfce0e10e4d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 12 Jun 2009 15:28:58 +0000
Subject: [PATCH] IDE: BeginCodeTool init var parameters

git-svn-id: trunk@20599 -
---
 .gitattributes                         | 2 +-
 components/chmhelp/lhelp/lhelpcore.lrs | 2 +-
 ide/main.pp                            | 3 +++
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/.gitattributes b/.gitattributes
index c0df1e2cc1..73ac9bdec1 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -60,7 +60,7 @@ components/chmhelp/lhelp/lhelp.lpr svneol=native#text/plain
 components/chmhelp/lhelp/lhelp.manifest -text svneol=native#text/plain
 components/chmhelp/lhelp/lhelp.rc -text svneol=native#text/plain
 components/chmhelp/lhelp/lhelpcore.lfm -text svneol=native#text/plain
-components/chmhelp/lhelp/lhelpcore.lrs -text svneol=native#text/pascal
+components/chmhelp/lhelp/lhelpcore.lrs svneol=native#text/pascal
 components/chmhelp/lhelp/lhelpcore.pas svneol=native#text/plain
 components/chmhelp/lhelp/lnethttpdataprovider.pas svneol=native#text/plain
 components/chmhelp/packages/help/lhelpcontrol.pas svneol=native#text/plain
diff --git a/components/chmhelp/lhelp/lhelpcore.lrs b/components/chmhelp/lhelp/lhelpcore.lrs
index b7d90d5570..9ed1178714 100644
--- a/components/chmhelp/lhelp/lhelpcore.lrs
+++ b/components/chmhelp/lhelp/lhelpcore.lrs
@@ -1,4 +1,4 @@
-{ This is an automatically generated lazarus resource file }
+{ This is an automatically generated lazarus resource file }
 
 LazarusResources.Add('THelpForm','FORMDATA',[
   'TPF0'#9'THelpForm'#8'HelpForm'#4'Left'#3'B'#1#6'Height'#3#23#2#3'Top'#3#239#0
diff --git a/ide/main.pp b/ide/main.pp
index d12fb3daba..dda7d224c9 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -12374,6 +12374,9 @@ function TMainIDE.BeginCodeTool(ADesigner: TDesigner;
   Flags: TCodeToolsFlags): boolean;
 begin
   Result:=false;
+  ActiveSrcEdit:=nil;
+  ActiveUnitInfo:=nil;
+
   // check global stati
   if (ToolStatus in [itCodeTools,itCodeToolAborting]) then begin
     debugln('TMainIDE.BeginCodeTool impossible ',dbgs(ord(ToolStatus)));