Changed folder structure

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5492 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-12-14 14:56:19 +00:00
parent 5281af0bfb
commit 9dbb1764b9
15 changed files with 1340 additions and 1111 deletions

View File

Before

Width:  |  Height:  |  Size: 134 KiB

After

Width:  |  Height:  |  Size: 134 KiB

View File

@ -1,163 +1,163 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="LongTimer Demo"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
<ExecutionLevel Value="1"/>
<UIAccess Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="3">
<Item1 Name="Default" Default="True"/>
<Item2 Name="Debug">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="project1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
<UseHeaptrc Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CustomOptions Value="-dDEBUG"/>
</Other>
</CompilerOptions>
</Item2>
<Item3 Name="Release">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="longtimerdemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="."/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item3>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="longtimerpackage"/>
<MinVersion Release="1" Valid="True"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="longtimerdemo.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="umainform.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="mainform"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="umainform"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="project1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="LongTimer Demo"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
<ExecutionLevel Value="1"/>
<UIAccess Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="3">
<Item1 Name="Default" Default="True"/>
<Item2 Name="Debug">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="project1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
<UseHeaptrc Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CustomOptions Value="-dDEBUG"/>
</Other>
</CompilerOptions>
</Item2>
<Item3 Name="Release">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="longtimerdemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="."/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item3>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="longtimerpackage"/>
<MinVersion Release="1" Valid="True"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="longtimerdemo.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="umainform.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="mainform"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="umainform"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="project1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

View File

@ -1,21 +1,21 @@
program longtimerdemo;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, umainform;
{$R *.res}
begin
Application.Title:='LongTimer Demo';
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(Tmainform, mainform);
Application.Run;
end.
program longtimerdemo;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, umainform;
{$R *.res}
begin
Application.Title:='LongTimer Demo';
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(Tmainform, mainform);
Application.Run;
end.

View File

