Check-in [c5cc44ca2e]
Not logged in

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

Overview
Comment:Added Application.MainFormOnTaskbar := False, so the main form's window is not visible on the taskbar.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c5cc44ca2ee63df4be8773f94e9062b85adac327
User & Date: MCO 2013-05-23 07:29:07.788
Context
2014-12-02
12:27
Specify default times (in case no calendar info could be loaded). Handle calendar loading errors more gracefully (i.e. refresh the bar anyway). Updated project to Delphi XE7. Includes new executable. check-in: ebd6f87c86 user: tinus tags: trunk
2013-05-23
07:29
Added Application.MainFormOnTaskbar := False, so the main form's window is not visible on the taskbar. check-in: c5cc44ca2e user: MCO tags: trunk
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
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/prj/d2009/TempusFugit.dpr. 
1
2
3
4
5
6
7
8
9
10
11
12

13
14
15
16
17
18
19

program TempusFugit;

uses
  Forms, Windows,
  F_Main {frmMain},
  AppBar,
  CheckPrevious;

{$R *.res}

begin
  if not CheckPrevious.RestoreIfRunning(Application.Handle) then begin

    ShowWindow(Application.Handle, SW_HIDE);
    SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
    Application.Initialize;
    Application.Title := 'Tempus Fugit';
    Application.CreateForm(TfrmMain, frmMain);
    ShowWindow(Application.Handle, SW_SHOW);
    frmMain.UpdateBar;













>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

program TempusFugit;

uses
  Forms, Windows,
  F_Main {frmMain},
  AppBar,
  CheckPrevious;

{$R *.res}

begin
  if not CheckPrevious.RestoreIfRunning(Application.Handle) then begin
    Application.MainFormOnTaskbar := False;
    ShowWindow(Application.Handle, SW_HIDE);
    SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
    Application.Initialize;
    Application.Title := 'Tempus Fugit';
    Application.CreateForm(TfrmMain, frmMain);
    ShowWindow(Application.Handle, SW_SHOW);
    frmMain.UpdateBar;
︙︙
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
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

	<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="'$(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)'!=''">
			<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="'$(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>
		<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>
					</Source>
					<Parameters>
						<Parameters Name="UseLauncher">False</Parameters>
						<Parameters Name="LoadAllSymbols">True</Parameters>
						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
					</Parameters>
					<VersionInfo>
						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
						<VersionInfo Name="MajorVer">1</VersionInfo>
						<VersionInfo Name="MinorVer">0</VersionInfo>
						<VersionInfo Name="Release">1</VersionInfo>
						<VersionInfo Name="Build">0</VersionInfo>
						<VersionInfo Name="Debug">False</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.1.0</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>

	</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

<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>14.6</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="'$(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)'!=''">
        <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="'$(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>
    <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 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>
                </Source>
                <Parameters>
                    <Parameters Name="UseLauncher">False</Parameters>
                    <Parameters Name="LoadAllSymbols">True</Parameters>
                    <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
                </Parameters>
                <VersionInfo>
                    <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
                    <VersionInfo Name="AutoIncBuild">False</VersionInfo>
                    <VersionInfo Name="MajorVer">1</VersionInfo>
                    <VersionInfo Name="MinorVer">0</VersionInfo>
                    <VersionInfo Name="Release">1</VersionInfo>
                    <VersionInfo Name="Build">0</VersionInfo>
                    <VersionInfo Name="Debug">False</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.1.0</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="Win32">True</Platform>
                <Platform value="Win64">False</Platform>
            </Platforms>
        </BorlandProject>
        <ProjectFileVersion>12</ProjectFileVersion>
    </ProjectExtensions>
    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>
Changes to src/prj/d2009/TempusFugit.res.

cannot compute difference between binary files

Fossil version [bcbf150dc2] 2025-06-30 17:00:42