Skip to content

Further improvement on packages and demos #293

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 4 commits into from
Mar 2, 2021
Merged

Further improvement on packages and demos #293

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
5b7b0f4
* added 64-bit support for all packages
Mar 1, 2021
f8f46dd
Removed (unnecessary) //{$I Definition.Inc}
Mar 2, 2021
b88f3bd
Renamed files: WrapDelphiVcl*.pas -> WrapVcl*.pas
Mar 2, 2021
76282b6
Updated project file according to new WrapVcl*.pas files (& Demo31)
Mar 2, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion Demos/Demo01/Demo01.dpr
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
program Demo01;

{$I Definition.Inc}


uses
Forms,
Expand Down
362 changes: 181 additions & 181 deletions Demos/Demo01/Demo01.dproj
View file
Open in desktop

Large diffs are not rendered by default.

244 changes: 122 additions & 122 deletions Demos/Demo01/Unit1.dfm
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,122 +1,122 @@
object Form1: TForm1
Left = 241
Top = 155
Width = 544
Height = 375
VertScrollBar.Range = 200
ActiveControl = Button1
Caption = 'Demo of Python'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
Top = 153
Width = 528
Height = 3
Cursor = crVSplit
Align = alTop
Color = clBtnFace
ParentColor = False
ExplicitWidth = 536
end
object Memo1: TMemo
Left = 0
Top = 156
Width = 528
Height = 136
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Consolas'
Font.Pitch = fpVariable
Font.Style = []
Lines.Strings = (
'print(2+2)')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 1
end
object Panel1: TPanel
Left = 0
Top = 292
Width = 528
Height = 44
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object Button1: TButton
Left = 6
Top = 8
Width = 115
Height = 25
Caption = 'Execute script'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 168
Top = 8
Width = 91
Height = 25
Caption = 'Load script...'
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 264
Top = 8
Width = 89
Height = 25
Caption = 'Save script...'
TabOrder = 2
OnClick = Button3Click
end
end
object Memo2: TMemo
Left = 0
Top = 0
Width = 528
Height = 153
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 PythonEngine1: TPythonEngine
IO = PythonGUIInputOutput1
Left = 32
end
object OpenDialog1: TOpenDialog
DefaultExt = '*.py'
Filter = 'Python files|*.py|Text files|*.txt|All files|*.*'
Title = 'Open'
Left = 176
end
object SaveDialog1: TSaveDialog
DefaultExt = '*.py'
Filter = 'Python files|*.py|Text files|*.txt|All files|*.*'
Title = 'Save As'
Left = 208
end
object PythonGUIInputOutput1: TPythonGUIInputOutput
UnicodeIO = True
RawOutput = False
Output = Memo2
Left = 64
end
end
object Form1: TForm1
Left = 241
Top = 155
Width = 544
Height = 375
VertScrollBar.Range = 200
ActiveControl = Button1
Caption = 'Demo of Python'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
Top = 153
Width = 528
Height = 3
Cursor = crVSplit
Align = alTop
Color = clBtnFace
ParentColor = False
ExplicitWidth = 536
end
object Memo1: TMemo
Left = 0
Top = 156
Width = 528
Height = 136
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Consolas'
Font.Pitch = fpVariable
Font.Style = []
Lines.Strings = (
'print(2+2)')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 1
end
object Panel1: TPanel
Left = 0
Top = 292
Width = 528
Height = 44
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object Button1: TButton
Left = 6
Top = 8
Width = 115
Height = 25
Caption = 'Execute script'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 168
Top = 8
Width = 91
Height = 25
Caption = 'Load script...'
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 264
Top = 8
Width = 89
Height = 25
Caption = 'Save script...'
TabOrder = 2
OnClick = Button3Click
end
end
object Memo2: TMemo
Left = 0
Top = 0
Width = 528
Height = 153
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 PythonEngine1: TPythonEngine
IO = PythonGUIInputOutput1
Left = 32
end
object OpenDialog1: TOpenDialog
DefaultExt = '*.py'
Filter = 'Python files|*.py|Text files|*.txt|All files|*.*'
Title = 'Open'
Left = 176
end
object SaveDialog1: TSaveDialog
DefaultExt = '*.py'
Filter = 'Python files|*.py|Text files|*.txt|All files|*.*'
Title = 'Save As'
Left = 208
end
object PythonGUIInputOutput1: TPythonGUIInputOutput
UnicodeIO = True
RawOutput = False
Output = Memo2
Left = 64
end
end
2 changes: 1 addition & 1 deletion Demos/Demo01/Unit1.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
unit Unit1;

{$I Definition.Inc}


interface

Expand Down
2 changes: 1 addition & 1 deletion Demos/Demo02/Demo02.dpr
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
program Demo02;

{$I Definition.Inc}


uses
Forms,
Expand Down
Loading