@ -0,0 +1,229 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="Release"/>
<Units Count="13">
<Unit0>
<Filename Value="longtimerdemo.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<CursorPos X="83" Y="6"/>
<UsageCount Value="76"/>
</Unit0>
<Unit1>
<Filename Value="umainform.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="mainform"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="umainform"/>
<IsVisibleTab Value="True"/>
<TopLine Value="88"/>
<CursorPos X="39" Y="92"/>
<UsageCount Value="76"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\ulongtimer.pas"/>
<UnitName Value="uLongTimer"/>
<EditorIndex Value="1"/>
<TopLine Value="138"/>
<CursorPos X="33" Y="151"/>
<UsageCount Value="37"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="D:\Lazarus32_production\lcl\extctrls.pp"/>
<TopLine Value="184"/>
<CursorPos X="65" Y="203"/>
<UsageCount Value="25"/>
</Unit3>
<Unit4>
<Filename Value="D:\Lazarus32_production\lcl\customtimer.pas"/>
<CursorPos X="25" Y="42"/>
<UsageCount Value="25"/>
</Unit4>
<Unit5>
<Filename Value="D:\Lazarus32_production\fpc\2.6.4\source\rtl\objpas\dateutils.pp"/>
<CursorPos X="18"/>
<UsageCount Value="6"/>
</Unit5>
<Unit6>
<Filename Value="D:\Lazarus32_production\fpc\2.6.4\source\rtl\objpas\dateutil.pp"/>
<CursorPos X="13"/>
<UsageCount Value="6"/>
</Unit6>
<Unit7>
<Filename Value="D:\Lazarus32_production\fpc\2.6.4\source\rtl\objpas\dateutil.inc"/>
<TopLine Value="263"/>
<CursorPos X="22" Y="89"/>
<UsageCount Value="25"/>
</Unit7>
<Unit8>
<Filename Value="..\aboutlongtimerunit.pas"/>
<UnitName Value="AboutLongTimerunit"/>
<EditorIndex Value="3"/>
<TopLine Value="28"/>
<CursorPos X="43" Y="42"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
</Unit8>
<Unit9>
<Filename Value="C:\codetyphon\typhon\lcl\extctrls.pp"/>
<UnitName Value="ExtCtrls"/>
<EditorIndex Value="4"/>
<TopLine Value="156"/>
<CursorPos X="31" Y="181"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit9>
<Unit10>
<Filename Value="C:\codetyphon\typhon\lcl\customtimer.pas"/>
<UnitName Value="CustomTimer"/>
<EditorIndex Value="5"/>
<TopLine Value="23"/>
<CursorPos X="41" Y="39"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit10>
<Unit11>
<Filename Value="C:\codetyphon\fpcsrc\packages\rtl-objpas\src\inc\dateutils.pp"/>
<EditorIndex Value="-1"/>
<CursorPos X="17"/>
<UsageCount Value="10"/>
</Unit11>
<Unit12>
<Filename Value="C:\codetyphon\fpcsrc\packages\rtl-objpas\src\inc\dateutil.inc"/>
<EditorIndex Value="2"/>
<TopLine Value="1453"/>
<CursorPos X="3" Y="1473"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit12>
</Units>
<CustomDefines Count="1">
<Define0 Value="DEBUG"/>
</CustomDefines>
<JumpHistory Count="29" HistoryIndex="28">
<Position1>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="93" Column="35" TopLine="83"/>
</Position1>
<Position2>
<Filename Value="umainform.pas"/>
<Caret Line="110" Column="14" TopLine="69"/>
</Position2>
<Position3>
<Filename Value="umainform.pas"/>
<Caret Line="175" Column="3" TopLine="138"/>
</Position3>
<Position4>
<Filename Value="umainform.pas"/>
<Caret Line="92" Column="13" TopLine="62"/>
</Position4>
<Position5>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="33" Column="13" TopLine="31"/>
</Position5>
<Position6>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="192" Column="31" TopLine="154"/>
</Position6>
<Position7>
<Filename Value="umainform.pas"/>
<Caret Line="93" Column="38" TopLine="50"/>
</Position7>
<Position8>
<Filename Value="umainform.pas"/>
<Caret Line="88" Column="50" TopLine="65"/>
</Position8>
<Position9>
<Filename Value="umainform.pas"/>
<Caret Line="91" TopLine="61"/>
</Position9>
<Position10>
<Filename Value="umainform.pas"/>
<Caret Line="93" TopLine="63"/>
</Position10>
<Position11>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="169" Column="41" TopLine="147"/>
</Position11>
<Position12>
<Filename Value="umainform.pas"/>
<Caret Line="140" Column="11" TopLine="83"/>
</Position12>
<Position13>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="130" TopLine="118"/>
</Position13>
<Position14>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="82" Column="8" TopLine="49"/>
</Position14>
<Position15>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="123" Column="22" TopLine="92"/>
</Position15>
<Position16>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="57" TopLine="51"/>
</Position16>
<Position17>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="123" Column="24" TopLine="88"/>
</Position17>
<Position18>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="82" Column="91" TopLine="55"/>
</Position18>
<Position19>
<Filename Value="..\aboutlongtimerunit.pas"/>
<Caret Line="42" Column="43" TopLine="28"/>
</Position19>
<Position20>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="57" Column="3" TopLine="52"/>
</Position20>
<Position21>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="82" Column="37" TopLine="61"/>
</Position21>
<Position22>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="66" Column="5" TopLine="50"/>
</Position22>
<Position23>
<Filename Value="C:\codetyphon\typhon\lcl\extctrls.pp"/>
<Caret Line="181" Column="31" TopLine="156"/>
</Position23>
<Position24>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="82" Column="67" TopLine="58"/>
</Position24>
<Position25>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="66" Column="51" TopLine="44"/>
</Position25>
<Position26>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="124" Column="13" TopLine="84"/>
</Position26>
<Position27>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="154" Column="35" TopLine="147"/>
</Position27>
<Position28>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="50" Column="78" TopLine="28"/>
</Position28>
<Position29>
<Filename Value="..\ulongtimer.pas"/>
<Caret Line="165" Column="18" TopLine="142"/>
</Position29>
</JumpHistory>
</ProjectSession>
</CONFIG>

View File

