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
|
{*****************************************}
{ }
{ FastReport v2.3 }
{ Select Band dialog }
{ }
{ Copyright (c) 1998-99 by Tzyganenko A. }
{ }
{*****************************************}
unit LR_BTyp;
interface
{$I LR_Vers.inc}
uses
Classes, SysUtils, LResources,
Forms, Controls, Graphics, Dialogs,
Buttons, StdCtrls, ButtonPanel,
LR_Class,LR_Const;
type
{ TfrBandTypesForm }
TfrBandTypesForm = class(TForm)
ButtonPanel1: TButtonPanel;
GB1: TGroupBox;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
procedure bClick(Sender: TObject);
procedure CreateOptions;
public
{ Public declarations }
SelectedTyp: TfrBandType;
end;
var
frBandTypesForm: TfrBandTypesForm;
implementation
{$R *.lfm}
uses LR_Desgn;
procedure TfrBandTypesForm.FormCreate(Sender: TObject);
begin
CreateOptions;
end;
procedure TfrBandTypesForm.FormShow(Sender: TObject);
begin
//CreateOptions;
end;
procedure TfrBandTypesForm.bClick(Sender: TObject);
begin
SelectedTyp := TfrBandType((Sender as TComponent).Tag);
end;
procedure TfrBandTypesForm.CreateOptions;
var
b : TRadioButton;
bt : TfrBandType;
First: Boolean;
begin
First := True;
for bt := btReportTitle to btChild do
begin
b := TRadioButton.Create(GB1);
b.Parent := GB1;
b.AutoSize:=True;
b.Tag := Integer(bt);
b.Caption := frBandNames[Bt];
b.OnClick := @bClick;
b.Enabled := (bt in [btMasterHeader..btSubDetailFooter,
btGroupHeader, btGroupFooter, btChild]) or not frCheckBand(bt);
if b.Enabled and First then
begin
b.Checked := True;
SelectedTyp := bt;
First := False;
end;
end;
Caption := sBandTypesFormCapt;
GB1.Caption := sBandTypesFormBType;
end;
end.
|
