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

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5330 8e941d3f-bd1b-0410-a28a-d453659cc2b4

Browse Source
This commit is contained in:
gbamber
2016-11-09 11:03:20 +00:00
parent 0c18e2e1f5
commit b2bf9f90cb
4 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/longtimer/demo/longtimerdemo.lpi
View File

@ -19,6 +19,9 @@
<i18n> <i18n>
<EnableI18N LFM="False"/> <EnableI18N LFM="False"/>
</i18n> </i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="3"> <BuildModes Count="3">
<Item1 Name="Default" Default="True"/> <Item1 Name="Default" Default="True"/>
<Item2 Name="Debug"> <Item2 Name="Debug">
@ -122,6 +125,7 @@
<ComponentName Value="mainform"/> <ComponentName Value="mainform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="umainform"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>

BIN
components/longtimer/demo/longtimerdemo.res
View File

Binary file not shown.

2
components/longtimer/demo/umainform.lfm
View File

@ -11,7 +11,7 @@ object mainform: Tmainform
DefaultMonitor = dmPrimary DefaultMonitor = dmPrimary
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7' LCLVersion = '1.3'
object cmd_Close: TBitBtn object cmd_Close: TBitBtn
Left = 104 Left = 104
Height = 30 Height = 30

4
components/longtimer/demo/umainform.pas
View File

@ -59,7 +59,7 @@ procedure Tmainform.LongTimer1Timer(Sender: TObject);
begin begin
// memo_ReportTimerEvent.Lines.Add('LastFired at ' + FormatDateTime('hh:nn:ss', LongTimer1.LastFired)); // memo_ReportTimerEvent.Lines.Add('LastFired at ' + FormatDateTime('hh:nn:ss', LongTimer1.LastFired));
memo_ReportTimerEvent.Lines.Add('Timer fired at ' + FormatDateTime('hh:nn:ss dd-mm-yyyy', Now)); memo_ReportTimerEvent.Lines.Add('Timer fired at ' + FormatDateTime('hh:nn:ss dd-mm-yyyy', Now));
//memo_ReportTimerEvent.Lines.Add(LongTimer1.fDebugString); memo_ReportTimerEvent.Lines.Add(LongTimer1.fDebugString);
end; end;
@ -89,7 +89,7 @@ end;
procedure Tmainform.LongTimer1Sample(Sender: TObject); procedure Tmainform.LongTimer1Sample(Sender: TObject);
begin begin
memo_ReportTimerEvent.Lines.Add('Sampled at ' + FormatDateTime('hh:nn:ss', Now)); memo_ReportTimerEvent.Lines.Add('Sampled at ' + FormatDateTime('hh:nn:ss', Now));
//memo_ReportTimerEvent.Lines.Add(LongTimer1.fDebugString); memo_ReportTimerEvent.Lines.Add(LongTimer1.fDebugString);
end; end;
procedure Tmainform.LongTimer1StartTimer(Sender: TObject); procedure Tmainform.LongTimer1StartTimer(Sender: TObject);