Merge pull request pyscripter#186 from ReinierNL/update_demo31

Updates for demo 31

Author: pyscripter

Demos/Demo31/Demo31.dproj

@@ -57,23 +57,25 @@
  </PropertyGroup>
  <PropertyGroup Condition="'$(Base_Win32)'!=''">
  <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
- <Icon_MainIcon>Demo31_Icon.ico</Icon_MainIcon>
+ <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
  <DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
  <VerInfo_Locale>1033</VerInfo_Locale>
  <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
  <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
  <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>
+ <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
  </PropertyGroup>
  <PropertyGroup Condition="'$(Base_Win64)'!=''">
  <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
  <DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
  <VerInfo_Locale>1033</VerInfo_Locale>
  <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
- <Icon_MainIcon>Demo31_Icon.ico</Icon_MainIcon>
+ <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
  <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
  <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>
+ <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
  </PropertyGroup>
  <PropertyGroup Condition="'$(Cfg_1)'!=''">
  <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
@@ -88,15 +90,13 @@
  <BT_BuildType>Debug</BT_BuildType>
  <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
  <VerInfo_Locale>1033</VerInfo_Locale>
- <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
  <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
  <DCC_DebugDCUs>true</DCC_DebugDCUs>
  </PropertyGroup>
  <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
  <BT_BuildType>Debug</BT_BuildType>
  <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
  <VerInfo_Locale>1033</VerInfo_Locale>
- <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
  <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
  <DCC_DebugDCUs>true</DCC_DebugDCUs>
  </PropertyGroup>
@@ -163,10 +163,7 @@
  <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
  <VersionInfoKeys Name="Comments"/>
  </VersionInfoKeys>
- <Excluded_Packages>
- <Excluded_Packages Name="$(BDSBIN)\dcloffice2k260.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
- <Excluded_Packages Name="$(BDSBIN)\dclofficexp260.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
- </Excluded_Packages>
+ <Excluded_Packages/>
  </Delphi.Personality>
  <Platforms>
  <Platform value="Win32">True</Platform>

Demos/Demo31/Unit1.dfm

@@ -33,6 +33,12 @@ object Form1: TForm1
  Width = 721
  Height = 395
  Align = alClient
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -13
+ Font.Name = 'Consolas'
+ Font.Pitch = fpVariable
+ Font.Style = []
  Lines.Strings = (
 
  'from spam import DelphiVersion, MainForm, DVar, CreateComponent,' +
@@ -493,7 +499,8 @@ object Form1: TForm1
  ' unittest.main()'
  ' except SystemExit:'
  ' pass')
- ScrollBars = ssVertical
+ ParentFont = False
+ ScrollBars = ssBoth
  TabOrder = 0
  WordWrap = False
  end
@@ -521,14 +528,17 @@ object Form1: TForm1
  Width = 721
  Height = 169
  Align = alTop
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -13
+ Font.Name = 'Consolas'
+ Font.Pitch = fpVariable
+ Font.Style = []
+ ParentFont = False
  ScrollBars = ssBoth
  TabOrder = 2
  end
  object PyEngine: TPythonEngine
- DllName = 'python38.dll'
- APIVersion = 1013
- RegVersion = '3.8'
- UseLastKnownVersion = False
  IO = PythonGUIInputOutput1
  Left = 16
  Top = 16