Merge pull request pyscripter#185 from ReinierNL/update_demo30

Updates for demo 30

Author: pyscripter

Demos/Demo30/Demo30.dproj

@@ -68,15 +68,16 @@
  <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
  </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>
+ <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>
  <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>
+ <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
  <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
+ <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
  </PropertyGroup>
  <PropertyGroup Condition="'$(Base_Win64)'!=''">
  <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
@@ -86,6 +87,9 @@
  <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>
  <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+ <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
+ <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
+ <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
  </PropertyGroup>
  <PropertyGroup Condition="'$(Cfg_1)'!=''">
  <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
@@ -111,6 +115,8 @@
  <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
  <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
  <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+ <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>
  </PropertyGroup>
  <ItemGroup>
  <DelphiCompile Include="$(MainSource)">

Demos/Demo30/Unit1.dfm

@@ -26,12 +26,8 @@ TForm1 = class(TForm)
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
  procedure Button3Click(Sender: TObject);
- private
- public
  end;
 
-
-
 var
  Form1: TForm1;