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
101
102
103
104
105
106
107
|
{*****************************************}
{ }
{ FastReport v2.3 }
{ Select Band datasource dialog }
{ }
{ Copyright (c) 1998-99 by Tzyganenko A. }
{ }
{*****************************************}
unit LR_BndEd;
interface
{$I LR_Vers.inc}
uses
Classes, SysUtils, LResources,
Forms, Controls, Graphics, Dialogs,
Buttons, StdCtrls, ButtonPanel,
LR_Class;
type
{ TfrBandEditorForm }
TfrBandEditorForm = class(TForm)
ButtonPanel1: TButtonPanel;
GB1: TGroupBox;
Label2: TLabel;
CB1: TComboBox;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure CB1Click(Sender: TObject);
private
{ Private declarations }
procedure FillCombo;
public
{ Public declarations }
procedure ShowEditor(t: TfrView);
end;
var
frBandEditorForm: TfrBandEditorForm;
implementation
{$R *.lfm}
uses LR_DSet, LR_Const, LR_Utils;
procedure TfrBandEditorForm.ShowEditor(t: TfrView);
var
i: Integer;
s: String;
begin
FillCombo;
s := (t as TfrBandView).DataSet;
if (s <> '') and (s[1] in ['1'..'9']) then
begin
i := 1;
Edit1.Text := s;
end
else
begin
i := CB1.Items.IndexOf(s);
if i = -1 then
i := CB1.Items.IndexOf(sNotAssigned);
end;
CB1.ItemIndex := i;
CB1Click(nil);
if ShowModal = mrOk then
begin
frDesigner.BeforeChange;
if CB1.ItemIndex = 1 then
(t as TfrBandView).DataSet := Edit1.Text
else
(t as TfrBandView).DataSet := CB1.Items[CB1.ItemIndex];
end;
end;
procedure TfrBandEditorForm.FillCombo;
begin
frGetComponents(CurReport.Owner, TfrDataset, CB1.Items, nil);
TStringList(CB1.Items).Sort;
TStringList(CB1.Items).Sorted := False;
CB1.Items.Insert(0, sVirtualDataset);
CB1.Items.Insert(0, sNotAssigned);
end;
procedure TfrBandEditorForm.FormCreate(Sender: TObject);
begin
Caption := sBandEditorFormCapt;
GB1.Caption := sBandEditorFormDataSrc;
Label2.Caption := sBandEditorFormRecCount;
end;
procedure TfrBandEditorForm.CB1Click(Sender: TObject);
begin
frEnableControls([Label2, Edit1], CB1.ItemIndex = 1);
end;
end.
|
