added baseideintf

git-svn-id: trunk@9275 -

.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

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.
+

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,

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