Skip to content

Commit bac5361

Browse files
carloBarazzettacarloBarazzetta
committed
1 Nov 2022: ver. 1.4.3
- Fixed loading images into Preview - Fixed the setting for local loading
1 parent f71eafa commit bac5361

Some content is hidden

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

62 files changed

+1786
-802
lines changed

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

Lines changed: 10 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@
66
<MainSource>PreviewHost.dpr</MainSource>
77
<Base>True</Base>
88
<Config Condition="'$(Config)'==''">Debug</Config>
9-
<Platform Condition="'$(Platform)'==''">Win64</Platform>
9+
<Platform Condition="'$(Platform)'==''">Win32</Platform>
1010
<TargetedPlatforms>3</TargetedPlatforms>
1111
<AppType>Application</AppType>
1212
</PropertyGroup>
@@ -45,12 +45,6 @@
4545
<CfgParent>Base</CfgParent>
4646
<Base>true</Base>
4747
</PropertyGroup>
48-
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
49-
<Cfg_2_Win32>true</Cfg_2_Win32>
50-
<CfgParent>Cfg_2</CfgParent>
51-
<Cfg_2>true</Cfg_2>
52-
<Base>true</Base>
53-
</PropertyGroup>
5448
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
5549
<Cfg_2_Win64>true</Cfg_2_Win64>
5650
<CfgParent>Cfg_2</CfgParent>
@@ -62,6 +56,7 @@
6256
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
6357
<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>
6458
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
59+
<DCC_ExeOutput>.\Bin</DCC_ExeOutput>
6560
<SanitizedProjectName>PreviewHost</SanitizedProjectName>
6661
<VerInfo_Locale>1040</VerInfo_Locale>
6762
<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>
@@ -72,9 +67,9 @@
7267
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
7368
<VerInfo_Locale>1033</VerInfo_Locale>
7469
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
70+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
7571
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
7672
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
77-
<DCC_ExeOutput>.\Bin</DCC_ExeOutput>
7873
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
7974
</PropertyGroup>
8075
<PropertyGroup Condition="'$(Base_Win64)'!=''">
@@ -88,44 +83,37 @@
8883
<VerInfo_Locale>1033</VerInfo_Locale>
8984
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
9085
<Debugger_RunParams>D:\ETHEA\SVGIconImageList\Demo\NewSydneyVectors</Debugger_RunParams>
91-
<AppDPIAwarenessMode>none</AppDPIAwarenessMode>
92-
<DCC_ExeOutput>.\Bin64</DCC_ExeOutput>
9386
</PropertyGroup>
9487
<PropertyGroup Condition="'$(Cfg_1)'!=''">
9588
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
9689
<DCC_Optimize>false</DCC_Optimize>
9790
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
9891
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
9992
<DCC_RemoteDebug>true</DCC_RemoteDebug>
93+
<VerInfo_Locale>1040</VerInfo_Locale>
94+
<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>
10095
</PropertyGroup>
10196
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
10297
<DCC_RemoteDebug>false</DCC_RemoteDebug>
10398
<BT_BuildType>Debug</BT_BuildType>
10499
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
105100
<VerInfo_Locale>1033</VerInfo_Locale>
101+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
106102
<DCC_UnitSearchPath>D:\ETHEA\ShellControls\Source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
107103
</PropertyGroup>
108104
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
105+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
109106
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
110-
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
111-
<VerInfo_Locale>1033</VerInfo_Locale>
112-
<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>
113107
</PropertyGroup>
114108
<PropertyGroup Condition="'$(Cfg_2)'!=''">
115109
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
116110
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
117111
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
118112
<DCC_DebugInformation>0</DCC_DebugInformation>
119113
</PropertyGroup>
120-
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
121-
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
122-
<VerInfo_Locale>1033</VerInfo_Locale>
123-
</PropertyGroup>
124114
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
115+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
125116
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
126-
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
127-
<VerInfo_Locale>1033</VerInfo_Locale>
128-
<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>
129117
</PropertyGroup>
130118
<ItemGroup>
131119
<DelphiCompile Include="$(MainSource)">
@@ -181,12 +169,8 @@
181169
<VersionInfoKeys Name="Comments"/>
182170
</VersionInfoKeys>
183171
<Excluded_Packages>
184-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\22.0\Bpl\dclISRtl7280.bpl">Ethea InstantSolutions 7 Rtl Library</Excluded_Packages>
185-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\22.0\Bpl\dclISVcl7280.bpl">Ethea InstantSolutions 7 Vcl Library</Excluded_Packages>
186-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\22.0\Bpl\dclISOpenOffice7280.bpl">Ethea InstantSolutions 7 LibreOffice/OpenOffice Components</Excluded_Packages>
187-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\22.0\Bpl\dclISFLib7280.bpl">Ethea InstantSolutions 7 Framework Library</Excluded_Packages>
188-
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k280.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
189-
<Excluded_Packages Name="$(BDSBIN)\dclofficexp280.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
172+
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k270.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
173+
<Excluded_Packages Name="$(BDSBIN)\dclofficexp270.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
190174
</Excluded_Packages>
191175
<Source>
192176
<Source Name="MainSource">PreviewHost.dpr</Source>

