1 {
2  *****************************************************************************
3   See the file COPYING.modifiedLGPL.txt, included in this distribution,
4   for details about the license.
5  *****************************************************************************
6 
7   Author: Mattias Gaertner
8 
9   Abstract:
10     Example for RTTI controls.
11     Demonstrates a few RTTI controls without any code.
12 }
13 unit Example1;
14 
15 {$mode objfpc}{$H+}
16 
17 interface
18 
19 uses
20   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, RTTICtrls,
21   RTTIGrids, StdCtrls;
22 
23 type
24   TForm1 = class(TForm)
25     Label1: TLabel;
26     StaticText1: TStaticText;
27     StaticText2: TStaticText;
28     StaticText3: TStaticText;
29     StaticText4: TStaticText;
30     TICheckBox1: TTICheckBox;
31     TICheckBox2: TTICheckBox;
32     TIComboBox_Enabled: TTIComboBox;
33     TIEdit1: TTIEdit;
34     TIListBox_Color: TTIListBox;
35     TIPropertyGrid1: TTIPropertyGrid;
36   private
37     { private declarations }
38   public
39     { public declarations }
40   end;
41 
42 var
43   Form1: TForm1;
44 
45 implementation
46 
47 {$R example1.lfm}
48 
49 end.
50 
51