forked from lmbelo/python4delphi
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathunit1.lfm
More file actions
147 lines (147 loc) · 3.36 KB
/
Copy pathunit1.lfm
File metadata and controls
147 lines (147 loc) · 3.36 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
object Form1: TForm1
Left = 372
Height = 522
Top = 100
Width = 795
Caption = 'Form1'
ClientHeight = 522
ClientWidth = 795
OnCreate = FormCreate
LCLVersion = '0.9.28.2'
object Panel1: TPanel
Left = 0
Height = 522
Top = 0
Width = 795
Align = alClient
ClientHeight = 522
ClientWidth = 795
TabOrder = 0
object Memo1: TMemo
Left = 1
Height = 231
Top = 1
Width = 793
Align = alTop
TabOrder = 0
end
object PairSplitter1: TPairSplitter
Left = 1
Height = 8
Top = 232
Width = 793
Align = alTop
Position = 45
object PairSplitterSide1: TPairSplitterSide
Cursor = crArrow
Left = 0
Height = 8
Top = 0
Width = 45
end
object PairSplitterSide2: TPairSplitterSide
Cursor = crArrow
Left = 50
Height = 8
Top = 0
Width = 743
end
end
object Memo2: TMemo
Left = 1
Height = 168
Top = 240
Width = 793
Align = alClient
Lines.Strings = (
'class XYZ(object):'
' pass'
''
'class Foo:'
' def __init__(Self, Value=0):'
' Self.Value = Value'
' def __del__(Self):'
' print("delete", Self)'
' def __add__(self, other):'
' return Foo(self.Value + other.Value)'
' def Inc(Self, AValue = 1):'
' Self.Value = Self.Value + AValue'
' def GetSelf(Self):'
' return Self'
' def GetValue(Self):'
' return Self.Value'
' def SetABC(Self, A, B, C):'
' Self.A = A'
' Self.B = B'
' Self.C = C'
' def Add(Self, AFooInst):'
' Self.Value = Self.Value + AFooInst.Value'
'class Bar(Foo):'
' def Inc(Self, AValue = 1):'
' Self.Value = Self.Value - AValue'
'def Add(a, b):'
' return a + b'
'def MakeList(a, b, c, d):'
' return [a, b, c, d]'
''
'f = Foo()'
'print("Created", f)'
'f.Inc()'
'f.Inc(2)'
'b = Bar()'
'b.Inc()'
'b.Inc(2)'
)
TabOrder = 2
end
object Panel2: TPanel
Left = 1
Height = 113
Top = 408
Width = 793
Align = alBottom
ClientHeight = 113
ClientWidth = 793
TabOrder = 3
object Button1: TButton
Left = 15
Height = 25
Top = 8
Width = 75
Caption = 'Execute'
OnClick = Button1Click
TabOrder = 0
end
object btnTestIntegers: TButton
Left = 119
Height = 25
Top = 8
Width = 75
Caption = 'Test Integers'
OnClick = btnTestIntegersClick
TabOrder = 1
end
object cbTestIntegers: TCheckBox
Left = 122
Height = 19
Top = 41
Width = 66
Caption = 'Included'
TabOrder = 2
end
end
end
object PythonEngine1: TPythonEngine
IO = PythonGUIInputOutput1
left = 96
top = 48
end
object PythonGUIInputOutput1: TPythonGUIInputOutput
DelayWrites = True
UnicodeIO = False
RawOutput = False
Output = Memo1
left = 338
top = 48
end
end