@ -1,187 +1,187 @@
object mainform: Tmainform
Left = 1050
Height = 264
Top = 186
Width = 437
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Application Title'
ClientHeight = 264
ClientWidth = 437
DefaultMonitor = dmPrimary
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.3'
object cmd_Close: TBitBtn
Left = 104
Height = 30
Top = 224
Width = 75
DefaultCaption = True
Kind = bkClose
ModalResult = 11
TabOrder = 0
end
object memo_ReportTimerEvent: TMemo
Left = 192
Height = 240
Top = 8
Width = 232
Lines.Strings = (
'Memo1'
)
ReadOnly = True
ScrollBars = ssAutoVertical
TabOrder = 1
end
object cmd_StopTimer: TButton
Left = 16
Height = 25
Top = 197
Width = 75
Caption = 'Stop Timer'
OnClick = cmd_StopTimerClick
TabOrder = 2
end
object cmd_StartTimer: TButton
Left = 104
Height = 25
Top = 197
Width = 75
Caption = 'Start Timer'
OnClick = cmd_StartTimerClick
TabOrder = 3
end
object crp_SetTimer: TGroupBox
Left = 8
Height = 176
Top = 8
Width = 184
Caption = 'Set up LongTimer'
ClientHeight = 156
ClientWidth = 180
TabOrder = 4
object Label1: TLabel
Left = 16
Height = 15
Top = 16
Width = 28
Caption = 'Every'
ParentColor = False
end
object cmb_IntervalType: TComboBox
Left = 72
Height = 23
Top = 16
Width = 100
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Day'
'Week'
'Month'
)
OnChange = cmb_IntervalTypeChange
Style = csDropDownList
TabOrder = 0
Text = 'Day'
end
object Label3: TLabel
Left = 0
Height = 15
Top = 48
Width = 61
Caption = 'Day or Date'
ParentColor = False
end
object cmb_weekordate: TComboBox
Left = 72
Height = 23
Top = 44
Width = 100
Enabled = False
ItemHeight = 15
OnChange = cmb_weekordateChange
Style = csDropDownList
TabOrder = 1
end
object Label2: TLabel
Left = 0
Height = 15
Top = 88
Width = 61
Caption = 'Time (24hr)'
ParentColor = False
end
object cmb_Daily24Hour: TComboBox
Left = 72
Height = 23
Top = 88
Width = 100
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Midnight'
)
OnChange = cmb_Daily24HourChange
Style = csDropDownList
TabOrder = 2
Text = 'Midnight'
end
object cmb_SampleInterval: TComboBox
Left = 48
Height = 23
Top = 128
Width = 124
ItemHeight = 15
OnChange = cmb_SampleIntervalChange
Style = csDropDownList
TabOrder = 3
end
object Label4: TLabel
Left = 0
Height = 15
Top = 128
Width = 39
Caption = 'Sample'
ParentColor = False
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
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.'
)
About.Title = 'About TLongTimer Component'
About.Height = 380
About.Width = 320
About.Font.Color = clNavy
About.Font.Height = -13
About.BackGroundColor = clWindow
About.Version = '0.0.1'
About.Authorname = 'Gordon Bamber'
About.Organisation = 'Public Domain'
About.AuthorEmail = 'minesadorada@charcodelvalle.com'
About.ComponentName = 'TLongTimer'
About.LicenseType = abLGPL
Enabled = False
OnTimer = LongTimer1Timer
OnStartTimer = LongTimer1StartTimer
OnStopTimer = LongTimer1StopTimer
Daily24Hour = 0
WeeklyDay = lt3Wednesday
OnSample = LongTimer1Sample
left = 8
top = 8
end
end
object mainform: Tmainform
Left = 1050
Height = 264
Top = 186
Width = 437
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Application Title'
ClientHeight = 264
ClientWidth = 437
DefaultMonitor = dmPrimary
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.3'
object cmd_Close: TBitBtn
Left = 104
Height = 30
Top = 224
Width = 75
DefaultCaption = True
Kind = bkClose
ModalResult = 11
TabOrder = 0
end
object memo_ReportTimerEvent: TMemo
Left = 192
Height = 240
Top = 8
Width = 232
Lines.Strings = (
'Memo1'
)
ReadOnly = True
ScrollBars = ssAutoVertical
TabOrder = 1
end
object cmd_StopTimer: TButton
Left = 16
Height = 25
Top = 197
Width = 75
Caption = 'Stop Timer'
OnClick = cmd_StopTimerClick
TabOrder = 2
end
object cmd_StartTimer: TButton
Left = 104
Height = 25
Top = 197
Width = 75
Caption = 'Start Timer'
OnClick = cmd_StartTimerClick
TabOrder = 3
end
object crp_SetTimer: TGroupBox
Left = 8
Height = 176
Top = 8
Width = 184
Caption = 'Set up LongTimer'
ClientHeight = 156
ClientWidth = 180
TabOrder = 4
object Label1: TLabel
Left = 16
Height = 15
Top = 16
Width = 28
Caption = 'Every'
ParentColor = False
end
object cmb_IntervalType: TComboBox
Left = 72
Height = 23
Top = 16
Width = 100
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Day'
'Week'
'Month'
)
OnChange = cmb_IntervalTypeChange
Style = csDropDownList
TabOrder = 0
Text = 'Day'
end
object Label3: TLabel
Left = 0
Height = 15
Top = 48
Width = 61
Caption = 'Day or Date'
ParentColor = False
end
object cmb_weekordate: TComboBox
Left = 72
Height = 23
Top = 44
Width = 100
Enabled = False
ItemHeight = 15
OnChange = cmb_weekordateChange
Style = csDropDownList
TabOrder = 1
end
object Label2: TLabel
Left = 0
Height = 15
Top = 88
Width = 61
Caption = 'Time (24hr)'
ParentColor = False
end
object cmb_Daily24Hour: TComboBox
Left = 72
Height = 23
Top = 88
Width = 100
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Midnight'
)
OnChange = cmb_Daily24HourChange
Style = csDropDownList
TabOrder = 2
Text = 'Midnight'
end
object cmb_SampleInterval: TComboBox
Left = 48
Height = 23
Top = 128
Width = 124
ItemHeight = 15
OnChange = cmb_SampleIntervalChange
Style = csDropDownList
TabOrder = 3
end
object Label4: TLabel
Left = 0
Height = 15
Top = 128
Width = 39
Caption = 'Sample'
ParentColor = False
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
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.'
)
About.Title = 'About TLongTimer Component'
About.Height = 380
About.Width = 320
About.Font.Color = clNavy
About.Font.Height = -13
About.BackGroundColor = clWindow
About.Version = '0.0.1'
About.Authorname = 'Gordon Bamber'
About.Organisation = 'Public Domain'
About.AuthorEmail = 'minesadorada@charcodelvalle.com'
About.ComponentName = 'TLongTimer'
About.LicenseType = abLGPL
Enabled = False
OnTimer = LongTimer1Timer
OnStartTimer = LongTimer1StartTimer
OnStopTimer = LongTimer1StopTimer
Daily24Hour = 0
WeeklyDay = lt3Wednesday
OnSample = LongTimer1Sample
left = 8
top = 8
end
end

