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
|
{%MainUnit ../toolwin.pp}
{******************************************************************************
TToolWindow
******************************************************************************
*****************************************************************************
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.
*****************************************************************************
}
{ TToolWindow }
constructor TToolWindow.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
FEdgeBorders := [ebLeft, ebTop, ebRight, ebBottom];
FEdgeInner := esRaised;
FEdgeOuter := esLowered;
end;
procedure TToolWindow.AdjustClientRect(var ARect: TRect);
var
EdgeWidth: Integer;
begin
EdgeWidth:=0;
if FEdgeOuter<>esNone then inc(EdgeWidth);
if FEdgeInner<>esNone then inc(EdgeWidth);
if ebLeft in FEdgeBorders then
inc(ARect.Left,EdgeWidth);
if ebTop in FEdgeBorders then
inc(ARect.Top,EdgeWidth);
if ebRight in FEdgeBorders then
dec(ARect.Right,EdgeWidth);
if ebBottom in FEdgeBorders then
dec(ARect.Bottom,EdgeWidth);
end;
procedure TToolWindow.SetEdgeBorders(Value: TEdgeBorders);
begin
if FEdgeBorders <> Value then begin
FEdgeBorders := Value;
Invalidate;
end;
end;
procedure TToolWindow.SetEdgeInner(Value: TEdgeStyle);
begin
if FEdgeInner <> Value then begin
FEdgeInner := Value;
Invalidate;
end;
end;
procedure TToolWindow.SetEdgeOuter(Value: TEdgeStyle);
begin
if FEdgeOuter <> Value then begin
FEdgeOuter := Value;
Invalidate;
end;
end;
procedure TToolWindow.Paint;
const
InnerStyles: array[TEdgeStyle] of Integer = (0, BDR_RAISEDINNER, BDR_SUNKENINNER);
OuterStyles: array[TEdgeStyle] of Integer = (0, BDR_RAISEDOUTER, BDR_SUNKENOUTER);
var
FEdgeBorderType : Cardinal;
ARect: TRect;
begin
FEdgeBorderType := 0;
if (ebTop in FEdgeBorders) then
FEdgeBorderType := FEdgeBorderType or longint(BF_TOP);
if (ebBottom in FEdgeBorders) then
FEdgeBorderType := FEdgeBorderType or longint(BF_BOTTOM);
if (ebLeft in FEdgeBorders) then
FEdgeBorderType := FEdgeBorderType or longint(BF_LEFT);
if (ebRight in FEdgeBorders) then
FEdgeBorderType := FEdgeBorderType or longint(BF_RIGHT);
ARect:=ClientRect;
DrawEdge(Canvas.Handle,ARect,
InnerStyles[FEdgeInner] or OuterStyles[FEdgeOuter],FEdgeBorderType);
inherited Paint;
end;
procedure TToolWindow.BeginUpdate;
begin
Inc(FUpdateCount);
end;
procedure TToolWindow.EndUpdate;
begin
Dec(FUpdateCount);
end;
// included by toolwin.pp
|
