ViewVC Help

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

root/public/ibx/trunk/examples/DBAdmin/dlg/ShutdownRegDlgUnit.pas

Comparing ibx/trunk/examples/DBAdmin/dlg/ShutdownRegDlgUnit.pas (file contents):
Revision 208 by tony, Thu Mar 1 11:23:33 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

#	Line 23 | Line 23 | interface
23
24		uses
25		Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
26	<	StdCtrls, IBServices;
26	>	StdCtrls, IBXServices;
27
28		type
29
#	Line 43 | Line 43 | type
43		private
44
45		public
46	<	function ShowModal(const aDatabaseName: string; var aShutDownmode: TShutdownMode;
46	>	function ShowModal(const aDatabaseName: string; var aShutDownmode: TDBShutdownMode;
47		var aDelay: integer): TModalResult;
48		end;
49
#	Line 62 | Line 62 | begin
62		end;
63
64		function TShutdownReqDlg.ShowModal(const aDatabaseName: string;
65	<	var aShutDownmode: TShutdownMode; var aDelay: integer): TModalResult;
65	>	var aShutDownmode: TDBShutdownMode; var aDelay: integer): TModalResult;
66		begin
67		ShutdownOptions.ItemIndex := ord(aShutDownmode);
68		DatabaseName.Text := aDatabaseName;
#	Line 70 | Line 70 | begin
70		if Result = mrOK then
71		begin
72		aDelay := StrToInt(Delay.Text);
73	<	aShutDownmode := TShutdownMode(ShutdownOptions.ItemIndex);
73	>	aShutDownmode := TDBShutdownMode(ShutdownOptions.ItemIndex);
74		end;
75		end;
76

Diff Legend

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