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

2
components/tvplanit/examples/printing/dayview/dvmain.lfm
View File

@ -198,7 +198,7 @@ object Form1: TForm1
HiddenCategories.BackgroundColor = clSilver
HiddenCategories.Color = clGray
AutoConnect = True
FileName = 'file error.ini'
FileName = 'data.ini'
Left = 184
Top = 272
end

3
components/tvplanit/examples/printing/dayview/dvmain.pas
View File

@ -6,7 +6,8 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
Spin, PrintersDlgs, VpBaseDS, VpIniDs, VpDayView, VpPrtPrvDlg, VpPrtFmtCBox, VpData;
Spin, PrintersDlgs, VpBaseDS, VpIniDs, VpDayView, VpPrtPrvDlg, VpPrtFmtCBox,
VpData;
type

6
components/tvplanit/source/vpalarmdlg.lfm
View File

@ -15,8 +15,6 @@ object AlarmNotifyForm: TAlarmNotifyForm
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
Position = poDefault
LCLVersion = '2.3.0.0'
object SnoozeCaption: TLabel
AnchorSideLeft.Control = lTime
AnchorSideTop.Control = Bevel1
@ -56,7 +54,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
Left = 8
Height = 15
Top = 8
Width = 30
Width = 29
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'lTime'
@ -184,7 +182,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
Shape = bsTopLine
end
object EventDialog: TVpEventEditDialog
Version = 'v1.12'
Version = 'v1.0.7'
TimeFormat = tf24Hour
Options = []
Placement.Position = mpCenterTop

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;

7
components/tvplanit/source/vpdlg.pas
View File

@ -184,12 +184,11 @@ begin
else
Form.BorderStyle:= bsDialog;
if (Screen.ActiveForm <> nil)
and (Screen.ActiveForm.FormStyle = fsStayOnTop) then
if (Screen.ActiveForm <> nil) and (Screen.ActiveForm.FormStyle = fsStayOnTop) then
Form.FormStyle := fsStayOnTop;
// Form.Height := FPlacement.Height;
// Form.Width := FPlacement.Width;
//Form.Height := FPlacement.Height;
//Form.Width := FPlacement.Width;
{set position}
case FPlacement.Position of