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

lclextensions: less hints

Browse Source
This commit is contained in:
mattias 2024-03-05 15:53:15 +01:00
parent 6fcee50a5e
commit 5063184257
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lclextensions/include/gtk2/delphicompat.inc
View File

@ -312,7 +312,7 @@ end;
procedure TTimerList.Delete(hWnd: TLCLHandle; nIDEvent: UINT_PTR);
var
TimerID: TTimerID;
{%H-}TimerID: TTimerID;
begin
TimerID.hWnd := hWnd;
TimerID.nIDEvent := nIDEvent;
@ -321,7 +321,7 @@ end;
function TTimerList.Get(hWnd: TLCLHandle; nIDEvent: UINT_PTR; NotifyFunc: TTimerNotify): TGtk2Timer;
var
TimerID: TTimerID;
{%H-}TimerID: TTimerID;
begin
TimerID.hWnd := hWnd;
TimerID.nIDEvent := nIDEvent;
@ -350,7 +350,7 @@ end;
function TTimerList.Find(hWnd: TLCLHandle; nIDEvent: UINT_PTR): TGtk2Timer;
var
DataPtr: ^TGtk2Timer;
TimerID: TTimerID;
{%H-}TimerID: TTimerID;
begin
Result := nil;
TimerID.hWnd := hWnd;