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

Changed folder structure

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

1248
components/longtimer/aboutlongtimerunit.pas → components/longtimer/latest_stable/aboutlongtimerunit.pas
View File

File diff suppressed because it is too large Load Diff

0
components/longtimer/demo/longtimerdemo.ico → components/longtimer/latest_stable/demo/longtimerdemo.ico
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 134 KiB

After

Width:  |  Height:  |  Size: 134 KiB

326
components/longtimer/demo/longtimerdemo.lpi → components/longtimer/latest_stable/demo/longtimerdemo.lpi
View File

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

42
components/longtimer/demo/longtimerdemo.lpr → components/longtimer/latest_stable/demo/longtimerdemo.lpr
View File

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

229
components/longtimer/latest_stable/demo/longtimerdemo.lps Normal file
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>

0
components/longtimer/demo/longtimerdemo.res → components/longtimer/latest_stable/demo/longtimerdemo.res
View File

374
components/longtimer/demo/umainform.lfm → components/longtimer/latest_stable/demo/umainform.lfm
View File

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

0
components/longtimer/demo/umainform.pas → components/longtimer/latest_stable/demo/umainform.pas
View File

0
components/longtimer/license.lrs → components/longtimer/latest_stable/license.lrs
View File

0
components/longtimer/locale/aboutlongtimerunit.po → components/longtimer/latest_stable/locale/aboutlongtimerunit.po
View File

134
components/longtimer/longtimer_icon.lrs → components/longtimer/latest_stable/longtimer_icon.lrs
View File

@ -1,67 +1,67 @@
LazarusResources.Add('TLongTimer','PNG',[ 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 #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' +#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 +#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'}@' +#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 +'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' +#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 +#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 +#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 +#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' +#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 +'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 +#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 +#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 +#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' +#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'^' +#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' +'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' +'%'#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' +#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 +#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 +#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' +'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 +#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' +#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(' +#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' +#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 +#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 +'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 +#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 +' '#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 +#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 +'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' +#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 +#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 +#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' +'?'#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' +#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 +#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' +'?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 +#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 +#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' +#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 +#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 +#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 +'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 +#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 +'>'#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 +#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 +#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 +#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 +#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'&' +#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' +#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 +#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' +'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 +#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 +#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'<' +'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 +#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 +#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' +#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 +#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' +'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 +#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 ,#193'9'#0#0#0#0'IEND'#174'B`'#130
]); ]);

0
components/longtimer/longtimerpackage.lpk → components/longtimer/latest_stable/longtimerpackage.lpk
View File

44
components/longtimer/longtimerpackage.pas → components/longtimer/latest_stable/longtimerpackage.pas
View File

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

54
components/longtimer/readme.txt → components/longtimer/latest_stable/readme.txt
View File

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

0
components/longtimer/ulongtimer.pas → components/longtimer/latest_stable/ulongtimer.pas
View File