1 {
2  /***************************************************************************
3                               idedefs.pas
4                               -----------
5 
6 
7  ***************************************************************************/
8 
9  ***************************************************************************
10  *                                                                         *
11  *   This source is free software; you can redistribute it and/or modify   *
12  *   it under the terms of the GNU General Public License as published by  *
13  *   the Free Software Foundation; either version 2 of the License, or     *
14  *   (at your option) any later version.                                   *
15  *                                                                         *
16  *   This code is distributed in the hope that it will be useful, but      *
17  *   WITHOUT ANY WARRANTY; without even the implied warranty of            *
18  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU     *
19  *   General Public License for more details.                              *
20  *                                                                         *
21  *   A copy of the GNU General Public License is available on the World    *
22  *   Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also      *
23  *   obtain it by writing to the Free Software Foundation,                 *
24  *   Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA.   *
25  *                                                                         *
26  ***************************************************************************
27 
28   Author: Mattias Gaertner
29 
30   Abstract:
31     Base types for IDE communication.
32 }
33 unit IDEDefs;
34 
35 {$mode objfpc}{$H+}
36 
37 interface
38 
39 uses
40   Classes, SysUtils, Menus;
41 
42 type
43   TIDEFileStateFlag = (
44     ifsFileNotFound,
45     ifsPartOfProject,
46     ifsOpenInEditor,
47     ifsReadOnly,
48     ifsHasForm,
49     ifsFormOpen,
50     ifsModified
51     );
52   TIDEFileStateFlags = set of TIDEFileStateFlag;
53 
54   TGetIDEFileStateEvent = procedure(Sender: TObject; const Filename: string;
55     NeededFlags: TIDEFileStateFlags; out ResultFlags: TIDEFileStateFlags) of object;
56 
57 implementation
58 
59 end.
60 
61