Skip to content

Commit 0ea2910

Browse files
carloBarazzettacarloBarazzetta
committed
Built dll with 64 bit, now shell Thumbnail works!
1 parent e820a72 commit 0ea2910

25 files changed

+112
-1464
lines changed

‎Build.bat‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
call "C:\BDS\Studio\21.0\bin\rsvars.bat"
2-
msbuild.exe "Source\SVGShellExtensions.dproj" /target:Clean;Build /p:Platform=Win32 /p:config=release /p:DCC_DebugInformation=2
2+
msbuild.exe "Source\SVGShellExtensions.dproj" /target:Clean;Build /p:Platform=Win64 /p:config=release
33
set BUILD_STATUS=%ERRORLEVEL%
44
if %BUILD_STATUS%==0 GOTO INNO
55
pause

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

Lines changed: 29 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -6,8 +6,8 @@
66
<MainSource>PreviewHost.dpr</MainSource>
77
<Base>True</Base>
88
<Config Condition="'$(Config)'==''">Debug</Config>
9-
<Platform Condition="'$(Platform)'==''">Win32</Platform>
10-
<TargetedPlatforms>1</TargetedPlatforms>
9+
<Platform Condition="'$(Platform)'==''">Win64</Platform>
10+
<TargetedPlatforms>3</TargetedPlatforms>
1111
<AppType>Application</AppType>
1212
</PropertyGroup>
1313
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
@@ -34,11 +34,23 @@
3434
<Cfg_1>true</Cfg_1>
3535
<Base>true</Base>
3636
</PropertyGroup>
37+
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
38+
<Cfg_1_Win64>true</Cfg_1_Win64>
39+
<CfgParent>Cfg_1</CfgParent>
40+
<Cfg_1>true</Cfg_1>
41+
<Base>true</Base>
42+
</PropertyGroup>
3743
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
3844
<Cfg_2>true</Cfg_2>
3945
<CfgParent>Base</CfgParent>
4046
<Base>true</Base>
4147
</PropertyGroup>
48+
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
49+
<Cfg_2_Win64>true</Cfg_2_Win64>
50+
<CfgParent>Cfg_2</CfgParent>
51+
<Cfg_2>true</Cfg_2>
52+
<Base>true</Base>
53+
</PropertyGroup>
4254
<PropertyGroup Condition="'$(Base)'!=''">
4355
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
4456
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
@@ -64,6 +76,12 @@
6476
<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>
6577
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
6678
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
79+
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
80+
<BT_BuildType>Debug</BT_BuildType>
81+
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
82+
<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>
83+
<VerInfo_Locale>1033</VerInfo_Locale>
84+
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
6785
</PropertyGroup>
6886
<PropertyGroup Condition="'$(Cfg_1)'!=''">
6987
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
@@ -82,12 +100,20 @@
82100
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
83101
<DCC_UnitSearchPath>D:\ETHEA\ShellControls\Source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
84102
</PropertyGroup>
103+
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
104+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
105+
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
106+
</PropertyGroup>
85107
<PropertyGroup Condition="'$(Cfg_2)'!=''">
86108
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
87109
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
88110
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
89111
<DCC_DebugInformation>0</DCC_DebugInformation>
90112
</PropertyGroup>
113+
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
114+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
115+
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
116+
</PropertyGroup>
91117
<ItemGroup>
92118
<DelphiCompile Include="$(MainSource)">
93119
<MainSource>MainSource</MainSource>
@@ -152,7 +178,7 @@
152178
<Deployment Version="3"/>
153179
<Platforms>
154180
<Platform value="Win32">True</Platform>
155-
<Platform value="Win64">False</Platform>
181+
<Platform value="Win64">True</Platform>
156182
</Platforms>
157183
<ModelSupport>False</ModelSupport>
158184
</BorlandProject>

