ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/IBEventsEditor.pas
(Generate patch)

Comparing ibx/trunk/design/IBEventsEditor.pas (file contents):
Revision 1 by tony, Mon Jul 31 16:43:00 2000 UTC vs.
Revision 5 by tony, Fri Feb 18 16:26:16 2011 UTC

# Line 28 | Line 28
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;
# Line 43 | Line 48 | type
48      bOK: TButton;
49      bCancel: TButton;
50      procedure FormCreate(Sender: TObject);
51 +    procedure Panel1Click(Sender: TObject);
52    private
53      { Private declarations }
54    public
# Line 53 | Line 59 | function EditAlerterEvents( Events: TStr
59  
60   implementation
61  
56 {$R *.DFM}
62  
63   function EditAlerterEvents( Events: TStrings): Boolean;
64   var
# Line 65 | Line 70 | begin
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;
# Line 87 | Line 92 | begin
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.

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines