Skip to content

Commit ed17210

Browse files
Alexey-TAlexey-T
committed
sync Demos with pyscripter
1 parent ccb9dbb commit ed17210

File tree

173 files changed

+34331
-34283
lines changed

Some content is hidden

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

173 files changed

+34331
-34283
lines changed

‎demo_delphi/Demo01/Project1.dpr

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,15 +1,15 @@
1-
program Project1;
2-
3-
{$I Definition.Inc}
4-
5-
uses
6-
Forms,
7-
Unit1 in 'Unit1.pas' {Form1};
8-
9-
{$R *.res}
10-
11-
begin
12-
Application.Initialize;
13-
Application.CreateForm(TForm1, Form1);
14-
Application.Run;
15-
end.
1+
program Project1;
2+
3+
{$I Definition.Inc}
4+
5+
uses
6+
Forms,
7+
Unit1 in 'Unit1.pas' {Form1};
8+
9+
{$R *.res}
10+
11+
begin
12+
Application.Initialize;
13+
Application.CreateForm(TForm1, Form1);
14+
Application.Run;
15+
end.

‎demo_delphi/Demo01/Project1.dproj

Lines changed: 151 additions & 151 deletions
Large diffs are not rendered by default.

‎demo_delphi/Demo01/Unit1.pas

Lines changed: 66 additions & 66 deletions
Original file line numberDiff line numberDiff line change
@@ -1,66 +1,66 @@
1-
unit Unit1;
2-
3-
{$I Definition.Inc}
4-
5-
interface
6-
7-
uses
8-
Classes, SysUtils,
9-
Windows, Messages, Graphics, Controls, Forms, Dialogs,
10-
StdCtrls, ComCtrls, ExtCtrls,
11-
PythonEngine, PythonGUIInputOutput;
12-
13-
type
14-
TForm1 = class(TForm)
15-
PythonEngine1: TPythonEngine;
16-
Memo1: TMemo;
17-
Panel1: TPanel;
18-
Button1: TButton;
19-
Splitter1: TSplitter;
20-
Button2: TButton;
21-
Button3: TButton;
22-
OpenDialog1: TOpenDialog;
23-
SaveDialog1: TSaveDialog;
24-
PythonGUIInputOutput1: TPythonGUIInputOutput;
25-
Memo2: TMemo;
26-
procedure Button1Click(Sender: TObject);
27-
procedure Button2Click(Sender: TObject);
28-
procedure Button3Click(Sender: TObject);
29-
private
30-
{ Déclarations privées }
31-
public
32-
{ Déclarations publiques }
33-
end;
34-
35-
36-
var
37-
Form1: TForm1;
38-
39-
implementation
40-
41-
{$R *.DFM}
42-
43-
procedure TForm1.Button1Click(Sender: TObject);
44-
begin
45-
PythonEngine1.ExecStrings( Memo1.Lines );
46-
end;
47-
48-
procedure TForm1.Button2Click(Sender: TObject);
49-
begin
50-
with OpenDialog1 do
51-
begin
52-
if Execute then
53-
Memo1.Lines.LoadFromFile( FileName );
54-
end;
55-
end;
56-
57-
procedure TForm1.Button3Click(Sender: TObject);
58-
begin
59-
with SaveDialog1 do
60-
begin
61-
if Execute then
62-
Memo1.Lines.SaveToFile( FileName );
63-
end;
64-
end;
65-
66-
end.
1+
unit Unit1;
2+
3+
{$I Definition.Inc}
4+
5+
interface
6+
7+
uses
8+
Classes, SysUtils,
9+
Windows, Messages, Graphics, Controls, Forms, Dialogs,
10+
StdCtrls, ComCtrls, ExtCtrls,
11+
PythonEngine, PythonGUIInputOutput;
12+
13+
type
14+
TForm1 = class(TForm)
15+
PythonEngine1: TPythonEngine;
16+
Memo1: TMemo;
17+
Panel1: TPanel;
18+
Button1: TButton;
19+
Splitter1: TSplitter;
20+
Button2: TButton;
21+
Button3: TButton;
22+
OpenDialog1: TOpenDialog;
23+
SaveDialog1: TSaveDialog;
24+
PythonGUIInputOutput1: TPythonGUIInputOutput;
25+
Memo2: TMemo;
26+
procedure Button1Click(Sender: TObject);
27+
procedure Button2Click(Sender: TObject);
28+
procedure Button3Click(Sender: TObject);
29+
private
30+
{ Déclarations privées }
31+
public
32+
{ Déclarations publiques }
33+
end;
34+
35+
36+
var
37+
Form1: TForm1;
38+
39+
implementation
40+
41+
{$R *.DFM}
42+
43+
procedure TForm1.Button1Click(Sender: TObject);
44+
begin
45+
PythonEngine1.ExecStrings( Memo1.Lines );
46+
end;
47+
48+
procedure TForm1.Button2Click(Sender: TObject);
49+
begin
50+
with OpenDialog1 do
51+
begin
52+
if Execute then
53+
Memo1.Lines.LoadFromFile( FileName );
54+
end;
55+
end;
56+
57+
procedure TForm1.Button3Click(Sender: TObject);
58+
begin
59+
with SaveDialog1 do
60+
begin
61+
if Execute then
62+
Memo1.Lines.SaveToFile( FileName );
63+
end;
64+
end;
65+
66+
end.

