blob: 7218e0644019fe1f1897fd2483a0e2720d8e666b (
plain)
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
88
|
{
fpGUI - Free Pascal GUI Library
Container class declarations
Copyright (C) 2000 - 2006 See the file AUTHORS.txt, included in this
distribution, for details of the copyright.
See the file COPYING.modifiedLGPL, included in this distribution,
for details about redistributing fpGUI.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
{%mainunit fpgui.pp}
{$IFDEF read_interface}
{ Container widget declarations }
TContainerWidget = class(TWidget)
protected
function DistributeEvent(Event: TEventObj): Boolean; override;
function GetChildCount: Integer; virtual; abstract;
function GetChild(Index: Integer): TWidget; virtual; abstract;
property ChildCount: Integer read GetChildCount;
property Children[Index: Integer]: TWidget read GetChild;
// Move to public in decendant classes, if you want them visible
procedure InsertChild(AChild: TWidget); dynamic; virtual;
procedure RemoveChild(AChild: TWidget); dynamic; virtual;
public
function GetChildAt(APoint: TPoint): TWidget;
function ContainsChild(AChild: TWidget): Boolean; dynamic; abstract;
end;
{$ENDIF read_interface}
{$IFDEF read_implementation}
// ===================================================================
// TContainerWidget
// ===================================================================
function TContainerWidget.GetChildAt(APoint: TPoint): TWidget;
var
i: Integer;
begin
for i := 0 to ChildCount - 1 do
begin
Result := Children[i];
if PtInRect(Result.BoundsRect, APoint) then
exit;
end;
Result := nil;
end;
function TContainerWidget.DistributeEvent(Event: TEventObj): Boolean;
var
i: Integer;
begin
// Propagate the event to all children
for i := 0 to ChildCount - 1 do
if Event.SendToChild(Children[i]) then
begin
Result := True;
exit;
end;
// The event hasn't been processed by any child:
Result := inherited DistributeEvent(Event);
end;
procedure TContainerWidget.InsertChild(AChild: TWidget);
begin
// do nothing
end;
procedure TContainerWidget.RemoveChild(AChild: TWidget);
begin
// do nothing
end;
{$ENDIF read_implementation}
|