Check-in [1ab81676cc]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Upgraded to Delphi XE2. When today's start time has not been reached, start drawing at the current time instead of at the start time.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1ab81676ccda99765ce8a23ad770a5808c501c88
User & Date: MCO 2011-12-30 12:20:14
Context
2013-05-17
15:35
Made it compile in Delphi 2010 again. Don't pop up a balloon every minute when refreshing fails (e.g. if the network is down); only do that once every 15 minutes. Try saving the position and current edge when the window is docked. check-in: 92eee129fc user: MCO tags: trunk
2011-12-30
12:20
Upgraded to Delphi XE2. When today's start time has not been reached, start drawing at the current time instead of at the start time. check-in: 1ab81676cc user: MCO tags: trunk
2011-05-21
10:32
Added screenshot check-in: d23a0db0ac user: Martijn tags: trunk
Changes

Changes to out/TempusFugit.exe.

cannot compute difference between binary files

Changes to src/F_Main.dfm.

25
26
27
28
29
30
31



32
33
34


35
36
37
38
39
40
41
...
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
...
250
251
252
253
254
255
256
257
258
259
260
261
262
  TextHeight = 13
  object httpClient: TIdHTTP
    AllowCookies = True
    HandleRedirects = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1



    Request.Accept = 'text/xml, text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'


    HTTPOptions = [hoForceEncodeParams]
    Left = 32
    Top = 72
  end
  object tmrFetchTimes: TTimer
    Enabled = False
    Interval = 900000
................................................................................
      OnClick = miCloseClick
    end
  end
  object imlMain: TImageList
    Left = 32
    Top = 232
    Bitmap = {
      494C010102000400080010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
................................................................................
      E007F00F00000000C003800700000000800180E700000000800181FF00000000
      800180F300000000800180010000000080018001000000008001CF0100000000
      8001FF81000000008001E70100000000C003E00100000000E007F00F00000000
      F00FF81F00000000FFFFFFFF0000000000000000000000000000000000000000
      000000000000}
  end
  object trayIcon: TTrayIcon
    BalloonTimeout = 10000
    BalloonFlags = bfWarning
    Left = 32
    Top = 296
  end
end







>
>
>



>
>







 







|







 







<





25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
...
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
...
255
256
257
258
259
260
261

262
263
264
265
266
  TextHeight = 13
  object httpClient: TIdHTTP
    AllowCookies = True
    HandleRedirects = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = -1
    Request.ContentRangeStart = -1
    Request.ContentRangeInstanceLength = -1
    Request.Accept = 'text/xml, text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    Request.Ranges.Units = 'bytes'
    Request.Ranges = <>
    HTTPOptions = [hoForceEncodeParams]
    Left = 32
    Top = 72
  end
  object tmrFetchTimes: TTimer
    Enabled = False
    Interval = 900000
................................................................................
      OnClick = miCloseClick
    end
  end
  object imlMain: TImageList
    Left = 32
    Top = 232
    Bitmap = {
      494C010102000400100010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
................................................................................
      E007F00F00000000C003800700000000800180E700000000800181FF00000000
      800180F300000000800180010000000080018001000000008001CF0100000000
      8001FF81000000008001E70100000000C003E00100000000E007F00F00000000
      F00FF81F00000000FFFFFFFF0000000000000000000000000000000000000000
      000000000000}
  end
  object trayIcon: TTrayIcon

    BalloonFlags = bfWarning
    Left = 32
    Top = 296
  end
end

Changes to src/F_Main.pas.

71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
...
186
187
188
189
190
191
192



193
194
195
196
197
198
199
  end;

var
  frmMain: TfrmMain;

implementation
uses
  DateUtils, ComObj, ActiveX, Math,
  IdURI,
  L_VersionInfoW;

{$R *.dfm}

var
  XMLFS: TFormatSettings;
