--- ibx/trunk/design/IBEventsEditor.pas	2000/07/31 16:43:00	1
+++ ibx/trunk/design/IBEventsEditor.pas	2011/02/18 16:26:16	5
@@ -28,13 +28,18 @@
 
 unit IBEventsEditor;
 
+{$MODE Delphi}
+
 interface
 
 uses
-  SysUtils, Windows, Messages, Classes, Graphics, Controls,
-  Forms, Dialogs, ExtCtrls, StdCtrls, Grids, IBEvents;
+  SysUtils, {Windows,} Messages, Classes, Graphics, Controls,
+  Forms, Dialogs, ExtCtrls, StdCtrls, Grids, IBEvents, LResources;
 
 type
+
+  { TIBEventsEditor }
+
   TIBEventsEditor = class(TForm)
     Panel1: TPanel;
     Panel2: TPanel;
@@ -43,6 +48,7 @@ type
     bOK: TButton;
     bCancel: TButton;
     procedure FormCreate(Sender: TObject);
+    procedure Panel1Click(Sender: TObject);
   private
     { Private declarations }
   public
@@ -53,7 +59,6 @@ function EditAlerterEvents( Events: TStr
 
 implementation
 
-{$R *.DFM}
 
 function EditAlerterEvents( Events: TStrings): Boolean;
 var
@@ -65,7 +70,7 @@ begin
     try
       for i := 0 to Events.Count-1 do
         cEvents.Cells[1, i] := Events[i];
-      if ShowModal = idOk then
+      if ShowModal = mrOk then
       begin
         result := true;
         Events.Clear;
@@ -87,4 +92,12 @@ begin
     cEvents.Cells[0, i-1] := IntToStr( i);
 end;
 
+procedure TIBEventsEditor.Panel1Click(Sender: TObject);
+begin
+
+end;
+
+initialization
+  {$i IBEventsEditor.lrs}
+
 end.