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
|
unit GrtSections;
interface
uses Sections, Grt, Classes, TntComCtrls;
type
TGrtSectionForm = class(TSectionForm)
protected
function GetGrt: TGrt;
public
property Grt: TGrt read GetGrt;
end;
implementation
//----------------------------------------------------------------------------------------------------------------------
function TGrtSectionForm.GetGrt: TGrt;
begin
Result := RuntimeEnvironment;
end;
//----------------------------------------------------------------------------------------------------------------------
end.
|
