runtime/nongui/IBInternals.pas

(*
 *  IBX For Lazarus (Firebird Express)
 *
 *  The contents of this file are subject to the Initial Developer's
 *  Public License Version 1.0 (the "License"); you may not use this
 *  file except in compliance with the License. You may obtain a copy
 *  of the License here:
 *
 *    http://www.firebirdsql.org/index.php?op=doc&id=idpl
 *
 *  Software distributed under the License is distributed on an "AS
 *  IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
 *  implied. See the License for the specific language governing rights
 *  and limitations under the License.
 *
 *  The Initial Developer of the Original Code is Tony Whyman.
 *
 *  The Original Code is (C) 2015-2020 Tony Whyman, MWA Software
 *  (http://www.mwasoftware.co.uk).
 *
 *  All Rights Reserved.
 *
 *  Contributor(s): ______________________________________.
 *
*)
unit IBInternals;

{$mode objfpc}{$H+}

{Interfaces used internally and not normally made visible to users}

interface

uses
  Classes, SysUtils, DB;

type
  TTraceControlFlag = (tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect,
     tfTransact, tfBlob, tfService, tfMisc, tfDisabled);
  TTraceFlag = tfQPrepare..tfMisc;
  TTraceFlags = set of TTraceFlag;

  { TIBXMonitoredComponent }

  TIBXMonitoredComponent = class(TComponent)
  private
    FTraceFlags: TTraceFlags;
  public
    constructor Create(aOwner: TComponent); override;
    property TraceFlags: TTraceFlags read FTraceFlags write FTraceFlags;
  end;

  TIBMonitoredService = class(TIBXMonitoredComponent);
  TIBXMonitoredService = class(TIBXMonitoredComponent);

  { TIBXMonitoredConnection }

  TIBXMonitoredConnection = class(TCustomConnection)
  private
    FTraceFlags: TTraceFlags;
  public
    constructor Create(aOwner: TComponent); override;
    property TraceFlags: TTraceFlags read FTraceFlags write FTraceFlags;
  end;


  IIBTimerInf = interface
    function GetEnabled: boolean;
    procedure SetEnabled(Value: Boolean);
    function GetInterval: Cardinal;
    procedure SetInterval(Value: Cardinal);
    function GetOnTimer: TNotifyEvent;
    procedure SetOnTimer(Value: TNotifyEvent);
    function GetOnStartTimer: TNotifyEvent;
    procedure SetOnStartTimer(Value: TNotifyEvent);
    function GetOnStopTimer: TNotifyEvent;
    procedure SetOnStopTimer(Value: TNotifyEvent);
    property Enabled: Boolean read GetEnabled write SetEnabled;
    property Interval: Cardinal read GetInterval write SetInterval;
    property OnTimer: TNotifyEvent read GetOnTimer write SetOnTimer;
    property OnStartTimer: TNotifyEvent read GetOnStartTimer write SetOnStartTimer;
    property OnStopTimer: TNotifyEvent read GetOnStopTimer write SetOnStopTimer;
  end;

  IIBGUIInterface = interface
    function ServerLoginDialog(var AServerName: string;
                               var AUserName, APassword: string): Boolean;
    function LoginDialogEx(var ADatabaseName: string;
                               var AUserName, APassword: string;
                               NameReadOnly: Boolean): Boolean;
    procedure SetCursor;
    procedure RestoreCursor;
    function CreateTimer: IIBTimerInf;
  end;

const  IBGUIInterface : IIBGUIInterface = nil;

implementation

{ TIBXMonitoredComponent }

constructor TIBXMonitoredComponent.Create(aOwner: TComponent);
begin
  inherited Create(aOwner);
  FTraceFlags := [];
end;

{ TIBXMonitoredConnection }

constructor TIBXMonitoredConnection.Create(aOwner: TComponent);
begin
  inherited Create(aOwner);
  FTraceFlags := [];
end;

end.

Revision:	328
Committed:	Fri Feb 26 09:33:18 2021 UTC (3 years, 8 months ago) by tony
Content type:	text/x-pascal
File size:	3513 byte(s)
Log Message:	Add missing files
#	Content
1	(*
2	* IBX For Lazarus (Firebird Express)
3	*
4	* The contents of this file are subject to the Initial Developer's
5	* Public License Version 1.0 (the "License"); you may not use this
6	* file except in compliance with the License. You may obtain a copy
7	* of the License here:
8	*
9	* http://www.firebirdsql.org/index.php?op=doc&id=idpl
10	*
11	* Software distributed under the License is distributed on an "AS
12	* IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
13	* implied. See the License for the specific language governing rights
14	* and limitations under the License.
15	*
16	* The Initial Developer of the Original Code is Tony Whyman.
17	*
18	* The Original Code is (C) 2015-2020 Tony Whyman, MWA Software
19	* (http://www.mwasoftware.co.uk).
20	*
21	* All Rights Reserved.
22	*
23	* Contributor(s): ______________________________________.
24	*
25	*)
26	unit IBInternals;
27
28	{$mode objfpc}{$H+}
29
30	{Interfaces used internally and not normally made visible to users}
31
32	interface
33
34	uses
35	Classes, SysUtils, DB;
36
37	type
38	TTraceControlFlag = (tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect,
39	tfTransact, tfBlob, tfService, tfMisc, tfDisabled);
40	TTraceFlag = tfQPrepare..tfMisc;
41	TTraceFlags = set of TTraceFlag;
42
43	{ TIBXMonitoredComponent }
44
45	TIBXMonitoredComponent = class(TComponent)
46	private
47	FTraceFlags: TTraceFlags;
48	public
49	constructor Create(aOwner: TComponent); override;
50	property TraceFlags: TTraceFlags read FTraceFlags write FTraceFlags;
51	end;
52
53	TIBMonitoredService = class(TIBXMonitoredComponent);
54	TIBXMonitoredService = class(TIBXMonitoredComponent);
55
56	{ TIBXMonitoredConnection }
57
58	TIBXMonitoredConnection = class(TCustomConnection)
59	private
60	FTraceFlags: TTraceFlags;
61	public
62	constructor Create(aOwner: TComponent); override;
63	property TraceFlags: TTraceFlags read FTraceFlags write FTraceFlags;
64	end;
65
66
67	IIBTimerInf = interface
68	function GetEnabled: boolean;
69	procedure SetEnabled(Value: Boolean);
70	function GetInterval: Cardinal;
71	procedure SetInterval(Value: Cardinal);
72	function GetOnTimer: TNotifyEvent;
73	procedure SetOnTimer(Value: TNotifyEvent);
74	function GetOnStartTimer: TNotifyEvent;
75	procedure SetOnStartTimer(Value: TNotifyEvent);
76	function GetOnStopTimer: TNotifyEvent;
77	procedure SetOnStopTimer(Value: TNotifyEvent);
78	property Enabled: Boolean read GetEnabled write SetEnabled;
79	property Interval: Cardinal read GetInterval write SetInterval;
80	property OnTimer: TNotifyEvent read GetOnTimer write SetOnTimer;
81	property OnStartTimer: TNotifyEvent read GetOnStartTimer write SetOnStartTimer;
82	property OnStopTimer: TNotifyEvent read GetOnStopTimer write SetOnStopTimer;
83	end;
84
85	IIBGUIInterface = interface
86	function ServerLoginDialog(var AServerName: string;
87	var AUserName, APassword: string): Boolean;
88	function LoginDialogEx(var ADatabaseName: string;
89	var AUserName, APassword: string;
90	NameReadOnly: Boolean): Boolean;
91	procedure SetCursor;
92	procedure RestoreCursor;
93	function CreateTimer: IIBTimerInf;
94	end;
95
96	const IBGUIInterface : IIBGUIInterface = nil;
97
98	implementation
99
100	{ TIBXMonitoredComponent }
101
102	constructor TIBXMonitoredComponent.Create(aOwner: TComponent);
103	begin
104	inherited Create(aOwner);
105	FTraceFlags := [];
106	end;
107
108	{ TIBXMonitoredConnection }
109
110	constructor TIBXMonitoredConnection.Create(aOwner: TComponent);
111	begin
112	inherited Create(aOwner);
113	FTraceFlags := [];
114	end;
115
116	end.
117