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

TvPlanIt: Workaround for opaque labels issue in Laz 2.2.4.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8692 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-01-18 10:55:52 +00:00
parent 19b469917e
commit 98b7bb2e30
26 changed files with 83 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -115,8 +115,6 @@ begin
FPlacement.Position := mpCustom;
FPlacement.Width := 412;
end;
{=====}
procedure TVpNotificationDialog.Execute(Event: TVpEvent);
var
@ -143,7 +141,7 @@ begin
end;
end;
end;
{=====}
{ TAlarmNotifyForm }
@ -199,8 +197,6 @@ begin
ShowTime := Now;
end;
end;
{=====}
procedure TAlarmNotifyForm.SnoozeComboChange(Sender: TObject);
begin
@ -228,14 +224,12 @@ begin
20: SnoozeDelay := 7.0; {1 week }
end;
end;
{=====}
procedure TAlarmNotifyForm.SnoozeBtnClick(Sender: TObject);
begin
CalcSnooze;
Close;
end;
{=====}
procedure TAlarmNotifyForm.DismissBtnClick(Sender: TObject);
var
@ -268,11 +262,9 @@ end;
procedure TAlarmNotifyForm.FormCreate(Sender: TObject);
begin
// SnoozeCombo.Top := SnoozeBtn.Top + (SnoozeBtn.Height - SnoozeCombo.Height) div 2;
FixLabels(Self);
end;
{=====}
procedure TAlarmNotifyForm.OpenItemBtnClick(Sender: TObject);
begin
Self.Hide;
@ -280,7 +272,6 @@ begin
EventDialog.Execute(Event);
Close;
end;
{=====}
procedure TAlarmNotifyForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
@ -291,13 +282,11 @@ begin
Close;
end;
end;
{=====}
procedure TAlarmNotifyForm.CalcSnooze;
begin
Event.SnoozeTime := Now + SnoozeDelay;
end;
{=====}
procedure TAlarmNotifyForm.FormShow(Sender: TObject);
begin