‎Debug/Preview Handlers/PreviewHandler Host_Without_TShellListView/uMain.dfm‎

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,6 @@ object FrmMain: TFrmMain
2222
Height = 49
2323
Align = alTop
2424
TabOrder = 0
25-
ExplicitWidth = 455
2625
DesignSize = (
2726
432
2827
49)
@@ -34,7 +33,6 @@ object FrmMain: TFrmMain
3433
Anchors = [akLeft, akTop, akRight]
3534
Enabled = False
3635
TabOrder = 0
37-
ExplicitWidth = 345
3836
end
3937
object Button1: TButton
4038
Left = 344
@@ -45,7 +43,6 @@ object FrmMain: TFrmMain
4543
Caption = 'Select File'
4644
TabOrder = 1
4745
OnClick = Button1Click
48-
ExplicitLeft = 367
4946
end
5047
end
5148
object RadioGroup: TRadioGroup

‎Images/PreviewPanelDark.png‎

-120 KB
Binary file not shown.

‎Images/PreviewPanelLight.png‎

-121 KB
Binary file not shown.

‎Images/PreviewThumbnailsDark.png‎

17.3 KB
Loading

‎Images/PreviewThumbnailsLight.png‎

-2.76 KB
Loading

‎Register.bat‎

Lines changed: 0 additions & 1 deletion
This file was deleted.

‎Source/Main.pas‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -45,9 +45,9 @@ implementation
4545
uSVGPreviewHandler;
4646

