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

jvcllaz: Identify alarm as over-due (JvTimeFramework demo).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7136 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-15 17:46:25 +00:00
parent 64ce31d116
commit d403f8aef4
3 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/jvcllaz/examples/JvTimeFramework/JvTimeFrameDemo.lpi
View File

@ -105,6 +105,7 @@
<Filename Value="tfalarm.pas"/> <Filename Value="tfalarm.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="AlarmForm"/> <ComponentName Value="AlarmForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="tfAlarm"/> <UnitName Value="tfAlarm"/>
</Unit7> </Unit7>

8
components/jvcllaz/examples/JvTimeFramework/tfalarm.pas
View File

@ -66,12 +66,16 @@ var
deltaMins: Integer; deltaMins: Integer;
begin begin
EventLabel.Caption := AAppt.Description; EventLabel.Caption := AAppt.Description;
if AAppt.StartDate < Now() then begin
IsDueLabel.Caption := 'is OVERDUE: ';
TimeLabel.Caption := FormatDateTime('t', AAppt.StartTime); // 't' = ShortTimeFormat
end else
if AAppt.StartDate = Date() then begin if AAppt.StartDate = Date() then begin
IsDueLabel.caption := 'is due at '; IsDueLabel.caption := 'is due at ';
TimeLabel.Caption := FormatDateTime(FormatSettings.ShortTimeFormat, AAppt.StartTime); TimeLabel.Caption := FormatDateTime('t', AAppt.StartTime);
end else begin end else begin
IsDueLabel.Caption := 'is due on '; IsDueLabel.Caption := 'is due on ';
TimeLabel.Caption := FormatDateTime('dddddd', AAppt.StartDateTime); TimeLabel.Caption := FormatDateTime('dddddd', AAppt.StartDateTime); // LongDateFormat
end; end;
end; end;

2
components/jvcllaz/examples/JvTimeFramework/tfapptedit.lfm
View File

@ -320,9 +320,9 @@ object ApptEdit: TApptEdit
Height = 23 Height = 23
Top = 115 Top = 115
Width = 37 Width = 37
Alignment = taRightJustify
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
ReadOnly = True
TabOrder = 6 TabOrder = 6
Text = '0' Text = '0'
end end