From 375d172ba32e645d8fceb4119806d1bb65e64b71 Mon Sep 17 00:00:00 2001
From: Reinier Sterkenburg <reinier.sterkenburg@tno.nl>
Date: Sun, 11 Oct 2020 22:34:53 +0200
Subject: [PATCH 1/2] Python code now Python 3 compatible; Memo font is now
 Consolas, size 10; dfm now stored as text

---
 Demos/Demo26/Unit1.dfm | Bin 3294 -> 5048 bytes
 Demos/Demo26/Unit1.pas |   6 +-----
 2 files changed, 1 insertion(+), 5 deletions(-)

diff --git a/Demos/Demo26/Unit1.dfm b/Demos/Demo26/Unit1.dfm
index cf78062c9077df599d93fb07de5c2788ff4e9e15..b5efc57bbef44bd4ba591ede427150862fd9d85c 100644
GIT binary patch
literal 5048
zcmeHLQEwYJ41V9QV3P+sm}AUw(lo_VAoiR#Koc9W+jJ;~K)#b>ZRgWfC&%`F{YdJh
zyGxxmEjA1TmWNm(DT*RLQRM0A?=rG*uFazJ5+?ln1HfB3vv3LrokN^VbcW;3F^z9j
zZ09&TIyu1E8>#N*BzSm0)A!QYab$Fo^n__&i}X&ilAn-w7Fl&K`#QDAN9v_q=nm5R
zBC|@TNNMoq4Wj8p8>B=@&!*=hl1MwpmF@mqm|W6^zYNaL-o2gN_TQXcj|Y<=5LVu(
zG}fz$TwBiz#&&35)^{ZqWMSiS3}cbzFqTHm$O7h$l#S@Dv+TVvN=%br$JlNXTKMrd
zlpQ8<-$-HQ(8Q9=o|q*`j?`Kv`AC|Jl+~O(M<N+i8q!6Ib`cn7iLzE2ih>^_H-v(G
z7((&<gl8cb$E3Ov4$_NmT$<eZ(Y$AsOg&4~9l2X17+0nY*0^`1Y*6=tA}!Mx{}<MA
zw9qp8<uwIBYE~T+1}YGFXjSLfiI*1i6D3m$&=cb8MYcz{;0D+3cbpGuVMg@jIuSWV
z_)9S^c(o{FAXF;z_ShPg-sR}PCTjs`s70oYg*+1rrx|Hs5aE6~Ty92MrM5{jZ65Bu
z3?cxroFU|Nb1ait3+`(?KvX8P_HZ^s<o7nsdlCq1!(bP562nStz-ovXk08KqG6^cp
ztw<voWa&DyB@VaFw1XBLm3lKgrG;kJVinD7ufi&Afo==BP+=9T+Upi%?agP59e3e&
zh)ctY0MF5`#%}kd@kS<zhLtu+{EP_R(}h)!s|iQkg;cJ-)g2W_04mU^L&oIKWiG+_
z>cfW*Akxi3n~FRCUSCzt5aO6Gr;mrygX^D-V4DC6hu;wGSQ!R<6+6yVm1_`A>tjpc
zB!IMF2Vj5y6;4W+sF}wjsN7+ggI2vvr6Lp&!2F$31?FV=sCcR^F3ISwR+f-S2mcjA
zzjCpy*=#$#5h};LhS&ya489tAhR-jhu0c=44}A!Df3I<c9FS~t4{wXIuu@3^q)58R
zgq7ZP#WlwCDA$q9T*`FmkQIT*VKo=_CF-+t3h-R7a@go4PKD(`gcho_0Y8??@YQ5(
z7&u|@J#mKnO&e&eL)}haEU8=xXT;|kYmyjdMlT#r*o-pr<sPLHXQ}fIBb6*}-`+Ci
z_LgCbuZw_FL^1OO(rN}Hds?!mZb?*9q7tp)6ua;%x`9sbJS@rcxicL>zOi#GqVmWn
zbgR|+nO|5Q!Fyr<JO64&D0P(HYWN-4MLC9vu3y!%itGa%Zi7v8he5!%*vi~Kt1Nc_
zsv#M{>JME$zYn%SulctxptD(e8>=2;+88?M1XYfP@v5W%N5hCgw;~q;<7uVu|HpfY
z?x*1$Gd-r=$Lf??;EUTm__P#B6(Wx$`YX)wvXI^55REu(P^pL!Jr}r+$)S~@YA?@w
z+Rm9i5mR64yMp#coA|~EdM5npTJ<~<sZ6M_=K<^3Qa^VOzfwORQs07|R4CxlBC8in
z?8$qX440S+(TM5&l}_CmDz>`SMM2+N;?k6CawAp}nvEC5)OCJ-=KF)=qk<i(?E_D#
zbaR8XjL;r`7b=E0r(xriV*MZefd&`W@RW5s_tl(8t;fMvT96_fzDND60V(>X(u2MQ
z;x^$+-Q~aDeSAMg2~{;ux|BRf@35g^RC0=TbN2ql5M$z`UcbAzNVBCyXyJbcp#r-d
z*K`(N2WYZomrETllgch`&bzn`!%l@g%yLq`JEw}q!KipxPT^-31FSlv!#`aNFVEEq
zi+b<@@N`1m&?!jUr^=>K;f$vBTa|@p;wieY>E~3!`a?(axjne&E8f0v<<V1IN!FL)
zq8Y3Bf*XhFMXIb4iTYC%A6Z;fSyi3Kx`<x$qC51+$eCKB=NhgFa#R<j5WgbQtOviN
z+^Yz?<(|kDJ(C}&`L)bU3#K_X(Dd_K+B0j-kV(auzNS#STP#N4CHV2@YPpzlTH~)R
z75<})F{XEk4KHo{K<A~%GOBX}r-%T5oGHJrpdnkp{NOTBLg%Yfr}H7+r7F^~<eOA{
h4+6LrD|e4@d;d^i8sw{mB+hWW+TXD5R$P!}e*sW-TR#8*

literal 3294
zcmd^CUvnEZ5Wm>5F1F(&rPG#{7sYvK!X$2;!oYZ@46(7BKogtz(w3)GKFhHNSvn*+
zj`;+95@r|}J_-*!@O5BMI-i|s3N!S92mEk%+SRUhfBQ%4KMP*aYM&lgy~i8Bt$JS2
zX+1_kOR7;dXP?W@>A+<F@Unr7vcGz{m#lAw*-i!>Qg$&k*&ml~zo5!=LnS${6ID4S
z;(}&>_euw$VVATag#nhIJEkL9^&2EIObX<b=Nghr<>y0QH=;#Cy4r&6mBx@LO^v_)
zMYDBq_B=Rm93Gr@n?b>Gt;}l3Uoz2`lYm~CqGdRXGR3@IosbblrQ<H{5}|RIDmHNP
z9cIFzUl>F$h+?G2sUvsIl+&WO*5>_&qQua)>Qj|3b=Vc<x<l2G2#1;1h4{SWq>`5p
zx)Eo_z{c4})gqR0fc-QB?DH95nJj9Il?Ja@LiNH5<qkNz5Pptuz_`@B0*xUv4(P*-
z=jDPJI|tyR@?YLip8eTNl&uin;EW1Wdd>vZm99}tT<9fKWTQwbgLOnk$U_f8PPE3y
z(~e}qY{%4!{oJXc+Zgxh0Jo&v?ovM3#g{<5hv645EA7Dmf>fVwU&b8JwY7yM@8b!X
zVk2>ALBs@`X+$v-+7J;^^dQ1d?co)NvO9Nw7k|8iHX<<6;Aq#%Y)3ojy=Z<6ezJ?7
z;2pG<?5bSt;;1r3cip-i2OK{w$3z?Zd+rU#Jv^kGOFWT^_ctHDRls^6=;R+f_$2jU
z!FIfbg~Wo=e(d{LQ|#P(_39NSVmgwF{!8~f^ug8~Og-*h$MaTf%`ANH0%IYn#F54y
z-2m~rgSgL>&5$%w^K^l@+Srw2bK)56;xfj2d!NAq-DiVYL^0DY`WCwyx{Glt2rPmv
zy^L~DbF_vYTxSbuU`rIIDr||5+W!v@{<{=jHfmZ!d#TxqFb#zVIe@8BQeip3uH>3^
z(odXy1lyr+GEJNDp6wmTCT8%2agJjJ)IpX?ps(pwNF!Iou3W9)E}jgDso^aU)<Zeb
zcq+%(0L^}cU<4pXm6Zh?iGl{<%t8C9$qfSi5%M@S8Nv>YypIP;j$C}~X=U^}m9d1x
zF&qEbkjnYFb@lw*CIj>hV(ZiLh@<u9l%Au6b4mzJ<<S=Y2Aqg(cTi9ZqqPOHWom{}
zU>zz3a6sj4qA!zt+I#0;8Eq!Ita}>3ixYJ5$TD&P{}A68DDcP(A+2p@8>$W7EF<3q
zuZ9r72hA6pbV}aGagIPz+p<cdy}g5qmQw-vaCNo-<RJSK4uFQA#ETT8|5J`&=r7O=
z-gd9lFj}8y>UU$p)BXZiToU3FXf4$8yh1w6XuqI!Jl?R7@Rfk{>`VYxvWJ2W5tJkQ
zymsZkTuNr7`IWyjzm)6J7&$7`=_TduG1Q`udY30s(7E;{&kyQj*d~1UO4P5!BUom|
zY0rF>3}Bi2=}hG}uV@H5=c+uvEno}?zx7uWRdxmTFU%DC3o}LL&5;5|n8o>I5gep7
z_%ocJ2gsBHS0GJs0fR?raZ$}2wf#Ge^6c#BNJL`;7{D{}aKn1IF;{Xd`(r*+;uclp
zH2c?87aZ4K{L6N>aW%WPv}|bw+iEQ>Z=V57CB9EhBc6Y}WLG{dx*IlabZo!00&c=s
zQ0jRO#ZPB06cZfcbBfOA`1391Z?wgcV1^OSz9;d3?B8FIxz1XN^;oBJ)+y9cbil3<
zauWw~NX+m_P+Nlm_>zS%3D${bVG;H8DUDRFr(rTI^z<`o4vbN4`0OU1-rZCNLd9V^
zKN*jDR29ATlrf{+N-13^A_{|E(c4IA$0Um25-cVdy`EuoC&B1?GTfXY`7^;n*{4VC
beEyV7T;8l8_jdm-Tq0+Gu%mYd(#ZP@&2sWV

diff --git a/Demos/Demo26/Unit1.pas b/Demos/Demo26/Unit1.pas
index 27ad4a85..f08d9d46 100644
--- a/Demos/Demo26/Unit1.pas
+++ b/Demos/Demo26/Unit1.pas
@@ -1,4 +1,4 @@
-unit Unit1;
+unit Unit1;
 
 {$I Definition.Inc}
 
@@ -23,10 +23,6 @@   TForm1 = class(TForm)
     Memo2: TMemo;
     procedure Button1Click(Sender: TObject);
     procedure PythonType1Initialization(Sender: TObject);
-  private
-    { D�clarations priv�es }
-  public
-    { D�clarations publiques }
   end;
 
   // This is a Delphi class implementing a new Python type

From f9263ae77dad11360ab099ef2b4aa0cfc07ab4d9 Mon Sep 17 00:00:00 2001
From: Reinier Sterkenburg <reinier.sterkenburg@tno.nl>
Date: Sun, 11 Oct 2020 22:34:53 +0200
Subject: [PATCH 2/2] added default icons; enabled RuntimeThemes; set DPI
 awareness

---
 Demos/Demo26/Demo26.dproj | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/Demos/Demo26/Demo26.dproj b/Demos/Demo26/Demo26.dproj
index 67738580..ee960ee1 100644
--- a/Demos/Demo26/Demo26.dproj
+++ b/Demos/Demo26/Demo26.dproj
@@ -68,15 +68,15 @@
         <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>
         <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
+        <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win64)'!=''">
         <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
@@ -86,6 +86,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 +114,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)">