paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 02:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add a missing file for #22232

Browse Source 
git-svn-id: trunk@37649 -
This commit is contained in:
juha 2012-06-14 20:50:11 +00:00
parent 4098afbcb6
commit c1e59bf0a8
2 changed files with 80 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -2350,6 +2350,7 @@ components/sqldb/languages/sqlstringspropertyeditordlg.ru.po svneol=native#text/
components/sqldb/languages/sqlstringspropertyeditordlg.uk.po svneol=native#text/plain
components/sqldb/languages/sqlstringspropertyeditordlg.zh_CN.po svneol=native#text/plain
components/sqldb/lib/README.txt svneol=native#text/plain
components/sqldb/pqteventmonitor.pas svneol=native#text/plain
components/sqldb/registersqldb.lrs svneol=native#text/pascal
components/sqldb/registersqldb.pas svneol=native#text/pascal
components/sqldb/sqldblaz.lpk svneol=native#text/pascal

79
components/sqldb/pqteventmonitor.pas Normal file
View File

@ -0,0 +1,79 @@
unit PQTEventMonitor;
{$mode objfpc}{$H+}
interface
uses
Classes,PQEventMonitor,ExtCtrls;
type
{ TPQTEventMonitor }
TPQTEventMonitor=class(TPQEventMonitor)
private
Fpoll: integer;
Timer:TTimer;
function GetPollInterval: integer;
procedure OnTimer(Sender: TObject);
procedure SetPollInterval(AValue: integer);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure RegisterEvents; override;
procedure UnRegisterEvents; override;
published
property PollInterval:integer read GetPollInterval write SetPollInterval default 500;
end;
implementation
{ TPQTEventMonitor }
procedure TPQTEventMonitor.SetPollInterval(AValue: integer);
begin
if Timer.Interval=AValue then Exit;
Timer.Interval:=AValue;
end;
function TPQTEventMonitor.GetPollInterval: integer;
begin
result:=Timer.Interval;
end;
procedure TPQTEventMonitor.OnTimer(Sender: TObject);
begin
Poll;
end;
constructor TPQTEventMonitor.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Timer:=TTImer.Create(self);
Timer.Interval:=500;
Timer.Enabled:=false;
Timer.OnTimer:=@OnTimer;
end;
destructor TPQTEventMonitor.Destroy;
begin
inherited Destroy;
end;
procedure TPQTEventMonitor.RegisterEvents;
begin
inherited RegisterEvents;
Timer.Enabled:=true;
end;
procedure TPQTEventMonitor.UnRegisterEvents;
begin
Timer.Enabled:=false;
inherited UnRegisterEvents;
end;
end.