pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix occasional crash of application when alarmdlg is shown. Issue #39043.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8550 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-13 10:28:16 +00:00
parent 885da797ae
commit 72217cba80
5 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vpalarmdlg.pas
View File

@ -89,7 +89,7 @@ type
published
{properties}
property BackgroundColor: TColor
read FBGColor write FBGColor default clInfoBk;
read FBGColor write FBGColor default clWindow;
property DataStore;
property Placement;
end;
@ -123,7 +123,7 @@ var
AlarmNotifyForm: TAlarmNotifyForm;
begin
if (Event <> nil) and (not Event.AlertDisplayed) then begin
AlarmNotifyForm := TAlarmNotifyForm.Create(Self);
AlarmNotifyForm := TAlarmNotifyForm.Create(nil);
try
try
Event.AlertDisplayed := true;