-
-
Notifications
You must be signed in to change notification settings - Fork 317
/
Copy pathUnit1.dfm
95 lines (95 loc) · 2.12 KB
/
Unit1.dfm
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
object Form1: TForm1
Left = 192
Top = 114
Caption = 'Form1'
ClientHeight = 601
ClientWidth = 854
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Memo1: TMemo
Left = 56
Top = 24
Width = 745
Height = 281
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Consolas'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object Memo2: TMemo
Left = 56
Top = 320
Width = 745
Height = 217
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Consolas'
Font.Style = []
Lines.Strings = (
'import test'
'S=test.CreateMySeq()'
'print (S)'
'print (len(S))'
'print (S[1])'
'print (S[1,2])'
'print (S[1:2])'
'print (S[1:20:2])'
'print (S[...])'
'print (S[1,4,5:8, 10:20:2, ...])')
ParentFont = False
TabOrder = 1
end
object Button1: TButton
Left = 56
Top = 560
Width = 201
Height = 25
Caption = 'Execute'
TabOrder = 2
OnClick = Button1Click
end
object PythonEngine1: TPythonEngine
IO = PythonGUIInputOutput1
Left = 40
Top = 144
end
object PythonGUIInputOutput1: TPythonGUIInputOutput
UnicodeIO = True
RawOutput = False
Output = Memo1
Left = 40
Top = 176
end
object PythonModule1: TPythonModule
Engine = PythonEngine1
ModuleName = 'test'
Errors = <>
Left = 40
Top = 216
end
object PythonType1: TPythonType
Engine = PythonEngine1
OnInitialization = PythonType1Initialization
TypeName = 'MySeq'
Prefix = 'Create'
Module = PythonModule1
Services.Basic = [bsGetAttrO, bsSetAttrO, bsRepr, bsStr]
Services.InplaceNumber = []
Services.Number = []
Services.Sequence = []
Services.Mapping = [msLength, msSubscript]
Left = 40
Top = 248
end
end