diff --git a/Demos/FPC/Demo01/project1.lpi b/Demos/FPC/Demo01/project1.lpi index bfc0f0d8..629aef08 100644 --- a/Demos/FPC/Demo01/project1.lpi +++ b/Demos/FPC/Demo01/project1.lpi @@ -1,33 +1,35 @@ - + - + - - - - - - + + + + + + + + @@ -38,120 +40,92 @@ - + - + - - - - + - - - - - - + - - - - - - + - - - - + - - - - - - + + + + + + + + + + + + + + + - + - - + - - + + - - - - - - - - - - - - - - - - - - - - - + @@ -168,9 +142,6 @@ - - - diff --git a/Demos/FPC/Demo01/project1.res b/Demos/FPC/Demo01/project1.res index 7c6cf3e4..f6e84995 100644 Binary files a/Demos/FPC/Demo01/project1.res and b/Demos/FPC/Demo01/project1.res differ diff --git a/Demos/FPC/Demo01/unit1.lfm b/Demos/FPC/Demo01/unit1.lfm index 5cd84666..40e1816b 100644 --- a/Demos/FPC/Demo01/unit1.lfm +++ b/Demos/FPC/Demo01/unit1.lfm @@ -6,7 +6,7 @@ object Form1: TForm1 Caption = 'Form1' ClientHeight = 391 ClientWidth = 547 - LCLVersion = '0.9.30.2' + LCLVersion = '2.0.10.0' object Panel1: TPanel Left = 0 Height = 391 @@ -79,15 +79,15 @@ object Form1: TForm1 end object PythonEngine1: TPythonEngine IO = PythonGUIInputOutput1 - left = 96 - top = 48 + Left = 96 + Top = 48 end object PythonGUIInputOutput1: TPythonGUIInputOutput DelayWrites = True UnicodeIO = False RawOutput = False Output = Memo1 - left = 338 - top = 48 + Left = 338 + Top = 48 end end diff --git a/Demos/FPC/Demo01/unit1.lrs b/Demos/FPC/Demo01/unit1.lrs index 4dcd8024..72fa03ba 100644 --- a/Demos/FPC/Demo01/unit1.lrs +++ b/Demos/FPC/Demo01/unit1.lrs @@ -3,7 +3,7 @@ LazarusResources.Add('TForm1','FORMDATA',[ 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'"'#1#6'Height'#3#135#1#3'Top'#3#175#0#5'W' +'idth'#3'#'#2#7'Caption'#6#5'Form1'#12'ClientHeight'#3#135#1#11'ClientWidth' - +#3'#'#2#10'LCLVersion'#6#8'0.9.30.2'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Hei' + +#3'#'#2#10'LCLVersion'#6#8'2.0.10.0'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Hei' +'ght'#3#135#1#3'Top'#2#0#5'Width'#3'#'#2#5'Align'#7#8'alClient'#12'ClientHei' +'ght'#3#135#1#11'ClientWidth'#3'#'#2#8'TabOrder'#2#0#0#5'TMemo'#5'Memo1'#4'L' +'eft'#2#1#6'Height'#3#183#0#3'Top'#2#1#5'Width'#3'!'#2#5'Align'#7#5'alTop'#8 @@ -13,13 +13,13 @@ LazarusResources.Add('TForm1','FORMDATA',[ +#6'Height'#2#8#3'Top'#2#0#5'Width'#2'-'#0#0#17'TPairSplitterSide'#17'PairSpl' +'itterSide2'#6'Cursor'#7#7'crArrow'#4'Left'#2'2'#6'Height'#2#8#3'Top'#2#0#5 +'Width'#3#239#1#0#0#0#5'TMemo'#5'Memo2'#4'Left'#2#1#6'Height'#3#152#0#3'Top' - +#3#192#0#5'Width'#3'!'#2#5'Align'#7#8'alClient'#13'Lines.Strings'#1#6#9'prin' - +'t 2+2'#0#8'TabOrder'#2#2#0#0#6'TPanel'#6'Panel2'#4'Left'#2#1#6'Height'#2'.' - +#3'Top'#3'X'#1#5'Width'#3'!'#2#5'Align'#7#8'alBottom'#12'ClientHeight'#2'.' - +#11'ClientWidth'#3'!'#2#8'TabOrder'#2#3#0#7'TButton'#7'Button1'#4'Left'#3#223 - +#0#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#7'Caption'#6#7'Execute'#7'OnClick' - +#7#12'Button1Click'#8'TabOrder'#2#0#0#0#0#0#13'TPythonEngine'#13'PythonEngin' - +'e1'#2'IO'#7#21'PythonGUIInputOutput1'#4'left'#2'`'#3'top'#2'0'#0#0#21'TPyth' - +'onGUIInputOutput'#21'PythonGUIInputOutput1'#11'DelayWrites'#9#9'UnicodeIO'#8 - +#9'RawOutput'#8#6'Output'#7#5'Memo1'#4'left'#3'R'#1#3'top'#2'0'#0#0#0 + +#3#192#0#5'Width'#3'!'#2#5'Align'#7#8'alClient'#13'Lines.Strings'#1#6#10'pri' + +'nt(2+2)'#0#8'TabOrder'#2#2#0#0#6'TPanel'#6'Panel2'#4'Left'#2#1#6'Height'#2 + +'.'#3'Top'#3'X'#1#5'Width'#3'!'#2#5'Align'#7#8'alBottom'#12'ClientHeight'#2 + +'.'#11'ClientWidth'#3'!'#2#8'TabOrder'#2#3#0#7'TButton'#7'Button1'#4'Left'#3 + +#223#0#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#7'Caption'#6#7'Execute'#7'OnC' + +'lick'#7#12'Button1Click'#8'TabOrder'#2#0#0#0#0#0#13'TPythonEngine'#13'Pytho' + +'nEngine1'#2'IO'#7#21'PythonGUIInputOutput1'#4'Left'#2'`'#3'Top'#2'0'#0#0#21 + +'TPythonGUIInputOutput'#21'PythonGUIInputOutput1'#11'DelayWrites'#9#9'Unicod' + +'eIO'#8#9'RawOutput'#8#6'Output'#7#5'Memo1'#4'Left'#3'R'#1#3'Top'#2'0'#0#0#0 ]); diff --git a/Demos/FPC/Demo01/unit1.pas b/Demos/FPC/Demo01/unit1.pas index 26fe9250..78b70cb6 100644 --- a/Demos/FPC/Demo01/unit1.pas +++ b/Demos/FPC/Demo01/unit1.pas @@ -6,7 +6,7 @@ interface uses Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, - StdCtrls, ExtCtrls, PairSplitter, PythonEngine, PythonGUIInputOutput; + StdCtrls, ExtCtrls, PairSplitter, PythonEngine, lcl.PythonGUIInputOutput; type diff --git a/Demos/FPC/Demo06/Project1.lpi b/Demos/FPC/Demo06/Project1.lpi index 21a8b55f..6751b6f9 100644 --- a/Demos/FPC/Demo06/Project1.lpi +++ b/Demos/FPC/Demo06/Project1.lpi @@ -1,7 +1,7 @@ - + @@ -17,15 +17,19 @@ - - - - + + + + + + + + @@ -51,8 +55,8 @@ - - + + @@ -112,13 +116,42 @@ - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + diff --git a/Demos/FPC/Demo06/Project1.res b/Demos/FPC/Demo06/Project1.res index 877868cb..f6e84995 100644 Binary files a/Demos/FPC/Demo06/Project1.res and b/Demos/FPC/Demo06/Project1.res differ diff --git a/Demos/FPC/Demo06/Unit1.lfm b/Demos/FPC/Demo06/Unit1.lfm index efb1a880..45497ad7 100644 --- a/Demos/FPC/Demo06/Unit1.lfm +++ b/Demos/FPC/Demo06/Unit1.lfm @@ -11,8 +11,7 @@ object Form1: TForm1 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' - LCLVersion = '1.8.0.6' - Visible = False + LCLVersion = '2.0.10.0' object Splitter1: TSplitter Cursor = crVSplit Left = 0 @@ -93,7 +92,7 @@ object Form1: TForm1 end object Edit1: TEdit Left = 500 - Height = 20 + Height = 21 Top = 8 Width = 150 TabOrder = 4 @@ -118,7 +117,7 @@ object Form1: TForm1 'print()' ) IO = PythonGUIInputOutput1 - left = 8 + Left = 8 end object PythonType1: TPythonType Engine = PythonEngine1 @@ -130,24 +129,24 @@ object Form1: TForm1 Services.Number = [] Services.Sequence = [] Services.Mapping = [] - left = 72 + Left = 72 end object PythonModule1: TPythonModule Engine = PythonEngine1 OnInitialization = PythonModule1Initialization ModuleName = 'spam' Errors = <> - left = 104 + Left = 104 end object OpenDialog1: TOpenDialog DefaultExt = '.*.py' Filter = 'Python files|*.py|Text files|*.txt|All files|*.*' - left = 176 + Left = 176 end object SaveDialog1: TSaveDialog DefaultExt = '.*.py' Filter = 'Python files|*.py|Text files|*.txt|All files|*.*' - left = 208 + Left = 208 end object PythonDelphiVar1: TPythonDelphiVar Engine = PythonEngine1 @@ -156,12 +155,12 @@ object Form1: TForm1 OnGetData = PythonDelphiVar1GetData OnSetData = PythonDelphiVar1SetData OnChange = PythonDelphiVar1Change - left = 136 + Left = 136 end object PythonGUIInputOutput1: TPythonGUIInputOutput UnicodeIO = True RawOutput = False Output = Memo2 - left = 40 + Left = 40 end end diff --git a/Demos/FPC/Demo06/Unit1.pas b/Demos/FPC/Demo06/Unit1.pas index 3cf0d935..1caf8f5e 100644 --- a/Demos/FPC/Demo06/Unit1.pas +++ b/Demos/FPC/Demo06/Unit1.pas @@ -6,9 +6,9 @@ interface uses SysUtils, Classes, - Windows, Messages, Graphics, Controls, Forms, Dialogs, + Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, - PythonEngine, PythonGUIInputOutput; + PythonEngine, lcl.PythonGUIInputOutput; type diff --git a/Demos/FPC/Demo25/fpc-res.or b/Demos/FPC/Demo25/fpc-res.or deleted file mode 100644 index 3676804f..00000000 Binary files a/Demos/FPC/Demo25/fpc-res.or and /dev/null differ diff --git a/Demos/FPC/Demo25/project1.lpi b/Demos/FPC/Demo25/project1.lpi index b90ec537..5e6384e1 100644 --- a/Demos/FPC/Demo25/project1.lpi +++ b/Demos/FPC/Demo25/project1.lpi @@ -1,31 +1,32 @@ - + + - - - - + - + + + - - - - - - - + + + + + + + + @@ -40,205 +41,131 @@ - + - - - + + + + - - + - + - - + - + - - - + - - - + + - + - + - - + - + - - + - + - - + - - + + - + - + - + - + - + - + - + - + - + - + - + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + - + + @@ -248,25 +175,34 @@ - - - + + + + + + + + + + + + diff --git a/Demos/FPC/Demo25/project1.res b/Demos/FPC/Demo25/project1.res index 708df3c5..f6e84995 100644 Binary files a/Demos/FPC/Demo25/project1.res and b/Demos/FPC/Demo25/project1.res differ diff --git a/Demos/FPC/Demo25/unit1.lfm b/Demos/FPC/Demo25/unit1.lfm index 71b1a0f6..31cae000 100644 --- a/Demos/FPC/Demo25/unit1.lfm +++ b/Demos/FPC/Demo25/unit1.lfm @@ -7,7 +7,7 @@ object Form1: TForm1 ClientHeight = 522 ClientWidth = 795 OnCreate = FormCreate - LCLVersion = '0.9.28.2' + LCLVersion = '2.0.10.0' object Panel1: TPanel Left = 0 Height = 522 @@ -133,15 +133,15 @@ object Form1: TForm1 end object PythonEngine1: TPythonEngine IO = PythonGUIInputOutput1 - left = 96 - top = 48 + Left = 96 + Top = 48 end object PythonGUIInputOutput1: TPythonGUIInputOutput DelayWrites = True UnicodeIO = False RawOutput = False Output = Memo1 - left = 338 - top = 48 + Left = 338 + Top = 48 end end diff --git a/Demos/FPC/Demo25/unit1.lrs b/Demos/FPC/Demo25/unit1.lrs index 1ab0eccf..775c6356 100644 --- a/Demos/FPC/Demo25/unit1.lrs +++ b/Demos/FPC/Demo25/unit1.lrs @@ -1,7 +1,9 @@ +{ This is an automatically generated lazarus resource file } + LazarusResources.Add('TForm1','FORMDATA',[ 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3't'#1#6'Height'#3#10#2#3'Top'#2'd'#5'Width' +#3#27#3#7'Caption'#6#5'Form1'#12'ClientHeight'#3#10#2#11'ClientWidth'#3#27#3 - +#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#8'0.9.28.2'#0#6'TPanel'#6'Pan' + +#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#8'2.0.10.0'#0#6'TPanel'#6'Pan' +'el1'#4'Left'#2#0#6'Height'#3#10#2#3'Top'#2#0#5'Width'#3#27#3#5'Align'#7#8'a' +'lClient'#12'ClientHeight'#3#10#2#11'ClientWidth'#3#27#3#8'TabOrder'#2#0#0#5 +'TMemo'#5'Memo1'#4'Left'#2#1#6'Height'#3#231#0#3'Top'#2#1#5'Width'#3#25#3#5 @@ -14,27 +16,27 @@ LazarusResources.Add('TForm1','FORMDATA',[ +'eight'#3#168#0#3'Top'#3#240#0#5'Width'#3#25#3#5'Align'#7#8'alClient'#13'Lin' +'es.Strings'#1#6#18'class XYZ(object):'#6#6' pass'#6#0#6#10'class Foo:'#6#30 +' def __init__(Self, Value=0):'#6#22' Self.Value = Value'#6#20' def __d' - +'el__(Self):'#6#24' print "delete", Self'#6#27' def __add__(self, other)' - +':'#6'( return Foo(self.Value + other.Value)'#6#28' def Inc(Self, AValue' - +' = 1):'#6'$ Self.Value = Self.Value + AValue'#6#20' def GetSelf(Self):' + +'el__(Self):'#6#25' print("delete", Self)'#6#27' def __add__(self, other' + +'):'#6'( return Foo(self.Value + other.Value)'#6#28' def Inc(Self, AValu' + +'e = 1):'#6'$ Self.Value = Self.Value + AValue'#6#20' def GetSelf(Self):' +#6#15' return Self'#6#21' def GetValue(Self):'#6#21' return Self.Valu' +'e'#6#28' def SetABC(Self, A, B, C):'#6#14' Self.A = A'#6#14' Self.B ' +'= B'#6#14' Self.C = C'#6#26' def Add(Self, AFooInst):'#6', Self.Valu' +'e = Self.Value + AFooInst.Value'#6#15'class Bar(Foo):'#6#28' def Inc(Self,' +' AValue = 1):'#6'$ Self.Value = Self.Value - AValue'#6#14'def Add(a, b):' +#6#14' return a + b'#6#25'def MakeList(a, b, c, d):'#6#21' return [a, b, c' - +', d]'#6#0#6#9'f = Foo()'#6#18'print "Created", f'#6#7'f.Inc()'#6#8'f.Inc(2)' - +#6#9'b = Bar()'#6#7'b.Inc()'#6#8'b.Inc(2)'#0#8'TabOrder'#2#2#0#0#6'TPanel'#6 - +'Panel2'#4'Left'#2#1#6'Height'#2'q'#3'Top'#3#152#1#5'Width'#3#25#3#5'Align'#7 - +#8'alBottom'#12'ClientHeight'#2'q'#11'ClientWidth'#3#25#3#8'TabOrder'#2#3#0#7 - +'TButton'#7'Button1'#4'Left'#2#15#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#7 + +', d]'#6#0#6#9'f = Foo()'#6#19'print("Created", f)'#6#7'f.Inc()'#6#8'f.Inc(2' + +')'#6#9'b = Bar()'#6#7'b.Inc()'#6#8'b.Inc(2)'#0#8'TabOrder'#2#2#0#0#6'TPanel' + +#6'Panel2'#4'Left'#2#1#6'Height'#2'q'#3'Top'#3#152#1#5'Width'#3#25#3#5'Align' + +#7#8'alBottom'#12'ClientHeight'#2'q'#11'ClientWidth'#3#25#3#8'TabOrder'#2#3#0 + +#7'TButton'#7'Button1'#4'Left'#2#15#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#7 +'Caption'#6#7'Execute'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#0#0#0#7'T' +'Button'#15'btnTestIntegers'#4'Left'#2'w'#6'Height'#2#25#3'Top'#2#8#5'Width' +#2'K'#7'Caption'#6#13'Test Integers'#7'OnClick'#7#20'btnTestIntegersClick'#8 +'TabOrder'#2#1#0#0#9'TCheckBox'#14'cbTestIntegers'#4'Left'#2'z'#6'Height'#2 +#19#3'Top'#2')'#5'Width'#2'B'#7'Caption'#6#8'Included'#8'TabOrder'#2#2#0#0#0 - +#0#13'TPythonEngine'#13'PythonEngine1'#2'IO'#7#21'PythonGUIInputOutput1'#4'l' - +'eft'#2'`'#3'top'#2'0'#0#0#21'TPythonGUIInputOutput'#21'PythonGUIInputOutput' - +'1'#11'DelayWrites'#9#9'UnicodeIO'#8#9'RawOutput'#8#6'Output'#7#5'Memo1'#4'l' - +'eft'#3'R'#1#3'top'#2'0'#0#0#0 + +#0#13'TPythonEngine'#13'PythonEngine1'#2'IO'#7#21'PythonGUIInputOutput1'#4'L' + +'eft'#2'`'#3'Top'#2'0'#0#0#21'TPythonGUIInputOutput'#21'PythonGUIInputOutput' + +'1'#11'DelayWrites'#9#9'UnicodeIO'#8#9'RawOutput'#8#6'Output'#7#5'Memo1'#4'L' + +'eft'#3'R'#1#3'Top'#2'0'#0#0#0 ]); diff --git a/Demos/FPC/Demo25/unit1.pas b/Demos/FPC/Demo25/unit1.pas index ad0c3a84..5b9eeb59 100644 --- a/Demos/FPC/Demo25/unit1.pas +++ b/Demos/FPC/Demo25/unit1.pas @@ -6,7 +6,7 @@ interface uses Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, - StdCtrls, ExtCtrls, PairSplitter, PythonEngine, PythonGUIInputOutput; + StdCtrls, ExtCtrls, PairSplitter, PythonEngine, lcl.PythonGUIInputOutput; type diff --git a/Demos/FPC/Demo31/Project1.lpi b/Demos/FPC/Demo31/Project1.lpi index 9645cf5e..34aac6a3 100644 --- a/Demos/FPC/Demo31/Project1.lpi +++ b/Demos/FPC/Demo31/Project1.lpi @@ -1,7 +1,7 @@ - + @@ -15,21 +15,17 @@ - - - - - - - - + + + + @@ -44,7 +40,7 @@ - + @@ -56,8 +52,8 @@ - - + + @@ -69,8 +65,7 @@ - - + @@ -79,7 +74,6 @@ - @@ -95,7 +89,6 @@ - @@ -104,12 +97,10 @@ - - + - @@ -135,21 +126,17 @@ - - + - - - + - @@ -161,12 +148,10 @@ - - + - @@ -185,12 +170,10 @@ - - + - @@ -238,13 +221,10 @@ - - - + - @@ -302,8 +282,8 @@ - - + + diff --git a/Demos/FPC/Demo31/Project1.res b/Demos/FPC/Demo31/Project1.res index e66ecf85..0ad004b9 100644 Binary files a/Demos/FPC/Demo31/Project1.res and b/Demos/FPC/Demo31/Project1.res differ diff --git a/Demos/FPC/Demo31/Unit1.lfm b/Demos/FPC/Demo31/Unit1.lfm index cc22595f..74cdb328 100644 --- a/Demos/FPC/Demo31/Unit1.lfm +++ b/Demos/FPC/Demo31/Unit1.lfm @@ -14,7 +14,7 @@ object Form1: TForm1 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable OnCreate = FormCreate - LCLVersion = '0.9.30.2' + LCLVersion = '2.0.10.0' Visible = True object Splitter1: TSplitter Cursor = crVSplit @@ -103,7 +103,7 @@ object Form1: TForm1 ' MainForm.Caption = ''PyDelphi rocks!'' #setting properties' ' self.assertEqual(MainForm.Caption, ''PyDelphi rocks!'')' ' print()' - ' print(''MainForm.ActiveControl='', MainForm.ActiveControl # class properties)' + ' print(''MainForm.ActiveControl='', MainForm.ActiveControl ) # class properties' ' MainForm.BorderStyle = ''bsSizeable'' #enumeration property' ' MainForm.Anchors = [''akTop'', ''akLeft''] #set property' ' self.assertEqual(MainForm.Anchors, [''akTop'', ''akLeft''])' @@ -118,7 +118,7 @@ object Form1: TForm1 ' self.assertEqual(DVar.SValue, ''Age'')' ' self.assertEqual(DVar.IValue, 25)' ' print()' - ' print(DVar.DescribeMe() #method calls)' + ' print(DVar.DescribeMe()) #method calls' '' ' def testRepr(self):' ' print()' @@ -126,8 +126,8 @@ object Form1: TForm1 ' print(DVar)' ' print(MainForm)' ' if DelphiVersion >= 7:' - ' print(DVar.DescribeMe # method object)' - ' print(DVar.SL # TStrings)' + ' print(DVar.DescribeMe) # method object' + ' print(DVar.SL) # TStrings' '' ' def testTStrings(self):' ' SL = DVar.SL' @@ -402,9 +402,6 @@ object Form1: TForm1 ' except SystemExit:' ' pass' ' MainForm.ActiveControl = MainForm.Memo2 # Class property!' - '' - ' ' - ' ' ) ScrollBars = ssVertical TabOrder = 0 @@ -440,8 +437,8 @@ object Form1: TForm1 end object PyEngine: TPythonEngine IO = PythonGUIInputOutput1 - left = 16 - top = 16 + Left = 16 + Top = 16 end object PythonModule: TPythonModule Engine = PyEngine @@ -455,19 +452,19 @@ object Form1: TForm1 end> ModuleName = 'spam' Errors = <> - left = 56 - top = 16 + Left = 56 + Top = 16 end object PythonGUIInputOutput1: TPythonGUIInputOutput UnicodeIO = False RawOutput = False Output = Memo2 - left = 168 - top = 17 + Left = 168 + Top = 17 end object ActionList1: TActionList - left = 96 - top = 80 + Left = 96 + Top = 80 object actTest: TAction Caption = 'Test' OnExecute = actTestExecute diff --git a/Demos/FPC/Demo31/Unit1.pas b/Demos/FPC/Demo31/Unit1.pas index c28ad7b1..f0ddcc65 100644 --- a/Demos/FPC/Demo31/Unit1.pas +++ b/Demos/FPC/Demo31/Unit1.pas @@ -7,7 +7,7 @@ interface uses SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, - PythonEngine, PythonGUIInputOutput, WrapDelphi, ActnList; + PythonEngine, lcl.PythonGUIInputOutput, WrapDelphi, ActnList; type TForm1 = class(TForm)