paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="3">
<Item1 Name="Default" Default="True"/>
<Item2 Name="Debug">
@ -122,6 +125,7 @@
<ComponentName Value="mainform"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="umainform"/>
</Unit1>
</Units>
</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
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.7'
LCLVersion = '1.3'
object cmd_Close: TBitBtn
Left = 104
Height = 30

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

@ -59,7 +59,7 @@ procedure Tmainform.LongTimer1Timer(Sender: TObject);
begin
// 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(LongTimer1.fDebugString);
memo_ReportTimerEvent.Lines.Add(LongTimer1.fDebugString);
end;
@ -89,7 +89,7 @@ end;
procedure Tmainform.LongTimer1Sample(Sender: TObject);
begin
memo_ReportTimerEvent.Lines.Add('Sampled at ' + FormatDateTime('hh:nn:ss', Now));
//memo_ReportTimerEvent.Lines.Add(LongTimer1.fDebugString);
memo_ReportTimerEvent.Lines.Add(LongTimer1.fDebugString);
end;
procedure Tmainform.LongTimer1StartTimer(Sender: TObject);