# | Line 48 | Line 48 | type | |
---|---|---|
48 | bOK: TButton; | |
49 | bCancel: TButton; | |
50 | procedure FormCreate(Sender: TObject); | |
51 | – | procedure Panel1Click(Sender: TObject); |
51 | private | |
52 | { Private declarations } | |
53 | public | |
# | Line 59 | Line 58 | function EditAlerterEvents( Events: TStr | |
58 | ||
59 | implementation | |
60 | ||
61 | + | {$R *.lfm} |
62 | ||
63 | function EditAlerterEvents( Events: TStrings): Boolean; | |
64 | var | |
# | Line 92 | 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 | – | |
95 | end. |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |