• R/O
  • SSH
  • HTTPS

etudemobileapps: Commit


Commit MetaInfo

Revision379 (tree)
Time2014-09-01 16:40:13
Authoriga

Log Message

Pascal 側のソースコードを取り込み。

Change Summary

Incremental Difference

--- trunk/EtudeOp6/src/pascal/uStartForm.pas (nonexistent)
+++ trunk/EtudeOp6/src/pascal/uStartForm.pas (revision 379)
@@ -0,0 +1,40 @@
1+unit uStartForm;
2+
3+interface
4+
5+uses
6+ System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
7+ FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
8+ FMX.Layouts, FMX.Objects;
9+
10+type
11+ TfrmStart = class(TForm)
12+ imgStart: TImage;
13+ layoutScore: TLayout;
14+ imgStartText: TImage;
15+ lblScore: TLabel;
16+ lblName: TLabel;
17+ procedure FormActivate(Sender: TObject);
18+ private
19+ { private 宣言 }
20+ public
21+ { public 宣言 }
22+ end;
23+
24+var
25+ frmStart: TfrmStart;
26+
27+implementation
28+
29+{$R *.fmx}
30+
31+uses uHighScoreManager;
32+
33+procedure TfrmStart.FormActivate(Sender: TObject);
34+begin
35+// ハイスコア表示設定
36+ lblScore.Text := HighScoreManager.HighScoreStr;
37+ lblName.Text := HighScoreManager.Name;
38+end;
39+
40+end.
--- trunk/EtudeOp6/src/pascal/BallCatch.dproj (nonexistent)
+++ trunk/EtudeOp6/src/pascal/BallCatch.dproj (revision 379)
@@ -0,0 +1,637 @@
1+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+ <PropertyGroup>
3+ <ProjectGuid>{95D3DDD4-054E-43D9-B3EB-058F9E1453F4}</ProjectGuid>
4+ <ProjectVersion>15.4</ProjectVersion>
5+ <FrameworkType>FMX</FrameworkType>
6+ <MainSource>BallCatch.dpr</MainSource>
7+ <Base>True</Base>
8+ <Config Condition="'$(Config)'==''">Release</Config>
9+ <Platform Condition="'$(Platform)'==''">Android</Platform>
10+ <TargetedPlatforms>89</TargetedPlatforms>
11+ <AppType>Application</AppType>
12+ </PropertyGroup>
13+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
14+ <Base>true</Base>
15+ </PropertyGroup>
16+ <PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
17+ <Base_Android>true</Base_Android>
18+ <CfgParent>Base</CfgParent>
19+ <Base>true</Base>
20+ </PropertyGroup>
21+ <PropertyGroup Condition="('$(Platform)'=='iOSDevice' and '$(Base)'=='true') or '$(Base_iOSDevice)'!=''">
22+ <Base_iOSDevice>true</Base_iOSDevice>
23+ <CfgParent>Base</CfgParent>
24+ <Base>true</Base>
25+ </PropertyGroup>
26+ <PropertyGroup Condition="('$(Platform)'=='iOSSimulator' and '$(Base)'=='true') or '$(Base_iOSSimulator)'!=''">
27+ <Base_iOSSimulator>true</Base_iOSSimulator>
28+ <CfgParent>Base</CfgParent>
29+ <Base>true</Base>
30+ </PropertyGroup>
31+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
32+ <Base_Win32>true</Base_Win32>
33+ <CfgParent>Base</CfgParent>
34+ <Base>true</Base>
35+ </PropertyGroup>
36+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
37+ <Cfg_1>true</Cfg_1>
38+ <CfgParent>Base</CfgParent>
39+ <Base>true</Base>
40+ </PropertyGroup>
41+ <PropertyGroup Condition="('$(Platform)'=='Android' and '$(Cfg_1)'=='true') or '$(Cfg_1_Android)'!=''">
42+ <Cfg_1_Android>true</Cfg_1_Android>
43+ <CfgParent>Cfg_1</CfgParent>
44+ <Cfg_1>true</Cfg_1>
45+ <Base>true</Base>
46+ </PropertyGroup>
47+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
48+ <Cfg_1_Win32>true</Cfg_1_Win32>
49+ <CfgParent>Cfg_1</CfgParent>
50+ <Cfg_1>true</Cfg_1>
51+ <Base>true</Base>
52+ </PropertyGroup>
53+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
54+ <Cfg_2>true</Cfg_2>
55+ <CfgParent>Base</CfgParent>
56+ <Base>true</Base>
57+ </PropertyGroup>
58+ <PropertyGroup Condition="'$(Base)'!=''">
59+ <AUP_CALL_PHONE>true</AUP_CALL_PHONE>
60+ <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
61+ <AUP_WRITE_EXTERNAL_STORAGE>true</AUP_WRITE_EXTERNAL_STORAGE>
62+ <Icns_MainIcns>$(BDS)\bin\objectpascal_PROJECTICNS.icns</Icns_MainIcns>
63+ <AUP_READ_EXTERNAL_STORAGE>true</AUP_READ_EXTERNAL_STORAGE>
64+ <AUP_ACCESS_FINE_LOCATION>true</AUP_ACCESS_FINE_LOCATION>
65+ <AUP_WRITE_CALENDAR>true</AUP_WRITE_CALENDAR>
66+ <AUP_ACCESS_COARSE_LOCATION>true</AUP_ACCESS_COARSE_LOCATION>
67+ <AUP_CAMERA>true</AUP_CAMERA>
68+ <AUP_INTERNET>true</AUP_INTERNET>
69+ <AUP_READ_CALENDAR>true</AUP_READ_CALENDAR>
70+ <SanitizedProjectName>BallCatch</SanitizedProjectName>
71+ <Icon_MainIcon>$(BDS)\bin\objectpascal_PROJECTICON.ico</Icon_MainIcon>
72+ <AUP_READ_PHONE_STATE>true</AUP_READ_PHONE_STATE>
73+ <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
74+ <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
75+ <DCC_E>false</DCC_E>
76+ <DCC_N>false</DCC_N>
77+ <DCC_S>false</DCC_S>
78+ <DCC_F>false</DCC_F>
79+ <DCC_K>false</DCC_K>
80+ </PropertyGroup>
81+ <PropertyGroup Condition="'$(Base_Android)'!=''">
82+ <Android_LauncherIcon48>$(BDS)\bin\Artwork\Appmethod\Android\FM_LauncherIcon_48x48.png</Android_LauncherIcon48>
83+ <Android_LauncherIcon72>$(BDS)\bin\Artwork\Appmethod\Android\FM_LauncherIcon_72x72.png</Android_LauncherIcon72>
84+ <Android_LauncherIcon96>$(BDS)\bin\Artwork\Appmethod\Android\FM_LauncherIcon_96x96.png</Android_LauncherIcon96>
85+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
86+ <Android_LauncherIcon144>$(BDS)\bin\Artwork\Appmethod\Android\FM_LauncherIcon_144x144.png</Android_LauncherIcon144>
87+ <VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=preferExternal;largeHeap=False;theme=TitleBar;hardwareAccelerated=true</VerInfo_Keys>
88+ <Android_LauncherIcon36>$(BDS)\bin\Artwork\Appmethod\Android\FM_LauncherIcon_36x36.png</Android_LauncherIcon36>
89+ <DCC_UsePackage>FireDACSqliteDriver;bindcompfmx;RESTBackendComponents;fmx;rtl;dbrtl;IndySystem;DbxClientDriver;FireDACCommon;bindcomp;tethering;DataSnapClient;xmlrtl;DbxCommonDriver;IndyProtocols;FireDACCommonDriver;bindengine;soaprtl;fmxFireDAC;CustomIPTransport;FireDAC;IndyIPServer;IndyCore;IndyIPCommon;CloudService;FireDACIBDriver;inet;DataSnapFireDAC;RESTComponents;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
90+ <BT_BuildType>Debug</BT_BuildType>
91+ </PropertyGroup>
92+ <PropertyGroup Condition="'$(Base_iOSDevice)'!=''">
93+ <iPad_Launch1024x768>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImageLandscape_1024x768.png</iPad_Launch1024x768>
94+ <iPad_Launch1536x2048>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImagePortrait_1536x2048.png</iPad_Launch1536x2048>
95+ <iPad_SpotLight50>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_SpotlightSearchIcon_50x50.png</iPad_SpotLight50>
96+ <iPad_SpotLight80>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_SpotlightSearchIcon_80x80.png</iPad_SpotLight80>
97+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
98+ <iPad_Launch768x1024>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImagePortrait_768x1024.png</iPad_Launch768x1024>
99+ <iPad_Launch2048x1536>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImageLandscape_2048x1536.png</iPad_Launch2048x1536>
100+ <iPad_Launch2048>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImageLandscape_2048x1496.png</iPad_Launch2048>
101+ <iPad_SpotLight40>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_SpotlightSearchIcon_40x40.png</iPad_SpotLight40>
102+ <iPad_Launch1536>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImagePortrait_1536x2008.png</iPad_Launch1536>
103+ <iPad_AppIcon144>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_ApplicationIcon_144x144.png</iPad_AppIcon144>
104+ <iPhone_AppIcon120>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_ApplicationIcon_120x120.png</iPhone_AppIcon120>
105+ <iPhone_Spotlight80>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png</iPhone_Spotlight80>
106+ <iPad_Launch1024>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImageLandscape_1024x748.png</iPad_Launch1024>
107+ <VerInfo_BundleId>$(MSBuildProjectName)</VerInfo_BundleId>
108+ <iPad_AppIcon76>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_ApplicationIcon_76x76.png</iPad_AppIcon76>
109+ <iPhone_Spotlight40>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_SpotlightSearchIcon_40x40.png</iPhone_Spotlight40>
110+ <iPhone_Spotlight29>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_SpotlightSearchIcon_29x29.png</iPhone_Spotlight29>
111+ <iPhone_AppIcon114>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_ApplicationIcon_114x114.png</iPhone_AppIcon114>
112+ <BT_BuildType>Debug</BT_BuildType>
113+ <iPhone_Launch640>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_LaunchImage_640x960.png</iPhone_Launch640>
114+ <iPhone_Launch640x1136>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_LaunchImage_640x1136.png</iPhone_Launch640x1136>
115+ <VerInfo_UIDeviceFamily>iPhoneAndiPad</VerInfo_UIDeviceFamily>
116+ <iPad_AppIcon72>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_ApplicationIcon_72x72.png</iPad_AppIcon72>
117+ <iPad_Launch768>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImagePortrait_768x1004.png</iPad_Launch768>
118+ <VerInfo_Keys>CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=ja;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone &amp; iPad;CFBundleResourceSpecification=ResourceRules.plist</VerInfo_Keys>
119+ <iPhone_Launch320>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_LaunchImage_320x480.png</iPhone_Launch320>
120+ <iPad_SpotLight100>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_SpotlightSearchIcon_100x100.png</iPad_SpotLight100>
121+ <iPad_Setting29>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_SettingIcon_29x29.png</iPad_Setting29>
122+ <iPhone_Spotlight58>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_SpotlightSearchIcon_58x58.png</iPhone_Spotlight58>
123+ <iPad_AppIcon152>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_ApplicationIcon_152x152.png</iPad_AppIcon152>
124+ <iPhone_AppIcon57>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_ApplicationIcon_57x57.png</iPhone_AppIcon57>
125+ <iPhone_AppIcon60>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_ApplicationIcon_60x60.png</iPhone_AppIcon60>
126+ <iPad_Setting58>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_SettingIcon_58x58.png</iPad_Setting58>
127+ <DCC_UsePackage>FireDACSqliteDriver;bindcompfmx;RESTBackendComponents;fmx;rtl;dbrtl;IndySystem;DbxClientDriver;FireDACCommon;bindcomp;tethering;DataSnapClient;xmlrtl;DbxCommonDriver;IndyProtocols;FireDACCommonDriver;bindengine;soaprtl;fmxFireDAC;CustomIPTransport;FireDAC;IndyIPServer;fmxase;IndyCore;IndyIPCommon;CloudService;FireDACIBDriver;inet;DataSnapFireDAC;RESTComponents;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
128+ </PropertyGroup>
129+ <PropertyGroup Condition="'$(Base_iOSSimulator)'!=''">
130+ <iPad_Launch1024x768>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImageLandscape_1024x768.png</iPad_Launch1024x768>
131+ <iPad_Launch1536x2048>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImagePortrait_1536x2048.png</iPad_Launch1536x2048>
132+ <iPad_SpotLight50>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_SpotlightSearchIcon_50x50.png</iPad_SpotLight50>
133+ <iPad_SpotLight80>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_SpotlightSearchIcon_80x80.png</iPad_SpotLight80>
134+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
135+ <iPad_Launch768x1024>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImagePortrait_768x1024.png</iPad_Launch768x1024>
136+ <iPad_Launch2048x1536>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImageLandscape_2048x1536.png</iPad_Launch2048x1536>
137+ <iPad_Launch2048>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImageLandscape_2048x1496.png</iPad_Launch2048>
138+ <iPad_Launch1536>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImagePortrait_1536x2008.png</iPad_Launch1536>
139+ <iPad_AppIcon144>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_ApplicationIcon_144x144.png</iPad_AppIcon144>
140+ <iPhone_AppIcon120>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_ApplicationIcon_120x120.png</iPhone_AppIcon120>
141+ <iPhone_Spotlight80>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png</iPhone_Spotlight80>
142+ <iPad_Launch1024>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImageLandscape_1024x748.png</iPad_Launch1024>
143+ <iPad_SpotLight40>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_SpotlightSearchIcon_40x40.png</iPad_SpotLight40>
144+ <iPad_AppIcon76>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_ApplicationIcon_76x76.png</iPad_AppIcon76>
145+ <iPhone_Spotlight40>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_SpotlightSearchIcon_40x40.png</iPhone_Spotlight40>
146+ <iPhone_Spotlight29>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_SpotlightSearchIcon_29x29.png</iPhone_Spotlight29>
147+ <iPhone_Launch640x1136>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_LaunchImage_640x1136.png</iPhone_Launch640x1136>
148+ <iPhone_AppIcon114>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_ApplicationIcon_114x114.png</iPhone_AppIcon114>
149+ <iPhone_Launch320>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_LaunchImage_320x480.png</iPhone_Launch320>
150+ <iPhone_Launch640>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_LaunchImage_640x960.png</iPhone_Launch640>
151+ <VerInfo_UIDeviceFamily>iPhoneAndiPad</VerInfo_UIDeviceFamily>
152+ <iPad_AppIcon72>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_ApplicationIcon_72x72.png</iPad_AppIcon72>
153+ <iPad_Launch768>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_LaunchImagePortrait_768x1004.png</iPad_Launch768>
154+ <VerInfo_Keys>CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=ja;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone &amp; iPad;CFBundleResourceSpecification=ResourceRules.plist</VerInfo_Keys>
155+ <iPad_SpotLight100>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_SpotlightSearchIcon_100x100.png</iPad_SpotLight100>
156+ <iPad_Setting29>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_SettingIcon_29x29.png</iPad_Setting29>
157+ <iPhone_Spotlight58>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_SpotlightSearchIcon_58x58.png</iPhone_Spotlight58>
158+ <iPad_AppIcon152>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_ApplicationIcon_152x152.png</iPad_AppIcon152>
159+ <iPhone_AppIcon57>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_ApplicationIcon_57x57.png</iPhone_AppIcon57>
160+ <iPhone_AppIcon60>$(BDS)\bin\Artwork\Appmethod\iOS\iPhone\FM_ApplicationIcon_60x60.png</iPhone_AppIcon60>
161+ <iPad_Setting58>$(BDS)\bin\Artwork\Appmethod\iOS\iPad\FM_SettingIcon_58x58.png</iPad_Setting58>
162+ <DCC_UsePackage>FireDACSqliteDriver;bindcompfmx;RESTBackendComponents;fmx;rtl;dbrtl;IndySystem;DbxClientDriver;FireDACCommon;bindcomp;tethering;DataSnapClient;xmlrtl;DbxCommonDriver;IndyProtocols;FireDACCommonDriver;bindengine;soaprtl;fmxFireDAC;CustomIPTransport;FireDAC;IndyIPServer;fmxase;IndyCore;IndyIPCommon;CloudService;FireDACIBDriver;inet;DataSnapFireDAC;RESTComponents;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
163+ </PropertyGroup>
164+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
165+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
166+ <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
167+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
168+ <VerInfo_Locale>1033</VerInfo_Locale>
169+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
170+ </PropertyGroup>
171+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
172+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
173+ <DCC_DebugDCUs>true</DCC_DebugDCUs>
174+ <DCC_Optimize>false</DCC_Optimize>
175+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
176+ <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
177+ <DCC_RemoteDebug>true</DCC_RemoteDebug>
178+ </PropertyGroup>
179+ <PropertyGroup Condition="'$(Cfg_1_Android)'!=''">
180+ <VerInfo_Build>1</VerInfo_Build>
181+ </PropertyGroup>
182+ <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
183+ <DCC_RemoteDebug>false</DCC_RemoteDebug>
184+ </PropertyGroup>
185+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
186+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
187+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
188+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
189+ <DCC_DebugInformation>0</DCC_DebugInformation>
190+ </PropertyGroup>
191+ <ItemGroup>
192+ <DelphiCompile Include="$(MainSource)">
193+ <MainSource>MainSource</MainSource>
194+ </DelphiCompile>
195+ <DCCReference Include="uStartForm.pas">
196+ <Form>frmStart</Form>
197+ <FormType>fmx</FormType>
198+ </DCCReference>
199+ <DCCReference Include="uController.pas"/>
200+ <DCCReference Include="uEnergyBallController.pas"/>
201+ <DCCReference Include="uHighScoreManager.pas"/>
202+ <BuildConfiguration Include="Release">
203+ <Key>Cfg_2</Key>
204+ <CfgParent>Base</CfgParent>
205+ </BuildConfiguration>
206+ <BuildConfiguration Include="Base">
207+ <Key>Base</Key>
208+ </BuildConfiguration>
209+ <BuildConfiguration Include="Debug">
210+ <Key>Cfg_1</Key>
211+ <CfgParent>Base</CfgParent>
212+ </BuildConfiguration>
213+ </ItemGroup>
214+ <ProjectExtensions>
215+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
216+ <Borland.ProjectType/>
217+ <BorlandProject>
218+ <Delphi.Personality>
219+ <Source>
220+ <Source Name="MainSource">BallCatch.dpr</Source>
221+ </Source>
222+ <Excluded_Packages>
223+ <Excluded_Packages Name="$(BDSBIN)\dcloffice2k200.bpl">Microsoft Office 2000 オートメーション サーバー ラッパー コンポーネントのサンプル</Excluded_Packages>
224+ <Excluded_Packages Name="$(BDSBIN)\dclofficexp200.bpl">Microsoft Office XP オートメーション サーバー ラッパー コンポーネントのサンプル</Excluded_Packages>
225+ </Excluded_Packages>
226+ </Delphi.Personality>
227+ <Deployment>
228+ <DeployFile LocalName="c:\program files (x86)\embarcadero\studio\14.0\lib\android\debug\mips\libnative-activity.so" Configuration="Debug" Class="AndroidLibnativeMipsFile">
229+ <Platform Name="Android">
230+ <RemoteName>libBallCatch.so</RemoteName>
231+ <Overwrite>true</Overwrite>
232+ </Platform>
233+ </DeployFile>
234+ <DeployFile LocalName="Android\Base\AndroidManifest.xml" Configuration="Base" Class="ProjectAndroidManifest">
235+ <Platform Name="Android">
236+ <Overwrite>true</Overwrite>
237+ </Platform>
238+ </DeployFile>
239+ <DeployFile LocalName="Win32\Debug\BallCatch.exe" Configuration="Debug" Class="ProjectOutput">
240+ <Platform Name="Win32">
241+ <RemoteName>BallCatch.exe</RemoteName>
242+ <Overwrite>true</Overwrite>
243+ </Platform>
244+ </DeployFile>
245+ <DeployFile LocalName="$(BDS)\bin\Artwork\Appmethod\Android\FM_LauncherIcon_48x48.png" Configuration="Debug" Class="Android_LauncherIcon48">
246+ <Platform Name="Android">
247+ <RemoteName>ic_launcher.png</RemoteName>
248+ <Overwrite>true</Overwrite>
249+ </Platform>
250+ </DeployFile>
251+ <DeployFile LocalName="c:\program files (x86)\embarcadero\studio\14.0\lib\android\debug\armeabi\libnative-activity.so" Configuration="Debug" Class="AndroidLibnativeArmeabiFile">
252+ <Platform Name="Android">
253+ <RemoteName>libBallCatch.so</RemoteName>
254+ <Overwrite>true</Overwrite>
255+ </Platform>
256+ </DeployFile>
257+ <DeployFile LocalName="$(BDS)\bin\Artwork\Appmethod\Android\FM_LauncherIcon_72x72.png" Configuration="Debug" Class="Android_LauncherIcon72">
258+ <Platform Name="Android">
259+ <RemoteName>ic_launcher.png</RemoteName>
260+ <Overwrite>true</Overwrite>
261+ </Platform>
262+ </DeployFile>
263+ <DeployFile LocalName="C:\Users\Public\Documents\Embarcadero\Studio\14.0\PlatformSDKs\android-ndk-r9c\prebuilt\android-arm\gdbserver\gdbserver" Configuration="Debug" Class="AndroidGDBServer">
264+ <Platform Name="Android">
265+ <Overwrite>true</Overwrite>
266+ </Platform>
267+ </DeployFile>
268+ <DeployFile LocalName="c:\program files (x86)\embarcadero\studio\14.0\lib\android\debug\x86\libnative-activity.so" Configuration="Debug" Class="AndroidLibnativeX86File">
269+ <Platform Name="Android">
270+ <RemoteName>libBallCatch.so</RemoteName>
271+ <Overwrite>true</Overwrite>
272+ </Platform>
273+ </DeployFile>
274+ <DeployFile LocalName="Android\Debug\AndroidManifest.xml" Configuration="Debug" Class="ProjectAndroidManifest">
275+ <Platform Name="Android">
276+ <Overwrite>true</Overwrite>
277+ </Platform>
278+ </DeployFile>
279+ <DeployFile LocalName="c:\program files (x86)\embarcadero\studio\14.0\lib\android\debug\classes.dex" Configuration="Debug" Class="AndroidClassesDexFile">
280+ <Platform Name="Android">
281+ <RemoteName>classes.dex</RemoteName>
282+ <Overwrite>true</Overwrite>
283+ </Platform>
284+ </DeployFile>
285+ <DeployFile LocalName="iOSDevice\Base\BallCatch" Configuration="Base" Class="ProjectOutput">
286+ <Platform Name="iOSDevice">
287+ <RemoteName>BallCatch.exe</RemoteName>
288+ <Overwrite>true</Overwrite>
289+ </Platform>
290+ </DeployFile>
291+ <DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
292+ <Platform Name="OSX32">
293+ <Overwrite>true</Overwrite>
294+ </Platform>
295+ <Platform Name="iOSSimulator">
296+ <Overwrite>true</Overwrite>
297+ </Platform>
298+ </DeployFile>
299+ <DeployFile LocalName="Android\Base\libBallCatch.so" Configuration="Base" Class="ProjectOutput">
300+ <Platform Name="Android">
301+ <RemoteName>BallCatch.exe</RemoteName>
302+ <Overwrite>true</Overwrite>
303+ </Platform>
304+ </DeployFile>
305+ <DeployFile LocalName="$(BDS)\bin\Artwork\Appmethod\Android\FM_LauncherIcon_96x96.png" Configuration="Debug" Class="Android_LauncherIcon96">
306+ <Platform Name="Android">
307+ <RemoteName>ic_launcher.png</RemoteName>
308+ <Overwrite>true</Overwrite>
309+ </Platform>
310+ </DeployFile>
311+ <DeployFile LocalName="$(BDS)\bin\Artwork\Appmethod\Android\FM_LauncherIcon_36x36.png" Configuration="Debug" Class="Android_LauncherIcon36">
312+ <Platform Name="Android">
313+ <RemoteName>ic_launcher.png</RemoteName>
314+ <Overwrite>true</Overwrite>
315+ </Platform>
316+ </DeployFile>
317+ <DeployFile LocalName="$(BDS)\bin\Artwork\Appmethod\Android\FM_LauncherIcon_144x144.png" Configuration="Debug" Class="Android_LauncherIcon144">
318+ <Platform Name="Android">
319+ <RemoteName>ic_launcher.png</RemoteName>
320+ <Overwrite>true</Overwrite>
321+ </Platform>
322+ </DeployFile>
323+ <DeployFile LocalName="Android\Debug\libBallCatch.so" Configuration="Debug" Class="ProjectOutput">
324+ <Platform Name="Android">
325+ <RemoteName>libBallCatch.so</RemoteName>
326+ <Overwrite>true</Overwrite>
327+ </Platform>
328+ </DeployFile>
329+ <DeployClass Required="true" Name="DependencyPackage">
330+ <Platform Name="iOSDevice">
331+ <Operation>1</Operation>
332+ <Extensions>.dylib</Extensions>
333+ </Platform>
334+ <Platform Name="Win32">
335+ <Operation>0</Operation>
336+ <Extensions>.bpl</Extensions>
337+ </Platform>
338+ <Platform Name="OSX32">
339+ <RemoteDir>Contents\MacOS</RemoteDir>
340+ <Operation>1</Operation>
341+ <Extensions>.dylib</Extensions>
342+ </Platform>
343+ <Platform Name="iOSSimulator">
344+ <Operation>1</Operation>
345+ <Extensions>.dylib</Extensions>
346+ </Platform>
347+ </DeployClass>
348+ <DeployClass Name="DependencyModule">
349+ <Platform Name="iOSDevice">
350+ <Operation>1</Operation>
351+ <Extensions>.dylib</Extensions>
352+ </Platform>
353+ <Platform Name="Win32">
354+ <Operation>0</Operation>
355+ <Extensions>.dll;.bpl</Extensions>
356+ </Platform>
357+ <Platform Name="OSX32">
358+ <RemoteDir>Contents\MacOS</RemoteDir>
359+ <Operation>1</Operation>
360+ <Extensions>.dylib</Extensions>
361+ </Platform>
362+ <Platform Name="iOSSimulator">
363+ <Operation>1</Operation>
364+ <Extensions>.dylib</Extensions>
365+ </Platform>
366+ </DeployClass>
367+ <DeployClass Name="iPad_Launch2048">
368+ <Platform Name="iOSDevice">
369+ <Operation>1</Operation>
370+ </Platform>
371+ <Platform Name="iOSSimulator">
372+ <Operation>1</Operation>
373+ </Platform>
374+ </DeployClass>
375+ <DeployClass Name="ProjectOSXInfoPList">
376+ <Platform Name="OSX32">
377+ <RemoteDir>Contents</RemoteDir>
378+ <Operation>1</Operation>
379+ </Platform>
380+ </DeployClass>
381+ <DeployClass Name="ProjectiOSDeviceDebug">
382+ <Platform Name="iOSDevice">
383+ <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
384+ <Operation>1</Operation>
385+ </Platform>
386+ </DeployClass>
387+ <DeployClass Name="AndroidLibnativeMipsFile">
388+ <Platform Name="Android">
389+ <RemoteDir>library\lib\mips</RemoteDir>
390+ <Operation>1</Operation>
391+ </Platform>
392+ </DeployClass>
393+ <DeployClass Name="AndroidLibnativeX86File">
394+ <Platform Name="Android">
395+ <RemoteDir>library\lib\x86</RemoteDir>
396+ <Operation>1</Operation>
397+ </Platform>
398+ </DeployClass>
399+ <DeployClass Name="ProjectiOSResource">
400+ <Platform Name="iOSDevice">
401+ <Operation>1</Operation>
402+ </Platform>
403+ <Platform Name="iOSSimulator">
404+ <Operation>1</Operation>
405+ </Platform>
406+ </DeployClass>
407+ <DeployClass Name="ProjectOSXEntitlements">
408+ <Platform Name="OSX32">
409+ <RemoteDir>Contents</RemoteDir>
410+ <Operation>1</Operation>
411+ </Platform>
412+ </DeployClass>
413+ <DeployClass Name="AndroidGDBServer">
414+ <Platform Name="Android">
415+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
416+ <Operation>1</Operation>
417+ </Platform>
418+ </DeployClass>
419+ <DeployClass Name="iPhone_Launch640">
420+ <Platform Name="iOSDevice">
421+ <Operation>1</Operation>
422+ </Platform>
423+ <Platform Name="iOSSimulator">
424+ <Operation>1</Operation>
425+ </Platform>
426+ </DeployClass>
427+ <DeployClass Name="Android_LauncherIcon96">
428+ <Platform Name="Android">
429+ <RemoteDir>res\drawable-xhdpi</RemoteDir>
430+ <Operation>1</Operation>
431+ </Platform>
432+ </DeployClass>
433+ <DeployClass Name="iPhone_Launch320">
434+ <Platform Name="iOSDevice">
435+ <Operation>1</Operation>
436+ </Platform>
437+ <Platform Name="iOSSimulator">
438+ <Operation>1</Operation>
439+ </Platform>
440+ </DeployClass>
441+ <DeployClass Name="Android_LauncherIcon144">
442+ <Platform Name="Android">
443+ <RemoteDir>res\drawable-xxhdpi</RemoteDir>
444+ <Operation>1</Operation>
445+ </Platform>
446+ </DeployClass>
447+ <DeployClass Name="DebugSymbols">
448+ <Platform Name="OSX32">
449+ <RemoteDir>Contents\MacOS</RemoteDir>
450+ <Operation>1</Operation>
451+ </Platform>
452+ <Platform Name="iOSSimulator">
453+ <Operation>1</Operation>
454+ </Platform>
455+ <Platform Name="Win32">
456+ <Operation>0</Operation>
457+ </Platform>
458+ </DeployClass>
459+ <DeployClass Name="DependencyFramework">
460+ <Platform Name="OSX32">
461+ <RemoteDir>Contents\MacOS</RemoteDir>
462+ <Operation>1</Operation>
463+ <Extensions>.framework</Extensions>
464+ </Platform>
465+ <Platform Name="Win32">
466+ <Operation>0</Operation>
467+ </Platform>
468+ </DeployClass>
469+ <DeployClass Name="ProjectiOSEntitlements">
470+ <Platform Name="iOSDevice">
471+ <Operation>1</Operation>
472+ </Platform>
473+ </DeployClass>
474+ <DeployClass Name="AdditionalDebugSymbols">
475+ <Platform Name="OSX32">
476+ <RemoteDir>Contents\MacOS</RemoteDir>
477+ <Operation>1</Operation>
478+ </Platform>
479+ <Platform Name="iOSSimulator">
480+ <Operation>1</Operation>
481+ </Platform>
482+ <Platform Name="Win32">
483+ <RemoteDir>Contents\MacOS</RemoteDir>
484+ <Operation>0</Operation>
485+ </Platform>
486+ </DeployClass>
487+ <DeployClass Name="AndroidClassesDexFile">
488+ <Platform Name="Android">
489+ <RemoteDir>classes</RemoteDir>
490+ <Operation>1</Operation>
491+ </Platform>
492+ </DeployClass>
493+ <DeployClass Name="ProjectiOSDeviceInfoPList">
494+ <Platform Name="iOSDevice">
495+ <Operation>1</Operation>
496+ </Platform>
497+ </DeployClass>
498+ <DeployClass Name="iPad_Launch1024">
499+ <Platform Name="iOSDevice">
500+ <Operation>1</Operation>
501+ </Platform>
502+ <Platform Name="iOSSimulator">
503+ <Operation>1</Operation>
504+ </Platform>
505+ </DeployClass>
506+ <DeployClass Name="ProjectiOSSimulatorInfoPList">
507+ <Platform Name="iOSSimulator">
508+ <Operation>1</Operation>
509+ </Platform>
510+ </DeployClass>
511+ <DeployClass Name="Android_DefaultAppIcon">
512+ <Platform Name="Android">
513+ <RemoteDir>res\drawable</RemoteDir>
514+ <Operation>1</Operation>
515+ </Platform>
516+ </DeployClass>
517+ <DeployClass Name="ProjectOSXResource">
518+ <Platform Name="OSX32">
519+ <RemoteDir>Contents\Resources</RemoteDir>
520+ <Operation>1</Operation>
521+ </Platform>
522+ </DeployClass>
523+ <DeployClass Name="ProjectiOSDeviceResourceRules">
524+ <Platform Name="iOSDevice">
525+ <Operation>1</Operation>
526+ </Platform>
527+ </DeployClass>
528+ <DeployClass Name="iPad_Launch768">
529+ <Platform Name="iOSDevice">
530+ <Operation>1</Operation>
531+ </Platform>
532+ <Platform Name="iOSSimulator">
533+ <Operation>1</Operation>
534+ </Platform>
535+ </DeployClass>
536+ <DeployClass Required="true" Name="ProjectOutput">
537+ <Platform Name="iOSDevice">
538+ <Operation>1</Operation>
539+ </Platform>
540+ <Platform Name="Android">
541+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
542+ <Operation>1</Operation>
543+ </Platform>
544+ <Platform Name="Win32">
545+ <Operation>0</Operation>
546+ </Platform>
547+ <Platform Name="OSX32">
548+ <RemoteDir>Contents\MacOS</RemoteDir>
549+ <Operation>1</Operation>
550+ </Platform>
551+ <Platform Name="iOSSimulator">
552+ <Operation>1</Operation>
553+ </Platform>
554+ </DeployClass>
555+ <DeployClass Name="AndroidLibnativeArmeabiFile">
556+ <Platform Name="Android">
557+ <RemoteDir>library\lib\armeabi</RemoteDir>
558+ <Operation>1</Operation>
559+ </Platform>
560+ </DeployClass>
561+ <DeployClass Name="File">
562+ <Platform Name="iOSDevice">
563+ <Operation>0</Operation>
564+ </Platform>
565+ <Platform Name="Android">
566+ <Operation>0</Operation>
567+ </Platform>
568+ <Platform Name="Win32">
569+ <Operation>0</Operation>
570+ </Platform>
571+ <Platform Name="OSX32">
572+ <RemoteDir>Contents\MacOS</RemoteDir>
573+ <Operation>0</Operation>
574+ </Platform>
575+ <Platform Name="iOSSimulator">
576+ <Operation>0</Operation>
577+ </Platform>
578+ </DeployClass>
579+ <DeployClass Name="iPhone_Launch640x1136">
580+ <Platform Name="iOSDevice">
581+ <Operation>1</Operation>
582+ </Platform>
583+ <Platform Name="iOSSimulator">
584+ <Operation>1</Operation>
585+ </Platform>
586+ </DeployClass>
587+ <DeployClass Name="Android_LauncherIcon36">
588+ <Platform Name="Android">
589+ <RemoteDir>res\drawable-ldpi</RemoteDir>
590+ <Operation>1</Operation>
591+ </Platform>
592+ </DeployClass>
593+ <DeployClass Name="iPad_Launch1536">
594+ <Platform Name="iOSDevice">
595+ <Operation>1</Operation>
596+ </Platform>
597+ <Platform Name="iOSSimulator">
598+ <Operation>1</Operation>
599+ </Platform>
600+ </DeployClass>
601+ <DeployClass Name="Android_LauncherIcon48">
602+ <Platform Name="Android">
603+ <RemoteDir>res\drawable-mdpi</RemoteDir>
604+ <Operation>1</Operation>
605+ </Platform>
606+ </DeployClass>
607+ <DeployClass Name="Android_LauncherIcon72">
608+ <Platform Name="Android">
609+ <RemoteDir>res\drawable-hdpi</RemoteDir>
610+ <Operation>1</Operation>
611+ </Platform>
612+ </DeployClass>
613+ <DeployClass Name="ProjectAndroidManifest">
614+ <Platform Name="Android">
615+ <Operation>1</Operation>
616+ </Platform>
617+ </DeployClass>
618+ <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
619+ <ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
620+ <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
621+ <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
622+ <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
623+ <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
624+ </Deployment>
625+ <Platforms>
626+ <Platform value="Android">True</Platform>
627+ <Platform value="iOSDevice">True</Platform>
628+ <Platform value="iOSSimulator" ActiveMobileDevice="iPhone">True</Platform>
629+ <Platform value="Win32">True</Platform>
630+ </Platforms>
631+ </BorlandProject>
632+ <ProjectFileVersion>12</ProjectFileVersion>
633+ </ProjectExtensions>
634+ <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
635+ <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
636+ <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
637+</Project>
--- trunk/EtudeOp6/src/pascal/uController.pas (nonexistent)
+++ trunk/EtudeOp6/src/pascal/uController.pas (revision 379)
@@ -0,0 +1,83 @@
1+unit uController;
2+
3+interface
4+
5+uses System.Types, FMX.Objects, FMX.Forms;
6+
7+type
8+ TController = class abstract
9+ private var
10+ [Weak] FBaseForm: TForm;
11+ FTarget: TShape;
12+ FInterval: UInt32;
13+ FTime: UInt32;
14+ private
15+ FHeight: Int32;
16+ FWidth: Int32;
17+ protected
18+ function GetInitPosition: TPointF; virtual; abstract;
19+ function CalcPos: TPointF; virtual; abstract;
20+ procedure DoProcess ; virtual;
21+ property BaseForm: TForm read FBaseForm;
22+ property Width: Int32 read FWidth;
23+ property Height: Int32 read FHeight;
24+ public
25+ constructor Create (
26+ const iBaseForm: TForm;
27+ const iTarget: TShape;
28+ const iInterval: UInt32); reintroduce;
29+ procedure Init; virtual;
30+ procedure Process;
31+ property Time: UInt32 read FTime;
32+ property Target: TShape read FTarget;
33+ public
34+ function CheckCollision(const iTarget: TController): Boolean;
35+ end;
36+
37+implementation
38+
39+{ TController }
40+
41+function TController.CheckCollision(const iTarget: TController): Boolean;
42+begin
43+// 衝突判定
44+ Result := FTarget.AbsoluteRect.IntersectsWith(iTarget.FTarget.AbsoluteRect);
45+end;
46+
47+constructor TController.Create(const iBaseForm: TForm; const iTarget: TShape;
48+ const iInterval: UInt32);
49+begin
50+ inherited Create;
51+
52+ FBaseForm := iBaseForm;
53+ FTarget := iTarget;
54+ FInterval := iInterval;
55+
56+ FWidth := FBaseForm.Width;
57+ FHeight := FBaseForm.Height;
58+
59+ Init;
60+end;
61+
62+procedure TController.DoProcess;
63+begin
64+// 何もしない
65+end;
66+
67+procedure TController.Init;
68+begin
69+//初期化
70+ FTarget.Position.Point := GetInitPosition;
71+ FTime := 0;
72+end;
73+
74+procedure TController.Process;
75+begin
76+// Intervalの度に呼ばれて処理を行う
77+ doProcess;
78+
79+ Inc(FTime, FInterval);
80+ FTarget.Position.Point := CalcPos;
81+end;
82+
83+end.
--- trunk/EtudeOp6/src/pascal/uHighScoreManager.pas (nonexistent)
+++ trunk/EtudeOp6/src/pascal/uHighScoreManager.pas (revision 379)
@@ -0,0 +1,68 @@
1+unit uHighScoreManager;
2+
3+interface
4+
5+type
6+ THighScoreManager = class
7+ private class var
8+ SSelf: THighScoreManager;
9+ private var
10+ FHighScore: UInt32;
11+ FName: String;
12+ function GetHighScoreStr: String;
13+ public
14+ procedure CheckScore(const iScore: UInt32);
15+ property HighScore: Uint32 read FHighScore;
16+ property HighScoreStr: String read GetHighScoreStr;
17+ property Name: String read FName;
18+ end;
19+
20+ function HighScoreManager: THighScoreManager;
21+
22+implementation
23+
24+uses
25+ System.SysUtils, FMX.Forms, FMX.Dialogs;
26+
27+function HighScoreManager: THighScoreManager;
28+begin
29+ Result := THighScoreManager.SSelf;
30+end;
31+
32+{ THighScoreManager }
33+
34+procedure THighScoreManager.CheckScore(const iScore: UInt32);
35+begin
36+// ハイスコアかどうかをチェック
37+ if (FHighScore > iScore) then
38+ Exit;
39+
40+ FHighScore := iScore;
41+
42+//ダイアログを出す前に描画をすべて済ます
43+ Application.ProcessMessages;
44+
45+// ハイスコアであれば名前の入力を求める
46+// 第2パラメータはiPhoneにした際にダイアログがつぶれるため使用していない
47+ FName := InputBox('High Score ! Input your name', '', FName);
48+
49+end;
50+
51+function THighScoreManager.GetHighScoreStr: String;
52+begin
53+// ハイスコアの文字列を返却する
54+ if (FHighScore > 0) then
55+ Result := FHighScore.ToString
56+ else
57+ Result := '';
58+end;
59+
60+initialization
61+// 自己生成
62+ THighScoreManager.SSelf := THighScoreManager.Create;
63+
64+finalization
65+// 自己破棄
66+ THighScoreManager.SSelf.DisposeOf;
67+
68+end.
--- trunk/EtudeOp6/src/pascal/uEnergyBallController.pas (nonexistent)
+++ trunk/EtudeOp6/src/pascal/uEnergyBallController.pas (revision 379)
@@ -0,0 +1,72 @@
1+unit uEnergyBallController;
2+
3+interface
4+
5+uses
6+ System.Types, uController;
7+
8+type
9+ TEnergyBallController = class(TController)
10+ private var
11+ FX0: Single;
12+ FY0: Single;
13+ FAY: Single;
14+ FVX: Single;
15+ FVY: Single;
16+ protected
17+ function GetInitPosition: TPointF; override;
18+ function CalcPos: TPointF; override;
19+ procedure DoProcess; override;
20+ end;
21+
22+implementation
23+
24+{ TEnergyBallController }
25+
26+function TEnergyBallController.CalcPos: TPointF;
27+ function Pos(const V0, A: Single): Single;
28+ begin
29+ Result := ((V0 * Time) + (A * Time * Time / 2)) / 1000;
30+ end;
31+
32+begin
33+// エネルギーボールの位置を計算
34+ Result.X := FX0 + Pos(FVX, 0);
35+ Result.Y := FY0 + Pos(FVY, -FAY);
36+end;
37+
38+procedure TEnergyBallController.DoProcess;
39+begin
40+// エネルギーボールがフレームアウトしたら初期位置に戻す
41+ if (TArget.Position.Y > Height) then
42+ Init;
43+end;
44+
45+function TEnergyBallController.GetInitPosition: TPointF;
46+var
47+ MaxT: UInt32;
48+begin
49+// 初期化
50+// 頂点に達するミリ秒数
51+ MaxT := (Random(3) + 1) * 1000;
52+
53+// 初期位置
54+ FX0 := -100;
55+ FY0 := Height - Target.Height;
56+
57+// 初速度
58+ FVX := (Random(5) + 1) * 100;
59+ FVY := -(Random(10) + 10) * 100;
60+
61+// 加速度
62+ FAY := (2 * FVY * MaxT) / (MaxT * MaxT);
63+
64+//初期位置を返す
65+ Result := PointF(0, FY0);
66+end;
67+
68+Initialization
69+// RandSeed を初期化
70+ Randomize;
71+
72+end.
--- trunk/EtudeOp6/src/pascal/BallCatch.dpr (nonexistent)
+++ trunk/EtudeOp6/src/pascal/BallCatch.dpr (revision 379)
@@ -0,0 +1,18 @@
1+program BallCatch;
2+
3+uses
4+ System.StartUpCopy,
5+ FMX.MobilePreview,
6+ FMX.Forms,
7+ uStartForm in 'uStartForm.pas' {frmStart},
8+ uController in 'uController.pas',
9+ uEnergyBallController in 'uEnergyBallController.pas',
10+ uHighScoreManager in 'uHighScoreManager.pas';
11+
12+{$R *.res}
13+
14+begin
15+ Application.Initialize;
16+ Application.CreateForm(TfrmStart, frmStart);
17+ Application.Run;
18+end.
Show on old repository browser