paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="AlarmForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="tfAlarm"/>
</Unit7>

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

@ -66,12 +66,16 @@ var
deltaMins: Integer;
begin
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
IsDueLabel.caption := 'is due at ';
TimeLabel.Caption := FormatDateTime(FormatSettings.ShortTimeFormat, AAppt.StartTime);
TimeLabel.Caption := FormatDateTime('t', AAppt.StartTime);
end else begin
IsDueLabel.Caption := 'is due on ';
TimeLabel.Caption := FormatDateTime('dddddd', AAppt.StartDateTime);
TimeLabel.Caption := FormatDateTime('dddddd', AAppt.StartDateTime); // LongDateFormat
end;
end;

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

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