................................................................................
  Canvas.Brush.Style := bsSolid;
  Canvas.Brush.Color := clBtnFace;
  Canvas.Pen.Style := psSolid;
  Canvas.Pen.Color := clBtnText;
  ZeroMemory(@Color, sizeof(Color));

  BeginTime := Trunc(FStartTime) + EncodeTime(HourOf(FStartTime), 0, 0, 0);



//  if Abs(BeginTime - FStartTime) > 0.01 then begin
//    BeginTime := IncHour(BeginTime, -1);
//  end;

  if Now > FStopTime then begin
    EndTime := Now;
  end else begin







|







 







>
>
>







71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
...
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
  end;

var
  frmMain: TfrmMain;

implementation
uses
  DateUtils, System.Win.ComObj, ActiveX, Math,
  IdURI,
  L_VersionInfoW;

{$R *.dfm}

var
  XMLFS: TFormatSettings;
................................................................................
  Canvas.Brush.Style := bsSolid;
  Canvas.Brush.Color := clBtnFace;
  Canvas.Pen.Style := psSolid;
  Canvas.Pen.Color := clBtnText;
  ZeroMemory(@Color, sizeof(Color));

  BeginTime := Trunc(FStartTime) + EncodeTime(HourOf(FStartTime), 0, 0, 0);
  if Now < BeginTime then
    BeginTime := Now;

//  if Abs(BeginTime - FStartTime) > 0.01 then begin
//    BeginTime := IncHour(BeginTime, -1);
//  end;

  if Now > FStopTime then begin
    EndTime := Now;
  end else begin

Changes to src/lib/AppBar.pas.

17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


interface


uses
  Windows, Messages, SysUtils, Classes, Forms, Dialogs, Controls, ExtCtrls,
  ShellApi, Registry;


const
  // AppBar's user notification message
  WM_APPBARNOTIFY = WM_USER + 100;

  // Timer interval







|







17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


interface


uses
  Windows, Messages, SysUtils, Classes, Forms, Dialogs, Controls, ExtCtrls,
  ShellApi, System.Win.Registry;


const
  // AppBar's user notification message
  WM_APPBARNOTIFY = WM_USER + 100;

  // Timer interval

Changes to src/prj/d2009/TempusFugit.dproj.

1
2
3
4
5
6
7





8
9
10










11
12
13
14
15
16
17
18
19
20
21






22









23
24
25
26
27
28

























29
30
31
32
33
34
35
36
37
38
39
40

41
42
43
44
45
46

47
48
49
50
51
52


















53
54
55
56
57
58
59
60
61
62



63
64
65
66
67
68
69
70
71
72
73
74
75
76
..
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116




117
118
119

