Check-in [9bd44452aa]

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

Overview
Comment:Let the main form handle Application.OnException (make all forms normal again, i.e. not topmost, then terminate) and Application.OnDeactivate (terminate). Added a readme with version history (in Dutch).
Timelines: family | ancestors | descendants | both | trunk | 1.0.1.0 | release
Files: files | file ages | folders
SHA1: 9bd44452aa6ab5393f19471e3d1769f86162e9fe
User & Date: tinus 2014-10-08 17:58:16
Context
2014-10-08
19:07
Added an icon, some imagery and documentation. check-in: caf0adca6f user: tinus tags: trunk
17:58
Let the main form handle Application.OnException (make all forms normal again, i.e. not topmost, then terminate) and Application.OnDeactivate (terminate). Added a readme with version history (in Dutch). check-in: 9bd44452aa user: tinus tags: trunk, 1.0.1.0, release
2014-09-08
12:30
Adjusted build number to 1.0.0.1. check-in: 074ec770b0 user: MCO tags: trunk
Changes

Changes to src/F_Main.pas.

17
18
19
20
21
22
23


24
25
26
27
28
29
30
..
53
54
55
56
57
58
59


60
61
62
63
64
65
66
..
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
...
137
138
139
140
141
142
143



144
145
146
147
148
149
150
...
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169



















170
    procedure tmrUpdateTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure gpnlDateMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormResize(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);


  private
    { Private declarations }
    FLastMousePos: TPoint;
    FInitialFontSize: Integer;
  public
    { Public declarations }
  end;
................................................................................
  FLastMousePos.x := -1;
  FLastMousePos.y := -1;

  // remember the initial font size
  FInitialFontSize := Font.Size;

  if Self = frmMain then begin


    if ScreenSaverMode = ssRun then begin
      // create forms for all other screens
      for i := 0 to Screen.MonitorCount - 1 do begin
        if not Screen.Monitors[i].Primary then begin
          Application.CreateForm(TfrmMain, frmSub);
          frmSub.Position := poDesigned;
          frmSub.Left := Screen.Monitors[i].Left;
................................................................................
begin
  Screen.Cursor := crDefault;
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmMain.FormResize(Sender: TObject);

  {$MESSAGE WARN 'TODO: write routine to evaluate width and height of given cell  MCO 03-09-2014'}

var
  Size: Integer;
  MaxWidth, MaxHeight: Integer;
  i: Integer;
  Ctl: TControlItem;
  Fits: Boolean;
................................................................................

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmMain.tmrUpdateTimer(Sender: TObject);
begin
  lblWeekday.Caption := FormatDateTime('dddd', Now);
  lblTime.Caption := FormatDateTime('HH:nn', Now);
  lblDate.Caption := FormatDateTime('d mmmm yyyy', Now);



end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Application.Terminate;
................................................................................
  Y: Integer);
begin
  // TODO: if Sender <> Self then translate X and Y to form (or screen) positions
  if (FLastMousePos.X = -1) and (FLastMousePos.Y = -1) then begin
    FLastMousePos.X := X;
    FLastMousePos.Y := Y;
  end else begin
    if (Abs(X-FLastMousePos.X) > 2) and (Abs(Y-FLastMousePos.Y) > 2) then begin
      FLastMousePos.X := X;
      FLastMousePos.Y := Y;
      Application.Terminate;
    end;
  end;
end;




















end.







>
>







 







>
>







 







|







 







>
>
>







 







|







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

17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
..
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
..
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
...
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
...
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
    procedure tmrUpdateTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure gpnlDateMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormResize(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ApplicationException(Sender: TObject; E: Exception);
    procedure ApplicationDeactivate(Sender: TObject);
  private
    { Private declarations }
    FLastMousePos: TPoint;
    FInitialFontSize: Integer;
  public
    { Public declarations }
  end;
................................................................................
  FLastMousePos.x := -1;
  FLastMousePos.y := -1;

  // remember the initial font size
  FInitialFontSize := Font.Size;

  if Self = frmMain then begin
    Application.OnException := ApplicationException;
    Application.OnDeactivate := ApplicationDeactivate;
    if ScreenSaverMode = ssRun then begin
      // create forms for all other screens
      for i := 0 to Screen.MonitorCount - 1 do begin
        if not Screen.Monitors[i].Primary then begin
          Application.CreateForm(TfrmMain, frmSub);
          frmSub.Position := poDesigned;
          frmSub.Left := Screen.Monitors[i].Left;
................................................................................
begin
  Screen.Cursor := crDefault;
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmMain.FormResize(Sender: TObject);

  {$MESSAGE WARN 'TODO: write routine to evaluate width and height of given cell MCO 03-09-2014'}

var
  Size: Integer;
  MaxWidth, MaxHeight: Integer;
  i: Integer;
  Ctl: TControlItem;
  Fits: Boolean;
................................................................................

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmMain.tmrUpdateTimer(Sender: TObject);
begin
  lblWeekday.Caption := FormatDateTime('dddd', Now);
  lblTime.Caption := FormatDateTime('HH:nn', Now);
  lblDate.Caption := FormatDateTime('d mmmm yyyy', Now);
  if Self = frmMain then begin
    SetActiveWindow(Self.Handle);
  end;
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Application.Terminate;
................................................................................
  Y: Integer);
begin
  // TODO: if Sender <> Self then translate X and Y to form (or screen) positions
  if (FLastMousePos.X = -1) and (FLastMousePos.Y = -1) then begin
    FLastMousePos.X := X;
    FLastMousePos.Y := Y;
  end else begin
    if (Abs(X - FLastMousePos.X) > 5) and (Abs(Y - FLastMousePos.Y) > 5) then begin
      FLastMousePos.X := X;
      FLastMousePos.Y := Y;
      Application.Terminate;
    end;
  end;
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmMain.ApplicationException(Sender: TObject; E: Exception);
var
  i: Integer;
begin
  for i := 0 to Screen.FormCount - 1 do begin
    Screen.Forms[i].FormStyle := fsNormal;
  end;
  Application.ShowException(E);
  if not Application.Terminated then
    Application.Terminate;
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmMain.ApplicationDeactivate(Sender: TObject);
begin
  Application.Terminate;
end;

end.

Added src/SimpleDate.groupproj.

























































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
    <PropertyGroup>
        <ProjectGuid>{14CA8AE3-B028-4FA7-AA9B-C8B2A820D66F}</ProjectGuid>
    </PropertyGroup>
    <ItemGroup>
        <Projects Include="ssdatum.dproj">
            <Dependencies/>
        </Projects>
    </ItemGroup>
    <ProjectExtensions>
        <Borland.Personality>Default.Personality.12</Borland.Personality>
        <Borland.ProjectType/>
        <BorlandProject>
            <Default.Personality/>
        </BorlandProject>
    </ProjectExtensions>
    <Target Name="ssdatum">
        <MSBuild Projects="ssdatum.dproj"/>
    </Target>
    <Target Name="ssdatum:Clean">
        <MSBuild Projects="ssdatum.dproj" Targets="Clean"/>
    </Target>
    <Target Name="ssdatum:Make">
        <MSBuild Projects="ssdatum.dproj" Targets="Make"/>
    </Target>
    <Target Name="Build">
        <CallTarget Targets="ssdatum"/>
    </Target>
    <Target Name="Clean">
        <CallTarget Targets="ssdatum:Clean"/>
    </Target>
    <Target Name="Make">
        <CallTarget Targets="ssdatum:Make"/>
    </Target>
    <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
    <ItemGroup Condition="'$(BuildGroup)'=='Full'">
        <BuildGroupProject Include="ssdatum.dproj">
            <ProjectGuid>{3507CA79-CC38-4FCD-84FA-9267A3630437}</ProjectGuid>
            <Configurations>Debug;Release</Configurations>
            <Platforms>Win32</Platforms>
            <Enabled>True</Enabled>
        </BuildGroupProject>
    </ItemGroup>
</Project>

Added src/readme.md.







































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Simple Date Screensaver
=======================

Een simpele screensaver, die de datum en tijd op het scherm weergeeft.

Versies:
-------
1.0.1.0 woensdag 8 oktober 2014
- Na twee weken onafgebroken draaien bleek de screensaver vast te zijn gelopen.
  Om dit te voorkomen zijn er twee dingen aangepast:
  1. als er een fout optreedt binnen de screensaver zelf, wordt het screensaverscherm naar de 
     achtergrond geschoven, en verschijnt de foutmelding op de voorgrond. (In de vorige versie
     was de datum- en tijd altijd op de voorgrond. Misschien dat zich op de achtergrond een 
     foutmelding bevond).
  2. zodra een ander programma de focus vraagt of 'steelt', verdwijnt de screensaver. (Misschien was
     er een ander programma dat de aandacht vereiste).

