paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make infinite a default param

Browse Source
This commit is contained in:
marcoonthegit 2022-06-26 19:10:43 +02:00
parent 8d42a9df83
commit 576ef5a33d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-base/src/syncobjs.pp
View File

@ -57,7 +57,7 @@ type
FHandle : TEventHandle;
FLastError : Integer;
public
destructor destroy;override;
destructor Destroy; override;
property Handle : TEventHandle read FHandle;
property LastError : Integer read FLastError;
end;
@ -71,10 +71,10 @@ type
AManualReset,InitialState : Boolean;const Name : string;
UseComWait:boolean=false);
constructor Create(UseComWait : Boolean=false);
destructor destroy; override;
destructor Destroy; override;
procedure ResetEvent;
procedure SetEvent;
function WaitFor(Timeout : Cardinal) : TWaitResult;
function WaitFor(Timeout : Cardinal=INFINITE) : TWaitResult;
Property ManualReset : Boolean read FManualReset;
end;