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

Nov 2016

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5301 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-11-03 12:59:21 +00:00
parent 8518f165fb
commit 1e7013f67b
5 changed files with 82 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 134 KiB

After

Width:  |  Height:  |  Size: 134 KiB

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

@ -9,14 +9,16 @@
<Title Value="LongTimer Demo"/> <Title Value="LongTimer Demo"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
<ExecutionLevel Value="1"/>
<UIAccess Value="True"/>
</XPManifest>
<Icon Value="0"/> <Icon Value="0"/>
</General> </General>
<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">
@ -56,10 +58,7 @@
</Options> </Options>
</Linking> </Linking>
<Other> <Other>
<CompilerMessages> <CustomOptions Value="-dDEBUG"/>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
</Item2> </Item2>
@ -92,12 +91,6 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</Item3> </Item3>
</BuildModes> </BuildModes>
@ -122,7 +115,6 @@
<Unit0> <Unit0>
<Filename Value="longtimerdemo.lpr"/> <Filename Value="longtimerdemo.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="longtimerdemo"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
@ -130,7 +122,6 @@
<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>
@ -151,12 +142,6 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="3"> <Exceptions Count="3">

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

Binary file not shown.

18
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.2.4.0' LCLVersion = '1.7'
object cmd_Close: TBitBtn object cmd_Close: TBitBtn
Left = 104 Left = 104
Height = 30 Height = 30
@ -30,6 +30,8 @@ object mainform: Tmainform
Lines.Strings = ( Lines.Strings = (
'Memo1' 'Memo1'
) )
ReadOnly = True
ScrollBars = ssAutoVertical
TabOrder = 1 TabOrder = 1
end end
object cmd_StopTimer: TButton object cmd_StopTimer: TButton
@ -56,10 +58,9 @@ object mainform: Tmainform
Top = 8 Top = 8
Width = 184 Width = 184
Caption = 'Set up LongTimer' Caption = 'Set up LongTimer'
ClientHeight = 158 ClientHeight = 156
ClientWidth = 180 ClientWidth = 180
TabOrder = 4 TabOrder = 4
OnClick = crp_SetTimerClick
object Label1: TLabel object Label1: TLabel
Left = 16 Left = 16
Height = 15 Height = 15
@ -146,6 +147,17 @@ object mainform: Tmainform
ParentColor = False ParentColor = False
end end
end end
object cmd_clearmemo: TBitBtn
Left = 16
Height = 30
Top = 224
Width = 75
Caption = 'Clear'
Kind = bkCancel
ModalResult = 2
OnClick = cmd_clearmemoClick
TabOrder = 5
end
object LongTimer1: TLongTimer object LongTimer1: TLongTimer
About.Description.Strings = ( About.Description.Strings = (
'LongTimer is a descendent of TIdleTimer'#13#10'and shares its properties and methods.'#13#10#13#10'Additional properties affect when the'#13#10'OnTimer event is fired.'#13#10#13#10'With LongTimer, the OnTimer event'#13#10'will be fired only ONCE - every time'#13#10'the interval that you set is reached.' 'LongTimer is a descendent of TIdleTimer'#13#10'and shares its properties and methods.'#13#10#13#10'Additional properties affect when the'#13#10'OnTimer event is fired.'#13#10#13#10'With LongTimer, the OnTimer event'#13#10'will be fired only ONCE - every time'#13#10'the interval that you set is reached.'

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

@ -11,6 +11,7 @@ uses
{ Tmainform } { Tmainform }
type type
Tmainform = class(TForm) Tmainform = class(TForm)
cmd_clearmemo: TBitBtn;
cmb_Daily24Hour: TComboBox; cmb_Daily24Hour: TComboBox;
cmb_IntervalType: TComboBox; cmb_IntervalType: TComboBox;
cmb_weekordate: TComboBox; cmb_weekordate: TComboBox;
@ -25,13 +26,13 @@ type
Label4: TLabel; Label4: TLabel;
LongTimer1: TLongTimer; LongTimer1: TLongTimer;
memo_ReportTimerEvent: TMemo; memo_ReportTimerEvent: TMemo;
procedure cmd_clearmemoClick(Sender: TObject);
procedure cmb_SampleIntervalChange(Sender: TObject); procedure cmb_SampleIntervalChange(Sender: TObject);
procedure cmd_StopTimerClick(Sender: TObject); procedure cmd_StopTimerClick(Sender: TObject);
procedure cmd_StartTimerClick(Sender: TObject); procedure cmd_StartTimerClick(Sender: TObject);
procedure cmb_Daily24HourChange(Sender: TObject); procedure cmb_Daily24HourChange(Sender: TObject);
procedure cmb_IntervalTypeChange(Sender: TObject); procedure cmb_IntervalTypeChange(Sender: TObject);
procedure cmb_weekordateChange(Sender: TObject); procedure cmb_weekordateChange(Sender: TObject);
procedure crp_SetTimerClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure LongTimer1Sample(Sender: TObject); procedure LongTimer1Sample(Sender: TObject);
procedure LongTimer1StartTimer(Sender: TObject); procedure LongTimer1StartTimer(Sender: TObject);
@ -39,7 +40,7 @@ type
procedure LongTimer1Timer(Sender: TObject); procedure LongTimer1Timer(Sender: TObject);
private private
{ private declarations } { private declarations }
procedure PopulateWeekOrDate(Const i:Integer); procedure PopulateWeekOrDate(const i: integer);
public public
{ public declarations } { public declarations }
@ -58,21 +59,23 @@ 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);
end; end;
procedure Tmainform.FormCreate(Sender: TObject); procedure Tmainform.FormCreate(Sender: TObject);
Var i:Integer; var i: integer;
begin begin
Caption:=Application.Title; Caption := Application.Title;
memo_ReportTimerEvent.Clear; memo_ReportTimerEvent.Clear;
cmb_Daily24Hour.Clear; cmb_Daily24Hour.Clear;
cmb_Daily24Hour.Items.Add('Midnight'); cmb_Daily24Hour.Items.Add('Midnight');
For i:=1 to 23 do for i := 1 to 23 do
cmb_Daily24Hour.Items.Add(Format('%2.d:00',[i])); cmb_Daily24Hour.Items.Add(Format('%2.d:00', [i]));
LongTimer1.IntervalType:=lt1Daily; LongTimer1.IntervalType := lt1Daily;
LongTimer1.Daily24Hour:=0; LongTimer1.Daily24Hour := 0;
LongTimer1.Enabled:=FALSE; LongTimer1.Enabled := False;
cmb_Daily24Hour.ItemIndex:=0; cmb_Daily24Hour.ItemIndex := 0;
cmb_SampleInterval.Clear; cmb_SampleInterval.Clear;
cmb_SampleInterval.Items.Add('Every minute'); cmb_SampleInterval.Items.Add('Every minute');
cmb_SampleInterval.Items.Add('Every 5 minutes'); cmb_SampleInterval.Items.Add('Every 5 minutes');
@ -80,54 +83,59 @@ begin
cmb_SampleInterval.Items.Add('Every 30 minutes'); cmb_SampleInterval.Items.Add('Every 30 minutes');
cmb_SampleInterval.Items.Add('Every 45 minutes'); cmb_SampleInterval.Items.Add('Every 45 minutes');
memo_ReportTimerEvent.Lines.Add('Timer initially disabled'); memo_ReportTimerEvent.Lines.Add('Timer initially disabled');
cmb_SampleInterval.ItemIndex:=2; cmb_SampleInterval.ItemIndex := 2;
end; 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);
end; end;
procedure Tmainform.LongTimer1StartTimer(Sender: TObject); procedure Tmainform.LongTimer1StartTimer(Sender: TObject);
begin begin
Self.Caption:='Timer was started at ' + FormatDateTime('dd/mm/yyyy hh:nn:ss',Now); Self.Caption := 'Timer was started at ' + FormatDateTime('dd/mm/yyyy hh:nn:ss', Now);
end; end;
procedure Tmainform.LongTimer1StopTimer(Sender: TObject); procedure Tmainform.LongTimer1StopTimer(Sender: TObject);
begin begin
Self.Caption:=Application.Title; Self.Caption := Application.Title;
end; end;
procedure Tmainform.cmd_StopTimerClick(Sender: TObject); procedure Tmainform.cmd_StopTimerClick(Sender: TObject);
begin begin
LongTimer1.Enabled:=FALSE; LongTimer1.Enabled := False;
memo_ReportTimerEvent.Lines.Add('Timer disabled'); memo_ReportTimerEvent.Lines.Add('Timer disabled');
end; end;
procedure Tmainform.cmb_SampleIntervalChange(Sender: TObject); procedure Tmainform.cmb_SampleIntervalChange(Sender: TObject);
begin begin
LongTimer1.SampleInterval:=TSampleInterval(cmb_SampleInterval.ItemIndex); LongTimer1.SampleInterval := TSampleInterval(cmb_SampleInterval.ItemIndex);
end;
procedure Tmainform.cmd_clearmemoClick(Sender: TObject);
begin
memo_ReportTimerEvent.Lines.Clear;
end; end;
procedure Tmainform.cmd_StartTimerClick(Sender: TObject); procedure Tmainform.cmd_StartTimerClick(Sender: TObject);
begin begin
LongTimer1.Enabled:=TRUE; LongTimer1.Enabled := True;
memo_ReportTimerEvent.Lines.Add('Timer enabled'); memo_ReportTimerEvent.Lines.Add('Timer enabled');
end; end;
procedure Tmainform.cmb_Daily24HourChange(Sender: TObject); procedure Tmainform.cmb_Daily24HourChange(Sender: TObject);
begin begin
LongTimer1.Daily24Hour:=cmb_Daily24Hour.ItemIndex; LongTimer1.Daily24Hour := cmb_Daily24Hour.ItemIndex;
end; end;
procedure Tmainform.PopulateWeekOrDate(const i: Integer); procedure Tmainform.PopulateWeekOrDate(const i: integer);
// 0=Weekly, 1=Monthly // 0=Weekly, 1=Monthly
Var iMonthDay:Integer; var iMonthDay: integer;
begin begin
cmb_weekordate.Clear; cmb_weekordate.Clear;
Case i of case i of
0:begin 0: begin
cmb_weekordate.Items.Add('Monday'); cmb_weekordate.Items.Add('Monday');
cmb_weekordate.Items.Add('Tuesday'); cmb_weekordate.Items.Add('Tuesday');
cmb_weekordate.Items.Add('Wednesday'); cmb_weekordate.Items.Add('Wednesday');
@ -135,51 +143,46 @@ begin
cmb_weekordate.Items.Add('Friday'); cmb_weekordate.Items.Add('Friday');
cmb_weekordate.Items.Add('Saturday'); cmb_weekordate.Items.Add('Saturday');
cmb_weekordate.Items.Add('Sunday'); cmb_weekordate.Items.Add('Sunday');
end; end;
1:begin 1: begin
For iMonthDay := 1 to 31 do for iMonthDay := 1 to 31 do
cmb_weekordate.Items.Add(Format('%2.d',[iMonthDay])); cmb_weekordate.Items.Add(Format('%2.d', [iMonthDay]));
end; end;
end; end;
cmb_weekordate.ItemIndex:=0; cmb_weekordate.ItemIndex := 0;
end; end;
procedure Tmainform.cmb_IntervalTypeChange(Sender: TObject); procedure Tmainform.cmb_IntervalTypeChange(Sender: TObject);
begin begin
cmd_StopTimer.Click; cmd_StopTimer.Click;
Case cmb_IntervalType.ItemIndex of case cmb_IntervalType.ItemIndex of
0: 0:
begin begin
LongTimer1.IntervalType:=lt1Daily; LongTimer1.IntervalType := lt1Daily;
cmb_weekordate.Enabled:=FALSE; cmb_weekordate.Enabled := False;
end; end;
1: 1:
begin begin
LongTimer1.IntervalType:=lt2Weekly; LongTimer1.IntervalType := lt2Weekly;
PopulateWeekOrDate(0); PopulateWeekOrDate(0);
cmb_weekordate.Enabled:=TRUE; cmb_weekordate.Enabled := True;
end; end;
2: 2:
begin begin
LongTimer1.IntervalType:=lt3Monthly; LongTimer1.IntervalType := lt3Monthly;
PopulateWeekOrDate(1); PopulateWeekOrDate(1);
cmb_weekordate.Enabled:=TRUE; cmb_weekordate.Enabled := True;
end; end;
end; end;
end; end;
procedure Tmainform.cmb_weekordateChange(Sender: TObject); procedure Tmainform.cmb_weekordateChange(Sender: TObject);
begin begin
Case LongTimer1.IntervalType of case LongTimer1.IntervalType of
lt2Weekly:LongTimer1.WeeklyDay:=TDay(cmb_weekordate.ItemIndex); lt2Weekly: LongTimer1.WeeklyDay := TDay(cmb_weekordate.ItemIndex);
lt3Monthly:LongTimer1.MonthlyDate:=(cmb_weekordate.ItemIndex+1); lt3Monthly: LongTimer1.MonthlyDate := (cmb_weekordate.ItemIndex + 1);
end; end;
end; end;
procedure Tmainform.crp_SetTimerClick(Sender: TObject);
begin
end;
end. end.