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
|
unit ceUtils;
{$mode objfpc}{$H+}
interface
uses
Graphics, Classes, SysUtils, Controls,
TAChartUtils;
const
DEFAULT_DROPDOWN_COUNT = 32;
TEXT_FORMAT: array[boolean] of TChartTextFormat = (tfNormal, tfHTML);
procedure BoldHeaders(AControl: TControl);
implementation
uses
TypInfo, StdCtrls, ComCtrls;
procedure BoldGroup(AControl: TWinControl);
var
i: Integer;
propinfo: PPropInfo;
cntrl: TControl;
fnt: TFont;
begin
for i:=0 to AControl.ControlCount-1 do begin
cntrl := AControl.Controls[i];
propinfo := GetPropInfo(cntrl, 'ParentFont');
if propinfo <> nil then
SetOrdProp(cntrl, propinfo, Longint(false));
propinfo := GetPropInfo(cntrl, 'Font');
if propinfo <> nil then begin
fnt := TFont(GetObjectProp(cntrl, 'Font'));
fnt.Style := [];
SetObjectProp(cntrl, 'Font', fnt);
end;
end;
AControl.Font.Style := [fsBold];
end;
{ Requests painting of the headers of TCustomGroupbox descendants (TGroupbox,
TRadiogroup, TCheckgroup) in bold. To be called from form or frame after
construction with self as parameter. }
procedure BoldHeaders(AControl: TControl);
var
i: Integer;
begin
if (AControl is TToolbar) then
// skip all the toolbuttons
else
if (AControl is TCustomGroupbox) then
BoldGroup(TCustomGroupBox(AControl))
else
for i:=0 to AControl.ComponentCount-1 do
if AControl.Components[i] is TControl then
BoldHeaders(TControl(AControl.Components[i]))
end;
end.
|