1.0.0.1 woensdag 
- Eerste oplevering

Changes to src/ssdatum.dpr.

7
8
9
10
11
12
13




14
15
16
17
18
19
20
  SingleInstance in 'SingleInstance.pas',
  ScreenSaverUtils in 'ScreenSaverUtils.pas'(*,
  F_Config in 'F_Config.pas' {frmConfig}*);

{$R *.res}

begin




  // First, process the Param's passed to see
  // what mode the screen saver is to run in
  // This set's the global variable's ScreenSaverMode
  // and ParentHandle. If the mode was to set the password,
  // a call to this function will never return (it calls Halt).
  SetScreenSaverMode;








>
>
>
>







7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
  SingleInstance in 'SingleInstance.pas',
  ScreenSaverUtils in 'ScreenSaverUtils.pas'(*,
  F_Config in 'F_Config.pas' {frmConfig}*);

{$R *.res}

begin
{$IFDEF DEBUG}
  ReportMemoryLeaksOnShutdown := True;
{$ENDIF}

  // First, process the Param's passed to see
  // what mode the screen saver is to run in
  // This set's the global variable's ScreenSaverMode
  // and ParentHandle. If the mode was to set the password,
  // a call to this function will never return (it calls Halt).
  SetScreenSaverMode;

Changes to src/ssdatum.dproj.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
..
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
...
125
126
127
128
129
130
131
132
133
134


















































135
136
137
138
139
140
141
142
143
144
145
146
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
    <PropertyGroup>
        <ProjectGuid>{3507CA79-CC38-4FCD-84FA-9267A3630437}</ProjectGuid>
        <ProjectVersion>15.4</ProjectVersion>
        <FrameworkType>VCL</FrameworkType>
        <MainSource>ssdatum.dpr</MainSource>
        <Base>True</Base>
        <Config Condition="'$(Config)'==''">Release</Config>
        <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)'=='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_Build>1</VerInfo_Build>
        <OutputExt>.scr</OutputExt>
        <SanitizedProjectName>ssdatum</SanitizedProjectName>
        <DCC_SYMBOL_PLATFORM>false</DCC_SYMBOL_PLATFORM>
        <VerInfo_Locale>1043</VerInfo_Locale>
        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
        <DCC_UNIT_PLATFORM>false</DCC_UNIT_PLATFORM>
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <VerInfo_Keys>CompanyName=Martijn Coppoolse;FileDescription=Simple Date Screen Saver;FileVersion=1.0.0.1;InternalName=ssDatum;LegalCopyright=© Martijn Coppoolse;LegalTrademarks=;OriginalFilename=ssDatum.scr;ProductName=Eenvoudige datumschermbeveiliging;ProductVersion=1.0.0.1;Comments=</VerInfo_Keys>
        <DCC_DcuOutput>..\out\DCU\$(Platform)\$(Config)</DCC_DcuOutput>
        <DCC_ExeOutput>..\out\$(Platform)\$(Config)</DCC_ExeOutput>
        <DCC_E>false</DCC_E>
        <DCC_N>false</DCC_N>
        <DCC_S>false</DCC_S>
        <DCC_F>false</DCC_F>
        <DCC_K>false</DCC_K>
................................................................................
        <Borland.ProjectType/>
        <BorlandProject>
            <Delphi.Personality>
                <Source>
                    <Source Name="MainSource">ssdatum.dpr</Source>
                </Source>
                <Excluded_Packages>
                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k200.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp200.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
                </Excluded_Packages>


















































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







|







 







|
<







|







 







|
|

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












1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
..
42
43
44
45
46
47
48
49

