/
SectAttrUnit.pas
77 lines (64 loc) · 1.91 KB
/
SectAttrUnit.pas
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
unit SectAttrUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, BoldElements, StdCtrls, Grids, BoldGrid, Buttons, BoldComboBox,
BoldPropertiesController;
type
TAllSectAttrForm = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Panel1: TPanel;
BoldGrid1: TBoldGrid;
BitBtn2: TBitBtn;
BitBtn1: TBitBtn;
Label1: TLabel;
BoldComboBox1: TBoldComboBox;
Label2: TLabel;
BoldComboBox2: TBoldComboBox;
GroupBox3: TGroupBox;
BoldGrid2: TBoldGrid;
Panel3: TPanel;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BoldGrid3: TBoldGrid;
Panel2: TPanel;
BitBtn3: TBitBtn;
BoldPropertiesController1: TBoldPropertiesController;
BitBtn4: TBitBtn;
procedure FormShow(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BoldGrid3Columns2LookupChange(DestElement,
NewValue: TBoldElement);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AllSectAttrForm: TAllSectAttrForm;
implementation
{$R *.dfm}
uses BoldOtherHandlCompUnit, HandlesDM, BusinessClasses;
procedure TAllSectAttrForm.BoldGrid3Columns2LookupChange(DestElement,
NewValue: TBoldElement);
begin
DestElement:=NewValue;
end;
procedure TAllSectAttrForm.BitBtn3Click(Sender: TObject);
begin
if BoldOthHandleCompDM.blhAllKupon.List.Count>0 then
begin
(BoldOthHandleCompDM.blhAllKupon.CurrentElement as TKupon).ispoljz_prizn_dobavleniya.Add(BoldOthHandleCompDM.blhAllSectAttr.CurrentElement as TPriznak_razdela);
end;
end;
procedure TAllSectAttrForm.BitBtn4Click(Sender: TObject);
begin
(BoldOthHandleCompDM.blhKuponAttr.CurrentElement as TPriznak_Razdela).M_Linksostavlyaet_harakterispoljz_prizn_dobavleniya.Clear;
end;
procedure TAllSectAttrForm.FormShow(Sender: TObject);
begin
BitBtn4.Caption:='';
end;
end.