120
	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
		<PropertyGroup>
			<ProjectGuid>{6D193C34-4617-40F0-A1F0-F4ABDB7FFD3B}</ProjectGuid>
			<MainSource>TempusFugit.dpr</MainSource>
			<Config Condition="'$(Config)'==''">Debug</Config>
			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
			<ProjectVersion>12.0</ProjectVersion>





		</PropertyGroup>
		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
			<Base>true</Base>










		</PropertyGroup>
		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
			<Cfg_1>true</Cfg_1>
			<CfgParent>Base</CfgParent>
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
			<Cfg_2>true</Cfg_2>
			<CfgParent>Base</CfgParent>
			<Base>true</Base>
		</PropertyGroup>






		<PropertyGroup Condition="'$(Base)'!=''">









			<DCC_DependencyCheckOutputName>..\..\..\out\TempusFugit.exe</DCC_DependencyCheckOutputName>
			<DCC_UnitSearchPath>..\..;..\..\Lib;W:\Lib;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
			<DCC_UsePackage>vcl;rtl;vclx;dbrtl;vcldb;adortl;xmlrtl;vclactnband;inet;vclie;inetdbbde;inetdbxpress;IndyCore;IndySystem;dclOfficeXP;VclSmp;soaprtl;dsnap;IndyProtocols;bdertl;teeui;teedb;tee;vcldbx;TMSD2006;Scit;DL_Geo_100;DL_Base_100;S303_r100;B305_r100;DL_Control_100;DL_GDI_100;RaizeComponentsVcl</DCC_UsePackage>
			<DCC_ImageBase>00400000</DCC_ImageBase>
			<DCC_RangeChecking>true</DCC_RangeChecking>
			<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias>

























			<DCC_ExeOutput>..\..\..\out\</DCC_ExeOutput>
			<DCC_Platform>x86</DCC_Platform>
			<DCC_K>false</DCC_K>
			<DCC_F>false</DCC_F>
			<DCC_S>false</DCC_S>
			<DCC_N>true</DCC_N>
			<DCC_DcuOutput>..\..\..\out\DCU\</DCC_DcuOutput>
			<DebugSourcePath>W:\Lib\Src\;$(DebugSourcePath)</DebugSourcePath>
			<DCC_E>false</DCC_E>
			<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Cfg_1)'!=''">

			<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
			<DCC_DebugInformation>false</DCC_DebugInformation>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Cfg_2)'!=''">

			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
			<DCC_OutputDependencies>true</DCC_OutputDependencies>
			<DCC_Optimize>false</DCC_Optimize>
			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
			<DCC_RunTimeTypeInfo>true</DCC_RunTimeTypeInfo>
		</PropertyGroup>


















		<ItemGroup>
			<DelphiCompile Include="TempusFugit.dpr">
				<MainSource>MainSource</MainSource>
			</DelphiCompile>
			<BuildConfiguration Include="Base">
				<Key>Base</Key>
			</BuildConfiguration>
			<BuildConfiguration Include="Debug">
				<Key>Cfg_2</Key>
				<CfgParent>Base</CfgParent>



			</BuildConfiguration>
			<BuildConfiguration Include="Release">
				<Key>Cfg_1</Key>
				<CfgParent>Base</CfgParent>
			</BuildConfiguration>
		</ItemGroup>
		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
		<ProjectExtensions>
			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
			<Borland.ProjectType/>
			<BorlandProject>
				<Delphi.Personality>
					<Source>
						<Source Name="MainSource">TempusFugit.dpr</Source>
................................................................................
					</Parameters>
					<VersionInfo>
						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
						<VersionInfo Name="AutoIncBuild">True</VersionInfo>
						<VersionInfo Name="MajorVer">1</VersionInfo>
						<VersionInfo Name="MinorVer">0</VersionInfo>
						<VersionInfo Name="Release">0</VersionInfo>
						<VersionInfo Name="Build">6</VersionInfo>
						<VersionInfo Name="Debug">True</VersionInfo>
						<VersionInfo Name="PreRelease">False</VersionInfo>
						<VersionInfo Name="Special">False</VersionInfo>
						<VersionInfo Name="Private">False</VersionInfo>
						<VersionInfo Name="DLL">False</VersionInfo>
						<VersionInfo Name="Locale">1043</VersionInfo>
						<VersionInfo Name="CodePage">1252</VersionInfo>
					</VersionInfo>
					<VersionInfoKeys>
						<VersionInfoKeys Name="CompanyName">Voronwë</VersionInfoKeys>
						<VersionInfoKeys Name="FileDescription">TempusFugit</VersionInfoKeys>
						<VersionInfoKeys Name="FileVersion">1.0.0.6</VersionInfoKeys>
						<VersionInfoKeys Name="InternalName">TempusFugit</VersionInfoKeys>
						<VersionInfoKeys Name="LegalCopyright">© Martijn Coppoolse</VersionInfoKeys>
						<VersionInfoKeys Name="LegalTrademarks"/>
						<VersionInfoKeys Name="OriginalFilename">TempusFugit.exe</VersionInfoKeys>
						<VersionInfoKeys Name="ProductName">Tempus Fugit</VersionInfoKeys>
						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
						<VersionInfoKeys Name="Comments">http://martijn.coppoolse.com/software/</VersionInfoKeys>
					</VersionInfoKeys>
					<Excluded_Packages>
						<Excluded_Packages Name="C:\WINDOWS\system32\vclshlctrls100.bpl">Win32 Shell Controls</Excluded_Packages>
						<Excluded_Packages Name="C:\Proj32\_Lib\B305vr100.bpl">TurboPower Abbrevia 3.05 Run-time package - VCL90</Excluded_Packages>
						<Excluded_Packages Name="C:\Proj32\_Lib\S303_r100.bpl">SysTools 3 Runtime Package</Excluded_Packages>
						<Excluded_Packages Name="C:\Proj32\_Lib\B305_r100.bpl">TurboPower Abbrevia 3.05 Run-time package - RTL90</Excluded_Packages>
					</Excluded_Packages>
				</Delphi.Personality>




			</BorlandProject>
			<ProjectFileVersion>12</ProjectFileVersion>
		</ProjectExtensions>

	</Project>






|
>
>
>
>
>



>
>
>
>
>
>
>
>
>
>











>
>
>
>
>
>

>
>
>
>
>
>
>
>
>


|


<
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>












>






>






>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

|


<
<
<



>
>
>






|







 







|











|









|
|
<
<


>
>
>
>



>

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130



131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
...
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186


187
188
189
190
191
192
193
194
195
196
197
	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
		<PropertyGroup>
			<ProjectGuid>{6D193C34-4617-40F0-A1F0-F4ABDB7FFD3B}</ProjectGuid>
			<MainSource>TempusFugit.dpr</MainSource>
			<Config Condition="'$(Config)'==''">Debug</Config>
			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
			<ProjectVersion>13.4</ProjectVersion>
			<FrameworkType>VCL</FrameworkType>
			<Base>True</Base>
			<Platform Condition="'$(Platform)'==''">Win32</Platform>
			<TargetedPlatforms>1</TargetedPlatforms>
			<AppType>Application</AppType>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
			<Base_Win64>true</Base_Win64>
			<CfgParent>Base</CfgParent>
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
			<Base_Win32>true</Base_Win32>
			<CfgParent>Base</CfgParent>
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
			<Cfg_1>true</Cfg_1>
			<CfgParent>Base</CfgParent>
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
			<Cfg_2>true</Cfg_2>
			<CfgParent>Base</CfgParent>
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
			<Cfg_2_Win32>true</Cfg_2_Win32>
			<CfgParent>Cfg_2</CfgParent>
			<Cfg_2>true</Cfg_2>
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Base)'!=''">
			<VerInfo_PreRelease>true</VerInfo_PreRelease>
			<Manifest_File>None</Manifest_File>
			<Icon_MainIcon>..\..\..\res\Stopwatch.ico</Icon_MainIcon>
			<VerInfo_Locale>1043</VerInfo_Locale>
			<VerInfo_Build>7</VerInfo_Build>
			<VerInfo_AutoGenVersion>true</VerInfo_AutoGenVersion>
			<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
			<VerInfo_Keys>CompanyName=Voronwë;FileDescription=TempusFugit;FileVersion=1.0.0.7;InternalName=TempusFugit;LegalCopyright=© Martijn Coppoolse;LegalTrademarks=;OriginalFilename=TempusFugit.exe;ProductName=Tempus Fugit;ProductVersion=1.0.0.0;Comments=http://martijn.coppoolse.com/software/</VerInfo_Keys>
			<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
			<DCC_DependencyCheckOutputName>..\..\..\out\TempusFugit.exe</DCC_DependencyCheckOutputName>
			<DCC_UnitSearchPath>..\..;..\..\Lib;W:\Lib;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
			<DCC_UsePackage>vcl;rtl;vclx;dbrtl;vcldb;adortl;xmlrtl;vclactnband;inet;vclie;inetdbbde;inetdbxpress;IndyCore;IndySystem;dclOfficeXP;VclSmp;soaprtl;dsnap;IndyProtocols;bdertl;teeui;teedb;tee;vcldbx;TMSD2006;Scit;DL_Geo_100;DL_Base_100;S303_r100;B305_r100;DL_Control_100;DL_GDI_100;RaizeComponentsVcl;$(DCC_UsePackage)</DCC_UsePackage>
			<DCC_ImageBase>00400000</DCC_ImageBase>
			<DCC_RangeChecking>true</DCC_RangeChecking>

			<DCC_ExeOutput>..\..\..\out\</DCC_ExeOutput>
			<DCC_Platform>x86</DCC_Platform>
			<DCC_K>false</DCC_K>
			<DCC_F>false</DCC_F>
			<DCC_S>false</DCC_S>
			<DCC_N>true</DCC_N>
			<DCC_DcuOutput>..\..\..\out\DCU\</DCC_DcuOutput>
			<DebugSourcePath>W:\Lib\Src\;$(DebugSourcePath)</DebugSourcePath>
			<DCC_E>false</DCC_E>
			<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Base_Win64)'!=''">
			<Icon_MainIcon>TempusFugit_Icon.ico</Icon_MainIcon>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Base_Win32)'!=''">
			<VerInfo_PreRelease>true</VerInfo_PreRelease>
			<Manifest_File>None</Manifest_File>
			<Icon_MainIcon>..\..\..\res\Stopwatch.ico</Icon_MainIcon>
			<VerInfo_Debug>false</VerInfo_Debug>
			<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
			<DCC_DependencyCheckOutputName>..\..\..\out\TempusFugit.exe</DCC_DependencyCheckOutputName>
			<DCC_UnitSearchPath>..\..;..\..\Lib;W:\Lib;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
			<DCC_UsePackage>vcl;rtl;vclx;dbrtl;vcldb;adortl;xmlrtl;vclactnband;inet;vclie;inetdbbde;inetdbxpress;IndyCore;IndySystem;dclOfficeXP;VclSmp;soaprtl;dsnap;IndyProtocols;bdertl;teeui;teedb;tee;vcldbx;TMSD2006;Scit;DL_Geo_100;DL_Base_100;S303_r100;B305_r100;DL_Control_100;DL_GDI_100;RaizeComponentsVcl;$(DCC_UsePackage)</DCC_UsePackage>
			<DCC_ImageBase>00400000</DCC_ImageBase>
			<DCC_RangeChecking>true</DCC_RangeChecking>
			<DCC_ExeOutput>..\..\..\out\</DCC_ExeOutput>
			<DCC_Platform>x86</DCC_Platform>
			<DCC_K>false</DCC_K>
			<DCC_F>false</DCC_F>
			<DCC_S>false</DCC_S>
			<DCC_N>true</DCC_N>
			<DCC_DcuOutput>..\..\..\out\DCU\</DCC_DcuOutput>
			<DebugSourcePath>W:\Lib\Src\;$(DebugSourcePath)</DebugSourcePath>
			<DCC_E>false</DCC_E>
			<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Cfg_1)'!=''">
			<VerInfo_PreRelease>false</VerInfo_PreRelease>
			<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
			<DCC_DebugInformation>false</DCC_DebugInformation>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Cfg_2)'!=''">
			<VerInfo_Debug>true</VerInfo_Debug>
			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
			<DCC_OutputDependencies>true</DCC_OutputDependencies>
			<DCC_Optimize>false</DCC_Optimize>
			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
			<DCC_RunTimeTypeInfo>true</DCC_RunTimeTypeInfo>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
			<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
			<DCC_DependencyCheckOutputName>..\..\..\out\TempusFugit.exe</DCC_DependencyCheckOutputName>
			<DCC_UnitSearchPath>..\..;..\..\Lib;W:\Lib;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
			<DCC_UsePackage>vcl;rtl;vclx;dbrtl;vcldb;adortl;xmlrtl;vclactnband;inet;vclie;inetdbbde;inetdbxpress;IndyCore;IndySystem;dclOfficeXP;VclSmp;soaprtl;dsnap;IndyProtocols;bdertl;teeui;teedb;tee;vcldbx;TMSD2006;Scit;DL_Geo_100;DL_Base_100;S303_r100;B305_r100;DL_Control_100;DL_GDI_100;RaizeComponentsVcl;$(DCC_UsePackage)</DCC_UsePackage>
			<DCC_ImageBase>00400000</DCC_ImageBase>
			<DCC_RangeChecking>true</DCC_RangeChecking>
			<DCC_ExeOutput>..\..\..\out\</DCC_ExeOutput>
			<DCC_Platform>x86</DCC_Platform>
			<DCC_K>false</DCC_K>
			<DCC_F>false</DCC_F>
			<DCC_S>false</DCC_S>
			<DCC_N>true</DCC_N>
			<DCC_DcuOutput>..\..\..\out\DCU\</DCC_DcuOutput>
			<DebugSourcePath>W:\Lib\Src\;$(DebugSourcePath)</DebugSourcePath>
			<DCC_E>false</DCC_E>
			<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
		</PropertyGroup>
		<ItemGroup>
			<DelphiCompile Include="$(MainSource)">
				<MainSource>MainSource</MainSource>
			</DelphiCompile>



			<BuildConfiguration Include="Debug">
				<Key>Cfg_2</Key>
				<CfgParent>Base</CfgParent>
			</BuildConfiguration>
			<BuildConfiguration Include="Base">
				<Key>Base</Key>
			</BuildConfiguration>
			<BuildConfiguration Include="Release">
				<Key>Cfg_1</Key>
				<CfgParent>Base</CfgParent>
			</BuildConfiguration>
		</ItemGroup>
		<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
		<ProjectExtensions>
			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
			<Borland.ProjectType/>
			<BorlandProject>
				<Delphi.Personality>
					<Source>
						<Source Name="MainSource">TempusFugit.dpr</Source>
