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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
{
fpGUI - Free Pascal Graphical User Interface
Copyright (C) 2000 - 2001 by
Areca Systems GmbH / Sebastian Guenther
Copyright (C) 2006 by Graeme Geldenhuys
member of the fpGUI development team.
Groupbox class declarations
See the file COPYING.fpGUI, included in this distribution,
for details about the copyright.
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}
{ TCustomGroupBox }
TCustomGroupBox = class(TBinWidget)
protected
procedure Paint(Canvas: TFCanvas); override;
procedure CalcSizes; override;
procedure Resized; override;
public
constructor Create(const pText: string; pOwner: TComponent); overload;
end;
TGroupBox = class(TCustomGroupBox)
published
property CanExpandWidth;
property CanExpandHeight;
property Enabled;
property Text;
end;
{$ENDIF read_interface}
{$IFDEF read_implementation}
// ===================================================================
// TCustomGroupBox
// ===================================================================
procedure TCustomGroupBox.Paint(Canvas: TFCanvas);
begin
Style.DrawGroupBox(Canvas, Rect(0, 0, Width, Height), Text, WidgetState);
end;
procedure TCustomGroupBox.CalcSizes;
var
Borders: TRect;
LabelWidth: Integer;
begin
Borders := Style.GetGroupBoxBorders(TFCanvas(FindForm.Wnd.Canvas), Text, LabelWidth);
FMinSize.cx := Borders.Left + Borders.Right + LabelWidth;
FMinSize.cy := Borders.Top + Borders.Bottom;
if Assigned(Child) then
begin
if Child.MinSize.cx > LabelWidth then
FMinSize.cx := Borders.Left + Borders.Right + Child.MinSize.cx;
Inc(FMinSize.cy, Child.MinSize.cy);
if Child.DefSize.cx > LabelWidth then
FDefSize.cx := Borders.Left + Borders.Right + Child.MinSize.cx;
Inc(FDefSize.cy, Child.DefSize.cy);
if Child.MaxSize.cx > LabelWidth then
FMaxSize.cx := Min(Borders.Left + Borders.Right + Child.MaxSize.cx, InfiniteSize);
FMaxSize.cy := Min(MaxSize.cy + Child.MaxSize.cy, InfiniteSize);
end;
end;
procedure TCustomGroupBox.Resized;
var
LabelWidth: Integer;
Borders: TRect;
begin
if Assigned(Child) then
begin
Borders := Style.GetGroupBoxBorders(TFCanvas(FindForm.Wnd.Canvas), Text, LabelWidth);
Child.SetBounds(Borders.TopLeft, Size(Width - Borders.Left - Borders.Right,
Height - Borders.Top - Borders.Bottom));
end;
end;
constructor TCustomGroupBox.Create(const pText: string; pOwner: TComponent);
begin
Create(pOwner);
Text := pText;
end;
{$ENDIF read_implementation}
|