‎Ext/SVGIconImageList/Image32/source/Img32.CQ.pas

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,8 +2,8 @@
22

33
(*******************************************************************************
44
* Author : Angus Johnson *
5-
* Version : 4.2 *
6-
* Date : 30 May 2022 *
5+
* Version : 4.3 *
6+
* Date : 27 September 2022 *
77
* Website : http://www.angusj.com *
88
* Copyright : Angus Johnson 2019-2021 *
99
* Purpose : Color reduction for TImage32 *

‎Ext/SVGIconImageList/Image32/source/Img32.Clipper2.pas

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,8 +2,8 @@
22

33
(*******************************************************************************
44
* Author : Angus Johnson *
5-
* Version : 4.2 *
6-
* Date : 30 May 2022 *
5+
* Version : 4.3 *
6+
* Date : 27 September 2022 *
77
* Website : http://www.angusj.com *
88
* Copyright : Angus Johnson 2019-2022 *
99
* Purpose : Wrapper module for the Clipper library *

‎Ext/SVGIconImageList/Image32/source/Img32.Draw.pas

Lines changed: 10 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -2,8 +2,8 @@
22

33
(*******************************************************************************
44
* Author : Angus Johnson *
5-
* Version : 4.2 *
6-
* Date : 30 May 2022 *
5+
* Version : 4.3 *
6+
* Date : 27 September 2022 *
77
* Website : http://www.angusj.com *
88
* Copyright : Angus Johnson 2019-2021 *
99
* *
@@ -1025,25 +1025,23 @@ procedure Rasterize(const paths: TPathsD; const clipRec: TRect;
10251025
begin
10261026
byteBuffer[j] := Min(255, Round(Abs(accum) * 318));
10271027
end;
1028-
frPositive:
1029-
begin
10301028
{$IFDEF REVERSE_ORIENTATION}
1031-
if accum < -0.002 then
1032-
byteBuffer[j] := Min(255, Round(-accum * 318));
1029+
frPositive:
10331030
{$ELSE}
1034-
if accum > 0.002 then
1035-
byteBuffer[j] := Min(255, Round(accum * 318));
1036-
{$ENDIF}
1037-
end;
10381031
frNegative:
1032+
{$ENDIF}
10391033
begin
1040-
{$IFDEF REVERSE_ORIENTATION}
10411034
if accum > 0.002 then
10421035
byteBuffer[j] := Min(255, Round(accum * 318));
1036+
end;
1037+
{$IFDEF REVERSE_ORIENTATION}
1038+
frNegative:
10431039
{$ELSE}
1040+
frPositive:
1041+
{$ENDIF}
1042+
begin
10441043
if accum < -0.002 then
10451044
byteBuffer[j] := Min(255, Round(-accum * 318));
1046-
{$ENDIF}
10471045
end;
10481046
end;
10491047
end;

0 commit comments

Comments
 (0)