50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
...
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
151
152
153
154
155
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
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
    <PropertyGroup>
        <ProjectGuid>{3507CA79-CC38-4FCD-84FA-9267A3630437}</ProjectGuid>
        <ProjectVersion>15.4</ProjectVersion>
        <FrameworkType>VCL</FrameworkType>
        <MainSource>ssdatum.dpr</MainSource>
        <Base>True</Base>
        <Config Condition="'$(Config)'==''">Debug</Config>
        <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)'=='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_Release>1</VerInfo_Release>

        <SanitizedProjectName>ssdatum</SanitizedProjectName>
        <DCC_SYMBOL_PLATFORM>false</DCC_SYMBOL_PLATFORM>
        <VerInfo_Locale>1043</VerInfo_Locale>
        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
        <DCC_UNIT_PLATFORM>false</DCC_UNIT_PLATFORM>
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <VerInfo_Keys>CompanyName=Martijn Coppoolse;FileDescription=Simple Date Screen Saver;FileVersion=1.0.1.0;InternalName=ssDatum;LegalCopyright=© Martijn Coppoolse;LegalTrademarks=;OriginalFilename=ssDatum.scr;ProductName=Eenvoudige datumschermbeveiliging;ProductVersion=1.0.1.0;Comments=</VerInfo_Keys>
        <DCC_DcuOutput>..\out\DCU\$(Platform)\$(Config)</DCC_DcuOutput>
        <DCC_ExeOutput>..\out\$(Platform)\$(Config)</DCC_ExeOutput>
        <DCC_E>false</DCC_E>
        <DCC_N>false</DCC_N>
        <DCC_S>false</DCC_S>
        <DCC_F>false</DCC_F>
        <DCC_K>false</DCC_K>
................................................................................
        <Borland.ProjectType/>
        <BorlandProject>
            <Delphi.Personality>
                <Source>
                    <Source Name="MainSource">ssdatum.dpr</Source>
                </Source>
                <Excluded_Packages>
                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k190.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp190.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
                </Excluded_Packages>
                <VersionInfo>
                    <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
                    <VersionInfo Name="AutoIncBuild">False</VersionInfo>
                    <VersionInfo Name="MajorVer">1</VersionInfo>
                    <VersionInfo Name="MinorVer">0</VersionInfo>
                    <VersionInfo Name="Release">0</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"/>
                    <VersionInfoKeys Name="FileDescription"/>
                    <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
                    <VersionInfoKeys Name="InternalName"/>
                    <VersionInfoKeys Name="LegalCopyright"/>
                    <VersionInfoKeys Name="LegalTrademarks"/>
                    <VersionInfoKeys Name="OriginalFilename"/>
                    <VersionInfoKeys Name="ProductName"/>
                    <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
                    <VersionInfoKeys Name="Comments"/>
                    <VersionInfoKeys Name="CFBundleName"/>
                    <VersionInfoKeys Name="CFBundleDisplayName"/>
                    <VersionInfoKeys Name="UIDeviceFamily"/>
                    <VersionInfoKeys Name="CFBundleIdentifier"/>
                    <VersionInfoKeys Name="CFBundleVersion"/>
                    <VersionInfoKeys Name="CFBundlePackageType"/>
                    <VersionInfoKeys Name="CFBundleSignature"/>
                    <VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
                    <VersionInfoKeys Name="UISupportedInterfaceOrientations"/>
                    <VersionInfoKeys Name="CFBundleExecutable"/>
                    <VersionInfoKeys Name="CFBundleResourceSpecification"/>
                    <VersionInfoKeys Name="LSRequiresIPhoneOS"/>
                    <VersionInfoKeys Name="CFBundleInfoDictionaryVersion"/>
                    <VersionInfoKeys Name="CFBundleDevelopmentRegion"/>
                    <VersionInfoKeys Name="package"/>
                    <VersionInfoKeys Name="label"/>
                    <VersionInfoKeys Name="versionCode"/>
                    <VersionInfoKeys Name="versionName"/>
                    <VersionInfoKeys Name="persistent"/>
                    <VersionInfoKeys Name="restoreAnyVersion"/>
                    <VersionInfoKeys Name="installLocation"/>
                    <VersionInfoKeys Name="largeHeap"/>
                    <VersionInfoKeys Name="theme"/>
                </VersionInfoKeys>
            </Delphi.Personality>
            <Deployment/>
            <Platforms>
                <Platform value="Win32">True</Platform>
                <Platform value="Win64">False</Platform>
            </Platforms>
        </BorlandProject>
        <ProjectFileVersion>12</ProjectFileVersion>
    </ProjectExtensions>
    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>