Skip to content

Commit d2ee2e1

Browse files
carloBarazzettacarloBarazzetta
committed
Added Thumbnail Provider
1 parent 7d7a753 commit d2ee2e1

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

47 files changed

+5046
-1770
lines changed

‎Debug/Preview Handlers/PreviewHandler Host/PreviewHost.dpr‎

Lines changed: 15 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,15 @@
1+
program PreviewHost;
2+
3+
uses
4+
Vcl.Forms,
5+
uMain in 'uMain.pas' {FrmMain},
6+
uHostPreview in 'uHostPreview.pas';
7+
8+
{$R *.res}
9+
10+
begin
11+
Application.Initialize;
12+
Application.MainFormOnTaskbar := True;
13+
Application.CreateForm(TFrmMain, FrmMain);
14+
Application.Run;
15+
end.

‎Debug/Preview Handlers/PreviewHandler Host/PreviewHost.dproj‎

Lines changed: 164 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,164 @@
1+
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+
<PropertyGroup>
3+
<ProjectGuid>{4BBCE26D-2844-4147-BD21-3D736FC10602}</ProjectGuid>
4+
<ProjectVersion>19.1</ProjectVersion>
5+
<FrameworkType>VCL</FrameworkType>
6+
<MainSource>PreviewHost.dpr</MainSource>
7+
<Base>True</Base>
8+
<Config Condition="'$(Config)'==''">Debug</Config>
9+
<Platform Condition="'$(Platform)'==''">Win32</Platform>
10+
<TargetedPlatforms>1</TargetedPlatforms>
11+
<AppType>Application</AppType>
12+
</PropertyGroup>
13+
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
14+
<Base>true</Base>
15+
</PropertyGroup>
16+
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
17+
<Base_Win32>true</Base_Win32>
18+
<CfgParent>Base</CfgParent>
19+
<Base>true</Base>
20+
</PropertyGroup>
21+
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
22+
<Base_Win64>true</Base_Win64>
23+
<CfgParent>Base</CfgParent>
24+
<Base>true</Base>
25+
</PropertyGroup>
26+
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
27+
<Cfg_1>true</Cfg_1>
28+
<CfgParent>Base</CfgParent>
29+
<Base>true</Base>
30+
</PropertyGroup>
31+
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
32+
<Cfg_1_Win32>true</Cfg_1_Win32>
33+
<CfgParent>Cfg_1</CfgParent>
34+
<Cfg_1>true</Cfg_1>
35+
<Base>true</Base>
36+
</PropertyGroup>
37+
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
38+
<Cfg_2>true</Cfg_2>
39+
<CfgParent>Base</CfgParent>
40+
<Base>true</Base>
41+
</PropertyGroup>
42+
<PropertyGroup Condition="'$(Base)'!=''">
43+
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
44+
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
45+
<DCC_UsePackage>fmx;IndySystem;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DataSnapServer;DataSnapProviderClient;DbxCommonDriver;dbxcds;DBXOracleDriver;CustomIPTransport;dsnap;fmxase;IndyCore;CloudService;inetdbxpress;IPIndyImpl;bindcompfmx;rtl;dbrtl;DbxClientDriver;bindcomp;inetdb;xmlrtl;ibxpress;IndyProtocols;DBXMySQLDriver;bindengine;soaprtl;DBXInformixDriver;DBXFirebirdDriver;inet;fmxobj;DBXSybaseASADriver;fmxdae;dbexpress;DataSnapIndy10ServerTransport;$(DCC_UsePackage)</DCC_UsePackage>
46+
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
47+
<DCC_ExeOutput>.\Bin</DCC_ExeOutput>
48+
<SanitizedProjectName>PreviewHost</SanitizedProjectName>
49+
<VerInfo_Locale>1040</VerInfo_Locale>
50+
<VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
51+
</PropertyGroup>
52+
<PropertyGroup Condition="'$(Base_Win32)'!=''">
53+
<DCC_UsePackage>JvGlobus;JvMM;JvManagedThreads;JvDlgs;JvCrypt;vclib;inetdbbde;acntDelphiXE2_R;JvNet;JvDotNetCtrls;DBXSybaseASEDriver;vclimg;fmi;vclshlctrls;JvXPCtrls;vcldb;sample;vcldsnap;DBXDb2Driver;JvCore;vclribbon;vcl;DBXMSSQLDriver;JvAppFrm;JvDB;JvRuntimeDesign;webdsnap;JclDeveloperTools;JvDocking;adortl;JvWizards;mbColorLibDXE2;JvHMI;JvBands;vcldbx;JvPluginSystem;JclContainers;DBXOdbcDriver;JvCmp;JvSystem;svnui;SynEdit_RXE2;JvControls;JvTimeFramework;vclactnband;JvJans;JvPrintPreview;JvPageComps;bindcompvcl;JvStdCtrls;JvCustom;Jcl;vclie;vcltouch;websnap;VclSmp;DataSnapConnectors;dsnapcon;JclVcl;JvPascalInterpreter;vclx;svn;bdertl;EurekaLogCore;JvBDE;$(DCC_UsePackage)</DCC_UsePackage>
54+
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
55+
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
56+
<VerInfo_Locale>1033</VerInfo_Locale>
57+
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
58+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
59+
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
60+
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
61+
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
62+
</PropertyGroup>
63+
<PropertyGroup Condition="'$(Base_Win64)'!=''">
64+
<DCC_UsePackage>vclib;acntDelphiXE2_R;DBXSybaseASEDriver;vclimg;vclshlctrls;vcldb;vcldsnap;DBXDb2Driver;vclribbon;vcl;DBXMSSQLDriver;webdsnap;adortl;DBXOdbcDriver;SynEdit_RXE2;vclactnband;bindcompvcl;vclie;vcltouch;websnap;VclSmp;DataSnapConnectors;dsnapcon;vclx;$(DCC_UsePackage)</DCC_UsePackage>
65+
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
66+
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
67+
</PropertyGroup>
68+
<PropertyGroup Condition="'$(Cfg_1)'!=''">
69+
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
70+
<DCC_Optimize>false</DCC_Optimize>
71+
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
72+
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
73+
<DCC_RemoteDebug>true</DCC_RemoteDebug>
74+
<VerInfo_Locale>1040</VerInfo_Locale>
75+
<VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
76+
</PropertyGroup>
77+
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
78+
<DCC_RemoteDebug>false</DCC_RemoteDebug>
79+
<BT_BuildType>Debug</BT_BuildType>
80+
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
81+
<VerInfo_Locale>1033</VerInfo_Locale>
82+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
83+
<DCC_UnitSearchPath>D:\ETHEA\ShellControls\Source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
84+
</PropertyGroup>
85+
<PropertyGroup Condition="'$(Cfg_2)'!=''">
86+
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
87+
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
88+
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
89+
<DCC_DebugInformation>0</DCC_DebugInformation>
90+
</PropertyGroup>
91+
<ItemGroup>
92+
<DelphiCompile Include="$(MainSource)">
93+
<MainSource>MainSource</MainSource>
94+
</DelphiCompile>
95+
<DCCReference Include="uMain.pas">
96+
<Form>FrmMain</Form>
97+
<FormType>dfm</FormType>
98+
</DCCReference>
99+
<DCCReference Include="uHostPreview.pas"/>
100+
<BuildConfiguration Include="Release">
101+
<Key>Cfg_2</Key>
102+
<CfgParent>Base</CfgParent>
103+
</BuildConfiguration>
104+
<BuildConfiguration Include="Base">
105+
<Key>Base</Key>
106+
</BuildConfiguration>
107+
<BuildConfiguration Include="Debug">
108+
<Key>Cfg_1</Key>
109+
<CfgParent>Base</CfgParent>
110+
</BuildConfiguration>
111+
</ItemGroup>
112+
<ProjectExtensions>
113+
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
114+
<Borland.ProjectType/>
115+
<BorlandProject>
116+
<Delphi.Personality>
117+
<VersionInfo>
118+
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
119+
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
120+
<VersionInfo Name="MajorVer">1</VersionInfo>
121+
<VersionInfo Name="MinorVer">0</VersionInfo>
122+
<VersionInfo Name="Release">0</VersionInfo>
123+
<VersionInfo Name="Build">0</VersionInfo>
124+
<VersionInfo Name="Debug">False</VersionInfo>
125+
<VersionInfo Name="PreRelease">False</VersionInfo>
126+
<VersionInfo Name="Special">False</VersionInfo>
127+
<VersionInfo Name="Private">False</VersionInfo>
128+
<VersionInfo Name="DLL">False</VersionInfo>
129+
<VersionInfo Name="Locale">13322</VersionInfo>
130+
<VersionInfo Name="CodePage">1252</VersionInfo>
131+
</VersionInfo>
132+
<VersionInfoKeys>
133+
<VersionInfoKeys Name="CompanyName"/>
134+
<VersionInfoKeys Name="FileDescription"/>
135+
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
136+
<VersionInfoKeys Name="InternalName"/>
137+
<VersionInfoKeys Name="LegalCopyright"/>
138+
<VersionInfoKeys Name="LegalTrademarks"/>
139+
<VersionInfoKeys Name="OriginalFilename"/>
140+
<VersionInfoKeys Name="ProductName"/>
141+
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
142+
<VersionInfoKeys Name="Comments"/>
143+
</VersionInfoKeys>
144+
<Excluded_Packages>
145+
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k270.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
146+
<Excluded_Packages Name="$(BDSBIN)\dclofficexp270.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
147+
</Excluded_Packages>
148+
<Source>
149+
<Source Name="MainSource">PreviewHost.dpr</Source>
150+
</Source>
151+
</Delphi.Personality>
152+
<Deployment Version="3"/>
153+
<Platforms>
154+
<Platform value="Win32">True</Platform>
155+
<Platform value="Win64">False</Platform>
156+
</Platforms>
157+
<ModelSupport>False</ModelSupport>
158+
</BorlandProject>
159+
<ProjectFileVersion>12</ProjectFileVersion>
160+
</ProjectExtensions>
161+
<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
162+
<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
163+
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
164+
</Project>

‎Debug/Preview Handlers/PreviewHandler Host/PreviewHost.res‎

109 KB
Binary file not shown.

0 commit comments

Comments
 (0)