4747
initialization
48-
TSVGPreviewHandler.RegisterPreview(SVG_PreviewHandlerGUID,
48+
TSVGPreviewHandler.RegisterPreview(MySVG_PreviewHandlerGUID,
4949
'SVG.PreviewHandler', 'Delphi SVG Preview Handler');
50-
TSVGThumbnailProvider.RegisterThumbnailProvider(SVG_ThumbnailProviderGUID,
50+
TSVGThumbnailProvider.RegisterThumbnailProvider(MySVG_ThumbnailProviderGUID,
5151
'SVG.ThumbnailProvider', 'Delphi SVG Thumbnail Provider');
5252

5353
end.

‎Source/SVGEditor.dfm‎

Lines changed: 17 additions & 33 deletions
Original file line numberDiff line numberDiff line change
@@ -21,15 +21,12 @@ object FrmEditor: TFrmEditor
2121
Left = 0
2222
Top = 329
2323
Width = 888
24-
Height = 8
24+
Height = 6
2525
Cursor = crVSplit
2626
Align = alTop
2727
AutoSnap = False
2828
MinSize = 100
2929
OnMoved = SplitterMoved
30-
ExplicitLeft = 2
31-
ExplicitTop = 256
32-
ExplicitWidth = 886
3330
end
3431
object PanelTop: TPanel
3532
Left = 0
@@ -152,7 +149,7 @@ object FrmEditor: TFrmEditor
152149
AutoSize = True
153150
Caption = 'Search...'
154151
ImageIndex = 2
155-
ImageName = 'fine_print'
152+
ImageName = 'search'
156153
Visible = False
157154
OnClick = ToolButtonSearchClick
158155
OnMouseEnter = ToolButtonMouseEnter
@@ -199,8 +196,6 @@ object FrmEditor: TFrmEditor
199196
Highlighter = SynXMLSyn
200197
ReadOnly = True
201198
FontSmoothing = fsmNone
202-
ExplicitLeft = 0
203-
ExplicitTop = -3
204199
end
205200
end
206201
object StatusBar: TStatusBar
@@ -219,26 +214,20 @@ object FrmEditor: TFrmEditor
219214
end
220215
object ImagePanel: TPanel
221216
Left = 0
222-
Top = 337
217+
Top = 335
223218
Width = 888
224-
Height = 187
219+
Height = 189
225220
Align = alClient
226221
BevelOuter = bvLowered
227222
TabOrder = 3
228-
ExplicitLeft = 1
229-
ExplicitTop = 264
230-
ExplicitWidth = 886
231-
ExplicitHeight = 224
232223
object SVGIconImage: TSVGIconImage
233224
Left = 1
234225
Top = 1
235226
Width = 886
236-
Height = 185
227+
Height = 187
237228
AutoSize = False
238229
Proportional = True
239230
Align = alClient
240-
ExplicitWidth = 884
241-
ExplicitHeight = 222
242231
end
243232
end
244233
object SynXMLSyn: TSynXMLSyn
@@ -288,25 +277,20 @@ object FrmEditor: TFrmEditor
288277
'/svg>'#13#10
289278
end
290279
item
291-
IconName = 'fine_print'
280+
IconName = 'search'
292281
SVGText =
293282
'<svg version="1" xmlns="http://www.w3.org/2000/svg" viewBox="0 0' +
294-
' 48 48" enable-background="new 0 0 48 48">'#13#10' <polygon fill="#' +
295-
'90CAF9" points="33,42 5,42 5,4 24,4 33,13"/>'#13#10' <polygon fill=' +
296-
'"#E1F5FE" points="31.5,14 23,14 23,5.5"/>'#13#10' <rect x="38.3" y=' +
297-
'"34.8" transform="matrix(.707 -.707 .707 .707 -17.177 40.055)" f' +
298-
'ill="#616161" width="2.8" height="12"/>'#13#10' <circle fill="#6161' +
299-
'61" cx="28" cy="29" r="11"/>'#13#10' <circle fill="#90CAF9" cx="28"' +
300-
' cy="29" r="9"/>'#13#10' <rect x="39.5" y="37.6" transform="matrix(' +
301-
'.707 -.707 .707 .707 -17.661 41.223)" fill="#37474F" width="2.8"' +
302-
' height="8.7"/>'#13#10' <g fill="#1976D2">'#13#10' <path d="M30,31' +
303-
'h-9.7c0.4,1.6,1.3,3,2.5,4H30V31z"/>'#13#10' <path d="M20.3,27H3' +
304-
'0v-4h-7.3C21.5,24,20.7,25.4,20.3,27z"/>'#13#10' <path d="M20.1,' +
305-
'20H11v2h7.3C18.8,21.3,19.4,20.6,20.1,20z"/>'#13#10' <path d="M1' +
306-
'7.1,24H11v2h5.4C16.6,25.3,16.8,24.6,17.1,24z"/>'#13#10' <path d' +
307-
'="M16,29c0-0.3,0-0.7,0.1-1H11v2h5.1C16,29.7,16,29.3,16,29z"/>'#13#10' ' +
308-
' <path d="M16.4,32H11v2h6.1C16.8,33.4,16.6,32.7,16.4,32z"/' +
309-
'>'#13#10' </g>'#13#10'</svg>'#13#10
283+
' 48 48" enable-background="new 0 0 48 48">'#13#10' <g fill="#616161' +
284+
'">'#13#10' <rect x="34.6" y="28.1" transform="matrix(.707 -.707' +
285+
' .707 .707 -15.154 36.586)" width="4" height="17"/>'#13#10' <ci' +
286+
'rcle cx="20" cy="20" r="16"/>'#13#10' </g>'#13#10' <rect x="36.2" y="3' +
287+
'2.1" transform="matrix(.707 -.707 .707 .707 -15.839 38.239)" fil' +
288+
'l="#37474F" width="4" height="12.3"/>'#13#10' <circle fill="#64B5F6' +
289+
'" cx="20" cy="20" r="13"/>'#13#10' <path fill="#BBDEFB" d="M26.9,14' +
290+
'.2c-1.7-2-4.2-3.2-6.9-3.2s-5.2,1.2-6.9,3.2c-0.4,0.4-0.3,1.1,0.1,' +
291+
'1.4c0.4,0.4,1.1,0.3,1.4-0.1 C16,13.9,17.9,13,20,13s4,0.9,5.4,2.5' +
292+
'c0.2,0.2,0.5,0.4,0.8,0.4c0.2,0,0.5-0.1,0.6-0.2C27.2,15.3,27.2,14' +
293+
'.6,26.9,14.2z"/>'#13#10'</svg>'#13#10
310294
end
311295
item
312296
IconName = 'settings'

0 commit comments

Comments
 (0)