paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5,Qt6: make X11DelayTimeout class procedure, since we are used as functor.

Browse Source 
(cherry picked from commit b6739bcc36)
This commit is contained in:
Željan Rikalo 2023-09-20 16:30:20 +02:00
parent abdd01e9b9
commit db5d443369
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt5/qtobjects.pas
View File

@ -588,7 +588,7 @@ type
procedure EndX11SelectionLock;
function InX11SelectionLock: Boolean;
procedure signalSelectionChanged; cdecl;
procedure X11DelayTimeOut; cdecl;
class procedure X11DelayTimeOut; cdecl;
procedure selectionTimer;
{$ENDIF}
end;
@ -3874,7 +3874,7 @@ begin
end;
end;
procedure TQtClipboard.X11DelayTimeOut; cdecl;
class procedure TQtClipboard.X11DelayTimeOut; cdecl;
begin
FX11Delay := False;
end;

4
lcl/interfaces/qt6/qtobjects.pas
View File

@ -595,7 +595,7 @@ type
procedure EndX11SelectionLock;
function InX11SelectionLock: Boolean;
procedure signalSelectionChanged; cdecl;
procedure X11DelayTimeOut; cdecl;
class procedure X11DelayTimeOut; cdecl;
procedure selectionTimer;
{$ENDIF}
end;
@ -4034,7 +4034,7 @@ begin
end;
end;
procedure TQtClipboard.X11DelayTimeOut; cdecl;
class procedure TQtClipboard.X11DelayTimeOut; cdecl;
begin
FX11Delay := False;
end;