1 
2 {*****************************************}
3 {                                         }
4 {             FastReport v2.3             }
5 {           Select Band dialog            }
6 {                                         }
7 {  Copyright (c) 1998-99 by Tzyganenko A. }
8 {                                         }
9 {*****************************************}
10 
11 unit LR_BTyp;
12 
13 interface
14 
15 {$I LR_Vers.inc}
16 
17 uses
18   Classes, SysUtils, LResources,
19   Forms, Controls, Graphics, Dialogs,
20   Buttons, StdCtrls, ButtonPanel,
21 
22   LR_Class,LR_Const;
23 
24 type
25 
26   { TfrBandTypesForm }
27 
28   TfrBandTypesForm = class(TForm)
29     ButtonPanel1: TButtonPanel;
30     GB1: TGroupBox;
31     procedure FormCreate(Sender: TObject);
32     procedure FormShow(Sender: TObject);
33   private
34     { Private declarations }
35     procedure bClick(Sender: TObject);
36     procedure CreateOptions;
37   public
38     { Public declarations }
39     SelectedTyp: TfrBandType;
40   end;
41 
42 var
43   frBandTypesForm: TfrBandTypesForm;
44 
45 implementation
46 
47 {$R *.lfm}
48 
49 uses LR_Desgn;
50 
51 
52 procedure TfrBandTypesForm.FormCreate(Sender: TObject);
53 begin
54   CreateOptions;
55 end;
56 
57 procedure TfrBandTypesForm.FormShow(Sender: TObject);
58 begin
59   //CreateOptions;
60 end;
61 
62 procedure TfrBandTypesForm.bClick(Sender: TObject);
63 begin
64   SelectedTyp := TfrBandType((Sender as TComponent).Tag);
65 end;
66 
67 procedure TfrBandTypesForm.CreateOptions;
68 var
69   b    : TRadioButton;
70   bt   : TfrBandType;
71   First: Boolean;
72 begin
73   First := True;
74   for bt := btReportTitle to btChild do
75   begin
76     b := TRadioButton.Create(GB1);
77     b.Parent := GB1;
78     b.AutoSize:=True;
79     b.Tag := Integer(bt);
80     b.Caption := frBandNames[Bt];
81     b.OnClick := @bClick;
82     b.Enabled := (bt in [btMasterHeader..btSubDetailFooter,
83       btGroupHeader, btGroupFooter, btChild]) or not frCheckBand(bt);
84     if b.Enabled and First then
85     begin
86       b.Checked := True;
87       SelectedTyp := bt;
88       First := False;
89     end;
90   end;
91 
92   Caption := sBandTypesFormCapt;
93   GB1.Caption := sBandTypesFormBType;
94 end;
95 
96 end.
97 
98