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

Win32: use class helper for TApplication instead of typecast hack. Part of issue #41567.

Browse Source
This commit is contained in:
Bart 2025-07-30 12:04:22 +02:00
parent 047249a8f8
commit 769b7fdc4f
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/win32/win32callback.inc
View File

@ -13,8 +13,24 @@
// {$C+}
// {$DEFINE ASSERT_IS_ON}
{$ENDIF}
type
TApplicationAccess = class(TApplication);
{ TApplicationAccessHelper }
// Provides access to protected methods and properties of TWinControl, without using a typecast hack,
// since such a typecast wil raise an EInvalidCast when compiled with -CR {$OBJECTCHECKS ON}
TApplicationAccessHelper = class helper for TApplication
public
procedure _ProcessAsyncCallQueue;
end;
{ TApplicationAccessHelper }
procedure TApplicationAccessHelper._ProcessAsyncCallQueue;
begin
ProcessAsyncCallQueue;
end;
{*************************************************************}
{ callback routines }
{*************************************************************}
@ -2064,7 +2080,7 @@ begin
CheckSynchronize;
TWin32Widgetset(Widgetset).CheckPipeEvents;
if Assigned(Application) then
TApplicationAccess(Application).ProcessAsyncCallQueue;
Application._ProcessAsyncCallQueue;
end;
WM_ENTERIDLE: Application.Idle(False);
WM_ACTIVATE: SetLMessageAndParams(LM_ACTIVATE);