paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

CalLite: Avoid crash when Colors are shared (Issue #39097)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9592 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2025-01-18 10:42:00 +00:00
parent cae258705a
commit a95ac46c9d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/callite/source/calendarlite.pas
View File

@ -1463,6 +1463,8 @@ procedure TCalColors.SetColor(AIndex: Integer; AValue: TColor);
begin begin
if FColors[AIndex] = AValue then exit; if FColors[AIndex] = AValue then exit;
FColors[AIndex] := AValue; FColors[AIndex] := AValue;
// FOwner can be nil, if Colors are shared (Issue #39097)
if FOwner <> nil then
FOwner.Draw; FOwner.Draw;
end; end;