ViewVC Help

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

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

Comparing ibx/trunk/runtime/gui/IBDialogs.pas (file contents):
Revision 314 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

#	Line 38 | Line 38 | uses
38		{$ELSE}
39		unix,
40		{$ENDIF}
41	<	SysUtils, Classes,  Controls,
42	<	Forms, StdCtrls, ExtCtrls, IB, IBTypes;
41	>	SysUtils, Classes,  Controls, Forms, StdCtrls, ExtCtrls, IB, IBInternals;
42
43		type
44
45		{ TIBLCLInterface }
46
47	<	TIBLCLInterface = class(TInterfacedObject,TIBGUIInterface)
47	>	TIBLCLInterface = class(TInterfacedObject,IIBGUIInterface)
48		private
49		FSetCursorDepth: integer;
50		public
#	Line 56 | Line 55 | type
55		NameReadOnly: Boolean): Boolean; virtual;
56		procedure SetCursor;
57		procedure RestoreCursor;
58	<	function CreateTimer: TIBTimerInf;
58	>	function CreateTimer: IIBTimerInf;
59		end;
60
61		implementation
#	Line 86 | Line 85 | type
85
86		{ TIBTimer }
87
88	<	TIBTimer = class(TInterfacedObject,TIBTimerInf)
88	>	TIBTimer = class(TInterfacedObject,IIBTimerInf)
89		private
90		FTimer: TCustomTimer;
91		public
#	Line 247 | Line 246 | begin
246		end;
247		end;
248
249	<	function TIBLCLInterface.CreateTimer: TIBTimerInf;
249	>	function TIBLCLInterface.CreateTimer: IIBTimerInf;
250		begin
251		Result := TIBTimer.Create;
252		end;

Diff Legend

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