ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/services/ShutdownRegDlgUnit.pas
(Generate patch)

Comparing ibx/trunk/examples/services/ShutdownRegDlgUnit.pas (file contents):
Revision 143 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