From 120289989875c50e3820ac6cbb65f30e1d0d45c0 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 13 May 2006 13:29:03 +0000
Subject: [PATCH] added baseideintf

git-svn-id: trunk@9275 -
---
 .gitattributes             |  1 +
 ideintf/baseideintf.pas    | 39 ++++++++++++++++++++++++++++++++++++++
 lcl/alllclunits.pp         |  2 +-
 lcl/include/customform.inc |  2 ++
 4 files changed, 43 insertions(+), 1 deletion(-)
 create mode 100644 ideintf/baseideintf.pas

diff --git a/.gitattributes b/.gitattributes
index ee84b4f91b..c971954d05 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -1270,6 +1270,7 @@ ideintf/actionseditorstd.lfm svneol=native#text/plain
 ideintf/actionseditorstd.lrs svneol=native#text/pascal
 ideintf/actionseditorstd.pas svneol=native#text/pascal
 ideintf/allideintf.pas svneol=native#text/pascal
+ideintf/baseideintf.pas svneol=native#text/plain
 ideintf/checkgroupeditordlg.lfm svneol=native#text/plain
 ideintf/checkgroupeditordlg.lrs svneol=native#text/plain
 ideintf/checklistboxeditordlg.lfm svneol=native#text/plain
diff --git a/ideintf/baseideintf.pas b/ideintf/baseideintf.pas
new file mode 100644
index 0000000000..4734a3c79f
--- /dev/null
+++ b/ideintf/baseideintf.pas
@@ -0,0 +1,39 @@
+{ Copyright (C) 2004
+
+ *****************************************************************************
+ *                                                                           *
+ *  See the file COPYING.modifiedLGPL, included in this distribution,        *
+ *  for details about the copyright.                                         *
+ *                                                                           *
+ *  This program is distributed in the hope that it will be useful,          *
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
+ *                                                                           *
+ *****************************************************************************
+
+  Author: Mattias Gaertner
+
+  Abstract: Base classes of the IDEIntf.
+}
+unit BaseIDEIntf;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, LazConfigStorage;
+  
+type
+  TGetIDEConfigStorage = function(const Filename: string; LoadFromDisk: Boolean
+                                  ): TConfigStorage;
+
+var
+  DefaultConfigClass: TConfigStorageClass = nil;   // will be set by the IDE
+  GetIDEConfigStorage: TGetIDEConfigStorage = nil; // will be set by the IDE
+
+
+implementation
+
+end.
+
diff --git a/lcl/alllclunits.pp b/lcl/alllclunits.pp
index fab2db215e..ee231aa359 100644
--- a/lcl/alllclunits.pp
+++ b/lcl/alllclunits.pp
@@ -41,7 +41,7 @@ uses
   InterfaceBase,
   IntfGraphics,
   // components and functions
-  LCLClasses, AsyncProcess, Maps,
+  LCLClasses, AsyncProcess, Maps, HelpIntfs,
   StdActns, Buttons, Extctrls, Calendar, Clipbrd, Forms, LCLIntf, Spin,
   Comctrls, Graphics, StdCtrls, Arrow, Controls, ImgList, Menus, Toolwin,
   Dialogs, Messages, Clistbox, ActnList, Grids, MaskEdit, ButtonPanel,
diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index c693973435..e1dd00be67 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -1676,6 +1676,8 @@ procedure TCustomForm.IntfHelp(AComponent: TComponent);
 var
   AControl: TControl;
 begin
+  if csDesigning in ComponentState then exit;
+  
   if AComponent is TControl then begin
     AControl:=TControl(AComponent);
     repeat