paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 13:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Workaround for RTL - ActionLink nil deref issue (fixed in FPC 3.3.1). See issue #41063

Browse Source 
(cherry picked from commit aa9ce848b7)
This commit is contained in:
Martin 2024-12-17 12:26:34 +01:00
parent d42ef93804
commit 4de3ad6504
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/actnlist.pas
View File

@ -265,6 +265,7 @@ type
procedure SetShortCut(Value: TShortCut); virtual; procedure SetShortCut(Value: TShortCut); virtual;
procedure SetVisible(Value: Boolean); virtual; procedure SetVisible(Value: Boolean); virtual;
public public
function Update: Boolean; override;
function IsCaptionLinked: Boolean; virtual; function IsCaptionLinked: Boolean; virtual;
function IsCheckedLinked: Boolean; virtual; function IsCheckedLinked: Boolean; virtual;
function IsEnabledLinked: Boolean; virtual; function IsEnabledLinked: Boolean; virtual;

8
lcl/include/actionlink.inc
View File

@ -121,4 +121,12 @@ begin
end; end;
function TActionLink.Update: Boolean;
begin
{$IF FPC_Fullversion<30301} // Workaround for issue #41063 / Partial fix for actionlinks that inherit TActionLink only
if Assigned(Action) then
{$ENDIF}
Result := inherited Update;
end;
// included by actnlist.pas // included by actnlist.pas