‎demo_delphi/Demo02/Project1.dpr

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,15 +1,15 @@
1-
program Project1;
2-
3-
{$I Definition.Inc}
4-
5-
uses
6-
Forms,
7-
Unit1 in 'Unit1.pas' {Form1};
8-
9-
{$R *.res}
10-
11-
begin
12-
Application.Initialize;
13-
Application.CreateForm(TForm1, Form1);
14-
Application.Run;
15-
end.
1+
program Project1;
2+
3+
{$I Definition.Inc}
4+
5+
uses
6+
Forms,
7+
Unit1 in 'Unit1.pas' {Form1};
8+
9+
{$R *.res}
10+
11+
begin
12+
Application.Initialize;
13+
Application.CreateForm(TForm1, Form1);
14+
Application.Run;
15+
end.

‎demo_delphi/Demo02/Project1.dproj

Lines changed: 101 additions & 101 deletions
Original file line numberDiff line numberDiff line change
@@ -1,101 +1,101 @@
1-
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2-
<PropertyGroup>
3-
<ProjectGuid>{C2FA2A8D-7DA4-4631-B05E-4C16A0FC8F3B}</ProjectGuid>
4-
<MainSource>Project1.dpr</MainSource>
5-
<Config Condition="'$(Config)'==''">Debug</Config>
6-
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
7-
<ProjectVersion>12.0</ProjectVersion>
8-
</PropertyGroup>
9-
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
10-
<Base>true</Base>
11-
</PropertyGroup>
12-
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
13-
<Cfg_1>true</Cfg_1>
14-
<CfgParent>Base</CfgParent>
15-
<Base>true</Base>
16-
</PropertyGroup>
17-
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
18-
<Cfg_2>true</Cfg_2>
19-
<CfgParent>Base</CfgParent>
20-
<Base>true</Base>
21-
</PropertyGroup>
22-
<PropertyGroup Condition="'$(Base)'!=''">
23-
<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias>
24-
<DCC_DependencyCheckOutputName>Project1.exe</DCC_DependencyCheckOutputName>
25-
<DCC_ImageBase>00400000</DCC_ImageBase>
26-
<DCC_Platform>x86</DCC_Platform>
27-
</PropertyGroup>
28-
<PropertyGroup Condition="'$(Cfg_1)'!=''">
29-
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
30-
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
31-
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
32-
<DCC_DebugInformation>false</DCC_DebugInformation>
33-
</PropertyGroup>
34-
<PropertyGroup Condition="'$(Cfg_2)'!=''">
35-
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
36-
</PropertyGroup>
37-
<ItemGroup>
38-
<DelphiCompile Include="Project1.dpr">
39-
<MainSource>MainSource</MainSource>
40-
</DelphiCompile>
41-
<DCCReference Include="Unit1.pas">
42-
<Form>Form1</Form>
43-
</DCCReference>
44-
<BuildConfiguration Include="Base">
45-
<Key>Base</Key>
46-
</BuildConfiguration>
47-
<BuildConfiguration Include="Debug">
48-
<Key>Cfg_2</Key>
49-
<CfgParent>Base</CfgParent>
50-
</BuildConfiguration>
51-
<BuildConfiguration Include="Release">
52-
<Key>Cfg_1</Key>
53-
<CfgParent>Base</CfgParent>
54-
</BuildConfiguration>
55-
</ItemGroup>
56-
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
57-
<ProjectExtensions>
58-
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
59-
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
60-
<BorlandProject>
61-
<Delphi.Personality>
62-
<Source>
63-
<Source Name="MainSource">Project1.dpr</Source>
64-
</Source>
65-
<Parameters>
66-
<Parameters Name="UseLauncher">False</Parameters>
67-
<Parameters Name="LoadAllSymbols">True</Parameters>
68-
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
69-
</Parameters>
70-
<VersionInfo>
71-
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
72-
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
73-
<VersionInfo Name="MajorVer">1</VersionInfo>
74-
<VersionInfo Name="MinorVer">0</VersionInfo>
75-
<VersionInfo Name="Release">0</VersionInfo>
76-
<VersionInfo Name="Build">0</VersionInfo>
77-
<VersionInfo Name="Debug">False</VersionInfo>
78-
<VersionInfo Name="PreRelease">False</VersionInfo>
79-
<VersionInfo Name="Special">False</VersionInfo>
80-
<VersionInfo Name="Private">False</VersionInfo>
81-
<VersionInfo Name="DLL">False</VersionInfo>
82-
<VersionInfo Name="Locale">1033</VersionInfo>
83-
<VersionInfo Name="CodePage">1252</VersionInfo>
84-
</VersionInfo>
85-
<VersionInfoKeys>
86-
<VersionInfoKeys Name="CompanyName"/>
87-
<VersionInfoKeys Name="FileDescription"/>
88-
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
89-
<VersionInfoKeys Name="InternalName"/>
90-
<VersionInfoKeys Name="LegalCopyright"/>
91-
<VersionInfoKeys Name="LegalTrademarks"/>
92-
<VersionInfoKeys Name="OriginalFilename"/>
93-
<VersionInfoKeys Name="ProductName"/>
94-
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
95-
<VersionInfoKeys Name="Comments"/>
96-
</VersionInfoKeys>
97-
</Delphi.Personality>
98-
</BorlandProject>
99-
<ProjectFileVersion>12</ProjectFileVersion>
100-
</ProjectExtensions>
101-
</Project>
1+
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+
<PropertyGroup>
3+
<ProjectGuid>{C2FA2A8D-7DA4-4631-B05E-4C16A0FC8F3B}</ProjectGuid>
4+
<MainSource>Project1.dpr</MainSource>
5+
<Config Condition="'$(Config)'==''">Debug</Config>
6+
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
7+
<ProjectVersion>12.0</ProjectVersion>
8+
</PropertyGroup>
9+
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
10+
<Base>true</Base>
11+
</PropertyGroup>
12+
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
13+
<Cfg_1>true</Cfg_1>
14+
<CfgParent>Base</CfgParent>
15+
<Base>true</Base>
16+
</PropertyGroup>
17+
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
18+
<Cfg_2>true</Cfg_2>
19+
<CfgParent>Base</CfgParent>
20+
<Base>true</Base>
21+
</PropertyGroup>
22+
<PropertyGroup Condition="'$(Base)'!=''">
23+
<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias>
24+
<DCC_DependencyCheckOutputName>Project1.exe</DCC_DependencyCheckOutputName>
25+
<DCC_ImageBase>00400000</DCC_ImageBase>
26+
<DCC_Platform>x86</DCC_Platform>
27+
</PropertyGroup>
28+
<PropertyGroup Condition="'$(Cfg_1)'!=''">
29+
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
30+
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
31+
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
32+
<DCC_DebugInformation>false</DCC_DebugInformation>
33+
</PropertyGroup>
34+
<PropertyGroup Condition="'$(Cfg_2)'!=''">
35+
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
36+
</PropertyGroup>
37+
<ItemGroup>
38+
<DelphiCompile Include="Project1.dpr">
39+
<MainSource>MainSource</MainSource>
40+
</DelphiCompile>
41+
<DCCReference Include="Unit1.pas">
42+
<Form>Form1</Form>
43+
</DCCReference>
44+
<BuildConfiguration Include="Base">
45+
<Key>Base</Key>
46+
</BuildConfiguration>
47+
<BuildConfiguration Include="Debug">
48+
<Key>Cfg_2</Key>
49+
<CfgParent>Base</CfgParent>
50+
</BuildConfiguration>
51+
<BuildConfiguration Include="Release">
52+
<Key>Cfg_1</Key>
53+
<CfgParent>Base</CfgParent>
54+
</BuildConfiguration>
55+
</ItemGroup>
56+
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
57+
<ProjectExtensions>
58+
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
59+
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
60+
<BorlandProject>
61+
<Delphi.Personality>
62+
<Source>
63+
<Source Name="MainSource">Project1.dpr</Source>
64+
</Source>
65+
<Parameters>
66+
<Parameters Name="UseLauncher">False</Parameters>
67+
<Parameters Name="LoadAllSymbols">True</Parameters>
68+
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
69+
</Parameters>
70+
<VersionInfo>
71+
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
72+
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
73+
<VersionInfo Name="MajorVer">1</VersionInfo>
74+
<VersionInfo Name="MinorVer">0</VersionInfo>
75+
<VersionInfo Name="Release">0</VersionInfo>
76+
<VersionInfo Name="Build">0</VersionInfo>
77+
<VersionInfo Name="Debug">False</VersionInfo>
78+
<VersionInfo Name="PreRelease">False</VersionInfo>
79+
<VersionInfo Name="Special">False</VersionInfo>
80+
<VersionInfo Name="Private">False</VersionInfo>
81+
<VersionInfo Name="DLL">False</VersionInfo>
82+
<VersionInfo Name="Locale">1033</VersionInfo>
83+
<VersionInfo Name="CodePage">1252</VersionInfo>
84+
</VersionInfo>
85+
<VersionInfoKeys>
86+
<VersionInfoKeys Name="CompanyName"/>
87+
<VersionInfoKeys Name="FileDescription"/>
88+
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
89+
<VersionInfoKeys Name="InternalName"/>
90+
<VersionInfoKeys Name="LegalCopyright"/>
91+
<VersionInfoKeys Name="LegalTrademarks"/>
92+
<VersionInfoKeys Name="OriginalFilename"/>
93+
<VersionInfoKeys Name="ProductName"/>
94+
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
95+
<VersionInfoKeys Name="Comments"/>
96+
</VersionInfoKeys>
97+
</Delphi.Personality>
98+
</BorlandProject>
99+
<ProjectFileVersion>12</ProjectFileVersion>
100+
</ProjectExtensions>
101+
</Project>

0 commit comments

Comments
 (0)