paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 14:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix startup in linux/qt 64 bits

Browse Source 
git-svn-id: trunk@11674 -
This commit is contained in:
jesus 2007-07-29 18:24:55 +00:00
parent cd0e464bfd
commit 7461ec0201
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/customtimer.pas
View File

@ -37,7 +37,7 @@ type
FInterval : Cardinal;
FOnStartTimer: TNotifyEvent;
FOnStopTimer: TNotifyEvent;
FTimerHandle : integer;
FTimerHandle : THandle;
FOnTimer : TNotifyEvent;
FEnabled : Boolean;
procedure Timer;
@ -64,7 +64,7 @@ type
implementation
const
cIdNoTimer = -1; { timer ID for an invalid timer }
cIdNoTimer = THandle(-1); { timer ID for an invalid timer }
{------------------------------------------------------------------------------
Method: TCustomTimer.Create