paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 11:00:37 +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); procedure TTimerList.Delete(hWnd: TLCLHandle; nIDEvent: UINT_PTR);
var var
TimerID: TTimerID; {%H-}TimerID: TTimerID;
begin begin
TimerID.hWnd := hWnd; TimerID.hWnd := hWnd;
TimerID.nIDEvent := nIDEvent; TimerID.nIDEvent := nIDEvent;
@ -321,7 +321,7 @@ end;
function TTimerList.Get(hWnd: TLCLHandle; nIDEvent: UINT_PTR; NotifyFunc: TTimerNotify): TGtk2Timer; function TTimerList.Get(hWnd: TLCLHandle; nIDEvent: UINT_PTR; NotifyFunc: TTimerNotify): TGtk2Timer;
var var
TimerID: TTimerID; {%H-}TimerID: TTimerID;
begin begin
TimerID.hWnd := hWnd; TimerID.hWnd := hWnd;
TimerID.nIDEvent := nIDEvent; TimerID.nIDEvent := nIDEvent;
@ -350,7 +350,7 @@ end;
function TTimerList.Find(hWnd: TLCLHandle; nIDEvent: UINT_PTR): TGtk2Timer; function TTimerList.Find(hWnd: TLCLHandle; nIDEvent: UINT_PTR): TGtk2Timer;
var var
DataPtr: ^TGtk2Timer; DataPtr: ^TGtk2Timer;
TimerID: TTimerID; {%H-}TimerID: TTimerID;
begin begin
Result := nil; Result := nil;
TimerID.hWnd := hWnd; TimerID.hWnd := hWnd;