ViewVC Help

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

root/public/ibx/trunk/examples/services/ShutdownRegDlgUnit.pas

Comparing ibx/trunk/examples/services/ShutdownRegDlgUnit.pas (file contents):
Revision 208 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

#	Line 32 | Line 32 | interface
32
33		uses
34		Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
35	<	StdCtrls, IBServices;
35	>	StdCtrls, IBXServices;
36
37		type
38
#	Line 52 | Line 52 | type
52		private
53
54		public
55	<	function ShowModal(var aDatabaseName: string; var aShutDownmode: TShutdownMode;
55	>	function ShowModal(var aDatabaseName: string; var aShutDownmode: TDBShutdownMode;
56		var aDelay: integer): TModalResult;
57		end;
58
#	Line 71 | Line 71 | begin
71		end;
72
73		function TShutdownReqDlg.ShowModal(var aDatabaseName: string;
74	<	var aShutDownmode: TShutdownMode; var aDelay: integer): TModalResult;
74	>	var aShutDownmode: TDBShutdownMode; var aDelay: integer): TModalResult;
75		begin
76		ShutdownOptions.ItemIndex := ord(aShutDownmode);
77		DatabaseName.Text := aDatabaseName;
#	Line 79 | Line 79 | begin
79		if Result = mrOK then
80		begin
81		aDelay := StrToInt(Delay.Text);
82	<	aShutDownmode := TShutdownMode(ShutdownOptions.ItemIndex);
82	>	aShutDownmode := TDBShutdownMode(ShutdownOptions.ItemIndex);
83		aDatabaseName := DatabaseName.Text;
84		end;
85		end;

Diff Legend

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