paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-26 16:29:52 +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+} // {$C+}
// {$DEFINE ASSERT_IS_ON} // {$DEFINE ASSERT_IS_ON}
{$ENDIF} {$ENDIF}
type 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 } { callback routines }
{*************************************************************} {*************************************************************}
@ -2064,7 +2080,7 @@ begin
CheckSynchronize; CheckSynchronize;
TWin32Widgetset(Widgetset).CheckPipeEvents; TWin32Widgetset(Widgetset).CheckPipeEvents;
if Assigned(Application) then if Assigned(Application) then
TApplicationAccess(Application).ProcessAsyncCallQueue; Application._ProcessAsyncCallQueue;
end; end;
WM_ENTERIDLE: Application.Idle(False); WM_ENTERIDLE: Application.Idle(False);
WM_ACTIVATE: SetLMessageAndParams(LM_ACTIVATE); WM_ACTIVATE: SetLMessageAndParams(LM_ACTIVATE);