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