1 {
2  ***************************************************************************
3  *                                                                         *
4  *   This source is free software; you can redistribute it and/or modify   *
5  *   it under the terms of the GNU General Public License as published by  *
6  *   the Free Software Foundation; either version 2 of the License, or     *
7  *   (at your option) any later version.                                   *
8  *                                                                         *
9  *   This code is distributed in the hope that it will be useful, but      *
10  *   WITHOUT ANY WARRANTY; without even the implied warranty of            *
11  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU     *
12  *   General Public License for more details.                              *
13  *                                                                         *
14  *   A copy of the GNU General Public License is available on the World    *
15  *   Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also      *
16  *   obtain it by writing to the Free Software Foundation,                 *
17  *   Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA.   *
18  *                                                                         *
19  ***************************************************************************
20 }
21 unit FPDocSelectInherited;
22 
23 {$mode objfpc}{$H+}
24 
25 interface
26 
27 uses
28   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
29   Buttons, LazarusIdeStrConsts, ButtonPanel;
30 
31 type
32 
33   { TFPDocSelectInheritedDlg }
34 
35   TFPDocSelectInheritedDlg = class(TForm)
36     ButtonPanel1: TButtonPanel;
37     InheritedComboBox: TComboBox;
38     procedure FormCreate(Sender: TObject);
39   end;
40 
41 implementation
42 
43 {$R *.lfm}
44 
45 { TFPDocSelectInheritedDlg }
46 
47 procedure TFPDocSelectInheritedDlg.FormCreate(Sender: TObject);
48 begin
49   Caption:=rsSelectAnInheritedEntry;
50 end;
51 
52 end.
53 
54