1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
unit ExampleGrid1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, RTTIGrids,
RTTICtrls;
type
{ TMyCollectionItem }
TMyCollectionItem = class(TCollectionItem)
private
FInt: integer;
FStr: string;
FColor: TColor;
published
property Color: TColor read FColor write FColor;
property Str: string read FStr write FStr;
property Int: integer read FInt write FInt;
end;
{ TForm1 }
TForm1 = class(TForm)
TICheckBox1: TTICheckBox;
TIGrid1: TTIGrid;
procedure Form1Create(Sender: TObject);
procedure Form1Destroy(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
MyCollection: TCollection;
end;
var
Form1: TForm1;
implementation
{$R examplegrid1.lfm}
{ TForm1 }
procedure TForm1.Form1Create(Sender: TObject);
var
NewItem: TMyCollectionItem;
begin
// create a collection with 2 items
MyCollection:=TCollection.Create(TMyCollectionItem);
NewItem:=TMyCollectionItem(MyCollection.Add);
NewItem.Color:=clRed;
NewItem.Str:='Some';
NewItem.Int:=123;
NewItem:=TMyCollectionItem(MyCollection.Add);
NewItem.Color:=clBlue;
NewItem.Str:='Text';
NewItem.Int:=789;
// show the collection
TIGrid1.ListObject:=MyCollection;
end;
procedure TForm1.Form1Destroy(Sender: TObject);
begin
// disconnect collection from grid
TIGrid1.ListObject:=nil;
// free collection
MyCollection.Free;
end;
end.
|
