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
80
81
82
83
84
85
86
87
|
{
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
Author: Mattias Gaertner
Abtract:
Registers a new designer base class (like TForm or TDataModule) in the IDE.
}
unit CustomComponentClass;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LCLProc, LResources, Forms, FormEditingIntf;
type
{ TMyComponentClass }
TMyComponentClass = class(TComponent)
private
FDemoProperty: integer;
protected
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
public
constructor Create(TheOwner: TComponent); override;
published
property DemoProperty: integer read FDemoProperty write FDemoProperty;
end;
procedure Register;
implementation
procedure Register;
begin
FormEditingHook.RegisterDesignerBaseClass(TMyComponentClass);
end;
{ TMyComponentClass }
procedure TMyComponentClass.GetChildren(Proc: TGetChildProc; Root: TComponent);
// this method is called by TWriter to retrieve the child components to write
var
I: Integer;
OwnedComponent: TComponent;
begin
DebugLn(['TMyComponentClass.GetChildren ComponentCount=',ComponentCount]);
inherited GetChildren(Proc, Root);
if Root = Self then begin
for I := 0 to ComponentCount - 1 do
begin
OwnedComponent := Components[I];
if not OwnedComponent.HasParent then Proc(OwnedComponent);
end;
end;
end;
constructor TMyComponentClass.Create(TheOwner: TComponent);
// init the component with an IDE resource
begin
DebugLn(['TMyComponentClass.Create ',DbgSName(TheOwner)]);
GlobalNameSpace.BeginWrite;
try
inherited Create(TheOwner);
if (ClassType <> TMyComponentClass) and not (csDesigning in ComponentState)
then begin
if not InitResourceComponent(Self, TDataModule) then begin
raise EResNotFound.Create('Resource missing for class '+ClassName);
end;
end;
finally
GlobalNameSpace.EndWrite;
end;
end;
end.
|
