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