View File

@ -1,67 +1,67 @@
LazarusResources.Add('TLongTimer','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0
+#0#0#25'tEXtSoftware'#0'Adobe ImageReadyq'#201'e<'#0#0#5#231'IDATx'#218'|U[o'
+#19'G'#20'>k'#175#215#235#248#134#29#187#142's''IC'#154#2#9#13'i('#168#180#9
+#180#226'!EP'#209#130#4'R'#145#170#2#17#229#165#15#136#159#208#167#170#15'}@'
+'H'#208#150#10')'#136'('#20'T'#169'E'#4#25'(D'#13#151'D'#9#196#9'qc''N|#'#247
+#216#142'/'#241#238#246#156#245#218#4'J;'#210#209#206#206#156#243'}3g'#190'3'
+#195'H'#146#4#231'N'#168#128'Z'#149'C'#5#26'5'#252#171#173#10#0#21#231'%'#208
+#7#165#183#233'?^'#204#12'O~'#201#252#167#175'7"'#202#253'cgE`_'#153'w'#136
+#18#180#226#183#26#205#140#182#132'6'#142#230#146#0'"'#248#149#9#176'?'#252
+#127#190#144#245#149#155'L'#160'Q3'#200',]'#17#212#166#153#234#230#246#22'gM'
+'S'#21#167'3'#25'c'#139'3K}='#151#221'~'#247#192#167#156#129#25#175#2'(%'#255
+#176#1#182'L'#134#196#234#242#250'-'#206#150#221#7#235#13#235#236#230'tb9'#26
+#250#251#177'w'#236#225'o;'#1#22#237#136#249#25#249'2'#148#162#159#191'V'#151
+#242'z'#227#183#205#31#157'8\R]'#13#233'h'#20'F'#159#14#206#247#186'zB'#155
+#161#202'Z'#164#181#243#197#156'Cgb'#13#28#5'-gb'#233'`:'#146#8#167'f'#146'C'
+#224#157#223#222#186#219'Y'#183#177#193#202#25#141#16#24#31#135#135'7'#207'^'
+'J'#198#163'g'#190#248'A'#152#150'w'#144'\'#149#14#212'7'#180#181#20#22';a.0'
+'%'#221#189'u;0'#253'xl'#249'`'#229#158'JC\'#173#247#14#140'B_d'#8#226'HLMo4'
+#242#133#14#7#223'XW'#7'5'#250'j'#211#229#206'?&'#199#155'|+;w}X'#130#24'L'
+#21'b'#245#223#249#245#0#186'~'#159'%H'#195'V'#13#207#23#143#14#245'B'#223
+#159'O'#2#170#9'!'#217'Qw'#176'6'#226#241#177#189#211#211#160#223#187#23#202
+'v'#237#2';'#2'R'#155#25#29#133#200#173'['#208'{'#253':'#188'UV'#166#239'x'
+#243'P'#237#143#15'~'#159#232'z'#222#21'hy'#127'S'#169#22#177#8#147'|e'#249
+#164'3P'#194'k2:'#239#168'w>48'#31'='#186'aO%'#129#251#236'v('#186'p'#1'J'
+#142#31#135#226#166'&'#24#25#27#3#141'^/'#247'i'#140#230'|6'#27'D<^'#150'b('
+#150'0'#8#139'0'#215#16'H'#139'Rz9'#241#240#190'''|'#170#161'}'#253#226'T'
+#144#157',*'#2#203#233#211#160'6'#155#193'b0'#200'+'#239#127#244'(/7'#26#163
+'9'#235#153'30'#229't'#194'b '#204#158'j'#252'd=a'#16#22'a'#230#9#4#17#6#238
+#222'y2]'#174#178'j'#204#162#134#31#11#6#193#216#209#1#146'F'#3','#203'BF'#16
+' '#145'NC*'#149#146#191'd4Fs'#162'Z'#13#230#147''''#193#19#8#128'Y'#165#227
+#9#131#176#8'3O'#128'B'#186'8'#225#13#134'>('#174#183#249'='#30#224#219#219#1
+'L& '#133'%'#17'lznN'#182#145#145#145'|'#159#140#230#200'G'#192#221#152#246
+#237#131')'#175#23'>('#219'd#,'#194#204#215'A'#173#155#153'`'#19#208'_Zfk'
+#153#138#142#128#166#185#153#138')[(*'#21'X0'#239#5'<'#15#241'x'#28'j0'#29
+#185#150'\]'#133#169#217'Y'#153'D'#215#210#2'+W'#175'BY'#237'f'#221';.'#166
+'?'#163#131#137'<A'#149'['#246#175'0'#170#10'8!'#147#1'UI'#9#8'R'#150#194'i'
+#181#2#207'f'#11#158#8'@'#146#242#4#26'$'#151#148#127#22'c'#18#152'B'#147'v'
+#29'W'#238#131#138#151'*Y'#200#246#181#18'0'#192'a'#222#5#134#201#7#230#192
+'?nm'#133#182#182'6'#248'|'#255'~'#208#227#142'r'#166#211#233#160'a'#219'6'
+#216#129';'#224'8'#14#196','#158#246'%'#130'L'#182'?'#151#142#197#146':'#163
+#177' '#249#252'9'#164'QE'#202#189'#'#183#206'+W'#224#240#161'Cp'#169#179#243
+#165#203'k'#22#139'O'#194#131'fgf@g'#177'@zy9'#137'xs'#175'#'#152#140'E"1}aa'
+#129#228'vC'#2's-'#210#1#138'"'#168#233#28'P'#239#4'N'#223'\'#163#185#8#166
+#133#206#137#27#30#6#30'cb~'#127#12#241'&s>'#178#138'R'#164#22'I'#186'='#229
+'v'#135#13'X\'#220#189'{`'#196#179#160'4'#173'f2/'#180#191#6'\'#190#154#21
+#159'BL'#169#232'r'#129#1#9#166#6#7#195#132#149'RR,'#19'$'#137#4#160'/'#20#12
+'>'#139#135#195'Q='#230#210't'#237#26#24#241'<H'#243#242#193#190#198'h'#206
+#138#234'2'#160'zt('#235#152#215#27'%'#12#194'J'#174#221'A2k'#241#132' '#156
+#31'p'#185'|'#172'V'#155#209#226'}'#243'Fw7'#240#152#2#134#14']9'#143#156#209
+#152#1'ejG'#31#6#175#16#138#25#184'q'#195'G'#24#132#149'#'#144#175#235#159
+#208'9'#255#15#240#141#179#188#252#216#187#237#237'U'#8#194#138'X'#177'Z'#188
+#232'T'#141#141#192'8'#28'Y'#175'H'#4#196#193'AH'#245#244#0#131'*'#146#24'&'
+#243#160#171#203#27#242#251#207'!'#210'w9m'#28'El'#153#128'VC'#247'd'#3'n'
+#151#211'jy'#173'Z}'#174#149'a'#182'nok+'#183'm'#216#160#23'P'#255#226#194#2
+'H++'#217'U'#160'<U'#133#133#160#198#180#204#186#221#241#222#155'7'#253'.Iz'
+#148#18#132'c'#233'T*9'#152'L'#194#168'|CH/'#158'L'#26#160#210#179#25#141#245
+#248#241#251'VVb'#139#221#221#229'%'#14'Gm'#205#198#141'6kee'#129#222#233#228
+'p5'#16#159#155'K/<}'#186#226#25#26#154#13'D"'#158'n'#179'y'#242'YA'#193'<'
+#198#213#207#166'R'#253#201'5B'#200#239#128#10#147#204'l6'#239'U'#169'T['#22
+#22#22'.'#22#227#252'v|'#135#223#3#216#129#149'S'#129'^v'#165'6f'#18#184#136
+#191#0#238#247#2#140#132#0'D'#139#197'rD'#20#197#129#165#165#165#235'$02im'
+#138'H'#133#244#144'ce~'#149'H$~Q'#156'R/D&'#255#11#138'0h'#231#156'bZ'#197
+'X'#140'='#130#177'g'#233'MB[|'#149'@G'#175#161#18'$*'#150'QLPL'#22#144'B'
+#162'^c'#172'2'#198'('#139#137#211#194#8#251#31#1#6#0#3#163#244#222'9'#250
,#193'9'#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('TLongTimer','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0
+#0#0#25'tEXtSoftware'#0'Adobe ImageReadyq'#201'e<'#0#0#5#231'IDATx'#218'|U[o'
+#19'G'#20'>k'#175#215#235#248#134#29#187#142's''IC'#154#2#9#13'i('#168#180#9
+#180#226'!EP'#209#130#4'R'#145#170#2#17#229#165#15#136#159#208#167#170#15'}@'
+'H'#208#150#10')'#136'('#20'T'#169'E'#4#25'(D'#13#151'D'#9#196#9'qc''N|#'#247
+#216#142'/'#241#238#246#156#245#218#4'J;'#210#209#206#206#156#243'}3g'#190'3'
+#195'H'#146#4#231'N'#168#128'Z'#149'C'#5#26'5'#252#171#173#10#0#21#231'%'#208
+#7#165#183#233'?^'#204#12'O~'#201#252#167#175'7"'#202#253'cgE`_'#153'w'#136
+#18#180#226#183#26#205#140#182#132'6'#142#230#146#0'"'#248#149#9#176'?'#252
+#127#190#144#245#149#155'L'#160'Q3'#200',]'#17#212#166#153#234#230#246#22'gM'
+'S'#21#167'3'#25'c'#139'3K}='#151#221'~'#247#192#167#156#129#25#175#2'(%'#255
+#176#1#182'L'#134#196#234#242#250'-'#206#150#221#7#235#13#235#236#230'tb9'#26
+#250#251#177'w'#236#225'o;'#1#22#237#136#249#25#249'2'#148#162#159#191'V'#151
+#242'z'#227#183#205#31#157'8\R]'#13#233'h'#20'F'#159#14#206#247#186'zB'#155
+#161#202'Z'#164#181#243#197#156'Cgb'#13#28#5'-gb'#233'`:'#146#8#167'f'#146'C'
+#224#157#223#222#186#219'Y'#183#177#193#202#25#141#16#24#31#135#135'7'#207'^'
+'J'#198#163'g'#190#248'A'#152#150'w'#144'\'#149#14#212'7'#180#181#20#22';a.0'
+'%'#221#189'u;0'#253'xl'#249'`'#229#158'JC\'#173#247#14#140'B_d'#8#226'HLMo4'
+#242#133#14#7#223'XW'#7'5'#250'j'#211#229#206'?&'#199#155'|+;w}X'#130#24'L'
+#21'b'#245#223#249#245#0#186'~'#159'%H'#195'V'#13#207#23#143#14#245'B'#223
+#159'O'#2#170#9'!'#217'Qw'#176'6'#226#241#177#189#211#211#160#223#187#23#202
+'v'#237#2';'#2'R'#155#25#29#133#200#173'['#208'{'#253':'#188'UV'#166#239'x'
+#243'P'#237#143#15'~'#159#232'z'#222#21'hy'#127'S'#169#22#177#8#147'|e'#249
+#164'3P'#194'k2:'#239#168'w>48'#31'='#186'aO%'#129#251#236'v('#186'p'#1'J'
+#142#31#135#226#166'&'#24#25#27#3#141'^/'#247'i'#140#230'|6'#27'D<^'#150'b('
+#150'0'#8#139'0'#215#16'H'#139'Rz9'#241#240#190'''|'#170#161'}'#253#226'T'
+#144#157',*'#2#203#233#211#160'6'#155#193'b0'#200'+'#239#127#244'(/7'#26#163
+'9'#235#153'30'#229't'#194'b '#204#158'j'#252'd=a'#16#22'a'#230#9#4#17#6#238
+#222'y2]'#174#178'j'#204#162#134#31#11#6#193#216#209#1#146'F'#3','#203'BF'#16
+' '#145'NC*'#149#146#191'd4Fs'#162'Z'#13#230#147''''#193#19#8#128'Y'#165#227
+#9#131#176#8'3O'#128'B'#186'8'#225#13#134'>('#174#183#249'='#30#224#219#219#1
+'L& '#133'%'#17'lznN'#182#145#145#145'|'#159#140#230#200'G'#192#221#152#246
+#237#131')'#175#23'>('#219'd#,'#194#204#215'A'#173#155#153'`'#19#208'_Zfk'
+#153#138#142#128#166#185#153#138')[(*'#21'X0'#239#5'<'#15#241'x'#28'j0'#29
+#185#150'\]'#133#169#217'Y'#153'D'#215#210#2'+W'#175'BY'#237'f'#221';.'#166
+'?'#163#131#137'<A'#149'['#246#175'0'#170#10'8!'#147#1'UI'#9#8'R'#150#194'i'
+#181#2#207'f'#11#158#8'@'#146#242#4#26'$'#151#148#127#22'c'#18#152'B'#147'v'
+#29'W'#238#131#138#151'*Y'#200#246#181#18'0'#192'a'#222#5#134#201#7#230#192
+'?nm'#133#182#182'6'#248'|'#255'~'#208#227#142'r'#166#211#233#160'a'#219'6'
+#216#129';'#224'8'#14#196','#158#246'%'#130'L'#182'?'#151#142#197#146':'#163
+#177' '#249#252'9'#164'QE'#202#189'#'#183#206'+W'#224#240#161'Cp'#169#179#243
+#165#203'k'#22#139'O'#194#131'fgf@g'#177'@zy9'#137'xs'#175'#'#152#140'E"1}aa'
+#129#228'vC'#2's-'#210#1#138'"'#168#233#28'P'#239#4'N'#223'\'#163#185#8#166
+#133#206#137#27#30#6#30'cb~'#127#12#241'&s>'#178#138'R'#164#22'I'#186'='#229
+'v'#135#13'X\'#220#189'{`'#196#179#160'4'#173'f2/'#180#191#6'\'#190#154#21
+#159'BL'#169#232'r'#129#1#9#166#6#7#195#132#149'RR,'#19'$'#137#4#160'/'#20#12
+'>'#139#135#195'Q='#230#210't'#237#26#24#241'<H'#243#242#193#190#198'h'#206
+#138#234'2'#160'zt('#235#152#215#27'%'#12#194'J'#174#221'A2k'#241#132' '#156
+#31'p'#185'|'#172'V'#155#209#226'}'#243'Fw7'#240#152#2#134#14']9'#143#156#209
+#152#1'ejG'#31#6#175#16#138#25#184'q'#195'G'#24#132#149'#'#144#175#235#159
+#208'9'#255#15#240#141#179#188#252#216#187#237#237'U'#8#194#138'X'#177'Z'#188
+#232'T'#141#141#192'8'#28'Y'#175'H'#4#196#193'AH'#245#244#0#131'*'#146#24'&'
+#243#160#171#203#27#242#251#207'!'#210'w9m'#28'El'#153#128'VC'#247'd'#3'n'
+#151#211'jy'#173'Z}'#174#149'a'#182'nok+'#183'm'#216#160#23'P'#255#226#194#2
+'H++'#217'U'#160'<U'#133#133#160#198#180#204#186#221#241#222#155'7'#253'.Iz'
+#148#18#132'c'#233'T*9'#152'L'#194#168'|CH/'#158'L'#26#160#210#179#25#141#245
+#248#241#251'VVb'#139#221#221#229'%'#14'Gm'#205#198#141'6kee'#129#222#233#228
+'p5'#16#159#155'K/<}'#186#226#25#26#154#13'D"'#158'n'#179'y'#242'YA'#193'<'
+#198#213#207#166'R'#253#201'5B'#200#239#128#10#147#204'l6'#239'U'#169'T['#22
+#22#22'.'#22#227#252'v|'#135#223#3#216#129#149'S'#129'^v'#165'6f'#18#184#136
+#191#0#238#247#2#140#132#0'D'#139#197'rD'#20#197#129#165#165#165#235'$02im'
+#138'H'#133#244#144'ce~'#149'H$~Q'#156'R/D&'#255#11#138'0h'#231#156'bZ'#197
+'X'#140'='#130#177'g'#233'MB[|'#149'@G'#175#161#18'$*'#150'QLPL'#22#144'B'
+#162'^c'#172'2'#198'('#139#137#211#194#8#251#31#1#6#0#3#163#244#222'9'#250
,#193'9'#0#0#0#0'IEND'#174'B`'#130
]);

