• R/O
  • SSH
  • HTTPS

clxbackup: Commit


Commit MetaInfo

Revision2 (tree)
Zeit2015-02-23 16:52:20
Autoryamat0jp

Log Message

(empty log message)

Ändern Zusammenfassung

Diff

--- trunk/Unit1.pas (nonexistent)
+++ trunk/Unit1.pas (revision 2)
@@ -0,0 +1,344 @@
1+unit Unit1;
2+
3+interface
4+
5+uses
6+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
7+ System.Classes, Vcl.Graphics,
8+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
9+ Vcl.Imaging.pngimage, System.Actions, Vcl.ActnList, Vcl.Touch.GestureMgr,
10+ Vcl.FileCtrl, Vcl.Buttons, System.UITypes, System.IniFiles, System.IOUtils,
11+ Vcl.ExtDlgs;
12+
13+type
14+ TForm1 = class(TForm)
15+ AppBar: TPanel;
16+ CloseButton: TImage;
17+ ActionList1: TActionList;
18+ Action1: TAction;
19+ GestureManager1: TGestureManager;
20+ DirectoryListBox1: TDirectoryListBox;
21+ Edit1: TEdit;
22+ BitBtn1: TBitBtn;
23+ Button1: TButton;
24+ ListBox1: TListBox;
25+ Button2: TButton;
26+ ComboBox1: TComboBox;
27+ Label1: TLabel;
28+ Button3: TButton;
29+ Label2: TLabel;
30+ Label3: TLabel;
31+ Label4: TLabel;
32+ Label5: TLabel;
33+ Button4: TButton;
34+ OpenTextFileDialog1: TOpenTextFileDialog;
35+ procedure CloseButtonClick(Sender: TObject);
36+ procedure Action1Execute(Sender: TObject);
37+ procedure FormResize(Sender: TObject);
38+ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
39+ procedure FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo;
40+ var Handled: Boolean);
41+ procedure FormCreate(Sender: TObject);
42+ procedure BitBtn1Click(Sender: TObject);
43+ procedure Button1Click(Sender: TObject);
44+ procedure Label1Click(Sender: TObject);
45+ procedure Button3Click(Sender: TObject);
46+ procedure DirectoryListBox1Click(Sender: TObject);
47+ procedure Edit1Change(Sender: TObject);
48+ procedure FormDestroy(Sender: TObject);
49+ procedure Label3Click(Sender: TObject);
50+ procedure Button4Click(Sender: TObject);
51+ private
52+ { private 宣言 }
53+ procedure AppBarResize;
54+ procedure AppBarShow(mode: integer);
55+ public
56+ { public 宣言 }
57+ List: TStringList;
58+ procedure Preview(const fileName: string);
59+ end;
60+
61+var
62+ Form1: TForm1;
63+
64+implementation
65+
66+{$R *.dfm}
67+
68+const
69+ AppBarHeight = 75;
70+
71+procedure TForm1.AppBarResize;
72+begin
73+ AppBar.SetBounds(0, AppBar.Parent.Height - AppBarHeight, AppBar.Parent.Width,
74+ AppBarHeight);
75+end;
76+
77+procedure TForm1.AppBarShow(mode: integer);
78+begin
79+ if mode = -1 then // 切り替え
80+ mode := integer(not AppBar.Visible);
81+
82+ if mode = 0 then
83+ AppBar.Visible := False
84+ else
85+ begin
86+ AppBar.Visible := True;
87+ AppBar.BringToFront;
88+ end;
89+end;
90+
91+procedure TForm1.BitBtn1Click(Sender: TObject);
92+begin
93+ if System.SysUtils.DirectoryExists(Edit1.Text) = True then
94+ begin
95+ DirectoryListBox1.Directory := Edit1.Text;
96+ DirectoryListBox1Click(Sender);
97+ end;
98+end;
99+
100+procedure TForm1.Button1Click(Sender: TObject);
101+var
102+ i: integer;
103+ s1, s2, s3: string;
104+begin
105+ s3 := '';
106+ Preview(Edit1.Text + '\' + ComboBox1.Text);
107+ if Sender = Button2 then
108+ for i := 0 to List.Count - 1 do
109+ begin
110+ s1 := List[i];
111+ if s3 = '' then
112+ s3 := Label1.Caption + '\' + ChangeFileExt(ExtractFileName(s1), '');
113+ if System.SysUtils.DirectoryExists(s3) = False then
114+ MkDir(s3);
115+ s2 := s3 + '\' + ExtractFileName(s1);
116+ CopyFile(System.PWideChar(s1), System.PWideChar(s2), False);
117+ end;
118+end;
119+
120+procedure TForm1.Button3Click(Sender: TObject);
121+begin
122+ Close;
123+end;
124+
125+procedure TForm1.Button4Click(Sender: TObject);
126+begin
127+ if System.SysUtils.DirectoryExists(Label1.Caption) = true then
128+ begin
129+ OpenTextFileDialog1.InitialDir:=Label1.Caption;
130+ OpenTextFileDialog1.Execute;
131+ end;
132+end;
133+
134+procedure TForm1.Action1Execute(Sender: TObject);
135+begin
136+ AppBarShow(-1);
137+end;
138+
139+procedure TForm1.CloseButtonClick(Sender: TObject);
140+begin
141+ Application.Terminate;
142+end;
143+
144+procedure TForm1.DirectoryListBox1Click(Sender: TObject);
145+var
146+ s: TSearchRec;
147+ i: integer;
148+ t: string;
149+begin
150+ t := '';
151+ for i := 0 to DirectoryListBox1.ItemIndex do
152+ begin
153+ if i < 2 then
154+ begin
155+ t := t + DirectoryListBox1.Items[i];
156+ end
157+ else
158+ begin
159+ t := t + '\' + DirectoryListBox1.Items[i];
160+ end;
161+ if (t = DirectoryListBox1.Directory) and (i < DirectoryListBox1.ItemIndex)
162+ then
163+ begin
164+ if i < 2 then
165+ begin
166+ t := t + DirectoryListBox1.Items[DirectoryListBox1.ItemIndex];
167+ end
168+ else
169+ begin
170+ t := t + '\' + DirectoryListBox1.Items[DirectoryListBox1.ItemIndex];
171+ end;
172+ break;
173+ end;
174+ end;
175+ Edit1.Text := t;
176+ if ListBox1.Items.Count > 0 then
177+ ListBox1.Items.Clear;
178+ if ComboBox1.Items.Count > 0 then
179+ ComboBox1.Items.Clear;
180+ i := FindFirst(Edit1.Text + '\*.dpr', faAnyFile, s);
181+ try
182+ while i = 0 do
183+ begin
184+ if CompareText(ExtractFileExt(s.Name), '.dpr') = 0 then
185+ ComboBox1.Items.Add(s.Name);
186+ i := FindNext(s);
187+ end;
188+ finally
189+ FindClose(s);
190+ end;
191+ if ComboBox1.Items.Count = 0 then
192+ begin
193+ ComboBox1.Text := '';
194+ end
195+ else
196+ begin
197+ ComboBox1.Text := ComboBox1.Items[0];
198+ end;
199+end;
200+
201+procedure TForm1.Edit1Change(Sender: TObject);
202+begin
203+ Edit1.Hint := Edit1.Text;
204+end;
205+
206+procedure TForm1.FormCreate(Sender: TObject);
207+var
208+ s: TIniFile;
209+begin
210+ s := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
211+ try
212+ Edit1.Text := s.ReadString('Directory', 'Current',
213+ DirectoryListBox1.Directory);
214+ Label1.Caption := s.ReadString('Directory', 'Save', Label1.Caption);
215+ finally
216+ s.Free;
217+ end;
218+ BitBtn1Click(Sender);
219+ Label3.Caption := Edit1.Text;
220+ List := TStringList.Create;
221+end;
222+
223+procedure TForm1.FormDestroy(Sender: TObject);
224+var
225+ s: TIniFile;
226+begin
227+ List.Free;
228+ s := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
229+ try
230+ s.WriteString('Directory', 'Current', Label3.Caption);
231+ if System.SysUtils.DirectoryExists(Label1.Caption) = True then
232+ s.WriteString('Directory', 'Save', Label1.Caption);
233+ finally
234+ s.Free;
235+ end;
236+end;
237+
238+procedure TForm1.FormGesture(Sender: TObject;
239+ const EventInfo: TGestureEventInfo; var Handled: Boolean);
240+begin
241+ AppBarShow(0);
242+end;
243+
244+procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
245+ Shift: TShiftState);
246+begin
247+ if Key = VK_ESCAPE then
248+ AppBarShow(-1)
249+ else
250+ AppBarShow(0);
251+end;
252+
253+procedure TForm1.FormResize(Sender: TObject);
254+begin
255+ AppBarResize;
256+end;
257+
258+procedure TForm1.Label1Click(Sender: TObject);
259+begin
260+ if (System.SysUtils.DirectoryExists(Edit1.Text) = True) and
261+ (MessageDlg('Change Save-Dir?', mtInformation, [mbOK, mbCancel], 0) = mrOK)
262+ then
263+ Label1.Caption := Edit1.Text;
264+end;
265+
266+procedure TForm1.Label3Click(Sender: TObject);
267+begin
268+ if (System.SysUtils.DirectoryExists(Edit1.Text) = True) and
269+ (MessageDlg('Change Current-Dir?', mtInformation, [mbOK, mbCancel], 0)
270+ = mrOK) then
271+ Label3.Caption := Edit1.Text;
272+end;
273+
274+procedure TForm1.Preview(const fileName: string);
275+var
276+ s: TStringList;
277+ str1, str2: string;
278+ i: integer;
279+ j: integer;
280+begin
281+ ListBox1.Items.Clear;
282+ List.Clear;
283+ if FileExists(ChangeFileExt(fileName, '.dproj')) = True then
284+ begin
285+ str1 := ChangeFileExt(fileName, '.dproj');
286+ List.Add(str1);
287+ ListBox1.Items.Add(ExtractFileName(str1));
288+ end;
289+ if FileExists(fileName) = True then
290+ begin
291+ List.Add(fileName);
292+ ListBox1.Items.Add(ExtractFileName(fileName));
293+ end;
294+ if FileExists(ChangeFileExt(fileName, '.res')) = True then
295+ begin
296+ str1 := ChangeFileExt(fileName, '.res');
297+ List.Add(str1);
298+ ListBox1.Items.Add(ExtractFileName(str1));
299+ end;
300+ s := TStringList.Create;
301+ try
302+ if FileExists(fileName) = True then
303+ s.LoadFromFile(fileName);
304+ for i := 0 to s.Count - 1 do
305+ begin
306+ str1 := s[i];
307+ j := Pos(' in ', str1);
308+ if j > 0 then
309+ begin
310+ Delete(str1, 1, j + 3);
311+ Delete(str1, 1, Pos('''', str1));
312+ str1 := Copy(str1, 1, Pos('''', str1) - 1);
313+ if List.Count > 0 then
314+ str2 := ExtractFilePath(List[0]);
315+ j := List.Add(TPath.Combine(str2, str1));
316+ ListBox1.Items.Add(ExtractFileName(str1));
317+ str1 := List[j];
318+ if CompareText(ExtractFileExt(str1), '.pas') = 0 then
319+ begin
320+ str1 := ChangeFileExt(str1, '.dfm');
321+ if FileExists(str1) = True then
322+ begin
323+ List.Add(str1);
324+ ListBox1.Items.Add(ExtractFileName(str1));
325+ end;
326+ str1 := ChangeFileExt(str1, '.fmx');
327+ if FileExists(str1) = True then
328+ begin
329+ List.Add(str1);
330+ ListBox1.Items.Add(ExtractFileName(str1));
331+ end;
332+ end;
333+ continue;
334+ end;
335+ str1 := Copy(TrimLeft(s[i]), 1, 5);
336+ if CompareText(str1, 'begin') = 0 then
337+ break;
338+ end;
339+ finally
340+ s.Free;
341+ end;
342+end;
343+
344+end.
--- trunk/backup.dproj (nonexistent)
+++ trunk/backup.dproj (revision 2)
@@ -0,0 +1,459 @@
1+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+ <PropertyGroup>
3+ <ProjectGuid>{5A1633BE-0B9B-4427-8E25-24E4AC006161}</ProjectGuid>
4+ <ProjectVersion>16.0</ProjectVersion>
5+ <FrameworkType>VCL</FrameworkType>
6+ <MainSource>backup.dpr</MainSource>
7+ <Base>True</Base>
8+ <Config Condition="'$(Config)'==''">Release</Config>
9+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
10+ <TargetedPlatforms>1</TargetedPlatforms>
11+ <AppType>Application</AppType>
12+ </PropertyGroup>
13+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
14+ <Base>true</Base>
15+ </PropertyGroup>
16+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
17+ <Base_Win32>true</Base_Win32>
18+ <CfgParent>Base</CfgParent>
19+ <Base>true</Base>
20+ </PropertyGroup>
21+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
22+ <Base_Win64>true</Base_Win64>
23+ <CfgParent>Base</CfgParent>
24+ <Base>true</Base>
25+ </PropertyGroup>
26+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
27+ <Cfg_1>true</Cfg_1>
28+ <CfgParent>Base</CfgParent>
29+ <Base>true</Base>
30+ </PropertyGroup>
31+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
32+ <Cfg_1_Win32>true</Cfg_1_Win32>
33+ <CfgParent>Cfg_1</CfgParent>
34+ <Cfg_1>true</Cfg_1>
35+ <Base>true</Base>
36+ </PropertyGroup>
37+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
38+ <Cfg_2>true</Cfg_2>
39+ <CfgParent>Base</CfgParent>
40+ <Base>true</Base>
41+ </PropertyGroup>
42+ <PropertyGroup Condition="'$(Base)'!=''">
43+ <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
44+ <SanitizedProjectName>backup</SanitizedProjectName>
45+ <VCL_Custom_Styles>&quot;Metropolis UI Dark|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\15.0\Styles\MetropolisUIDark.vsf&quot;</VCL_Custom_Styles>
46+ <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
47+ <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
48+ <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
49+ <DCC_E>false</DCC_E>
50+ <DCC_N>false</DCC_N>
51+ <DCC_S>false</DCC_S>
52+ <DCC_F>false</DCC_F>
53+ <DCC_K>false</DCC_K>
54+ </PropertyGroup>
55+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
56+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
57+ <VerInfo_Locale>1033</VerInfo_Locale>
58+ <DCC_UsePackage>FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;CodeSiteExpressPkg;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;Tee;DBXOdbcDriver;vclFireDAC;xmlrtl;DataSnapNativeClient;svnui;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindengine;vclactnband;bindcompdbx;soaprtl;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;emsclient;VCLRESTComponents;FireDACMSSQLDriver;FireDAC;VclSmp;DBXInformixDriver;Intraweb;DataSnapConnectors;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;svn;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
59+ <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
60+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
61+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
62+ </PropertyGroup>
63+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
64+ <DCC_UsePackage>FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;Tee;DBXOdbcDriver;vclFireDAC;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindengine;vclactnband;bindcompdbx;soaprtl;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;emsclient;VCLRESTComponents;FireDACMSSQLDriver;FireDAC;VclSmp;DBXInformixDriver;Intraweb;DataSnapConnectors;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
65+ </PropertyGroup>
66+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
67+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
68+ <DCC_DebugDCUs>true</DCC_DebugDCUs>
69+ <DCC_Optimize>false</DCC_Optimize>
70+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
71+ <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
72+ <DCC_RemoteDebug>true</DCC_RemoteDebug>
73+ </PropertyGroup>
74+ <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
75+ <DCC_RemoteDebug>false</DCC_RemoteDebug>
76+ </PropertyGroup>
77+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
78+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
79+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
80+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
81+ <DCC_DebugInformation>0</DCC_DebugInformation>
82+ </PropertyGroup>
83+ <ItemGroup>
84+ <DelphiCompile Include="$(MainSource)">
85+ <MainSource>MainSource</MainSource>
86+ </DelphiCompile>
87+ <DCCReference Include="Unit1.pas">
88+ <Form>Form1</Form>
89+ <FormType>dfm</FormType>
90+ </DCCReference>
91+ <BuildConfiguration Include="Release">
92+ <Key>Cfg_2</Key>
93+ <CfgParent>Base</CfgParent>
94+ </BuildConfiguration>
95+ <BuildConfiguration Include="Base">
96+ <Key>Base</Key>
97+ </BuildConfiguration>
98+ <BuildConfiguration Include="Debug">
99+ <Key>Cfg_1</Key>
100+ <CfgParent>Base</CfgParent>
101+ </BuildConfiguration>
102+ </ItemGroup>
103+ <ProjectExtensions>
104+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
105+ <Borland.ProjectType>Application</Borland.ProjectType>
106+ <BorlandProject>
107+ <Delphi.Personality>
108+ <Source>
109+ <Source Name="MainSource">backup.dpr</Source>
110+ </Source>
111+ </Delphi.Personality>
112+ <Deployment>
113+ <DeployFile LocalName="Win32\Debug\backup.exe" Configuration="Debug" Class="ProjectOutput">
114+ <Platform Name="Win32">
115+ <RemoteName>backup.exe</RemoteName>
116+ <Overwrite>true</Overwrite>
117+ </Platform>
118+ </DeployFile>
119+ <DeployClass Required="true" Name="DependencyPackage">
120+ <Platform Name="iOSDevice">
121+ <Operation>1</Operation>
122+ <Extensions>.dylib</Extensions>
123+ </Platform>
124+ <Platform Name="Win32">
125+ <Operation>0</Operation>
126+ <Extensions>.bpl</Extensions>
127+ </Platform>
128+ <Platform Name="OSX32">
129+ <RemoteDir>Contents\MacOS</RemoteDir>
130+ <Operation>1</Operation>
131+ <Extensions>.dylib</Extensions>
132+ </Platform>
133+ <Platform Name="iOSSimulator">
134+ <Operation>1</Operation>
135+ <Extensions>.dylib</Extensions>
136+ </Platform>
137+ </DeployClass>
138+ <DeployClass Name="DependencyModule">
139+ <Platform Name="iOSDevice">
140+ <Operation>1</Operation>
141+ <Extensions>.dylib</Extensions>
142+ </Platform>
143+ <Platform Name="Win32">
144+ <Operation>0</Operation>
145+ <Extensions>.dll;.bpl</Extensions>
146+ </Platform>
147+ <Platform Name="OSX32">
148+ <RemoteDir>Contents\MacOS</RemoteDir>
149+ <Operation>1</Operation>
150+ <Extensions>.dylib</Extensions>
151+ </Platform>
152+ <Platform Name="iOSSimulator">
153+ <Operation>1</Operation>
154+ <Extensions>.dylib</Extensions>
155+ </Platform>
156+ </DeployClass>
157+ <DeployClass Name="iPad_Launch2048">
158+ <Platform Name="iOSDevice">
159+ <Operation>1</Operation>
160+ </Platform>
161+ <Platform Name="iOSSimulator">
162+ <Operation>1</Operation>
163+ </Platform>
164+ </DeployClass>
165+ <DeployClass Name="ProjectOSXInfoPList">
166+ <Platform Name="OSX32">
167+ <RemoteDir>Contents</RemoteDir>
168+ <Operation>1</Operation>
169+ </Platform>
170+ </DeployClass>
171+ <DeployClass Name="ProjectiOSDeviceDebug">
172+ <Platform Name="iOSDevice">
173+ <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
174+ <Operation>1</Operation>
175+ </Platform>
176+ </DeployClass>
177+ <DeployClass Name="Android_SplashImage470">
178+ <Platform Name="Android">
179+ <RemoteDir>res\drawable-normal</RemoteDir>
180+ <Operation>1</Operation>
181+ </Platform>
182+ </DeployClass>
183+ <DeployClass Name="AndroidLibnativeX86File">
184+ <Platform Name="Android">
185+ <RemoteDir>library\lib\x86</RemoteDir>
186+ <Operation>1</Operation>
187+ </Platform>
188+ </DeployClass>
189+ <DeployClass Name="ProjectiOSResource">
190+ <Platform Name="iOSDevice">
191+ <Operation>1</Operation>
192+ </Platform>
193+ <Platform Name="iOSSimulator">
194+ <Operation>1</Operation>
195+ </Platform>
196+ </DeployClass>
197+ <DeployClass Name="ProjectOSXEntitlements">
198+ <Platform Name="OSX32">
199+ <RemoteDir>Contents</RemoteDir>
200+ <Operation>1</Operation>
201+ </Platform>
202+ </DeployClass>
203+ <DeployClass Name="AndroidGDBServer">
204+ <Platform Name="Android">
205+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
206+ <Operation>1</Operation>
207+ </Platform>
208+ </DeployClass>
209+ <DeployClass Name="iPhone_Launch640">
210+ <Platform Name="iOSDevice">
211+ <Operation>1</Operation>
212+ </Platform>
213+ <Platform Name="iOSSimulator">
214+ <Operation>1</Operation>
215+ </Platform>
216+ </DeployClass>
217+ <DeployClass Name="Android_SplashImage960">
218+ <Platform Name="Android">
219+ <RemoteDir>res\drawable-xlarge</RemoteDir>
220+ <Operation>1</Operation>
221+ </Platform>
222+ </DeployClass>
223+ <DeployClass Name="Android_LauncherIcon96">
224+ <Platform Name="Android">
225+ <RemoteDir>res\drawable-xhdpi</RemoteDir>
226+ <Operation>1</Operation>
227+ </Platform>
228+ </DeployClass>
229+ <DeployClass Name="iPhone_Launch320">
230+ <Platform Name="iOSDevice">
231+ <Operation>1</Operation>
232+ </Platform>
233+ <Platform Name="iOSSimulator">
234+ <Operation>1</Operation>
235+ </Platform>
236+ </DeployClass>
237+ <DeployClass Name="Android_LauncherIcon144">
238+ <Platform Name="Android">
239+ <RemoteDir>res\drawable-xxhdpi</RemoteDir>
240+ <Operation>1</Operation>
241+ </Platform>
242+ </DeployClass>
243+ <DeployClass Name="AndroidLibnativeMipsFile">
244+ <Platform Name="Android">
245+ <RemoteDir>library\lib\mips</RemoteDir>
246+ <Operation>1</Operation>
247+ </Platform>
248+ </DeployClass>
249+ <DeployClass Name="AndroidSplashImageDef">
250+ <Platform Name="Android">
251+ <RemoteDir>res\drawable</RemoteDir>
252+ <Operation>1</Operation>
253+ </Platform>
254+ </DeployClass>
255+ <DeployClass Name="DebugSymbols">
256+ <Platform Name="OSX32">
257+ <RemoteDir>Contents\MacOS</RemoteDir>
258+ <Operation>1</Operation>
259+ </Platform>
260+ <Platform Name="iOSSimulator">
261+ <Operation>1</Operation>
262+ </Platform>
263+ <Platform Name="Win32">
264+ <Operation>0</Operation>
265+ </Platform>
266+ </DeployClass>
267+ <DeployClass Name="DependencyFramework">
268+ <Platform Name="OSX32">
269+ <RemoteDir>Contents\MacOS</RemoteDir>
270+ <Operation>1</Operation>
271+ <Extensions>.framework</Extensions>
272+ </Platform>
273+ <Platform Name="Win32">
274+ <Operation>0</Operation>
275+ </Platform>
276+ </DeployClass>
277+ <DeployClass Name="Android_SplashImage426">
278+ <Platform Name="Android">
279+ <RemoteDir>res\drawable-small</RemoteDir>
280+ <Operation>1</Operation>
281+ </Platform>
282+ </DeployClass>
283+ <DeployClass Name="ProjectiOSEntitlements">
284+ <Platform Name="iOSDevice">
285+ <Operation>1</Operation>
286+ </Platform>
287+ </DeployClass>
288+ <DeployClass Name="AdditionalDebugSymbols">
289+ <Platform Name="OSX32">
290+ <RemoteDir>Contents\MacOS</RemoteDir>
291+ <Operation>1</Operation>
292+ </Platform>
293+ <Platform Name="iOSSimulator">
294+ <Operation>1</Operation>
295+ </Platform>
296+ <Platform Name="Win32">
297+ <RemoteDir>Contents\MacOS</RemoteDir>
298+ <Operation>0</Operation>
299+ </Platform>
300+ </DeployClass>
301+ <DeployClass Name="AndroidClassesDexFile">
302+ <Platform Name="Android">
303+ <RemoteDir>classes</RemoteDir>
304+ <Operation>1</Operation>
305+ </Platform>
306+ </DeployClass>
307+ <DeployClass Name="ProjectiOSInfoPList">
308+ <Platform Name="iOSDevice">
309+ <Operation>1</Operation>
310+ </Platform>
311+ <Platform Name="iOSSimulator">
312+ <Operation>1</Operation>
313+ </Platform>
314+ </DeployClass>
315+ <DeployClass Name="iPad_Launch1024">
316+ <Platform Name="iOSDevice">
317+ <Operation>1</Operation>
318+ </Platform>
319+ <Platform Name="iOSSimulator">
320+ <Operation>1</Operation>
321+ </Platform>
322+ </DeployClass>
323+ <DeployClass Name="Android_DefaultAppIcon">
324+ <Platform Name="Android">
325+ <RemoteDir>res\drawable</RemoteDir>
326+ <Operation>1</Operation>
327+ </Platform>
328+ </DeployClass>
329+ <DeployClass Name="ProjectOSXResource">
330+ <Platform Name="OSX32">
331+ <RemoteDir>Contents\Resources</RemoteDir>
332+ <Operation>1</Operation>
333+ </Platform>
334+ </DeployClass>
335+ <DeployClass Name="ProjectiOSDeviceResourceRules">
336+ <Platform Name="iOSDevice">
337+ <Operation>1</Operation>
338+ </Platform>
339+ </DeployClass>
340+ <DeployClass Name="iPad_Launch768">
341+ <Platform Name="iOSDevice">
342+ <Operation>1</Operation>
343+ </Platform>
344+ <Platform Name="iOSSimulator">
345+ <Operation>1</Operation>
346+ </Platform>
347+ </DeployClass>
348+ <DeployClass Required="true" Name="ProjectOutput">
349+ <Platform Name="iOSDevice">
350+ <Operation>1</Operation>
351+ </Platform>
352+ <Platform Name="Android">
353+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
354+ <Operation>1</Operation>
355+ </Platform>
356+ <Platform Name="Win32">
357+ <Operation>0</Operation>
358+ </Platform>
359+ <Platform Name="OSX32">
360+ <RemoteDir>Contents\MacOS</RemoteDir>
361+ <Operation>1</Operation>
362+ </Platform>
363+ <Platform Name="iOSSimulator">
364+ <Operation>1</Operation>
365+ </Platform>
366+ </DeployClass>
367+ <DeployClass Name="AndroidLibnativeArmeabiFile">
368+ <Platform Name="Android">
369+ <RemoteDir>library\lib\armeabi</RemoteDir>
370+ <Operation>1</Operation>
371+ </Platform>
372+ </DeployClass>
373+ <DeployClass Name="Android_SplashImage640">
374+ <Platform Name="Android">
375+ <RemoteDir>res\drawable-large</RemoteDir>
376+ <Operation>1</Operation>
377+ </Platform>
378+ </DeployClass>
379+ <DeployClass Name="File">
380+ <Platform Name="iOSDevice">
381+ <Operation>0</Operation>
382+ </Platform>
383+ <Platform Name="Android">
384+ <Operation>0</Operation>
385+ </Platform>
386+ <Platform Name="Win32">
387+ <Operation>0</Operation>
388+ </Platform>
389+ <Platform Name="OSX32">
390+ <RemoteDir>Contents\MacOS</RemoteDir>
391+ <Operation>0</Operation>
392+ </Platform>
393+ <Platform Name="iOSSimulator">
394+ <Operation>0</Operation>
395+ </Platform>
396+ </DeployClass>
397+ <DeployClass Name="iPhone_Launch640x1136">
398+ <Platform Name="iOSDevice">
399+ <Operation>1</Operation>
400+ </Platform>
401+ <Platform Name="iOSSimulator">
402+ <Operation>1</Operation>
403+ </Platform>
404+ </DeployClass>
405+ <DeployClass Name="Android_LauncherIcon36">
406+ <Platform Name="Android">
407+ <RemoteDir>res\drawable-ldpi</RemoteDir>
408+ <Operation>1</Operation>
409+ </Platform>
410+ </DeployClass>
411+ <DeployClass Name="AndroidSplashStyles">
412+ <Platform Name="Android">
413+ <RemoteDir>res\values</RemoteDir>
414+ <Operation>1</Operation>
415+ </Platform>
416+ </DeployClass>
417+ <DeployClass Name="iPad_Launch1536">
418+ <Platform Name="iOSDevice">
419+ <Operation>1</Operation>
420+ </Platform>
421+ <Platform Name="iOSSimulator">
422+ <Operation>1</Operation>
423+ </Platform>
424+ </DeployClass>
425+ <DeployClass Name="Android_LauncherIcon48">
426+ <Platform Name="Android">
427+ <RemoteDir>res\drawable-mdpi</RemoteDir>
428+ <Operation>1</Operation>
429+ </Platform>
430+ </DeployClass>
431+ <DeployClass Name="Android_LauncherIcon72">
432+ <Platform Name="Android">
433+ <RemoteDir>res\drawable-hdpi</RemoteDir>
434+ <Operation>1</Operation>
435+ </Platform>
436+ </DeployClass>
437+ <DeployClass Name="ProjectAndroidManifest">
438+ <Platform Name="Android">
439+ <Operation>1</Operation>
440+ </Platform>
441+ </DeployClass>
442+ <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
443+ <ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
444+ <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
445+ <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
446+ <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
447+ <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
448+ </Deployment>
449+ <Platforms>
450+ <Platform value="Win32">True</Platform>
451+ <Platform value="Win64">False</Platform>
452+ </Platforms>
453+ </BorlandProject>
454+ <ProjectFileVersion>12</ProjectFileVersion>
455+ </ProjectExtensions>
456+ <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
457+ <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
458+ <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
459+</Project>
--- trunk/backup.dpr (nonexistent)
+++ trunk/backup.dpr (revision 2)
@@ -0,0 +1,19 @@
1+program backup;
2+
3+uses
4+ Vcl.Forms,
5+ Vcl.Themes,
6+ Vcl.Styles,
7+ Unit1 in 'Unit1.pas' {Form1};
8+
9+{$R *.res}
10+
11+begin
12+ Application.Initialize;
13+ Application.UseMetropolisUI;
14+ TStyleManager.TrySetStyle('Metropolis UI Dark');
15+ Application.MainFormOnTaskbar := True;
16+ Application.Title := 'Metropolis UI Application';
17+ Application.CreateForm(TForm1, Form1);
18+ Application.Run;
19+end.
Show on old repository browser