mirror of
https://github.com/CarldricGaming/Mini-Compressor
synced 2026-08-23 02:26:04 -04:00
Delete component
Shall be gone
This commit is contained in:
Carldric Clement
parent
df45a7a828
commit
dc307dc5c0
31 changed files with 0 additions and 44724 deletions
|
|
@ -1,33 +0,0 @@
|
|||
library MC_Freearc;
|
||||
|
||||
uses
|
||||
Windows, System.SysUtils, System.IOUtils;
|
||||
|
||||
procedure Exec(sExe, sCommandLine: string; wait: Boolean); stdcall; external 'Aio_FP.dll';
|
||||
|
||||
procedure FreearcCompress(Source, Output, Memory, Method, Password: string); stdcall;
|
||||
var
|
||||
FACommands, FAMemory , FAMethod, FAArchive, FAPassword, FASource : string;
|
||||
begin
|
||||
FAMemory := '-lc' + Memory + ' -ld' + Memory;
|
||||
FACommands:= 'a -ma9 -ds ' + FAMemory + ' -di -i1 -ep1 -ed -r -s; -w_Temp\ ';
|
||||
FAMethod := Method + ' ';
|
||||
FAPassword:= '-hp -p"' + Password + '" ';
|
||||
FAArchive := '"' + Output + '" ';
|
||||
FASource := '"' + Source + '\*"';
|
||||
|
||||
if Password <> '' then
|
||||
Exec(IncludeTrailingBackslash(GetCurrentDir) + 'Bin\Arc\arc.exe',
|
||||
FACommands + FAMethod + FAPassword + FAArchive + FASource, true);
|
||||
if Password = '' then
|
||||
Exec(IncludeTrailingBackslash(GetCurrentDir) + 'Bin\Arc\arc.exe',
|
||||
FACommands + FAMethod + FAArchive + FASource, true);
|
||||
|
||||
if DirectoryExists(IncludeTrailingBackslash(GetCurrentDir) + '_Temp') then
|
||||
TDirectory.Delete(IncludeTrailingBackslash(GetCurrentDir) + '_Temp',True);
|
||||
end;
|
||||
|
||||
exports FreearcCompress;
|
||||
|
||||
begin
|
||||
end.
|
||||
124
MC_Freearc.dproj
124
MC_Freearc.dproj
|
|
@ -1,124 +0,0 @@
|
|||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{7EA63D24-EE17-4F10-91F5-0ACA54621E78}</ProjectGuid>
|
||||
<MainSource>MC_Freearc.dpr</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Release</Config>
|
||||
<TargetedPlatforms>1153</TargetedPlatforms>
|
||||
<AppType>Library</AppType>
|
||||
<FrameworkType>None</FrameworkType>
|
||||
<ProjectVersion>18.4</ProjectVersion>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
||||
<Cfg_1_Win32>true</Cfg_1_Win32>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
|
||||
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_K>false</DCC_K>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_S>false</DCC_S>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<GenDll>true</GenDll>
|
||||
<SanitizedProjectName>MC_Freearc</SanitizedProjectName>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
||||
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<Manifest_File>(None)</Manifest_File>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</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>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">MC_Freearc.dpr</Source>
|
||||
</Source>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="iOSDevice64">True</Platform>
|
||||
<Platform value="Linux64">True</Platform>
|
||||
<Platform value="OSX32">False</Platform>
|
||||
<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 +0,0 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject/>
|
||||
Binary file not shown.
BIN
MC_Freearc.res
BIN
MC_Freearc.res
Binary file not shown.
|
|
@ -1,10 +0,0 @@
|
|||
[Stats]
|
||||
EditorSecs=388
|
||||
DesignerSecs=26
|
||||
InspectorSecs=4
|
||||
CompileSecs=11170
|
||||
OtherSecs=13
|
||||
StartTime=5/2/2019 11:51:56 PM
|
||||
RealKeys=0
|
||||
EffectiveKeys=0
|
||||
DebugSecs=1
|
||||
36
MC_Ini.dpr
36
MC_Ini.dpr
|
|
@ -1,36 +0,0 @@
|
|||
library MC_Ini;
|
||||
|
||||
uses
|
||||
Windows, IniFiles;
|
||||
|
||||
function IniRead(Filez, A, B, C: string): string; stdcall;
|
||||
var
|
||||
IniFileME: TIniFile;
|
||||
begin
|
||||
IniFileME:= TIniFile.Create(Filez);
|
||||
with IniFileME do
|
||||
try
|
||||
Result:= IniFileME.ReadString(A, B, C);
|
||||
finally
|
||||
IniFileME.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure IniCreate(Filez, A, B, C: string); stdcall;
|
||||
var
|
||||
IniFileME: TIniFile;
|
||||
begin
|
||||
IniFileME:= TIniFile.Create(Filez);
|
||||
with IniFileME do
|
||||
try
|
||||
IniFileME.WriteString(A, B, C);
|
||||
finally
|
||||
IniFileME.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
exports
|
||||
IniRead, IniCreate;
|
||||
|
||||
begin
|
||||
end.
|
||||
134
MC_Ini.dproj
134
MC_Ini.dproj
|
|
@ -1,134 +0,0 @@
|
|||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{E9BC5393-F743-4887-8F1B-E30F38B4D35C}</ProjectGuid>
|
||||
<MainSource>MC_Ini.dpr</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Release</Config>
|
||||
<TargetedPlatforms>1153</TargetedPlatforms>
|
||||
<AppType>Library</AppType>
|
||||
<FrameworkType>None</FrameworkType>
|
||||
<ProjectVersion>18.4</ProjectVersion>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_1)'=='true') or '$(Cfg_1_iOSDevice64)'!=''">
|
||||
<Cfg_1_iOSDevice64>true</Cfg_1_iOSDevice64>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
||||
<Cfg_1_Win32>true</Cfg_1_Win32>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
|
||||
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_K>false</DCC_K>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_S>false</DCC_S>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<GenDll>true</GenDll>
|
||||
<SanitizedProjectName>MC_Ini</SanitizedProjectName>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_iOSDevice64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
||||
<DCC_DcuOutput>.\$(Platform)\Dump</DCC_DcuOutput>
|
||||
<DCC_ExeOutput>.\$(Platform)\Release</DCC_ExeOutput>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<Manifest_File>(None)</Manifest_File>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</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>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">MC_Ini.dpr</Source>
|
||||
</Source>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="iOSDevice64">True</Platform>
|
||||
<Platform value="Linux64">True</Platform>
|
||||
<Platform value="OSX32">False</Platform>
|
||||
<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 +0,0 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject/>
|
||||
Binary file not shown.
BIN
MC_Ini.res
BIN
MC_Ini.res
Binary file not shown.
10
MC_Ini.stat
10
MC_Ini.stat
|
|
@ -1,10 +0,0 @@
|
|||
[Stats]
|
||||
EditorSecs=3140
|
||||
DesignerSecs=12
|
||||
InspectorSecs=29
|
||||
CompileSecs=33149
|
||||
OtherSecs=246
|
||||
StartTime=4/29/2019 10:15:47 PM
|
||||
RealKeys=0
|
||||
EffectiveKeys=0
|
||||
DebugSecs=1
|
||||
|
|
@ -1,25 +0,0 @@
|
|||
program MiniCompressor;
|
||||
|
||||
uses
|
||||
FMX.Forms,
|
||||
Unit2 in 'Unit2.pas' {Form2} ,
|
||||
Unit3 in 'Unit3.pas' {Form3} ,
|
||||
Unit4 in 'Unit4.pas' {Form4} ,
|
||||
Unit5 in 'Unit5.pas' {Form5} ,
|
||||
Unit6 in 'Unit6.pas' {Form6} ,
|
||||
Unit1 in 'Unit1.pas' {Form1};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.CreateForm(TForm2, Form2);
|
||||
Application.CreateForm(TForm3, Form3);
|
||||
Application.CreateForm(TForm4, Form4);
|
||||
Application.CreateForm(TForm5, Form5);
|
||||
Application.CreateForm(TForm6, Form6);
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
|
||||
end.
|
||||
|
|
@ -1,613 +0,0 @@
|
|||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{57A8A490-D319-41AB-9406-464943D6F8F3}</ProjectGuid>
|
||||
<ProjectVersion>18.4</ProjectVersion>
|
||||
<FrameworkType>FMX</FrameworkType>
|
||||
<MainSource>MiniCompressor.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 '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
||||
<Cfg_1_Win32>true</Cfg_1_Win32>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
||||
<Cfg_2_Win32>true</Cfg_2_Win32>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
|
||||
<DCC_ExeOutput>.\$(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>
|
||||
<DCC_UsePackage>RESTComponents;emsclientfiredac;DataSnapFireDAC;FireDACIBDriver;emsclient;FireDACCommon;RESTBackendComponents;soapserver;CloudService;FireDACCommonDriver;inet;FireDAC;FireDACSqliteDriver;soaprtl;soapmidas;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
|
||||
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
|
||||
<Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
|
||||
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
|
||||
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
|
||||
<SanitizedProjectName>MiniCompressor</SanitizedProjectName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_UsePackage>DBXSqliteDriver;DataSnapServerMidas;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;svnui;tethering;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;svn;Intraweb;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;fmxdae;vclib;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;DataSnapCommon;DataSnapConnectors;VCLRESTComponents;vclie;bindengine;DBXMySQLDriver;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;DataSnapClient;bindcompdbx;IndyIPCommon;vcl;DBXSybaseASEDriver;IndyIPServer;IndySystem;FireDACDb2Driver;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;TeeDB;emshosting;FireDACPgDriver;ibmonitor;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;FMXTee;DbxCommonDriver;ibxpress;Tee;DataSnapServer;xmlrtl;DataSnapNativeClient;fmxobj;vclwinx;ibxbindings;rtl;FireDACDSDriver;DbxClientDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;TeeUI;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;inetdbxpress;FireDACMongoDBDriver;IndyProtocols;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_UsePackage>DBXSqliteDriver;DataSnapServerMidas;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;tethering;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;Intraweb;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;fmxdae;vclib;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;DataSnapCommon;DataSnapConnectors;VCLRESTComponents;vclie;bindengine;DBXMySQLDriver;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;DataSnapClient;bindcompdbx;IndyIPCommon;vcl;DBXSybaseASEDriver;IndyIPServer;IndySystem;FireDACDb2Driver;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;TeeDB;emshosting;FireDACPgDriver;ibmonitor;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;FMXTee;DbxCommonDriver;ibxpress;Tee;DataSnapServer;xmlrtl;DataSnapNativeClient;fmxobj;vclwinx;ibxbindings;rtl;FireDACDSDriver;DbxClientDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;TeeUI;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;inetdbxpress;FireDACMongoDBDriver;IndyProtocols;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_DebugDCUs>true</DCC_DebugDCUs>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
||||
<DCC_RemoteDebug>false</DCC_RemoteDebug>
|
||||
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
|
||||
<AppEnableHighDPI>true</AppEnableHighDPI>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
|
||||
<AppEnableHighDPI>true</AppEnableHighDPI>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_MajorVer>20</VerInfo_MajorVer>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_Keys>CompanyName=FileForums.Com;FileDescription=$(MSBuildProjectName);FileVersion=20.4.0.0;InternalName=Mini Compressor;LegalCopyright=Created by: Carldric Clement;LegalTrademarks=Copyrigt © Carldric Clement;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
<Icon_MainIcon>MiniCompressor_Icon.ico</Icon_MainIcon>
|
||||
<DCC_DcuOutput>.\$(Platform)\Dump</DCC_DcuOutput>
|
||||
<VerInfo_MinorVer>4</VerInfo_MinorVer>
|
||||
<AppExecutionLevel>requireAdministrator</AppExecutionLevel>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="Unit2.pas">
|
||||
<Form>Form2</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Unit3.pas">
|
||||
<Form>Form3</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Unit4.pas">
|
||||
<Form>Form4</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Unit5.pas">
|
||||
<Form>Form5</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Unit6.pas">
|
||||
<Form>Form6</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Unit1.pas">
|
||||
<Form>Form1</Form>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Application</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">MiniCompressor.dpr</Source>
|
||||
</Source>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Deployment Version="3">
|
||||
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
|
||||
<Platform Name="OSX32">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="Win32\Release\MiniCompressor.exe" Configuration="Release" Class="ProjectOutput">
|
||||
<Platform Name="Win32">
|
||||
<RemoteName>MiniCompressor.exe</RemoteName>
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="$(BDS)\Redist\iossimulator\libPCRE.dylib" Class="DependencyModule">
|
||||
<Platform Name="iOSSimulator">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib" Class="DependencyModule">
|
||||
<Platform Name="iOSSimulator">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="Win32\Debug\MiniCompressor.exe" Configuration="Debug" Class="ProjectOutput">
|
||||
<Platform Name="Win32">
|
||||
<RemoteName>MiniCompressor.exe</RemoteName>
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgsqlite3.dylib" Class="DependencyModule">
|
||||
<Platform Name="OSX32">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployClass Name="AdditionalDebugSymbols">
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidClassesDexFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>classes</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidGDBServer">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeArmeabiFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeMipsFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\mips</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidServiceOutput">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashImageDef">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashStyles">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\values</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_DefaultAppIcon">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon144">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon36">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-ldpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon48">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-mdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon72">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-hdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon96">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage426">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-small</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage470">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-normal</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage640">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-large</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage960">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xlarge</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DebugSymbols">
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyFramework">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.framework</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyModule">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.dll;.bpl</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="DependencyPackage">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.bpl</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="File">
|
||||
<Platform Name="Android">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch1024">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch1536">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch2048">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch768">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch320">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640x1136">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectAndroidManifest">
|
||||
<Platform Name="Android">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceDebug">
|
||||
<Platform Name="iOSDevice32">
|
||||
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceResourceRules">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSEntitlements">
|
||||
<Platform Name="iOSDevice32">
|
||||
<RemoteDir>..\</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<RemoteDir>..\</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSInfoPList">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSResource">
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXEntitlements">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>..\</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXInfoPList">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXResource">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\Resources</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="ProjectOutput">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Linux64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectUWPManifest">
|
||||
<Platform Name="Win32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="UWP_DelphiLogo150">
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win64">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="UWP_DelphiLogo44">
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win64">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
|
||||
</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')"/>
|
||||
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
|
||||
</Project>
|
||||
|
|
@ -1,20 +0,0 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>2019/04/03 22:09:00.000.401,=C:\Users\Carldric Clement\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
|
||||
<Transaction>2019/04/03 22:09:56.000.201,=C:\Users\Carldric Clement\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
|
||||
<Transaction>2019/04/03 22:11:24.000.370,C:\Users\Carldric Clement\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\Carldric Clement\Desktop\Mini Compressor\Unit1.pas</Transaction>
|
||||
<Transaction>2019/04/03 22:11:24.000.370,C:\Users\Carldric Clement\Documents\Embarcadero\Studio\Projects\Unit1.fmx=C:\Users\Carldric Clement\Desktop\Mini Compressor\Unit1.fmx</Transaction>
|
||||
<Transaction>2019/04/03 22:11:41.000.940,C:\Users\Carldric Clement\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\Carldric Clement\Desktop\Mini Compressor\MiniCompressor.dproj</Transaction>
|
||||
<Transaction>2019/04/03 23:44:38.000.447,=C:\Users\Carldric Clement\Desktop\Mini Compressor\Unit2.pas</Transaction>
|
||||
<Transaction>2019/04/03 23:45:08.000.091,=C:\Users\Carldric Clement\Desktop\Mini Compressor\Unit2.pas</Transaction>
|
||||
<Transaction>2019/04/04 01:26:14.000.220,=C:\Users\Carldric Clement\Desktop\Mini Compressor\Unit3.pas</Transaction>
|
||||
<Transaction>2019/04/08 22:23:32.000.334,=C:\Users\Carldric Clement\Desktop\Mini Compressor\Unit4.pas</Transaction>
|
||||
<Transaction>2019/04/09 23:37:48.000.207,=C:\Users\Carldric Clement\Desktop\Mini Compressor\Unit5.pas</Transaction>
|
||||
<Transaction>2019/04/14 16:52:45.000.070,=C:\Users\Carldric Clement\Desktop\Mini Compressor\Unit6.pas</Transaction>
|
||||
<Transaction>2019/04/20 22:20:11.000.286,=C:\Users\Carldric Clement\Desktop\Mini Compressor\CommCtrlAdmin.rc</Transaction>
|
||||
<Transaction>2019/04/20 22:36:03.000.032,C:\Users\Carldric Clement\Desktop\Mini Compressor\CommCtrlAdmin.rc=</Transaction>
|
||||
<Transaction>2019/04/20 22:37:26.000.426,=C:\Users\Carldric Clement\Desktop\Mini Compressor\CommCtrlAdmin.manifest</Transaction>
|
||||
<Transaction>2019/04/22 21:46:03.000.379,C:\Users\Carldric Clement\Desktop\Mini Compressor\CommCtrlAdmin.manifest=</Transaction>
|
||||
</Transactions>
|
||||
</BorlandProject>
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -1,10 +0,0 @@
|
|||
[Stats]
|
||||
EditorSecs=32357
|
||||
DesignerSecs=10590
|
||||
InspectorSecs=3132
|
||||
CompileSecs=2387142
|
||||
OtherSecs=1567
|
||||
StartTime=4/3/2019 10:23:20 PM
|
||||
RealKeys=0
|
||||
EffectiveKeys=0
|
||||
DebugSecs=642
|
||||
Binary file not shown.
|
Before Width: | Height: | Size: 97 KiB |
338
Unit2.fmx
338
Unit2.fmx
|
|
@ -1,338 +0,0 @@
|
|||
object Form2: TForm2
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'About'
|
||||
ClientHeight = 481
|
||||
ClientWidth = 641
|
||||
StyleBook = Form1.StyleBook1
|
||||
FormFactor.Width = 1280
|
||||
FormFactor.Height = 1024
|
||||
FormFactor.Devices = [Desktop]
|
||||
OnCreate = FormCreate
|
||||
OnKeyDown = FormKeyDown
|
||||
DesignerMasterStyle = 0
|
||||
object ToolbarHolder: TLayout
|
||||
OnGesture = FormGesture
|
||||
Align = Bottom
|
||||
Locked = True
|
||||
Position.Y = 520.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Visible = False
|
||||
object ToolbarPopup: TPopup
|
||||
Touch.InteractiveGestures = [Pan]
|
||||
OnGesture = FormGesture
|
||||
Align = Bottom
|
||||
DragMode = dmAutomatic
|
||||
Placement = Absolute
|
||||
PlacementRectangle.Left = -1.000000000000000000
|
||||
PlacementRectangle.Top = -1.000000000000000000
|
||||
PlacementRectangle.Right = -1.000000000000000000
|
||||
PlacementRectangle.Bottom = -1.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
object ToolbarPopupAnimation: TFloatAnimation
|
||||
AnimationType = Out
|
||||
Duration = 0.200000002980232200
|
||||
Interpolation = Cubic
|
||||
PropertyName = 'Position.Y'
|
||||
StartValue = 0.000000000000000000
|
||||
StopValue = 0.000000000000000000
|
||||
Trigger = 'IsOpen=true'
|
||||
TriggerInverse = 'IsOpen=false'
|
||||
end
|
||||
object ToolBar1: TToolBar
|
||||
StyleName = 'StyleBook1'
|
||||
Align = Client
|
||||
Padding.Left = 50.000000000000000000
|
||||
Padding.Top = 5.000000000000000000
|
||||
Padding.Right = 50.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
object ToolbarApplyButton: TButton
|
||||
Align = Left
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 141.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 80.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'applybuttontext'
|
||||
Text = 'Apply'
|
||||
end
|
||||
object ToolbarCloseButton: TButton
|
||||
Align = Right
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 505.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 80.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'closebuttontext'
|
||||
Text = 'Close App'
|
||||
OnClick = ToolbarCloseButtonClick
|
||||
end
|
||||
object ToolbarAddButton: TButton
|
||||
Align = Left
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 55.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 76.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'addbuttontext'
|
||||
Text = 'Add'
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Position.Y = 96.000000000000000000
|
||||
Size.Width = 641.000000000000000000
|
||||
Size.Height = 353.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = '-'
|
||||
TabOrder = 0
|
||||
object Memo1: TMemo
|
||||
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
|
||||
DataDetectorTypes = []
|
||||
Lines.Strings = (
|
||||
'loaded text.')
|
||||
CanFocus = False
|
||||
Position.X = 16.000000000000000000
|
||||
Position.Y = 16.000000000000000000
|
||||
Size.Width = 609.000000000000000000
|
||||
Size.Height = 329.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 0
|
||||
Viewport.Width = 605.000000000000000000
|
||||
Viewport.Height = 325.000000000000000000
|
||||
end
|
||||
end
|
||||
object MenuBar1: TMenuBar
|
||||
Align = Bottom
|
||||
Position.Y = 457.000000000000000000
|
||||
Size.Width = 641.000000000000000000
|
||||
Size.Height = 24.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 1
|
||||
object MenuItem1: TMenuItem
|
||||
Enabled = False
|
||||
Text = 'Carldric Copyrighted 2019'
|
||||
end
|
||||
end
|
||||
object ImageControl1: TImageControl
|
||||
Bitmap.PNG = {
|
||||
89504E470D0A1A0A0000000D4948445200000249000000520806000000400E40
|
||||
45000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
|
||||
17BE49444154785EED9D4BE8AF4519C73DDE2FD0C2C28D992DF22C0CB48CA840
|
||||
DBE826080FB4F114BA719B6990B49010123188026F6D82CE46316D111C092238
|
||||
6E52D0E8620A25648BD22208732178BFD4F3FD33EF69FEEF9967E6997967E69D
|
||||
F7FFFB1E88F0FF9B79E63B9FB9BCCFDC4F3B8DFF488004488004488004488004
|
||||
4880044880044880044880044880044880044880044880044880044880044880
|
||||
0448800448800448800448800448800448800448800448800448800448800448
|
||||
8004488004488004488004488004488004488004488004488004488004488004
|
||||
4880044880044880044880044880044880044880044880044880044880044880
|
||||
0448800448800448800448800448800448800448800448800448800448800448
|
||||
8004488004488004488004488004488004488004488004488004488004488004
|
||||
4880044880044880044880044880044880044880044880044880044880044880
|
||||
0448800448800448800448800448800448800448800448800448800448800448
|
||||
8004488004488004488004488004488004488004488004488004488004488004
|
||||
488004488004488004488004488004488004488004488004769AC0FBEFBF7FFC
|
||||
ADB7DE7AFDBFF24FFEFF15F9EFBBD602F2C1071FDC0A0D4ECBEBD036D712D0FB
|
||||
801F466C5CFADE7BEF3D0D1BF8F7EEBBEFFE45FE76C35A7912BD27627CE77ADF
|
||||
79E79D97D7D43B718206D1FE90B07C0E0C279EFEFFE3EFF81DE1D6D6BC965EB4
|
||||
97549DED55F784C1357E59A11DA07EF9E9FB7A4365DAF26FE0047D68C3D6FA42
|
||||
BDF54A24541F427513F5686AFBE88FEA29B05B429F19EAFF0F82DE547F80368B
|
||||
7A8F6F07DACBD4BFF8F4BCB6740261E7ED3C9586F6BBFF7DB597569D90A86BDE
|
||||
F7E49AD23C548D07A724943D01B5CFF1A89AA8620C6986B440A3F7E10EEA45A3
|
||||
9EC2A090E776D0E0AC9D72CDBC86F2E4B49CFC70297A5FA9A9C36ACB35CE8742
|
||||
8DD2D20C9C930D8769DF87D99A7E6EB8B5F522FDC901F6F9E063949B97A5E151
|
||||
BF435AFC0F8DA6D752B62DC2A40630D45B9F7ACCF1980FD8EAA79E6FD1EFFFE7
|
||||
6D646B7A536D1C79F507F8B9B49C137CF27B994A2FC033F87DCDD5512BBCD5A9
|
||||
CFCD6756F8D0077ACA604F47497390A0C56FD49A5EBF2169B31E6B384A4BF466
|
||||
156485C035471039A3C052E923E8D50619A8B73D1D25CD419A665253838C5A9D
|
||||
5AA91DADAF89F12D4DAB46BCADE99DCFFE2AB3314127BB06AF253634A72E56E7
|
||||
97A4B734AE75F6CB2F03E445FB6E95E8490D3E62B34825E9B58C53F3BB7D7AE9
|
||||
C7468B77FAE9A7DFD2C351421A48ABB6FEB9BD73CE39E77C99CE3BB6C68C52EB
|
||||
BC2DB10F1E98E69432B81E8C96D89AE2C20EEC6166A936EF967A6B2E759E71C6
|
||||
199FEFE128391EC76A955D8DF2CFB5D1ABAFC9D5B576DF584B6FCACED6EAD0D6
|
||||
F4C6F8C3A93A74E8D0A3679E79E665A972B2FE0E5BB059E2B059D3E815AEE677
|
||||
BBBA930408AD3BAF5E0E92FFF1A6A3F4FFEA0DFE684C679D75D6475B547AA9E0
|
||||
1F768DB5CAF26D6BBDE050536F6B47E9207D2C64F47BB3BF6CDEA23ED6B419D2
|
||||
2BFDE5FD6FBFFDF61B35D3A96D4B34FE666E539CF91F8CEA644B7B7C64EB7A43
|
||||
6588A5C269705ABB8C277B18A8BA815F97ED0FADF281BA893ABAD4FEA11203F0
|
||||
34013215570AF441E9F0BF910A97F3BBD54192B41F97B48FC0B6A657A6FB6E43
|
||||
078530986A4C79E5E8C8CE3EFBEC9B25CE63399A73C32ED12B9D4351995A355A
|
||||
F9FBF684DB7FA42C5E95B817C201B2A68570528E4F48DCEB72E2F86157D07BB2
|
||||
DE699AB11C24C5745F2A4FA2FD19A9935F4885CBF9DDEA2049E7F2A2387F875D
|
||||
1904F54EE59A937E4E58699FE7591CF139278DEFA87A1DE31B44F71DC8730EA3
|
||||
1E61A5BF7B61EA4BA7F4ACEDAA35F350FE45EFA3A2F7CE927E6014BDA17CB9BD
|
||||
544F59DA841F1F6D19FF9DFABECDD3946FE23F24CEEDA9EF9DF6BD427CE9E7DE
|
||||
6C5547ADDF93167E48324FB13D49F375C69A4B6FB13D4881744F9E705BB2C767
|
||||
6EB7E65AA7067A89DE64E12D0860E5EF4E1A3CA08DF0F177D84238CBBAB4843D
|
||||
51227B45BDA79CAEF4F5E7EC99A9B9F496B31F03838649B3A6B7D7B43C74C736
|
||||
A6A24D5AF88EAAB7A46EAF1D27D676DD49C4D54E3B87D86C4DEF3C0FD30C52AA
|
||||
BF7487604EA0CDC60669E8532D076DE6078642362DDFAB96F555D2BF2BB6370B
|
||||
65DF32FDA0ED1C27C96DA25EBC6C62FDE0791BC89B3849B0DFDA51B2543AAD52
|
||||
B4AA0C16FEEE5441D6114CE7309D4835FE5C67BBA55ECB499298DE1C27A9D666
|
||||
EE1C07C9BA71BB97D3E1CF5E68F5041DE5284E5DAEDE566DB6955D7CB0B572A8
|
||||
E9D4D7D2BF35BD250E92738EB2BFB3E8A752CE526AE9CDF2BDAA5596313BB17E
|
||||
1975A05443933D4973314BF72859A7764B21E4C6ABB9292C37ED35C2E3038BBD
|
||||
145ADA98A2964EF3289686A4AC9FCCD188F0584E437C4CCF6A71518762A3A3D9
|
||||
4C4253BDC8A7516F957BB696EE51B22EB1E594DB1A61B1743F2D1D04D2BF720D
|
||||
4DB134B7A63783DFDE3686F93F6C4790767A34C34EAFA05BD3BB8F8BB4DFE8FE
|
||||
4F6C4938F7DC733F52B2B505711017DB53B4C2C0F25EECF75E85984A07752FB2
|
||||
B72F58075236F17B1727692FA1C2536FA3394813D45D7294621B34E1D8C83EAD
|
||||
CFA4D6AD539511F1C5F9B83AE628C988E67B9611C1287A6B6C1A9CB8953A4A07
|
||||
C5419A38483DF955A82E89D37A51AA8EADF1FBD6F45A1809EBE0892A69BFCF4B
|
||||
7EFF6EB1D133CCD6F4FA6C30438AB6AFF172FB6D8AF76C7AFDCB11D8D2D2110D
|
||||
57F8B3B53DCBCF9A16EA1EEAA0D23F149F02ACEA2409C4676219CA75942C0E52
|
||||
2A4D2B602D5CCCFE2E384A984AD5360ABA8D7D57D7EA185D25571D25F0C6A82A
|
||||
56A623E905B79C252909FB7CEC9453AEA36471905AB79FA5ED6F1E5F3682EE6D
|
||||
429DFF930F61D68180DABA347B5BD36BE4F2B15038C9EBBF8DF17B07DB9ADE3D
|
||||
3E18104A1FFBAD848354ED60146695628E12B45806A9BD0BD74F2F52078375C0
|
||||
A2B5AA93241FB99FC6204390D551B23848480B695A325A1A064B2BBBEA28B946
|
||||
1A1CA560890D333FB51CA4A97C528E121C056DD96D44BDD2B15C67ED58A481FF
|
||||
0DA7276B384A5607A9F6E9B9D276668D379D46B5865F3BDCD6F42EE125F5F789
|
||||
25F17BC71D5DAF38FEF76B572C48FB7EB864792DC538E628410B34A56CACF97B
|
||||
8B32ADEA24014ECA1BB5384A5607A945250915F0AE3A4AD220EED61AA97CCCBF
|
||||
5EDB419A394AB74746505F0DFD36A25ED7B1DC6DED38B0ECB8D4513AA80E921B
|
||||
5D671D0CB0726F150E07135AD91ECDAEB4BFCF8EA629A66774BD186085F463C6
|
||||
59BE7D37B5628DEF2AD208D9D734B5D2926B575B5ACDB5E387AFEE242D759446
|
||||
73902658BBE8284983F892D2489F59BA07295569611F1B1243E1B435FAB5F56A
|
||||
338E9A2E8DC11247E9203B488ED7A7537567B0DFB7A67709BE0F2D89BC42DC61
|
||||
F5E23BA80D50B11AD39A95960634E59E346EAD7566BF78594DED8F5B65A06446
|
||||
69540769171D257C6CB58B1FA5017DBB55BDF1EDCAD4E977B574E64B6E23E8D5
|
||||
B88023F4E5302B719476C0413A4D468AC14B6C85D74B397C7B85DD9A5E0B176D
|
||||
4943FAEFAB2CF17B87D99A5EF0917AF3C5C80035EB0471096F694F4F6A833E4D
|
||||
5B493AB5E344EA60F15D494D6692A68CE7384AA33B48BBE6284943F8B2D24871
|
||||
82A5792345DAAEA16AA715AEF5F56D406F9067AC93C8719476C141C2D295CCCA
|
||||
693790FFAB7687BBD4DED6F466E4F7D95058775061A84B249DCEADE93D4D4EC6
|
||||
7E22C458FA847B33CA6951502D2D4DDBA2C42A44C6E93BED909138CA7F2A4DA2
|
||||
A99304515647293585E88E3A56DBC95F0A0CF17661E94D9C8E602395CAF6EB25
|
||||
EC72E35AD31B5DAFE8BB2237EFCE5134ED51C2DB71B177B4302ADCDA266D9F17
|
||||
660EA5737E44CBA3E4FFC7257C5BC5D99ADE1C0E18BCE0E046280E4E40495D7B
|
||||
28C75EEBB05BD30BE73A54CFC1BCF53607BF2C9056A89CDD29E3AC99F1D6658C
|
||||
4916ED24E0526E45EF7CE158B3003C65DA5B3E0427DF429B43B1CC146920630E
|
||||
123AA3D03B58F2F72A6FB7C5DE42C30D9FB13B2C4ADF7AB3F0D5DE9AABF5769B
|
||||
661F53ADBD6692501FD061841CA5795D1B5DAFE52D34BFCECEDB8265A6486B3F
|
||||
290709B727CFE35AF4228CD485173A748057C5DEAB7277755D32E9D0FA8451F5
|
||||
FABAA528F6CD90B6666BB0FF1A1CD0799BD7FAA8C91E3E4C52667F94FFDEF764
|
||||
8C21BD549097DCB50AF80699EF64DA925EADFEA6DA710A5CC9EFDA37CEEF7F35
|
||||
B6D0DBE15A880BA4FD7F2AF62628F6B62E79FFB384DBDE83B1A16BE9B5A3D953
|
||||
227094B4EBECB5BFA7368921CD505C68F4D24DEA2D7DE623F54445C9132616BE
|
||||
A57AAD05AE9587357ECD70A803E0084DEEFAFD5346AA23E94D69B1D4D9103F38
|
||||
4A13076B3BB23C1311B26579BBCDAAA175384CB3FBBC34BEAD7558EDCFF5427B
|
||||
AA1FB1DA6E112ED48709E34B73EB626D6DAE2F380E2DA9FE664B7AB5FEDFFFA6
|
||||
A5F25BEB778B162D4CEDF22EB1E7EAEEA213A6CD97DBFCC2B22CBDCD3ABB077B
|
||||
1DF32FAD54BBB0F4E68D0EDF28E5B4249EBB3AFF02CC92B9EBF74DC75F63F70D
|
||||
2DD1938AAB2D45A4E2A57EB7EC51F26DAC31F24CE5A1F6EF92471C87DEF7E27B
|
||||
ED346ADA0BE9C56C696C46BA66FA25B6DCF2CA1D7E5CCCE2C84CD1B1127BB5E2
|
||||
60F6002B1A7213FF9F534B7C5BD3AB307AAD16BB0C3B431E88B0EA973AFAF3A5
|
||||
2B1F5D9D2464CCEA288DB407295520BBE22849D9FD33C562A4DFD7D22BE9BEDA
|
||||
8A83D551DA050709CB6CA165FF56EC97DA8DE81DFE9A0019C59F37CFBFBB4F27
|
||||
FACAC2526696F870E2A41EDC989A35DD9ADE79DE658CF85B0B8F9A61B41BE36B
|
||||
A6D1CA16FAC01AF7497577922C8ED2961CA4A98077C151924A7771AB0ADDC2EE
|
||||
5A7A25DD0B5BE467B299729476C141C23E03B974F3929C7D292DCB24653BA137
|
||||
78FA2A65B3E7EFF2B17C33941EFA3DF4D76BCDDAFA9A301B979A51DA9A5E3F7F
|
||||
E2A876BFAC53D22C7EF3AC67FDF4D3425D449DAC755065152729E6286DD141DA
|
||||
154729767AAA6583C05E1C19253E877D32182DA6F6BE4D5AD6D21BDB44588B93
|
||||
E6281D640709CB9870367078A0FB46CC8282B3EA8DDD4953906CF528F8E888C6
|
||||
7B34C398A11187F572299B87630F545717163028E97F05CB97B1B4B6A6D7CBCB
|
||||
1A975F56BF9CB1553D40DD431D445DACB94DA7DBE9360D8C7FEAADC4415AF374
|
||||
9B96A7A5A7DE78BA6D3F596CBE9B3B3CF2A13CEA1F873DE8A7DBB4BAE69F7A2B
|
||||
7590063FDDF69CCC62BC22F9379F66AA7DBA4DB8264FD749A7FC075746D97AA7
|
||||
B2751BCE473BDD86D3643FCBD9D7E136521F41BE1A9CD6AB7E9A6934BDBB7EBA
|
||||
0D4F9F24AE33791EEF5CA27E4D17854AFD1CEB4D39CBE9AB1C6F118E52EA145B
|
||||
E423B1EAE9B698A314DB8D1F3BF566E1DBFA749B76DAA6B49C72EA831F164E40
|
||||
EAF422C28FA2573BC18999B0D9C7F0946C959E5E0123897BA29471E9E9B652BD
|
||||
A53AADF14A4F0F46FA984B6573F0CBB1F6DCBB5D58591CD4703821A89DAEC3A9
|
||||
B7D1F29DA3173361A1BAB646BE9066480BFA9C89B1E57B95531EA953BC2527C6
|
||||
73D29F875D6DB9CD1782A9B19AD3634B80D48ABBF53D4AE2A1FF35C4024B1DB5
|
||||
1859EC4883F9A625DC287A353EA22F7873B8256FA9309851DBC2F2532A1FA3FE
|
||||
8E7D4FD29EAF8E2D25E1325C3A4AFD4A10271AE5E4D20F4329963C03D45A798E
|
||||
5E77F9E52927897BE70BCE4A68EB805B7E7DAC15B3D49E4BCC32C9A0E598EFA8
|
||||
B5D202BB4338492D33B8A6ED2D3B4ADA0DC6D2D8AF48ADF9D7628E69709981D1
|
||||
6EAADEF716CF207A71943BA857F4FDA21617DAE94F808E527FE6A914E178688E
|
||||
AB0C563E998ADFFBF71CBDF2ED080EAAAC83C61A79D3D2126DC101748D34271B
|
||||
23394A74926A966CC0D6561DA5D855FED278BEDF18DB9E79E9E8EE8F3C43F113
|
||||
5FC3087A352E4BAFC5EFC19A69A409D0514A33EA1DC2DB0B364FFACADE5A2CE9
|
||||
59F5CAA0EA77217B38C1D763908A34B4BBBBAC4F455978C4C28CE228D1495A5A
|
||||
9286F85B7594643AFB9791867AAB21EBC5413095AADD81830DCAA1A3DF6BEBD5
|
||||
3A154D57311C465C8D001DA5D5D06B096FEDB243935E6C3FD1AE5590FE6FDF00
|
||||
B14589E01055C82E34F5DC1A3382A34427A9450D3B20334A3262F88ED650654D
|
||||
F84E772AA43A41D815FB3FD20C4BC3B937F4DB887AC10FBAAA43A2C1D508D051
|
||||
5A0DFD29096FEDB2C31CBD32B80A1EC69041F765A9FBA09694106C6BDB06344D
|
||||
4BD24BC55DDB51A293942AA18ABF5B67946499E9E315932D36E5AEF20F36546C
|
||||
E893FD424FD57694DC3EA4A7B4BB86DC2C5270D3E0887AD1A96CE5C2C3E28AB2
|
||||
8311E9288D51E80DAE18689AB11CBDE250DDAA0D5271C3788B8302EE4A9E1BB5
|
||||
5924686A0A4831BEA6A34427A973895B1C25CD8BEF2C752F39D17244DB1C8997
|
||||
D96B3A4A9383A4BDF8EE4E551C8D7118492FB841CF1AE5C634DB13A0A3D49E71
|
||||
2A05713A2E52C29896B552F66BFF9EA3D70DFA8227F8A0ABF6894AFFCEC250BE
|
||||
719A70CD01DF5A8E129DA4DAADC0602FE528194C740D227A6FD7463470686469
|
||||
ECF7B89B668928EC41821DCD41826D6B231D452F742C61C2B8E313A0A3B45E19
|
||||
C54EBFE62C6BF5CA41895E9C88C3ECB9A6D1394A2796CEE8E39E35D8D2D291DF
|
||||
8778487A0D47894E52AF16324B674B8E122A66ECC56F2C8D49A7749F7B3224FA
|
||||
24C01C374E51209EC47F34F69C87847B181D86A5B806D1FB207458F432CCB609
|
||||
D0515AA7FCA44F409F717E28752993B16E601691A57A252F471377745D8B0166
|
||||
C9F21BE2E0C2484943BDE97DB487A47B3B4A7492D669DF7BA96EC951C28906ED
|
||||
C4C38410A7BB703C14B74BA3F1694755F177FC8E7008AF9D0A9BEC622425616E
|
||||
CA29AA35F58253CF1320395C18B60D013A4A6DB886ACE2F66ABC38A0F51B98F5
|
||||
E8A7269DD252BD96BA8501266682E0F060562836B38FDF10C63947B7C406A770
|
||||
907091EA9ACB6C8A13FC98BCD176B3B6C251F3C2C9D5DF6E4B57B17808143866
|
||||
310233148F4FFB41706DBA14F2F5F330B23E7CDB34E2D0DEFE12DB458C72F295
|
||||
7AEB6DB23582DED4BA7528DFEED8E83F25EEC5B98FCE4AF99E2CC71CA69E83F5
|
||||
406C1AB981DEA48364A9B325792D8D53FA76DBD2B229D59B8AB726DFD4BE3A68
|
||||
0F39D1586E96FFDD2165715E2A7FBD7F97F6F3C27C6F1D3EFCA237BA3FB0B64E
|
||||
49F342CBE3D121BE5BD31B6267A95BA178D32C546C2B8316CFE22059BEAFB5EB
|
||||
C264CF6DD338A67D57F0ED8133D57D561F5094F75C16ED4B2901890E31F5B697
|
||||
456FEBB7D05279D3DE1EF3F3E68F0ED6D4EBA6685F8FBD6555E3B792E96365E4
|
||||
8929E561F45AEA6CAABED4FC9D6FB7D5A4B9E70459DE7ABBCB4FB547FD5CD226
|
||||
712CDCFF302DB1D5322EDED80B0C9883EF3FB6D461B51DD21BAB8DA85B5ADF6F
|
||||
4DD3120EBAACFB9C2CDFD7BA2D6CBF35384AB1F6E3DE7ACBDA06E2A7C0E5B696
|
||||
A597617B6B4B6FF0CE63EBE419593F2528EC4A433E5A6BC90A76B6A477093BC6
|
||||
5D9F806579C49F8581D39C3BC3DA3B97A2F173539AD236BFD63B7D4B7A983508
|
||||
1D96D89ADE585EDD89B7C398C5B530290903DBD25F5E32DA129B9617CB1E25A9
|
||||
03C58768E82495D4A24671B6E428B98A79091A94B62E9C8B0976BC065A75D3F3
|
||||
D6F4E6B263F8B108A41C2559C57F732CC5DB56B3DAB24A21B6A57AB1FC8981A4
|
||||
AC40BC5828E19468B0E506A79BBBB624E52849665F2BE554E42449037F4249F0
|
||||
D952210BE205D3F4355AF462DD7DAE016F6E2DD055145573949C23727C323A8A
|
||||
5E345619755C2ECECDC3A5BC100FF161A7F5BD4283E83DAE3896ABDCED122AB7
|
||||
59FD1A4AAFA1610DA1577394DC7D5FF778F9D0F41AB2DA27885F1F22FD691F31
|
||||
B35470B0037D87B6EF646B7AAD10DD29DEC3D8AB1ABB2620650F716143F62C1D
|
||||
2ED9BB63F9BEA634D4F85D7394B032B1CAAB0758879CD601DD8EFA076A64B4C4
|
||||
C6748C116BADD0046D733B29BD6E53DCD3D37AAD5B93BDA1444F8D38D80330E3
|
||||
BB6F0FC3687AA73C8B2E9C5C7B087BACB4B573FC1DBF231CD6936BF02AB5B196
|
||||
5E6C2445BBF1EA6CF066F3D27CE5C4739B1F5F9EEABEBBCAE152DFC6487A2D79
|
||||
1B49AFDF5651E6A13AEFEBB5EC19E91946A90F27FBFF9E5A9096D77FE004EDBE
|
||||
7AAAD50DBFFFDF825E4B1D0F85413D425EC168EA5FFCFCE26FF80D61DC667613
|
||||
BF949ED4F73515BFE6EF685FD3B707FF6FAD233535D016099000099000099000
|
||||
0990000990000990000990000990000990000990000990000990000990000990
|
||||
0009900009900009900009900009900009900009900009900009900009900009
|
||||
9000099000099000099000099000099000099000099000099000099000099000
|
||||
0990000990000990000990000990000990000990000990000990000990000990
|
||||
0009900009900009900009900009900009900009900009900009900009900009
|
||||
9000099000099000099000099000099000099000099000099000099000099000
|
||||
09900009900009900009900009900009900009900009900009900009EC23F03F
|
||||
53DF6A6556A42CF80000000049454E44AE426082}
|
||||
CanFocus = False
|
||||
EnableOpenDialog = False
|
||||
Size.Width = 641.000000000000000000
|
||||
Size.Height = 89.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
115
Unit2.pas
115
Unit2.pas
|
|
@ -1,115 +0,0 @@
|
|||
unit Unit2;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
System.SysUtils, System.Types, System.UITypes, System.Classes,
|
||||
System.Variants,
|
||||
FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Ani, FMX.Layouts,
|
||||
FMX.Gestures,
|
||||
FMX.StdCtrls, FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, FMX.Menus;
|
||||
|
||||
type
|
||||
TForm2 = class(TForm)
|
||||
ToolbarHolder: TLayout;
|
||||
ToolbarPopup: TPopup;
|
||||
ToolbarPopupAnimation: TFloatAnimation;
|
||||
ToolBar1: TToolBar;
|
||||
ToolbarApplyButton: TButton;
|
||||
ToolbarCloseButton: TButton;
|
||||
ToolbarAddButton: TButton;
|
||||
Memo1: TMemo;
|
||||
GroupBox1: TGroupBox;
|
||||
MenuBar1: TMenuBar;
|
||||
MenuItem1: TMenuItem;
|
||||
ImageControl1: TImageControl;
|
||||
procedure ToolbarCloseButtonClick(Sender: TObject);
|
||||
procedure FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo;
|
||||
var Handled: Boolean);
|
||||
procedure FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
|
||||
Shift: TShiftState);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
FGestureOrigin: TPointF;
|
||||
FGestureInProgress: Boolean;
|
||||
{ Private declarations }
|
||||
procedure ShowToolbar(AShow: Boolean);
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form2: TForm2;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Unit1;
|
||||
|
||||
{$R *.fmx}
|
||||
|
||||
const
|
||||
LibraryAioFP = '.\Aio_FP.dll';
|
||||
|
||||
function IniRead(Filez, A, B, C: string): string; stdcall;
|
||||
external LibraryAioFP;
|
||||
|
||||
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
if Key = vkEscape then
|
||||
ShowToolbar(not ToolbarPopup.IsOpen);
|
||||
end;
|
||||
|
||||
procedure TForm2.ToolbarCloseButtonClick(Sender: TObject);
|
||||
begin
|
||||
Application.Terminate;
|
||||
end;
|
||||
|
||||
procedure TForm2.FormCreate(Sender: TObject);
|
||||
begin
|
||||
MenuItem1.Text := IniRead('Resource\MC.db', 'MiniCompressor',
|
||||
'LegalCopyright', '');
|
||||
Memo1.Lines.LoadFromFile('Resource\MC_About.txt');
|
||||
end;
|
||||
|
||||
procedure TForm2.FormGesture(Sender: TObject;
|
||||
const EventInfo: TGestureEventInfo; var Handled: Boolean);
|
||||
var
|
||||
DX, DY: Single;
|
||||
begin
|
||||
if EventInfo.GestureID = igiPan then
|
||||
begin
|
||||
if (TInteractiveGestureFlag.gfBegin in EventInfo.Flags) and
|
||||
((Sender = ToolbarPopup) or (EventInfo.Location.Y > (ClientHeight - 70)))
|
||||
then
|
||||
begin
|
||||
FGestureOrigin := EventInfo.Location;
|
||||
FGestureInProgress := True;
|
||||
end;
|
||||
|
||||
if FGestureInProgress and (TInteractiveGestureFlag.gfEnd in EventInfo.Flags)
|
||||
then
|
||||
begin
|
||||
FGestureInProgress := False;
|
||||
DX := EventInfo.Location.X - FGestureOrigin.X;
|
||||
DY := EventInfo.Location.Y - FGestureOrigin.Y;
|
||||
if (Abs(DY) > Abs(DX)) then
|
||||
ShowToolbar(DY < 0);
|
||||
end;
|
||||
end
|
||||
end;
|
||||
|
||||
procedure TForm2.ShowToolbar(AShow: Boolean);
|
||||
begin
|
||||
ToolbarPopup.Width := ClientWidth;
|
||||
ToolbarPopup.PlacementRectangle.Rect :=
|
||||
TRectF.Create(0, ClientHeight - ToolbarPopup.Height, ClientWidth - 1,
|
||||
ClientHeight - 1);
|
||||
ToolbarPopupAnimation.StartValue := ToolbarPopup.Height;
|
||||
ToolbarPopupAnimation.StopValue := 0;
|
||||
|
||||
ToolbarPopup.IsOpen := AShow;
|
||||
end;
|
||||
|
||||
end.
|
||||
256
Unit3.fmx
256
Unit3.fmx
|
|
@ -1,256 +0,0 @@
|
|||
object Form3: TForm3
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'What'#39's New?'
|
||||
ClientHeight = 481
|
||||
ClientWidth = 641
|
||||
Position = Designed
|
||||
StyleBook = Form1.StyleBook1
|
||||
FormFactor.Width = 1280
|
||||
FormFactor.Height = 1024
|
||||
FormFactor.Devices = [Desktop]
|
||||
OnCreate = FormCreate
|
||||
OnKeyDown = FormKeyDown
|
||||
DesignerMasterStyle = 0
|
||||
object ToolbarHolder: TLayout
|
||||
OnGesture = FormGesture
|
||||
Align = Bottom
|
||||
Locked = True
|
||||
Position.Y = 520.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Visible = False
|
||||
object ToolbarPopup: TPopup
|
||||
Touch.InteractiveGestures = [Pan]
|
||||
OnGesture = FormGesture
|
||||
Align = Bottom
|
||||
DragMode = dmAutomatic
|
||||
Placement = Absolute
|
||||
PlacementRectangle.Left = -1.000000000000000000
|
||||
PlacementRectangle.Top = -1.000000000000000000
|
||||
PlacementRectangle.Right = -1.000000000000000000
|
||||
PlacementRectangle.Bottom = -1.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
object ToolbarPopupAnimation: TFloatAnimation
|
||||
AnimationType = Out
|
||||
Duration = 0.200000002980232200
|
||||
Interpolation = Cubic
|
||||
PropertyName = 'Position.Y'
|
||||
StartValue = 0.000000000000000000
|
||||
StopValue = 0.000000000000000000
|
||||
Trigger = 'IsOpen=true'
|
||||
TriggerInverse = 'IsOpen=false'
|
||||
end
|
||||
object ToolBar1: TToolBar
|
||||
StyleName = 'StyleBook1'
|
||||
Align = Client
|
||||
Padding.Left = 50.000000000000000000
|
||||
Padding.Top = 5.000000000000000000
|
||||
Padding.Right = 50.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
object ToolbarApplyButton: TButton
|
||||
Align = Left
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 141.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 80.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'applybuttontext'
|
||||
Text = 'Apply'
|
||||
end
|
||||
object ToolbarCloseButton: TButton
|
||||
Align = Right
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 505.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 80.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'closebuttontext'
|
||||
Text = 'Close App'
|
||||
OnClick = ToolbarCloseButtonClick
|
||||
end
|
||||
object ToolbarAddButton: TButton
|
||||
Align = Left
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 55.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 76.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'addbuttontext'
|
||||
Text = 'Add'
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object ImageControl1: TImageControl
|
||||
Bitmap.PNG = {
|
||||
89504E470D0A1A0A0000000D49484452000001BD000000520806000000C04B0A
|
||||
A7000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
|
||||
0ED149444154785EED9D4BA8264715C7E7916466145C68D085A26E14A230BE10
|
||||
15CC2098B501171AC455DCFA02C5858B2C0C64A3828F6CCD26227139B372E1AC
|
||||
66208A604C1606CCCAE8465117429C57327AFED7EE4B4FDFAAAE53DDD55DF57D
|
||||
DFEFC22599FB55579DFAD5E3FF55D5E953A74EF1030108400002108000042000
|
||||
0108400002108000042000010840000210800004200001084000021080000420
|
||||
0001084000021080000420000108400002108000042000010840000210800004
|
||||
2000010840000210800004200001084000021080000420000108400002108000
|
||||
0420000108400002108000042000010840000210800004200001084000021080
|
||||
0004200001084000021080000420000108400002108000042000010840000210
|
||||
80000420000108400002108000042000811509DCBD7BF78B77EEDCF9D37FBB9F
|
||||
D75F7FFD45FBDB7B562C329AB5CA55F9BD2DB24BF60D1F78E38D37BE77F3E6CD
|
||||
7F28CD6BF663FFFE750D5B55A66CBB7DFBF65F06EC9EAFC5CEC3A0E3FBBCB8C9
|
||||
66637DC2DE21DFBE5EADFC37656F4E7F30160F5B5D9F557F1BB6E19675EDECBD
|
||||
EC693B4F9ABE7DA7C68F279F52693436FBBEA631ABBE35CC7B6CEF96EC536579
|
||||
EC55BF19CF4FA5D879F2699DAFE66F8D59B3F3A74DCD8B43C11B4EDE1EE8A5D3
|
||||
08D0B833CABEBE1C81EB07D1309DA096B6C5935F2FBE235B8A4D621E1BBC69C4
|
||||
2E34B91BBB637B637C5313C4969F7BEC9DEA0F2D4EB466D3D7BDED38954E6CC6
|
||||
6DA1F1526362561B446C39FE421DB277CBBE942AAB633769AFE680126D979BC7
|
||||
AEF15DFA05EF4C2EA0A9F4F7DD77DFFBC69F5B67785BC932BC7985CA1DD9F7E8
|
||||
9BEC2790DFBBBD65944C77EEDCB9139C6C8279A8641925F2EA26FAEBF7DF7FFF
|
||||
BBC6F98DEC8DF12D6146913C9CF606FB8326FF1B376EFCF1ECD9B39F2C624CA1
|
||||
4CACDF7FB64456A1BEA7F162757EA682F09D68836EEC3E3AF812DBDC5819B683
|
||||
C7DED01C50A22D1D79EC145FB13C73E6CCE7BAD571F64E6251D173C025C90E13
|
||||
9812BC1DAE56B6E99DE03D13F9D2949DDF2E3D5051F8760913B66E40405FBC6D
|
||||
47EF7AEE7627A2B741E3EC4311B98267DFC47EF21FFB69B9EE66E36FE7D86703
|
||||
ED07AD0ADEE9D3A77F31A74E39CFB4287C73DB32A7DE4BD26A2C684C2CC9A3E6
|
||||
B3ADF295F0D9EEC6CF72D89CCE499C4AAB7DED711A9B205E31C3DE9F7AB6F4E7
|
||||
3ABF0B6DB7DAA47054679D7DD8FFFE785CAEFDFD8A6D591D6F9B94B62B965F4B
|
||||
EC024CE41414DCD21CA61DB7B55644F6FB5DABDB85B91C6D0BE39D2181B1F6FD
|
||||
ABB5DF8DB9F9DA207E79D8CEDEFEA0F30F7BF6ABA9726FDDBAF54FCBFF5FA974
|
||||
253F37BB9EB3329F2891676CFC0CF3D6447EE1C285C7ADDC5F9628339687CEEB
|
||||
B49D35FEDCFAD5378642A2742D1E09A89F9A9D4F0D39A5E6A735798EF36E996F
|
||||
6CFC07FAC225E37B6D4B6E4765850E7387CE235B1A1472AA190A8B26B990BD43
|
||||
E7862DED6D89DDB0DE31A795ADEC8DB56329878DBEAEDEFE30F4080E394A8DBD
|
||||
0AB7EC4325CB8A71AFE1DC12735229DD074AF24BE5959A9F52CF97FCBC75BE9A
|
||||
83F46533E4ECD7F747794F7B99B0BDE9257580E972B734F71D9178D84AEA62A8
|
||||
9E36E87EA31D8D522BAD5D61D9E256E7AEB0C34E1F015BC1FDD9C6D5D71E78E0
|
||||
818F69872732FE3EE3CBEDD42944CF4BEAC0D22178C1060F6E7B77E7358F1D58
|
||||
1739AE2EC277A82DBF6DBD257E7664F5FD50A9216FF2987588DEB6EDB613A51D
|
||||
A8E0FD2DD538B69572E2951C3D63AEE62F6940A69EDFE7CF11BE7D6EDD76EAA6
|
||||
335C9D97872CB279EB618FA5889E87D201A5F1089EA5797ADF90C8C920B47562
|
||||
4E085707750DBEB36769FEBE6F3C62F5D1366EEC3384EF507A41DD7A4E38887D
|
||||
C46319A2E7A1742069BC82A7FDF57D44625B279F360657E585AAC97DEC1D18AB
|
||||
F34818F711CD719D8CD1A710BEBD6EE2E62B27CFEB2546227A4BE8EDD1B3872E
|
||||
786ACAEEC0FC1139A46872F7BE5765E2F8F13DEA0AC9AA207C4944245891808D
|
||||
B7B72FC91ED15B426F4F9E45F01637E45B16E7B06319207C3BD6607B64EED2D0
|
||||
9688DE1E7586395541F0FCD462DB98B6DDF7517F2EFB9312E1DB9FB6DC959A68
|
||||
BE0A051DE9EC7705E847F476A5B557B013C1CB86FA42E809B94BEFCB4BE9B944
|
||||
10BE5C62A45F42201672AC7B6DC8E541DDACE8751372D377CA2D69BCDACF2278
|
||||
F92DA030473177698B16F1AD9CA810F9A5B7FB04C257BF6D741F9EC2FED5B764
|
||||
1D0BBAA82C0A4717BC4544AF0D794B6E32F6E67042961BB9BCEA72DF834AC5B6
|
||||
8BC55A94E7DE52EF202FFC61BA506CC1B5E2969610BCAD6285C6DAD1EB5939A7
|
||||
2DA69E89C529EC9F9128DACAEF0FF6EFD70A97FDAA6DAFBE62796AE0BBBED12E
|
||||
293F357E4279EB0ECBA9AB96E6C6EAF4C686D47B5AD62FBE60B655B91E6C82F7
|
||||
8BE3483D73F8C6F2EFB9AFCD37547E17BEEF41FBEC434BFADBD4B3725CB17175
|
||||
712AC8BBD9F16495684825E23186623DCEB9372915DB2E166B317519E4969FAF
|
||||
11B7D4134BD373916E89B6F60C92AD626F7A6C511AF10B5D3EBC65BFE86EE256
|
||||
70E5ECBBC4BCF54C8D9FA909788AC59C8B683DB121B5CAA9DD2E53F596300D99
|
||||
CDE53BE63EBE2C7B2DBEC372F5E542E5B6C25BFAE0EDD74AD7D4F6666C0532F7
|
||||
DEA41C108790B6C40AEF10384DD551ABACF3E7CF3F5393832E1BD5CE802EB16D
|
||||
6D4BB5D656A7F5ED6FB67ADD93FA8A56C0A5B71F432BEBB50304E80BB1F5BB5F
|
||||
A93EADF0B63EF7ED9CF1D88CE8A52664842FA7594FA64DF1ED56314FEFEB8BE7
|
||||
CBE8DDFBB4184DBDA05DB2ACA9BCBA1BA4BF3C5E456C557EAC9C1AC2B7D48D7D
|
||||
2366EF2855CED456F25AC227D1D6B55AAD885D3F67E55E6DD584E87926645510
|
||||
E19B37643C7C2D0D8297815713BB98B57051AEBE751FFA8ACFCE3B83F118339A
|
||||
748BA4C9F8AE1E235267A7CA630DE1B33EF6A4C7BE2DD2E8ECDCBEE83C36E74B
|
||||
7A75D1F34CC84388085F5E97F2F045F0F298F6A935E0EC12D50F18BF9FC7AE3C
|
||||
999773FE5376CEF7799DB5E43FB9DE135BAEF8ECDBFE8F5AF80212A3A99D81DC
|
||||
1549282F8FE0F5CF95143EADF226DE8F5BAF138D72368E2F69BEB2238607E7F2
|
||||
ACEABDE999906334535E9D29EFA843F0DEF4F09D2B7887EABD3935BA3BC792A3
|
||||
EB878C4FD0B57AC1ECF066EBD31FD6795E2C0F2BFFAA09F1230BCA387E34357E
|
||||
72CA484DD429AFC35DF7DE5450837148BB397C531C636D5282EF94D7F2CA1EEF
|
||||
FF367EBF53DDBC610173FAE6E2B4391E7D1E2FC29447DC945767CA3B2AE6BDB9
|
||||
2F37A77BF87ABC34639D22A7AD9774ACD6BC3797D4A5C4B37A093EE63527AFCE
|
||||
1265288FD4F8C92D67EC65987303BBC77B33D79EDAE973F9A6F8A5E6CA29AF4E
|
||||
0FDF58F97A3FB036CBDCF2AB6C6F7A56205AC959435E9ADA3662AB33DCDC1EBE
|
||||
735778B91D8CF46509E85D24DBDAF9612857AD024B7B0896B27ECBADCE5236B7
|
||||
924F6A85A7959CCEB7D6BCFD22E62864ABB02BAD70F2DAB1B9E87926E4C1D6E5
|
||||
35BD988EF0799BF3FFEF91D920B93E75933082E7E7D9624A095F6C4CD8E4F4C1
|
||||
166D964D085F7ECB7804CFCE951FD7F9560DBE4D6E3926306F2A7A9E09797C56
|
||||
D75D118FF039C68B872F82E700B903494CF87E1F3173B5C81825B0D498984BD8
|
||||
5D238F1CC1EBED5B8B6FC83BB665C7A1A9F6DA4CF43C1372CC3905E14B0F390F
|
||||
5F042FCD718752BCBA43B6DE63EA5A13F3AEF208D93D47F0D6143E9B83BF338E
|
||||
3B5B3B48C3DCF6DE44F43C1372CA1B13E18B37B1872F82377788B4F95C1787B3
|
||||
4DE31C56217C71484B046F2DE153B075BD26A098B7DDEFA539EFC839BAC6EA49
|
||||
56173D03742175C69412BC9E428EF0A9DCD5E935500082D74023543061855722
|
||||
36AF8557F8ACAEEFDDDCB84A059610BC5CE1CBE1AB33BCEEF75A25448B8B5D5D
|
||||
F4E45031E554E115BC5CE19B2A7331B5463240F01A69880A6628F27CA4D89DDA
|
||||
F6F4089FAD282E56405CA5C8D2B754C0F76433AE2E7A533D2757F07284AF4A8F
|
||||
DDB050046F43D88D15A5B6D7552B21B37671DB3335313786BF8A39A917CCA78C
|
||||
82EFBD74AA89DE5CC143F8782DA1CAACD350A1267ACFC582FEEEA20BB9D03231
|
||||
C73BD812C1F36E7536D4BD5737A58AE82D15BC43163E5678AB8F89660B503416
|
||||
45F2886D81292E61B3C63B0C43F84E422A217808DFBD5C578FBD396EC6528237
|
||||
CCD723047D7ADBFE39AA732CF6A6FDFD8A4D2A47F113B7FCF1C4B2F4D4732B2F
|
||||
4D8FBD25F8C56214CA83ACC6AA46C2638C1F2B51376F1E56E65BA7626EF6F994
|
||||
6CFB39B121BDF549A54B3973F4CF8FFB80C26919838752F96FFDB94D3937ACAF
|
||||
3E350C901CE33BB4ADA4E00DF35DC0F7B8EF5B5D5EAE314F6EDD76C9F252F1DF
|
||||
E6DC809E2CB44BE08935399CA8257A217B5B8EBD297E538C97C4D2F4721E4C38
|
||||
274CD140CECD2795BEA5D89B0AF195EAE3B53ECFBD3D7A2EF7D473A53EF7C49A
|
||||
D418EECBD3D54AB5D87BCA55ECCB219B58BFEEF39A73037A0EFB5CBEA1F97217
|
||||
E36E8AD166DB9B6BACF0868DEC799D21A753B496569D8ED062755BC526A42FD5
|
||||
B5205CBA5604B9B747B7588FA14DB95B9D363E3ED1729D74063B14E9295BD75A
|
||||
E12DE4FB95B1CD36E796BE49649326DC44F4D616BC9ED49E0BDF0BB11E51725B
|
||||
6B935E975188B68622C98B5CC899614A9349B798206B553C57F86AD959B2DC2D
|
||||
DB3387EF3EBDF75C54F474AFD2B8036C25781EE11BD97739123BAECA7B4EE310
|
||||
3F47CB70DB371FD4EB9A89DBD531DF5A8297B2B7D44460A277C23943ED36F702
|
||||
C92576E95EB425CF977E5651F57589ED1A2C867DAFB73BD4E6A5EB34CE2F3631
|
||||
7763F7F2607C1C8F95B56D9A93BFC7DE2D05AFAF4306DFE7C6F50ECDF773D8EC
|
||||
F4333AF318EE556BDF58676D352AA572B5E7DCEF91CB2ED937B4454E09BA834C
|
||||
69B4875E738F5AB60DCFEC62EC74E6285B65B7ECAFC156657AED2D619FDAA5BF
|
||||
43AE3B17BEA71D4B94E1CDA3E7EF39C7299D467D58FD4267B76B8FABCE69EAF9
|
||||
BE0E0D707FB6EF03A1BE3FB6B734FB25F979EC0DCD4FDE3E59229DCE44A7F8AA
|
||||
8C619A9A737B89FA920704200001084000021080000420000108400002108000
|
||||
0420000108400002108000042000010840000210800004200001084000021080
|
||||
0004200001084000021080000420000108400002108000042000010840000210
|
||||
8000042000010840000210800004200001084000021080000420000108400002
|
||||
1080000420000108400002108000042000010840000210800004200001084000
|
||||
0210800004200001084000021080000420000108400002108000042000010840
|
||||
0002108000042000010840000210384802FF03079DC2B463377F450000000049
|
||||
454E44AE426082}
|
||||
CanFocus = False
|
||||
EnableOpenDialog = False
|
||||
Size.Width = 641.000000000000000000
|
||||
Size.Height = 97.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 1
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Position.Y = 104.000000000000000000
|
||||
Size.Width = 641.000000000000000000
|
||||
Size.Height = 377.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = '-'
|
||||
TabOrder = 2
|
||||
object Memo1: TMemo
|
||||
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
|
||||
DataDetectorTypes = []
|
||||
Lines.Strings = (
|
||||
'loaded text')
|
||||
CanFocus = False
|
||||
Position.X = 16.000000000000000000
|
||||
Position.Y = 16.000000000000000000
|
||||
Size.Width = 609.000000000000000000
|
||||
Size.Height = 353.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 0
|
||||
Viewport.Width = 605.000000000000000000
|
||||
Viewport.Height = 349.000000000000000000
|
||||
end
|
||||
end
|
||||
end
|
||||
105
Unit3.pas
105
Unit3.pas
|
|
@ -1,105 +0,0 @@
|
|||
unit Unit3;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
System.SysUtils, System.Types, System.UITypes, System.Classes,
|
||||
System.Variants,
|
||||
FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Ani, FMX.Layouts,
|
||||
FMX.Gestures,
|
||||
FMX.ScrollBox, FMX.Memo, FMX.StdCtrls, FMX.Controls.Presentation;
|
||||
|
||||
type
|
||||
TForm3 = class(TForm)
|
||||
ToolbarHolder: TLayout;
|
||||
ToolbarPopup: TPopup;
|
||||
ToolbarPopupAnimation: TFloatAnimation;
|
||||
ToolBar1: TToolBar;
|
||||
ToolbarApplyButton: TButton;
|
||||
ToolbarCloseButton: TButton;
|
||||
ToolbarAddButton: TButton;
|
||||
Memo1: TMemo;
|
||||
ImageControl1: TImageControl;
|
||||
GroupBox1: TGroupBox;
|
||||
procedure ToolbarCloseButtonClick(Sender: TObject);
|
||||
procedure FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo;
|
||||
var Handled: Boolean);
|
||||
procedure FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
|
||||
Shift: TShiftState);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
FGestureOrigin: TPointF;
|
||||
FGestureInProgress: Boolean;
|
||||
{ Private declarations }
|
||||
procedure ShowToolbar(AShow: Boolean);
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form3: TForm3;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.fmx}
|
||||
|
||||
uses
|
||||
Unit1;
|
||||
|
||||
procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
if Key = vkEscape then
|
||||
ShowToolbar(not ToolbarPopup.IsOpen);
|
||||
end;
|
||||
|
||||
procedure TForm3.ToolbarCloseButtonClick(Sender: TObject);
|
||||
begin
|
||||
Application.Terminate;
|
||||
end;
|
||||
|
||||
procedure TForm3.FormCreate(Sender: TObject);
|
||||
begin
|
||||
Memo1.Lines.LoadFromFile('Resource\MC_Changelog.txt');
|
||||
end;
|
||||
|
||||
procedure TForm3.FormGesture(Sender: TObject;
|
||||
const EventInfo: TGestureEventInfo; var Handled: Boolean);
|
||||
var
|
||||
DX, DY: Single;
|
||||
begin
|
||||
if EventInfo.GestureID = igiPan then
|
||||
begin
|
||||
if (TInteractiveGestureFlag.gfBegin in EventInfo.Flags) and
|
||||
((Sender = ToolbarPopup) or (EventInfo.Location.Y > (ClientHeight - 70)))
|
||||
then
|
||||
begin
|
||||
FGestureOrigin := EventInfo.Location;
|
||||
FGestureInProgress := True;
|
||||
end;
|
||||
|
||||
if FGestureInProgress and (TInteractiveGestureFlag.gfEnd in EventInfo.Flags)
|
||||
then
|
||||
begin
|
||||
FGestureInProgress := False;
|
||||
DX := EventInfo.Location.X - FGestureOrigin.X;
|
||||
DY := EventInfo.Location.Y - FGestureOrigin.Y;
|
||||
if (Abs(DY) > Abs(DX)) then
|
||||
ShowToolbar(DY < 0);
|
||||
end;
|
||||
end
|
||||
end;
|
||||
|
||||
procedure TForm3.ShowToolbar(AShow: Boolean);
|
||||
begin
|
||||
ToolbarPopup.Width := ClientWidth;
|
||||
ToolbarPopup.PlacementRectangle.Rect :=
|
||||
TRectF.Create(0, ClientHeight - ToolbarPopup.Height, ClientWidth - 1,
|
||||
ClientHeight - 1);
|
||||
ToolbarPopupAnimation.StartValue := ToolbarPopup.Height;
|
||||
ToolbarPopupAnimation.StopValue := 0;
|
||||
|
||||
ToolbarPopup.IsOpen := AShow;
|
||||
end;
|
||||
|
||||
end.
|
||||
492
Unit4.fmx
492
Unit4.fmx
|
|
@ -1,492 +0,0 @@
|
|||
object Form4: TForm4
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'MyTitie'
|
||||
ClientHeight = 481
|
||||
ClientWidth = 641
|
||||
Position = MainFormCenter
|
||||
StyleBook = Form1.StyleBook1
|
||||
FormFactor.Width = 1280
|
||||
FormFactor.Height = 1024
|
||||
FormFactor.Devices = [Desktop]
|
||||
OnKeyDown = FormKeyDown
|
||||
DesignerMasterStyle = 0
|
||||
object ToolbarHolder: TLayout
|
||||
OnGesture = FormGesture
|
||||
Align = Bottom
|
||||
Locked = True
|
||||
Position.Y = 520.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Visible = False
|
||||
object ToolbarPopup: TPopup
|
||||
Touch.InteractiveGestures = [Pan]
|
||||
OnGesture = FormGesture
|
||||
Align = Bottom
|
||||
DragMode = dmAutomatic
|
||||
Placement = Absolute
|
||||
PlacementRectangle.Left = -1.000000000000000000
|
||||
PlacementRectangle.Top = -1.000000000000000000
|
||||
PlacementRectangle.Right = -1.000000000000000000
|
||||
PlacementRectangle.Bottom = -1.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
object ToolbarPopupAnimation: TFloatAnimation
|
||||
AnimationType = Out
|
||||
Duration = 0.200000002980232200
|
||||
Interpolation = Cubic
|
||||
PropertyName = 'Position.Y'
|
||||
StartValue = 0.000000000000000000
|
||||
StopValue = 0.000000000000000000
|
||||
Trigger = 'IsOpen=true'
|
||||
TriggerInverse = 'IsOpen=false'
|
||||
end
|
||||
object ToolBar1: TToolBar
|
||||
StyleName = 'StyleBook1'
|
||||
Align = Client
|
||||
Padding.Left = 50.000000000000000000
|
||||
Padding.Top = 5.000000000000000000
|
||||
Padding.Right = 50.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
object ToolbarApplyButton: TButton
|
||||
Align = Left
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 141.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 80.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'applybuttontext'
|
||||
Text = 'Apply'
|
||||
end
|
||||
object ToolbarCloseButton: TButton
|
||||
Align = Right
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 505.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 80.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'closebuttontext'
|
||||
Text = 'Close App'
|
||||
OnClick = ToolbarCloseButtonClick
|
||||
end
|
||||
object ToolbarAddButton: TButton
|
||||
Align = Left
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 55.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 76.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'addbuttontext'
|
||||
Text = 'Add'
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object TabControl1: TTabControl
|
||||
Align = Client
|
||||
Size.Width = 641.000000000000000000
|
||||
Size.Height = 481.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabIndex = 0
|
||||
TabOrder = 1
|
||||
TabPosition = None
|
||||
Sizes = (
|
||||
641s
|
||||
481s
|
||||
641s
|
||||
481s
|
||||
641s
|
||||
481s
|
||||
641s
|
||||
481s)
|
||||
object TabItem1: TTabItem
|
||||
CustomIcon = <
|
||||
item
|
||||
end>
|
||||
IsSelected = True
|
||||
Size.Width = 8.000000000000000000
|
||||
Size.Height = 8.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = ''
|
||||
TabOrder = 0
|
||||
Text = 'TabItem1'
|
||||
ExplicitSize.cx = 8.000000000000000000
|
||||
ExplicitSize.cy = 8.000000000000000000
|
||||
object Label1: TLabel
|
||||
StyledSettings = [Family, Style, FontColor]
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 8.000000000000000000
|
||||
Size.Width = 233.000000000000000000
|
||||
Size.Height = 25.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TextSettings.Font.Size = 20.000000000000000000
|
||||
Text = 'Are you sure about that??'
|
||||
TabOrder = 0
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 32.000000000000000000
|
||||
Size.Width = 625.000000000000000000
|
||||
Size.Height = 73.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = 'General'
|
||||
TabOrder = 1
|
||||
object Edit1: TEdit
|
||||
Touch.InteractiveGestures = [LongTap, DoubleTap]
|
||||
TabOrder = 0
|
||||
CanFocus = False
|
||||
Position.X = 56.000000000000000000
|
||||
Position.Y = 16.000000000000000000
|
||||
Size.Width = 553.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 16.000000000000000000
|
||||
Size.Width = 41.000000000000000000
|
||||
Size.Height = 17.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = 'Source'
|
||||
TabOrder = 1
|
||||
end
|
||||
object Edit2: TEdit
|
||||
Touch.InteractiveGestures = [LongTap, DoubleTap]
|
||||
TabOrder = 2
|
||||
CanFocus = False
|
||||
Position.X = 56.000000000000000000
|
||||
Position.Y = 40.000000000000000000
|
||||
Size.Width = 553.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 40.000000000000000000
|
||||
Size.Width = 41.000000000000000000
|
||||
Size.Height = 17.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = 'Output'
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
object GroupBox2: TGroupBox
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 104.000000000000000000
|
||||
Size.Width = 625.000000000000000000
|
||||
Size.Height = 97.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = 'Option'
|
||||
TabOrder = 2
|
||||
object Edit3: TEdit
|
||||
Touch.InteractiveGestures = [LongTap, DoubleTap]
|
||||
TabOrder = 0
|
||||
CanFocus = False
|
||||
Position.X = 64.000000000000000000
|
||||
Position.Y = 16.000000000000000000
|
||||
Size.Width = 545.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
end
|
||||
object Edit4: TEdit
|
||||
Touch.InteractiveGestures = [LongTap, DoubleTap]
|
||||
TabOrder = 1
|
||||
CanFocus = False
|
||||
Position.X = 64.000000000000000000
|
||||
Position.Y = 40.000000000000000000
|
||||
Size.Width = 545.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 16.000000000000000000
|
||||
Size.Width = 49.000000000000000000
|
||||
Size.Height = 17.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = 'Memory'
|
||||
TabOrder = 2
|
||||
end
|
||||
object Label5: TLabel
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 40.000000000000000000
|
||||
Size.Width = 49.000000000000000000
|
||||
Size.Height = 17.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = 'Method'
|
||||
TabOrder = 3
|
||||
end
|
||||
object Edit7: TEdit
|
||||
Touch.InteractiveGestures = [LongTap, DoubleTap]
|
||||
TabOrder = 4
|
||||
Position.X = 64.000000000000000000
|
||||
Position.Y = 64.000000000000000000
|
||||
Size.Width = 545.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 64.000000000000000000
|
||||
Size.Width = 57.000000000000000000
|
||||
Size.Height = 17.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = 'Password'
|
||||
TabOrder = 5
|
||||
end
|
||||
end
|
||||
object Button1: TButton
|
||||
Position.X = 240.000000000000000000
|
||||
Position.Y = 448.000000000000000000
|
||||
Size.Width = 73.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 3
|
||||
Text = 'YES'
|
||||
OnClick = Button1Click
|
||||
end
|
||||
object Button2: TButton
|
||||
Position.X = 328.000000000000000000
|
||||
Position.Y = 448.000000000000000000
|
||||
Size.Width = 72.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 4
|
||||
Text = 'NO'
|
||||
OnClick = Button2Click
|
||||
end
|
||||
end
|
||||
object TabItem2: TTabItem
|
||||
CustomIcon = <
|
||||
item
|
||||
end>
|
||||
IsSelected = False
|
||||
Size.Width = 8.000000000000000000
|
||||
Size.Height = 8.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = ''
|
||||
TabOrder = 0
|
||||
Text = 'TabItem2'
|
||||
ExplicitSize.cx = 8.000000000000000000
|
||||
ExplicitSize.cy = 8.000000000000000000
|
||||
object Label6: TLabel
|
||||
StyledSettings = [Family, Style, FontColor]
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 8.000000000000000000
|
||||
Size.Width = 233.000000000000000000
|
||||
Size.Height = 25.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TextSettings.Font.Size = 20.000000000000000000
|
||||
Text = 'Are you sure about that??'
|
||||
TabOrder = 0
|
||||
end
|
||||
object GroupBox3: TGroupBox
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 32.000000000000000000
|
||||
Size.Width = 625.000000000000000000
|
||||
Size.Height = 73.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = 'General'
|
||||
TabOrder = 1
|
||||
object Edit5: TEdit
|
||||
Touch.InteractiveGestures = [LongTap, DoubleTap]
|
||||
TabOrder = 0
|
||||
Position.X = 56.000000000000000000
|
||||
Position.Y = 16.000000000000000000
|
||||
Size.Width = 556.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 16.000000000000000000
|
||||
Size.Width = 25.000000000000000000
|
||||
Size.Height = 17.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = 'File'
|
||||
TabOrder = 1
|
||||
end
|
||||
object Edit6: TEdit
|
||||
Touch.InteractiveGestures = [LongTap, DoubleTap]
|
||||
TabOrder = 2
|
||||
Position.X = 56.000000000000000000
|
||||
Position.Y = 40.000000000000000000
|
||||
Size.Width = 556.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 40.000000000000000000
|
||||
Size.Width = 41.000000000000000000
|
||||
Size.Height = 17.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = 'Output'
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
object Button4: TButton
|
||||
Position.X = 240.000000000000000000
|
||||
Position.Y = 448.000000000000000000
|
||||
Size.Width = 73.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 2
|
||||
Text = 'YES'
|
||||
OnClick = Button4Click
|
||||
end
|
||||
object Button5: TButton
|
||||
Position.X = 328.000000000000000000
|
||||
Position.Y = 448.000000000000000000
|
||||
Size.Width = 72.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 3
|
||||
Text = 'NO'
|
||||
OnClick = Button5Click
|
||||
end
|
||||
end
|
||||
object TabItem3: TTabItem
|
||||
CustomIcon = <
|
||||
item
|
||||
end>
|
||||
IsSelected = False
|
||||
Size.Width = 8.000000000000000000
|
||||
Size.Height = 8.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = ''
|
||||
TabOrder = 0
|
||||
Text = 'TabItem3'
|
||||
ExplicitSize.cx = 8.000000000000000000
|
||||
ExplicitSize.cy = 8.000000000000000000
|
||||
object Memo1: TMemo
|
||||
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
|
||||
DataDetectorTypes = []
|
||||
ShowScrollBars = False
|
||||
StyledSettings = [Size, Style, FontColor]
|
||||
TextSettings.Font.Family = 'Consolas'
|
||||
CanFocus = False
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 8.000000000000000000
|
||||
Size.Width = 625.000000000000000000
|
||||
Size.Height = 433.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 0
|
||||
Viewport.Width = 625.000000000000000000
|
||||
Viewport.Height = 433.000000000000000000
|
||||
end
|
||||
object Button3: TButton
|
||||
Position.X = 328.000000000000000000
|
||||
Position.Y = 448.000000000000000000
|
||||
Size.Width = 72.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 1
|
||||
Text = 'Close'
|
||||
OnClick = Button3Click
|
||||
end
|
||||
object Button6: TButton
|
||||
Position.X = 240.000000000000000000
|
||||
Position.Y = 448.000000000000000000
|
||||
Size.Width = 73.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 2
|
||||
Text = 'Save report'
|
||||
OnClick = Button6Click
|
||||
end
|
||||
end
|
||||
object TabItem4: TTabItem
|
||||
CustomIcon = <
|
||||
item
|
||||
end>
|
||||
IsSelected = False
|
||||
Size.Width = 8.000000000000000000
|
||||
Size.Height = 8.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = ''
|
||||
TabOrder = 0
|
||||
Text = 'TabItem4'
|
||||
ExplicitSize.cx = 8.000000000000000000
|
||||
ExplicitSize.cy = 8.000000000000000000
|
||||
object Label9: TLabel
|
||||
StyledSettings = [Family, Style, FontColor]
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 8.000000000000000000
|
||||
Size.Width = 625.000000000000000000
|
||||
Size.Height = 433.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TextSettings.Font.Size = 36.000000000000000000
|
||||
TextSettings.HorzAlign = Center
|
||||
Text = 'WAITING FOR RESPONSE'
|
||||
Visible = False
|
||||
TabOrder = 0
|
||||
end
|
||||
object Button7: TButton
|
||||
Position.X = 328.000000000000000000
|
||||
Position.Y = 448.000000000000000000
|
||||
Size.Width = 72.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 1
|
||||
Text = 'Close'
|
||||
OnClick = Button7Click
|
||||
end
|
||||
object Button8: TButton
|
||||
Position.X = 240.000000000000000000
|
||||
Position.Y = 448.000000000000000000
|
||||
Size.Width = 73.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 2
|
||||
Text = 'Save Report'
|
||||
end
|
||||
object Memo2: TMemo
|
||||
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
|
||||
DataDetectorTypes = []
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 32.000000000000000000
|
||||
Size.Width = 625.000000000000000000
|
||||
Size.Height = 361.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 3
|
||||
Viewport.Width = 625.000000000000000000
|
||||
Viewport.Height = 361.000000000000000000
|
||||
end
|
||||
object ProgressBar1: TProgressBar
|
||||
Orientation = Horizontal
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 8.000000000000000000
|
||||
Size.Width = 625.000000000000000000
|
||||
Size.Height = 23.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
end
|
||||
object Label10: TLabel
|
||||
Position.X = 16.000000000000000000
|
||||
Position.Y = 400.000000000000000000
|
||||
TabOrder = 5
|
||||
end
|
||||
object Label11: TLabel
|
||||
Position.X = 16.000000000000000000
|
||||
Position.Y = 424.000000000000000000
|
||||
TabOrder = 6
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
593
Unit4.pas
593
Unit4.pas
|
|
@ -1,593 +0,0 @@
|
|||
unit Unit4;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
System.SysUtils, System.Types, System.UITypes, System.Classes,
|
||||
System.Variants,
|
||||
FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Ani, FMX.Layouts,
|
||||
FMX.Gestures,
|
||||
FMX.StdCtrls, FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo,
|
||||
FMX.TabControl, FMX.Edit, winapi.windows, Math;
|
||||
|
||||
type
|
||||
TForm4 = class(TForm)
|
||||
ToolbarHolder: TLayout;
|
||||
ToolbarPopup: TPopup;
|
||||
ToolbarPopupAnimation: TFloatAnimation;
|
||||
ToolBar1: TToolBar;
|
||||
ToolbarApplyButton: TButton;
|
||||
ToolbarCloseButton: TButton;
|
||||
ToolbarAddButton: TButton;
|
||||
TabControl1: TTabControl;
|
||||
TabItem1: TTabItem;
|
||||
TabItem2: TTabItem;
|
||||
TabItem3: TTabItem;
|
||||
Label1: TLabel;
|
||||
GroupBox1: TGroupBox;
|
||||
Edit1: TEdit;
|
||||
Label2: TLabel;
|
||||
Edit2: TEdit;
|
||||
Label3: TLabel;
|
||||
GroupBox2: TGroupBox;
|
||||
Edit3: TEdit;
|
||||
Edit4: TEdit;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
Memo1: TMemo;
|
||||
Button3: TButton;
|
||||
Label6: TLabel;
|
||||
GroupBox3: TGroupBox;
|
||||
Edit5: TEdit;
|
||||
Label7: TLabel;
|
||||
Edit6: TEdit;
|
||||
Label8: TLabel;
|
||||
Button4: TButton;
|
||||
Button5: TButton;
|
||||
Button6: TButton;
|
||||
TabItem4: TTabItem;
|
||||
Label9: TLabel;
|
||||
Button7: TButton;
|
||||
Button8: TButton;
|
||||
Memo2: TMemo;
|
||||
ProgressBar1: TProgressBar;
|
||||
Label10: TLabel;
|
||||
Label11: TLabel;
|
||||
Edit7: TEdit;
|
||||
Label12: TLabel;
|
||||
procedure ToolbarCloseButtonClick(Sender: TObject);
|
||||
procedure FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo;
|
||||
var Handled: Boolean);
|
||||
procedure FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
|
||||
Shift: TShiftState);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure Button2Click(Sender: TObject);
|
||||
procedure Button3Click(Sender: TObject);
|
||||
procedure Button5Click(Sender: TObject);
|
||||
procedure Button4Click(Sender: TObject);
|
||||
procedure Button6Click(Sender: TObject);
|
||||
procedure Button7Click(Sender: TObject);
|
||||
private
|
||||
FGestureOrigin: TPointF;
|
||||
FGestureInProgress: Boolean;
|
||||
{ Private declarations }
|
||||
procedure ShowToolbar(AShow: Boolean);
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form4: TForm4;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.fmx}
|
||||
|
||||
uses
|
||||
Unit1;
|
||||
|
||||
type
|
||||
TUnarcCallBack = function(what: PAnsiChar; int1, int2: Integer;
|
||||
str: PAnsiChar): Integer; stdcall;
|
||||
|
||||
const
|
||||
MyTitlez = 'Mini Compressor v20.4';
|
||||
LibraryAioFP = 'Aio_FP.dll';
|
||||
|
||||
ErrCodeTableMax = 15;
|
||||
|
||||
ErrCodeTable: array [1 .. ErrCodeTableMax] of PAnsiChar = (nil, // -1
|
||||
'Íåèçâåñòíûé ìåòîä ñæàòèÿ àðõèâà!', // -2
|
||||
nil, // -3
|
||||
'Âûõîäíîé áëîê äàííûõ ñëèøêîì ìàë!', // -4
|
||||
'Íå õâàòàåò ïàìÿòè!', // -5
|
||||
'Íåâîçìîæíî ñ÷èòàòü äàííûå!', // -6
|
||||
'Àðõèâ ïîâðåæäåí!', // -7
|
||||
'Íåîáõîäèìûå ôóíêöèè íå ïîääåðæèâàþòñÿ áèáëèîòåêîé!', // -8
|
||||
'Çàïðîøåííûå äàííûå óæå áûëè ðàñïàêîâàíû!', // -9
|
||||
nil, // -10
|
||||
'Íåâîçìîæíî çàïèñàòü äàííûå íà äèñê!', // -11
|
||||
'Íå ñîâïàäàåò êîíòðîëüíàÿ ñóììà!', // -12
|
||||
'Íåâåðíûé ïàðîëü!', // -13
|
||||
'Çàãîëîâîê àðõèâà ïîâðåæäåí!', // -14
|
||||
'Âíóòðåííÿÿ îøèáêà áèáëèîòåêè!'); // -15
|
||||
|
||||
UnArcExcept0 = 'Ïðîèçîøëà îøèáêà ïðè ðàñïàêîâêå!';
|
||||
UnArcExcept1 = 'Ïðîèçîøëà îøèáêà ïðè ðàñïàêîâêå: ';
|
||||
UnArcExcept2 = 'Unarc.dll âåðíóë êîä îøèáêè: ';
|
||||
|
||||
var
|
||||
CfgOptExt, PassOptExt, WorkOptExt: PAnsiChar;
|
||||
LastExtractedFile, ExtractedFile, InputFileExt, OutputPathExt: string;
|
||||
totalUncompressedMb, Percent, LastPercent: Integer;
|
||||
UnarcDone, UnarcError: Boolean;
|
||||
Cancel: Integer;
|
||||
UnarDLLHandle: THandle = 0;
|
||||
StartUnpackTime, DeltaTime: Cardinal;
|
||||
ProcessStarted: Boolean = false;
|
||||
|
||||
FreeArcExtract: function(callback: TUnarcCallBack;
|
||||
cmd1, cmd2, cmd3, cmd4, cmd5, cmd6, cmd7, cmd8, cmd9, cmd10: PAnsiChar)
|
||||
: Integer; cdecl;
|
||||
|
||||
procedure Exec(sExe, sCommandLine: string; wait: Boolean); stdcall;
|
||||
external LibraryAioFP;
|
||||
function SelDir: string; stdcall; external LibraryAioFP;
|
||||
procedure FreearcCompress(Source, Output, Memory, Method, Password: string);
|
||||
stdcall; external 'MC_Freearc.dll';
|
||||
|
||||
function GetExePath(Instance: THandle): string;
|
||||
var
|
||||
TheFileName: array [0 .. 511] of Char;
|
||||
begin
|
||||
FillChar(TheFileName, sizeof(TheFileName), #0);
|
||||
GetModuleFileName(Instance, TheFileName, sizeof(TheFileName));
|
||||
result := string(TheFileName);
|
||||
end;
|
||||
|
||||
function MyUnarcCallBack(what: PAnsiChar; Mb, sizeArc: Integer; str: PAnsiChar)
|
||||
: Integer; stdcall;
|
||||
var
|
||||
ArcErrCode: Integer;
|
||||
ArcErrStr: PAnsiChar;
|
||||
begin
|
||||
if what = 'filename' then
|
||||
begin
|
||||
ExtractedFile := string(str);
|
||||
// Form1.Memo1.Lines.Add('Ðàñïàêîâûâàåòñÿ '+string(str)+'...');
|
||||
end
|
||||
else if what = 'origsize' then
|
||||
totalUncompressedMb := Mb
|
||||
else if (what = 'write') and (totalUncompressedMb > 0) then
|
||||
Percent := round((Mb / totalUncompressedMb) * 1000)
|
||||
else if (what = 'quit') and (Mb < 0) and (Mb <> -10) then
|
||||
begin
|
||||
ArcErrCode := abs(Mb);
|
||||
ArcErrStr := nil;
|
||||
if ArcErrCode <= ErrCodeTableMax then
|
||||
begin
|
||||
ArcErrStr := ErrCodeTable[ArcErrCode];
|
||||
end;
|
||||
if ArcErrStr <> nil then
|
||||
begin
|
||||
if str <> nil then
|
||||
begin
|
||||
Form4.Memo2.Lines.Add(UnArcExcept1 + ArcErrStr);
|
||||
Form4.Memo2.Lines.Add(UnArcExcept2 + IntToStr(-ArcErrCode));
|
||||
Form4.Memo2.Lines.Add(string(str));
|
||||
end
|
||||
else
|
||||
begin
|
||||
Form4.Memo2.Lines.Add(UnArcExcept1 + ArcErrStr);
|
||||
Form4.Memo2.Lines.Add(UnArcExcept2 + IntToStr(-ArcErrCode));
|
||||
end;
|
||||
end
|
||||
else if str <> nil then
|
||||
begin
|
||||
Form4.Memo2.Lines.Add(UnArcExcept0);
|
||||
Form4.Memo2.Lines.Add(UnArcExcept2 + IntToStr(-ArcErrCode));
|
||||
Form4.Memo2.Lines.Add(string(str));
|
||||
end
|
||||
else
|
||||
begin
|
||||
Form4.Memo2.Lines.Add(UnArcExcept0);
|
||||
Form4.Memo2.Lines.Add(UnArcExcept2 + IntToStr(-ArcErrCode));
|
||||
end;
|
||||
UnarcError := true;
|
||||
end;
|
||||
if UnarcError then
|
||||
result := -127
|
||||
else
|
||||
result := 0;
|
||||
end;
|
||||
|
||||
procedure UnarcThread(data: Integer); stdcall;
|
||||
var
|
||||
x, y: Integer;
|
||||
cmd: array [1 .. 6] of PAnsiChar;
|
||||
label ExitUnarc;
|
||||
begin
|
||||
if FreeArcExtract(@MyUnarcCallBack, 'l', '--',
|
||||
PAnsiChar(AnsiToUtf8(InputFileExt)), nil, nil, nil, nil, nil, nil, nil) >= 0
|
||||
then
|
||||
begin
|
||||
cmd[1] := CfgOptExt;
|
||||
cmd[2] := PassOptExt;
|
||||
cmd[3] := WorkOptExt;
|
||||
cmd[4] := PAnsiChar(AnsiToUtf8('-dp' + OutputPathExt));
|
||||
cmd[5] := '--';
|
||||
cmd[6] := PAnsiChar(AnsiToUtf8(InputFileExt));
|
||||
for x := 1 to 3 do
|
||||
while cmd[x] = nil do
|
||||
begin
|
||||
for y := x + 1 to 6 do
|
||||
cmd[y - 1] := cmd[y];
|
||||
cmd[6] := nil;
|
||||
end;
|
||||
FreeArcExtract(@MyUnarcCallBack, 'x', '-o+', cmd[1], cmd[2], cmd[3], cmd[4],
|
||||
cmd[5], cmd[6], nil, nil);
|
||||
end
|
||||
else
|
||||
UnarcError := true;
|
||||
UnarcDone := true;
|
||||
ExitThread(0);
|
||||
end;
|
||||
|
||||
function ArcExtract(InputFile, OutputPath, Password, CfgFile, WorkPath: string;
|
||||
MemoMe: TMemo; LB_Percent, LB_Extract: TLabel;
|
||||
ProgressExtract: TProgressBar): Boolean;
|
||||
var
|
||||
sa: TSecurityAttributes;
|
||||
ThreadID: Cardinal;
|
||||
begin
|
||||
result := false;
|
||||
try
|
||||
repeat
|
||||
if (InputFile = '') or not FileExists(InputFile) then
|
||||
begin
|
||||
MemoMe.Lines.Add('CHECK IT FIRST!! WRONG DIRECTION!!');
|
||||
break;
|
||||
end;
|
||||
if (CfgFile <> '') and FileExists(CfgFile) then
|
||||
CfgOptExt := PAnsiChar(AnsiToUtf8('-cfg' + CfgFile))
|
||||
else
|
||||
CfgOptExt := nil;
|
||||
if Password <> '' then
|
||||
PassOptExt := PAnsiChar(AnsiToUtf8('-p' + Password))
|
||||
else
|
||||
PassOptExt := nil;
|
||||
if (WorkPath <> '') then
|
||||
WorkOptExt := PAnsiChar(AnsiToUtf8('-w' + WorkPath))
|
||||
else
|
||||
WorkOptExt := nil;
|
||||
Percent := 0;
|
||||
LastPercent := 0;
|
||||
totalUncompressedMb := 0;
|
||||
ExtractedFile := '';
|
||||
LastExtractedFile := '';
|
||||
UnarcDone := false;
|
||||
UnarcError := false;
|
||||
InputFileExt := InputFile;
|
||||
OutputPathExt := OutputPath;
|
||||
if UnarDLLHandle = 0 then
|
||||
begin
|
||||
UnarDLLHandle :=
|
||||
LoadLibrary(PWideChar(ExtractFilePath(GetExePath(Hinstance)) +
|
||||
'Bin\arc_u\unarc.dll'));
|
||||
if UnarDLLHandle = 0 then
|
||||
begin
|
||||
MemoMe.Lines.Add('unarc.dll is missing!!');
|
||||
break;
|
||||
end;
|
||||
FreeArcExtract := GetProcAddress(UnarDLLHandle, 'FreeArcExtract');
|
||||
end;
|
||||
StartUnpackTime := GetTickCount;
|
||||
sa.nLength := sizeof(sa);
|
||||
sa.bInheritHandle := true;
|
||||
sa.lpSecurityDescriptor := nil;
|
||||
BeginThread(@sa, 0, @UnarcThread, nil, 0, ThreadID);
|
||||
while not UnarcDone do
|
||||
begin
|
||||
Application.ProcessMessages;
|
||||
sleep(25);
|
||||
if Cancel < 0 then
|
||||
UnarcError := true;
|
||||
ProgressExtract.Value := Percent;
|
||||
DeltaTime := (GetTickCount - StartUnpackTime) div 1000;
|
||||
if { (DeltaTime>0)and } (Percent > LastPercent) and (Percent <> 0) then
|
||||
begin
|
||||
LastPercent := Percent;
|
||||
LB_Percent.Text := IntToStr(Percent div 10) + '.' +
|
||||
IntToStr(Percent mod 10) + '%';
|
||||
LB_Extract.Text := 'Extracting: ' +
|
||||
IntToStr(round(DeltaTime / (Percent / 1000) - DeltaTime)) + ' ';
|
||||
end;
|
||||
if ExtractedFile <> LastExtractedFile then
|
||||
begin
|
||||
MemoMe.Lines.Add('Extracting: ' + ExtractedFile);
|
||||
LastExtractedFile := ExtractedFile;
|
||||
end;
|
||||
end;
|
||||
result := not UnarcError;
|
||||
until true;
|
||||
except
|
||||
MemoMe.Lines.Add('LoL! Your File seen to be trouble at you now!');
|
||||
end;
|
||||
end;
|
||||
|
||||
function GetDirSize(dir: string; subdir: Boolean): Int64;
|
||||
var
|
||||
rec: TSearchRec;
|
||||
found: Integer;
|
||||
begin
|
||||
result := 0;
|
||||
if dir[Length(dir)] <> '\' then
|
||||
dir := dir + '\';
|
||||
found := FindFirst(dir + '*.*', faAnyFile, rec);
|
||||
while found = 0 do
|
||||
begin
|
||||
Inc(result, rec.Size);
|
||||
if (rec.Attr and faDirectory > 0) and (rec.Name[1] <> '.') and
|
||||
(subdir = true) then
|
||||
Inc(result, GetDirSize(dir + rec.Name, true));
|
||||
found := FindNext(rec);
|
||||
end;
|
||||
System.SysUtils.FindClose(rec);
|
||||
end;
|
||||
|
||||
function ConvertBytes(Bytes: Int64): string;
|
||||
const
|
||||
Description: Array [0 .. 8] of string = ('Bytes', 'KB', 'MB', 'GB', 'TB',
|
||||
'PB', 'EB', 'ZB', 'YB');
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
i := 0;
|
||||
|
||||
while Bytes > Power(1024, i + 1) do
|
||||
Inc(i);
|
||||
|
||||
result := FormatFloat('###0.##', Bytes / IntPower(1024, i)) + ' ' +
|
||||
Description[i];
|
||||
end;
|
||||
|
||||
function GetFileSize(p_sFilePath: string): Int64;
|
||||
var
|
||||
oFile: file of Byte;
|
||||
begin
|
||||
// Result := -1;
|
||||
AssignFile(oFile, p_sFilePath);
|
||||
try
|
||||
Reset(oFile);
|
||||
result := FileSize(oFile);
|
||||
finally
|
||||
CloseFile(oFile);
|
||||
end;
|
||||
end;
|
||||
|
||||
// ================================================================================
|
||||
|
||||
procedure TForm4.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
if Key = vkEscape then
|
||||
ShowToolbar(not ToolbarPopup.IsOpen);
|
||||
end;
|
||||
|
||||
procedure TForm4.ToolbarCloseButtonClick(Sender: TObject);
|
||||
begin
|
||||
Application.Terminate;
|
||||
end;
|
||||
|
||||
procedure TForm4.Button1Click(Sender: TObject);
|
||||
var
|
||||
DateAndTimeZ: TDateTime;
|
||||
FAError: Boolean;
|
||||
begin
|
||||
Caption := 'Processing...';
|
||||
Button3.Visible := false;
|
||||
Button6.Visible := false;
|
||||
TabControl1.TabIndex := 2;
|
||||
|
||||
DateAndTimeZ := Now;
|
||||
Memo1.Lines.Add(MyTitlez + ' - Compressing...');
|
||||
Memo1.Lines.Add('Date & Time: ' + DateToStr(DateAndTimeZ) + ' | ' +
|
||||
TimeToStr(DateAndTimeZ));
|
||||
Memo1.Lines.Add('');
|
||||
Memo1.Lines.Add(' Source: ' + Edit1.Text);
|
||||
Memo1.Lines.Add(' Output: ' + Edit2.Text);
|
||||
Memo1.Lines.Add(' Method: ' + Edit4.Text);
|
||||
|
||||
FreearcCompress(Edit1.Text, Edit2.Text, Edit3.Text, Edit4.Text, Edit7.Text);
|
||||
|
||||
if FileExists(Edit2.Text) then
|
||||
FAError := false;
|
||||
if not FileExists(Edit2.Text) then
|
||||
FAError := true;
|
||||
Button3.Visible := true;
|
||||
Button6.Visible := true;
|
||||
|
||||
if FAError = false then
|
||||
begin
|
||||
Caption := 'Finished.';
|
||||
DateAndTimeZ := Now;
|
||||
Memo1.Lines.Add('');
|
||||
Memo1.Lines.Add('RESULT:');
|
||||
Memo1.Lines.Add('');
|
||||
Memo1.Lines.Add(' Original Size: ' +
|
||||
ConvertBytes(GetDirSize(Edit1.Text + '\', true)));
|
||||
Memo1.Lines.Add(' Compressed Size: ' +
|
||||
ConvertBytes(GetFileSize(Edit2.Text)));
|
||||
Memo1.Lines.Add('');
|
||||
Memo1.Lines.Add('Thank you for using ' + MyTitlez);
|
||||
Memo1.Lines.Add('Date & Time: ' + DateToStr(DateAndTimeZ) + ' | ' +
|
||||
TimeToStr(DateAndTimeZ));
|
||||
Memo1.GoToTextEnd;
|
||||
if FileExists(IncludeTrailingBackslash(GetCurrentDir) + 'ArcTools.ini') then
|
||||
DeleteFile(PWideChar(IncludeTrailingBackslash(GetCurrentDir) +
|
||||
'ArcTools.ini'));
|
||||
end
|
||||
else if FAError = true then
|
||||
begin
|
||||
Caption := 'Failed.';
|
||||
DateAndTimeZ := Now;
|
||||
Memo1.Lines.Add('');
|
||||
Memo1.Lines.Add('LOOKS LIKE THERE IS A PROBLEM ABOUT FREEARC!');
|
||||
Memo1.Lines.Add('PLEASE CONTACT ABOUT PROBLEM!');
|
||||
Memo1.Lines.Add('');
|
||||
Memo1.Lines.Add('Date & Time: ' + DateToStr(DateAndTimeZ) + ' | ' +
|
||||
TimeToStr(DateAndTimeZ));
|
||||
Memo1.GoToTextEnd;
|
||||
if FileExists(IncludeTrailingBackslash(GetCurrentDir) + 'ArcTools.ini') then
|
||||
DeleteFile(PWideChar(IncludeTrailingBackslash(GetCurrentDir) +
|
||||
'ArcTools.ini'));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm4.Button2Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TForm4.Button3Click(Sender: TObject);
|
||||
begin
|
||||
if FileExists('.\_Output\Result.log', false) then
|
||||
DeleteFile('.\_Output\Result.log');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TForm4.Button4Click(Sender: TObject);
|
||||
var
|
||||
FACommands, FAArchive, FAOutput: string;
|
||||
DateAndTimeZ: TDateTime;
|
||||
begin
|
||||
FAArchive := '"' + Edit5.Text + '"';
|
||||
FAOutput := '-dp"' + Edit6.Text + '"';
|
||||
FACommands := 'x ' + FAArchive + ' -o+ ' + FAOutput;
|
||||
|
||||
Caption := 'Processing...';
|
||||
Button7.Visible := false;
|
||||
Button8.Visible := false;
|
||||
TabControl1.TabIndex := 3;
|
||||
|
||||
DateAndTimeZ := Now;
|
||||
Memo2.Lines.Add(MyTitlez + ' - Decompressing...');
|
||||
Memo2.Lines.Add('Date & Time: ' + DateToStr(DateAndTimeZ) + ' | ' +
|
||||
TimeToStr(DateAndTimeZ));
|
||||
Memo2.Lines.Add('');
|
||||
Memo2.Lines.Add(' Source:');
|
||||
Memo2.Lines.Add(' * ' + Edit2.Text);
|
||||
Memo2.Lines.Add('');
|
||||
Memo2.Lines.Add(' Output:');
|
||||
Memo2.Lines.Add(' * ' + Edit1.Text);
|
||||
Memo2.Lines.Add('');
|
||||
Memo2.Lines.Add(' Result:');
|
||||
Memo2.Lines.Add(' * ' + 'Bin\Arc_\Unarc.exe' + ' ' + FACommands);
|
||||
Memo2.Lines.Add('');
|
||||
Memo2.Lines.Add('ENJOY. :D');
|
||||
Memo2.Lines.Add('');
|
||||
Memo2.Lines.Add('');
|
||||
Memo2.Lines.Add('');
|
||||
|
||||
if ProcessStarted then
|
||||
exit;
|
||||
ProcessStarted := true;
|
||||
ProgressBar1.Max := 1000;
|
||||
ProgressBar1.Value := 0;
|
||||
Cancel := 0;
|
||||
if not ArcExtract(Edit5.Text, Edit6.Text, '', '', '', Memo2, Label10, Label11,
|
||||
ProgressBar1) then
|
||||
begin
|
||||
Memo2.Lines.Add('');
|
||||
Memo2.Lines.Add('Extract failed!');
|
||||
ProgressBar1.Value := 0;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Memo2.Lines.Add('');
|
||||
Memo2.Lines.Add('Finished. You are unpack size is ' +
|
||||
IntToStr(totalUncompressedMb) + ' MB.');
|
||||
ProgressBar1.Value := 1000;
|
||||
end;
|
||||
ProcessStarted := false;
|
||||
Label10.Text := '';
|
||||
Label11.Text := '';
|
||||
|
||||
Caption := 'Finished.';
|
||||
Button7.Visible := true;
|
||||
Button8.Visible := true;
|
||||
TabControl1.TabIndex := 3;
|
||||
|
||||
DateAndTimeZ := Now;
|
||||
Memo2.Lines.Add('');
|
||||
Memo2.Lines.Add('');
|
||||
Memo2.Lines.Add('');
|
||||
Memo2.Lines.Add('Thank you for using ' + MyTitlez);
|
||||
Memo2.Lines.Add('Date & Time: ' + DateToStr(DateAndTimeZ) + ' | ' +
|
||||
TimeToStr(DateAndTimeZ));
|
||||
Memo2.GoToTextEnd;
|
||||
end;
|
||||
|
||||
procedure TForm4.Button5Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TForm4.Button6Click(Sender: TObject);
|
||||
var
|
||||
SaveTXT: string;
|
||||
begin
|
||||
SaveTXT := SelDir;
|
||||
if SaveTXT <> '' then
|
||||
begin
|
||||
Memo1.Lines.SaveToFile(SaveTXT + '\Result1.txt');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm4.Button7Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TForm4.FormGesture(Sender: TObject;
|
||||
const EventInfo: TGestureEventInfo; var Handled: Boolean);
|
||||
var
|
||||
DX, DY: Single;
|
||||
begin
|
||||
if EventInfo.GestureID = igiPan then
|
||||
begin
|
||||
if (TInteractiveGestureFlag.gfBegin in EventInfo.Flags) and
|
||||
((Sender = ToolbarPopup) or (EventInfo.Location.y > (ClientHeight - 70)))
|
||||
then
|
||||
begin
|
||||
FGestureOrigin := EventInfo.Location;
|
||||
FGestureInProgress := true;
|
||||
end;
|
||||
|
||||
if FGestureInProgress and (TInteractiveGestureFlag.gfEnd in EventInfo.Flags)
|
||||
then
|
||||
begin
|
||||
FGestureInProgress := false;
|
||||
DX := EventInfo.Location.x - FGestureOrigin.x;
|
||||
DY := EventInfo.Location.y - FGestureOrigin.y;
|
||||
if (abs(DY) > abs(DX)) then
|
||||
ShowToolbar(DY < 0);
|
||||
end;
|
||||
end
|
||||
end;
|
||||
|
||||
procedure TForm4.ShowToolbar(AShow: Boolean);
|
||||
begin
|
||||
ToolbarPopup.Width := ClientWidth;
|
||||
ToolbarPopup.PlacementRectangle.Rect :=
|
||||
TRectF.Create(0, ClientHeight - ToolbarPopup.Height, ClientWidth - 1,
|
||||
ClientHeight - 1);
|
||||
ToolbarPopupAnimation.StartValue := ToolbarPopup.Height;
|
||||
ToolbarPopupAnimation.StopValue := 0;
|
||||
|
||||
ToolbarPopup.IsOpen := AShow;
|
||||
end;
|
||||
|
||||
end.
|
||||
163
Unit5.fmx
163
Unit5.fmx
|
|
@ -1,163 +0,0 @@
|
|||
object Form5: TForm5
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'Option'
|
||||
ClientHeight = 481
|
||||
ClientWidth = 641
|
||||
StyleBook = Form1.StyleBook1
|
||||
FormFactor.Width = 1280
|
||||
FormFactor.Height = 1024
|
||||
FormFactor.Devices = [Desktop]
|
||||
OnCreate = FormCreate
|
||||
OnKeyDown = FormKeyDown
|
||||
DesignerMasterStyle = 0
|
||||
object ToolbarHolder: TLayout
|
||||
OnGesture = FormGesture
|
||||
Align = Bottom
|
||||
Locked = True
|
||||
Position.Y = 520.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Visible = False
|
||||
object ToolbarPopup: TPopup
|
||||
Touch.InteractiveGestures = [Pan]
|
||||
OnGesture = FormGesture
|
||||
Align = Bottom
|
||||
DragMode = dmAutomatic
|
||||
Placement = Absolute
|
||||
PlacementRectangle.Left = -1.000000000000000000
|
||||
PlacementRectangle.Top = -1.000000000000000000
|
||||
PlacementRectangle.Right = -1.000000000000000000
|
||||
PlacementRectangle.Bottom = -1.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
object ToolbarPopupAnimation: TFloatAnimation
|
||||
AnimationType = Out
|
||||
Duration = 0.200000002980232200
|
||||
Interpolation = Cubic
|
||||
PropertyName = 'Position.Y'
|
||||
StartValue = 0.000000000000000000
|
||||
StopValue = 0.000000000000000000
|
||||
Trigger = 'IsOpen=true'
|
||||
TriggerInverse = 'IsOpen=false'
|
||||
end
|
||||
object ToolBar1: TToolBar
|
||||
StyleName = 'StyleBook1'
|
||||
Align = Client
|
||||
Padding.Left = 50.000000000000000000
|
||||
Padding.Top = 5.000000000000000000
|
||||
Padding.Right = 50.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
object ToolbarApplyButton: TButton
|
||||
Align = Left
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 141.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 80.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'applybuttontext'
|
||||
Text = 'Apply'
|
||||
end
|
||||
object ToolbarCloseButton: TButton
|
||||
Align = Right
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 505.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 80.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'closebuttontext'
|
||||
Text = 'Close App'
|
||||
OnClick = ToolbarCloseButtonClick
|
||||
end
|
||||
object ToolbarAddButton: TButton
|
||||
Align = Left
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 55.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 76.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'addbuttontext'
|
||||
Text = 'Add'
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Size.Width = 321.000000000000000000
|
||||
Size.Height = 257.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = 'Wallpaper'
|
||||
TabOrder = 1
|
||||
object ImageControl1: TImageControl
|
||||
CanFocus = False
|
||||
Position.X = 16.000000000000000000
|
||||
Position.Y = 24.000000000000000000
|
||||
Size.Width = 289.000000000000000000
|
||||
Size.Height = 193.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 0
|
||||
end
|
||||
object Button1: TButton
|
||||
Position.X = 224.000000000000000000
|
||||
Position.Y = 224.000000000000000000
|
||||
TabOrder = 1
|
||||
Text = 'Change'
|
||||
OnClick = Button1Click
|
||||
end
|
||||
end
|
||||
object GroupBox2: TGroupBox
|
||||
Position.X = 320.000000000000000000
|
||||
Size.Width = 321.000000000000000000
|
||||
Size.Height = 257.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = 'Music'
|
||||
TabOrder = 2
|
||||
object Button2: TButton
|
||||
Position.X = 120.000000000000000000
|
||||
Position.Y = 120.000000000000000000
|
||||
TabOrder = 0
|
||||
Text = 'Change'
|
||||
OnClick = Button2Click
|
||||
end
|
||||
end
|
||||
object Button3: TButton
|
||||
Position.X = 552.000000000000000000
|
||||
Position.Y = 448.000000000000000000
|
||||
TabOrder = 3
|
||||
Text = 'Close'
|
||||
OnClick = Button3Click
|
||||
end
|
||||
object OpenDialog1: TOpenDialog
|
||||
Filter = '.jpg|*.jpg'
|
||||
Title = 'Which one you want to change?'
|
||||
Left = 608
|
||||
Top = 352
|
||||
end
|
||||
object OpenDialog2: TOpenDialog
|
||||
Filter = '.mp3|*.mp3'
|
||||
Title = 'Which one you want to change?'
|
||||
Left = 608
|
||||
Top = 384
|
||||
end
|
||||
object SaveDialog1: TSaveDialog
|
||||
Filter = '.mp3|*.mp3'
|
||||
Left = 608
|
||||
Top = 448
|
||||
end
|
||||
end
|
||||
143
Unit5.pas
143
Unit5.pas
|
|
@ -1,143 +0,0 @@
|
|||
unit Unit5;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
System.SysUtils, System.Types, System.UITypes, System.Classes,
|
||||
System.Variants,
|
||||
FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Ani, FMX.Layouts,
|
||||
FMX.Gestures,
|
||||
FMX.StdCtrls, FMX.Controls.Presentation, winapi.windows;
|
||||
|
||||
type
|
||||
TForm5 = class(TForm)
|
||||
ToolbarHolder: TLayout;
|
||||
ToolbarPopup: TPopup;
|
||||
ToolbarPopupAnimation: TFloatAnimation;
|
||||
ToolBar1: TToolBar;
|
||||
ToolbarApplyButton: TButton;
|
||||
ToolbarCloseButton: TButton;
|
||||
ToolbarAddButton: TButton;
|
||||
GroupBox1: TGroupBox;
|
||||
ImageControl1: TImageControl;
|
||||
Button1: TButton;
|
||||
GroupBox2: TGroupBox;
|
||||
Button2: TButton;
|
||||
Button3: TButton;
|
||||
OpenDialog1: TOpenDialog;
|
||||
OpenDialog2: TOpenDialog;
|
||||
SaveDialog1: TSaveDialog;
|
||||
procedure ToolbarCloseButtonClick(Sender: TObject);
|
||||
procedure FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo;
|
||||
var Handled: Boolean);
|
||||
procedure FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
|
||||
Shift: TShiftState);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure Button3Click(Sender: TObject);
|
||||
procedure Button2Click(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
FGestureOrigin: TPointF;
|
||||
FGestureInProgress: Boolean;
|
||||
{ Private declarations }
|
||||
procedure ShowToolbar(AShow: Boolean);
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form5: TForm5;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.fmx}
|
||||
|
||||
uses
|
||||
Unit1;
|
||||
|
||||
procedure TForm5.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
if Key = vkEscape then
|
||||
ShowToolbar(not ToolbarPopup.IsOpen);
|
||||
end;
|
||||
|
||||
procedure TForm5.ToolbarCloseButtonClick(Sender: TObject);
|
||||
begin
|
||||
Application.Terminate;
|
||||
end;
|
||||
|
||||
procedure TForm5.Button1Click(Sender: TObject);
|
||||
begin
|
||||
if OpenDialog1.Execute then
|
||||
begin
|
||||
if OpenDialog1.FileName <> '' then
|
||||
begin
|
||||
ImageControl1.Bitmap.LoadFromFile(OpenDialog1.FileName);
|
||||
ImageControl1.Bitmap.SaveToFile(PWideChar('Resource\Wallpaper.jpg'));
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm5.Button2Click(Sender: TObject);
|
||||
begin
|
||||
if OpenDialog2.Execute then
|
||||
begin
|
||||
if OpenDialog2.FileName <> '' then
|
||||
begin
|
||||
CopyFile(PWideChar(OpenDialog2.FileName),
|
||||
PWideChar('Resource\Music.mp3'), false);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm5.Button3Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TForm5.FormCreate(Sender: TObject);
|
||||
begin
|
||||
ImageControl1.LoadFromFile(PWideChar('Resource\Wallpaper.jpg'));
|
||||
end;
|
||||
|
||||
procedure TForm5.FormGesture(Sender: TObject;
|
||||
const EventInfo: TGestureEventInfo; var Handled: Boolean);
|
||||
var
|
||||
DX, DY: Single;
|
||||
begin
|
||||
if EventInfo.GestureID = igiPan then
|
||||
begin
|
||||
if (TInteractiveGestureFlag.gfBegin in EventInfo.Flags) and
|
||||
((Sender = ToolbarPopup) or (EventInfo.Location.Y > (ClientHeight - 70)))
|
||||
then
|
||||
begin
|
||||
FGestureOrigin := EventInfo.Location;
|
||||
FGestureInProgress := True;
|
||||
end;
|
||||
|
||||
if FGestureInProgress and (TInteractiveGestureFlag.gfEnd in EventInfo.Flags)
|
||||
then
|
||||
begin
|
||||
FGestureInProgress := false;
|
||||
DX := EventInfo.Location.X - FGestureOrigin.X;
|
||||
DY := EventInfo.Location.Y - FGestureOrigin.Y;
|
||||
if (Abs(DY) > Abs(DX)) then
|
||||
ShowToolbar(DY < 0);
|
||||
end;
|
||||
end
|
||||
end;
|
||||
|
||||
procedure TForm5.ShowToolbar(AShow: Boolean);
|
||||
begin
|
||||
ToolbarPopup.Width := ClientWidth;
|
||||
ToolbarPopup.PlacementRectangle.Rect :=
|
||||
TRectF.Create(0, ClientHeight - ToolbarPopup.Height, ClientWidth - 1,
|
||||
ClientHeight - 1);
|
||||
ToolbarPopupAnimation.StartValue := ToolbarPopup.Height;
|
||||
ToolbarPopupAnimation.StopValue := 0;
|
||||
|
||||
ToolbarPopup.IsOpen := AShow;
|
||||
end;
|
||||
|
||||
end.
|
||||
117
Unit6.fmx
117
Unit6.fmx
|
|
@ -1,117 +0,0 @@
|
|||
object Form6: TForm6
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'Inno Maker: Changelog'
|
||||
ClientHeight = 301
|
||||
ClientWidth = 301
|
||||
Position = Designed
|
||||
StyleBook = Form1.StyleBook1
|
||||
FormFactor.Width = 1280
|
||||
FormFactor.Height = 1024
|
||||
FormFactor.Devices = [Desktop]
|
||||
OnCreate = FormCreate
|
||||
OnKeyDown = FormKeyDown
|
||||
DesignerMasterStyle = 0
|
||||
object ToolbarHolder: TLayout
|
||||
OnGesture = FormGesture
|
||||
Align = Bottom
|
||||
Locked = True
|
||||
Position.Y = 520.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Visible = False
|
||||
object ToolbarPopup: TPopup
|
||||
Touch.InteractiveGestures = [Pan]
|
||||
OnGesture = FormGesture
|
||||
Align = Bottom
|
||||
DragMode = dmAutomatic
|
||||
Placement = Absolute
|
||||
PlacementRectangle.Left = -1.000000000000000000
|
||||
PlacementRectangle.Top = -1.000000000000000000
|
||||
PlacementRectangle.Right = -1.000000000000000000
|
||||
PlacementRectangle.Bottom = -1.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
object ToolbarPopupAnimation: TFloatAnimation
|
||||
AnimationType = Out
|
||||
Duration = 0.200000002980232200
|
||||
Interpolation = Cubic
|
||||
PropertyName = 'Position.Y'
|
||||
StartValue = 0.000000000000000000
|
||||
StopValue = 0.000000000000000000
|
||||
Trigger = 'IsOpen=true'
|
||||
TriggerInverse = 'IsOpen=false'
|
||||
end
|
||||
object ToolBar1: TToolBar
|
||||
StyleName = 'StyleBook1'
|
||||
Align = Client
|
||||
Padding.Left = 50.000000000000000000
|
||||
Padding.Top = 5.000000000000000000
|
||||
Padding.Right = 50.000000000000000000
|
||||
Size.Width = 640.000000000000000000
|
||||
Size.Height = 75.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
object ToolbarApplyButton: TButton
|
||||
Align = Left
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 141.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 80.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'applybuttontext'
|
||||
Text = 'Apply'
|
||||
end
|
||||
object ToolbarCloseButton: TButton
|
||||
Align = Right
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 505.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 80.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'closebuttontext'
|
||||
Text = 'Close App'
|
||||
OnClick = ToolbarCloseButtonClick
|
||||
end
|
||||
object ToolbarAddButton: TButton
|
||||
Align = Left
|
||||
Margins.Left = 5.000000000000000000
|
||||
Margins.Top = 5.000000000000000000
|
||||
Margins.Right = 5.000000000000000000
|
||||
Margins.Bottom = 5.000000000000000000
|
||||
Position.X = 55.000000000000000000
|
||||
Position.Y = 10.000000000000000000
|
||||
Size.Width = 76.000000000000000000
|
||||
Size.Height = 60.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
StyleLookup = 'addbuttontext'
|
||||
Text = 'Add'
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object Memo1: TMemo
|
||||
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
|
||||
DataDetectorTypes = []
|
||||
Lines.Strings = (
|
||||
'loaded text')
|
||||
CanFocus = False
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 8.000000000000000000
|
||||
Size.Width = 289.000000000000000000
|
||||
Size.Height = 289.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 1
|
||||
Viewport.Width = 285.000000000000000000
|
||||
Viewport.Height = 285.000000000000000000
|
||||
end
|
||||
end
|
||||
103
Unit6.pas
103
Unit6.pas
|
|
@ -1,103 +0,0 @@
|
|||
unit Unit6;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
System.SysUtils, System.Types, System.UITypes, System.Classes,
|
||||
System.Variants,
|
||||
FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Ani, FMX.Layouts,
|
||||
FMX.Gestures,
|
||||
FMX.ScrollBox, FMX.Memo, FMX.StdCtrls, FMX.Controls.Presentation;
|
||||
|
||||
type
|
||||
TForm6 = class(TForm)
|
||||
ToolbarHolder: TLayout;
|
||||
ToolbarPopup: TPopup;
|
||||
ToolbarPopupAnimation: TFloatAnimation;
|
||||
ToolBar1: TToolBar;
|
||||
ToolbarApplyButton: TButton;
|
||||
ToolbarCloseButton: TButton;
|
||||
ToolbarAddButton: TButton;
|
||||
Memo1: TMemo;
|
||||
procedure ToolbarCloseButtonClick(Sender: TObject);
|
||||
procedure FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo;
|
||||
var Handled: Boolean);
|
||||
procedure FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
|
||||
Shift: TShiftState);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
FGestureOrigin: TPointF;
|
||||
FGestureInProgress: Boolean;
|
||||
{ Private declarations }
|
||||
procedure ShowToolbar(AShow: Boolean);
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form6: TForm6;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.fmx}
|
||||
|
||||
uses
|
||||
Unit1;
|
||||
|
||||
procedure TForm6.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
if Key = vkEscape then
|
||||
ShowToolbar(not ToolbarPopup.IsOpen);
|
||||
end;
|
||||
|
||||
procedure TForm6.ToolbarCloseButtonClick(Sender: TObject);
|
||||
begin
|
||||
Application.Terminate;
|
||||
end;
|
||||
|
||||
procedure TForm6.FormCreate(Sender: TObject);
|
||||
begin
|
||||
Memo1.Lines.LoadFromFile('Resource\IM_Changelog.txt');
|
||||
end;
|
||||
|
||||
procedure TForm6.FormGesture(Sender: TObject;
|
||||
const EventInfo: TGestureEventInfo; var Handled: Boolean);
|
||||
var
|
||||
DX, DY: Single;
|
||||
begin
|
||||
if EventInfo.GestureID = igiPan then
|
||||
begin
|
||||
if (TInteractiveGestureFlag.gfBegin in EventInfo.Flags) and
|
||||
((Sender = ToolbarPopup) or (EventInfo.Location.Y > (ClientHeight - 70)))
|
||||
then
|
||||
begin
|
||||
FGestureOrigin := EventInfo.Location;
|
||||
FGestureInProgress := True;
|
||||
end;
|
||||
|
||||
if FGestureInProgress and (TInteractiveGestureFlag.gfEnd in EventInfo.Flags)
|
||||
then
|
||||
begin
|
||||
FGestureInProgress := False;
|
||||
DX := EventInfo.Location.X - FGestureOrigin.X;
|
||||
DY := EventInfo.Location.Y - FGestureOrigin.Y;
|
||||
if (Abs(DY) > Abs(DX)) then
|
||||
ShowToolbar(DY < 0);
|
||||
end;
|
||||
end
|
||||
end;
|
||||
|
||||
procedure TForm6.ShowToolbar(AShow: Boolean);
|
||||
begin
|
||||
ToolbarPopup.Width := ClientWidth;
|
||||
ToolbarPopup.PlacementRectangle.Rect :=
|
||||
TRectF.Create(0, ClientHeight - ToolbarPopup.Height, ClientWidth - 1,
|
||||
ClientHeight - 1);
|
||||
ToolbarPopupAnimation.StartValue := ToolbarPopup.Height;
|
||||
ToolbarPopupAnimation.StopValue := 0;
|
||||
|
||||
ToolbarPopup.IsOpen := AShow;
|
||||
end;
|
||||
|
||||
end.
|
||||
Loading…
Add table
Add a link
Reference in a new issue