View File

@ -1,22 +1,22 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}
unit longtimerpackage;
interface
uses
uLongTimer, AboutLongTimerunit, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('uLongTimer', @uLongTimer.Register);
RegisterUnit('AboutLongTimerunit', @AboutLongTimerunit.Register);
end;
initialization
RegisterPackage('longtimerpackage', @Register);
end.
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}
unit longtimerpackage;
interface
uses
uLongTimer, AboutLongTimerunit, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('uLongTimer', @uLongTimer.Register);
RegisterUnit('AboutLongTimerunit', @AboutLongTimerunit.Register);
end;
initialization
RegisterPackage('longtimerpackage', @Register);
end.

View File

@ -1,28 +1,28 @@
Summary
=======
TLongTimer is a descendent of TIdleTimer with all of its properties and methods EXCEPT the property Inteval.
Additional properties set the Interval to:
Daily - at a set hour
Weekly - at a set Day (e.g. Monday) and Hour
Monthly - at a set date (e.g. 5th of the month) and Hour
Demo application is included
License: LGPL
Author 'minesadorada' on the FreePascal.Org forum
Suggested uses
==============
In a TrayIcon application to do periodical reminders, updates or alarms
Version
=======
Lazarus 1.x and FPC 2.6.x
OS
==
Summary
=======
TLongTimer is a descendent of TIdleTimer with all of its properties and methods EXCEPT the property Inteval.
Additional properties set the Interval to:
Daily - at a set hour
Weekly - at a set Day (e.g. Monday) and Hour
Monthly - at a set date (e.g. 5th of the month) and Hour
Demo application is included
License: LGPL
Author 'minesadorada' on the FreePascal.Org forum
Suggested uses
==============
In a TrayIcon application to do periodical reminders, updates or alarms
Version
=======
Lazarus 1.x and FPC 2.6.x
OS
==
Written with Win32 but should be cross-platform