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 @@ CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - 1033 $(BDS)\bin\default_app.manifest true $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png + $(BDS)\bin\delphi_PROJECTICON.ico $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png @@ -86,6 +86,9 @@ true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= $(BDS)\bin\default_app.manifest + $(BDS)\bin\delphi_PROJECTICON.ico + true + PerMonitorV2 false @@ -111,6 +114,8 @@ true PerMonitorV2 + true + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= diff --git a/Demos/Demo26/Unit1.dfm b/Demos/Demo26/Unit1.dfm index cf78062c..b5efc57b 100644 Binary files a/Demos/Demo26/Unit1.dfm and b/Demos/Demo26/Unit1.dfm differ 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