ViewVC Help

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

root/public/ibx/trunk/runtime/IBDialogs.pas

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