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