................................................................................
					</Parameters>
					<VersionInfo>
						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
						<VersionInfo Name="AutoIncBuild">True</VersionInfo>
						<VersionInfo Name="MajorVer">1</VersionInfo>
						<VersionInfo Name="MinorVer">0</VersionInfo>
						<VersionInfo Name="Release">0</VersionInfo>
						<VersionInfo Name="Build">8</VersionInfo>
						<VersionInfo Name="Debug">True</VersionInfo>
						<VersionInfo Name="PreRelease">False</VersionInfo>
						<VersionInfo Name="Special">False</VersionInfo>
						<VersionInfo Name="Private">False</VersionInfo>
						<VersionInfo Name="DLL">False</VersionInfo>
						<VersionInfo Name="Locale">1043</VersionInfo>
						<VersionInfo Name="CodePage">1252</VersionInfo>
					</VersionInfo>
					<VersionInfoKeys>
						<VersionInfoKeys Name="CompanyName">Voronwë</VersionInfoKeys>
						<VersionInfoKeys Name="FileDescription">TempusFugit</VersionInfoKeys>
						<VersionInfoKeys Name="FileVersion">1.0.0.8</VersionInfoKeys>
						<VersionInfoKeys Name="InternalName">TempusFugit</VersionInfoKeys>
						<VersionInfoKeys Name="LegalCopyright">© Martijn Coppoolse</VersionInfoKeys>
						<VersionInfoKeys Name="LegalTrademarks"/>
						<VersionInfoKeys Name="OriginalFilename">TempusFugit.exe</VersionInfoKeys>
						<VersionInfoKeys Name="ProductName">Tempus Fugit</VersionInfoKeys>
						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
						<VersionInfoKeys Name="Comments">http://martijn.coppoolse.com/software/</VersionInfoKeys>
					</VersionInfoKeys>
					<Excluded_Packages>
						<Excluded_Packages Name="$(BDSBIN)\dcloffice2k160.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
						<Excluded_Packages Name="$(BDSBIN)\dclofficexp160.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>


					</Excluded_Packages>
				</Delphi.Personality>
				<Platforms>
					<Platform value="Win64">False</Platform>
					<Platform value="Win32">True</Platform>
				</Platforms>
			</BorlandProject>
			<ProjectFileVersion>12</ProjectFileVersion>
		</ProjectExtensions>
		<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
	</Project>

Changes to src/prj/d2009/TempusFugit.res.

cannot compute difference between binary files