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

Comparing ibx/trunk/runtime/IBDialogs.pas (file contents):
Revision 67 by tony, Tue Oct 3 14:08:11 2017 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC

# Line 38 | Line 38 | uses
38   {$ELSE}
39    unix,
40   {$ENDIF}
41 <  SysUtils, Classes, Graphics, Controls,
41 >  SysUtils, Classes,  Controls,
42    Forms, StdCtrls, ExtCtrls, IB, IBTypes;
43  
44   type
# Line 133 | Line 133 | begin
133    finally
134      Free;
135    end;
136 <  if ActiveForm <> nil then
136 >  if (ActiveForm <> nil) and ActiveForm.CanFocus then
137    begin
138      ActiveForm.SetFocus;
139      Application.ProcessMessages;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines