ViewVC Help

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

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

Comparing ibx/trunk/examples/DBAdmin/dlg/ShutdownDatabaseDlgUnit.pas (file contents):
Revision 217 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 218 by tony, Fri Mar 16 11:08:20 2018 UTC

#	Line 54 | Line 54 | type
54		FShutdownWaitThread: TThread;
55		procedure OnWaitCompleted(Sender: TObject);
56		public
57	<	procedure Shutdown(aDBName: string; aShutDownmode: TDBShutdownMode; aDelay: integer);
57	>	procedure Shutdown(aShutDownmode: TDBShutdownMode; aDelay: integer);
58		property Aborting: boolean read FAborting;
59		end;
60
#	Line 174 | Line 174 | begin
174		Close;
175		end;
176
177	<	procedure TShutdownDatabaseDlg.Shutdown(aDBName: string;
178	<	aShutDownmode: TDBShutdownMode; aDelay: integer);
177	>	procedure TShutdownDatabaseDlg.Shutdown(aShutDownmode: TDBShutdownMode;
178	>	aDelay: integer);
179		begin
180	–	IBConfigService.DatabaseName := aDBName;
180		FShutDownmode := aShutDownmode;
181		FDelay := aDelay;
182		FSecContextError := false;

Diff Legend

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