ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/design/IBEventsEditor.pas

Comparing ibx/trunk/design/IBEventsEditor.pas (file contents):
Revision 32 by tony, Sat Dec 28 19:22:24 2013 UTC vs.
Revision 33 by tony, Sat Jul 18 12:30:52 2015 UTC

#	Line 1 | Line 1
1	<	{************************************************************************}
2	<	{                                                                        }
3	<	{       Borland Delphi Visual Component Library                          }
4	<	{       InterBase Express core components                                }
5	<	{                                                                        }
6	<	{       Copyright (c) 1998-2000 Inprise Corporation                      }
7	<	{                                                                        }
8	<	{    InterBase Express is based in part on the product                   }
9	<	{    Free IB Components, written by Gregory H. Deatz for                 }
10	<	{    Hoagland, Longo, Moran, Dunst & Doukas Company.                     }
11	<	{    Free IB Components is used under license.                           }
12	<	{                                                                        }
13	<	{    The contents of this file are subject to the InterBase              }
14	<	{    Public License Version 1.0 (the "License"); you may not             }
15	<	{    use this file except in compliance with the License. You            }
16	<	{    may obtain a copy of the License at http://www.Inprise.com/IPL.html }
17	<	{    Software distributed under the License is distributed on            }
18	<	{    an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either              }
19	<	{    express or implied. See the License for the specific language       }
20	<	{    governing rights and limitations under the License.                 }
21	<	{    The Original Code was created by InterBase Software Corporation     }
22	<	{       and its successors.                                              }
23	<	{    Portions created by Inprise Corporation are Copyright (C) Inprise   }
24	<	{       Corporation. All Rights Reserved.                                }
25	<	{    Contributor(s): Jeff Overcash, James Thorpe                         }
26	<	{                                                                        }
27	<	{************************************************************************}
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, LResources;
38	<
39	<	type
40	<
41	<	{ TIBEventsEditor }
42	<
43	<	TIBEventsEditor = class(TForm)
44	<	Panel1: TPanel;
45	<	Panel2: TPanel;
46	<	cEvents: TStringGrid;
47	<	RequestedEvents: TLabel;
48	<	bOK: TButton;
49	<	bCancel: TButton;
50	<	procedure FormCreate(Sender: TObject);
51	<	private
52	<	{ Private declarations }
53	<	public
54	<	{ Public declarations }
55	<	end;
56	<
57	<	function EditAlerterEvents( Events: TStrings): Boolean;
58	<
59	<	implementation
60	<
61	<	{$R *.lfm}
62	<
63	<	function EditAlerterEvents( Events: TStrings): Boolean;
64	<	var
65	<	i: integer;
66	<	begin
67	<	result := false;
68	<	with TIBEventsEditor.Create(Application) do
69	<	begin
70	<	try
71	<	for i := 0 to Events.Count-1 do
72	<	cEvents.Cells[1, i] := Events[i];
73	<	if ShowModal = mrOk then
74	<	begin
75	<	result := true;
76	<	Events.Clear;
77	<	for i := 0 to MaxEvents-1 do
78	<	if length( cEvents.Cells[1, i]) <> 0 then
79	<	Events.Add( cEvents.Cells[1, i]);
80	<	end;
81	<	finally
82	<	Free;
83	<	end;
84	<	end;
85	<	end;
86	<
87	<	procedure TIBEventsEditor.FormCreate(Sender: TObject);
88	<	var
89	<	i: integer;
90	<	begin
91	<	for i := 1 to MaxEvents do
92	<	cEvents.Cells[0, i-1] := IntToStr( i);
93	<	end;
94	<
95	<	end.
1	>	{************************************************************************}
2	>	{                                                                        }
3	>	{       Borland Delphi Visual Component Library                          }
4	>	{       InterBase Express core components                                }
5	>	{                                                                        }
6	>	{       Copyright (c) 1998-2000 Inprise Corporation                      }
7	>	{                                                                        }
8	>	{    InterBase Express is based in part on the product                   }
9	>	{    Free IB Components, written by Gregory H. Deatz for                 }
10	>	{    Hoagland, Longo, Moran, Dunst & Doukas Company.                     }
11	>	{    Free IB Components is used under license.                           }
12	>	{                                                                        }
13	>	{    The contents of this file are subject to the InterBase              }
14	>	{    Public License Version 1.0 (the "License"); you may not             }
15	>	{    use this file except in compliance with the License. You            }
16	>	{    may obtain a copy of the License at http://www.Inprise.com/IPL.html }
17	>	{    Software distributed under the License is distributed on            }
18	>	{    an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either              }
19	>	{    express or implied. See the License for the specific language       }
20	>	{    governing rights and limitations under the License.                 }
21	>	{    The Original Code was created by InterBase Software Corporation     }
22	>	{       and its successors.                                              }
23	>	{    Portions created by Inprise Corporation are Copyright (C) Inprise   }
24	>	{       Corporation. All Rights Reserved.                                }
25	>	{    Contributor(s): Jeff Overcash, James Thorpe                         }
26	>	{                                                                        }
27	>	{************************************************************************}
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, LResources;
38	>
39	>	type
40	>
41	>	{ TIBEventsEditor }
42	>
43	>	TIBEventsEditor = class(TForm)
44	>	Panel1: TPanel;
45	>	Panel2: TPanel;
46	>	cEvents: TStringGrid;
47	>	RequestedEvents: TLabel;
48	>	bOK: TButton;
49	>	bCancel: TButton;
50	>	procedure FormCreate(Sender: TObject);
51	>	private
52	>	{ Private declarations }
53	>	public
54	>	{ Public declarations }
55	>	end;
56	>
57	>	function EditAlerterEvents( Events: TStrings): Boolean;
58	>
59	>	implementation
60	>
61	>	{$R *.lfm}
62	>
63	>	function EditAlerterEvents( Events: TStrings): Boolean;
64	>	var
65	>	i: integer;
66	>	begin
67	>	result := false;
68	>	with TIBEventsEditor.Create(Application) do
69	>	begin
70	>	try
71	>	for i := 0 to Events.Count-1 do
72	>	cEvents.Cells[1, i] := Events[i];
73	>	if ShowModal = mrOk then
74	>	begin
75	>	result := true;
76	>	Events.Clear;
77	>	for i := 0 to MaxEvents-1 do
78	>	if length( cEvents.Cells[1, i]) <> 0 then
79	>	Events.Add( cEvents.Cells[1, i]);
80	>	end;
81	>	finally
82	>	Free;
83	>	end;
84	>	end;
85	>	end;
86	>
87	>	procedure TIBEventsEditor.FormCreate(Sender: TObject);
88	>	var
89	>	i: integer;
90	>	begin
91	>	for i := 1 to MaxEvents do
92	>	cEvents.Cells[0, i-1] := IntToStr( i);
93	>	end;
94	>
95	>	end.

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines