28 |
|
|
29 |
|
unit IBEventsEditor; |
30 |
|
|
31 |
+ |
{$MODE Delphi} |
32 |
+ |
|
33 |
|
interface |
34 |
|
|
35 |
|
uses |
36 |
< |
SysUtils, Windows, Messages, Classes, Graphics, Controls, |
37 |
< |
Forms, Dialogs, ExtCtrls, StdCtrls, Grids, IBEvents; |
36 |
> |
SysUtils, {Windows,} Messages, Classes, Graphics, Controls, |
37 |
> |
Forms, Dialogs, ExtCtrls, StdCtrls, Grids, IBEvents, LResources; |
38 |
|
|
39 |
|
type |
40 |
+ |
|
41 |
+ |
{ TIBEventsEditor } |
42 |
+ |
|
43 |
|
TIBEventsEditor = class(TForm) |
44 |
|
Panel1: TPanel; |
45 |
|
Panel2: TPanel; |
48 |
|
bOK: TButton; |
49 |
|
bCancel: TButton; |
50 |
|
procedure FormCreate(Sender: TObject); |
51 |
+ |
procedure Panel1Click(Sender: TObject); |
52 |
|
private |
53 |
|
{ Private declarations } |
54 |
|
public |
59 |
|
|
60 |
|
implementation |
61 |
|
|
56 |
– |
{$R *.DFM} |
62 |
|
|
63 |
|
function EditAlerterEvents( Events: TStrings): Boolean; |
64 |
|
var |
70 |
|
try |
71 |
|
for i := 0 to Events.Count-1 do |
72 |
|
cEvents.Cells[1, i] := Events[i]; |
73 |
< |
if ShowModal = idOk then |
73 |
> |
if ShowModal = mrOk then |
74 |
|
begin |
75 |
|
result := true; |
76 |
|
Events.Clear; |
92 |
|
cEvents.Cells[0, i-1] := IntToStr( i); |
93 |
|
end; |
94 |
|
|
95 |
+ |
procedure TIBEventsEditor.Panel1Click(Sender: TObject); |
96 |
+ |
begin |
97 |
+ |
|
98 |
+ |
end; |
99 |
+ |
|
100 |
+ |
initialization |
101 |
+ |
{$i IBEventsEditor.lrs} |
102 |
+ |
|
103 |
|
end. |