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

added Timer patch from Vincent Snijders

Browse Source 
git-svn-id: trunk@2488 -
This commit is contained in:
mattias 2002-08-17 23:41:25 +00:00
parent a1b039827d
commit b7f7c592cf
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk/gtkglobals.pp
View File

@ -163,17 +163,13 @@ type
{ lazarus GtkInterface definition for additional timer data, not in gtk } { lazarus GtkInterface definition for additional timer data, not in gtk }
PGtkITimerInfo = ^TGtkITimerinfo; PGtkITimerInfo = ^TGtkITimerinfo;
TGtkITimerInfo = record TGtkITimerInfo = record
Handle : hWND; // owner handle
IDEvent : Cardinal; // owner ID for this timer
TimerFunc : TFNTimerProc; // owner function to handle timer
TimerHandle: guint; // the gtk handle for this timer TimerHandle: guint; // the gtk handle for this timer
TimerFunc : TFNTimerProc; // owner function to handle timer
end; end;
var var
// FTimerData contains the currently running timers // FTimerData contains the currently running timers
// and FOldTimerData contains the old and to be disposed timers
FTimerData : TList; // list of PGtkITimerinfo FTimerData : TList; // list of PGtkITimerinfo
FOldTimerData: TList; // list of PGtkITimerinfo
var var
gtk_handler_quark: TGQuark; gtk_handler_quark: TGQuark;