object Form1: TForm1

Left = 214

Top = 174

Width = 592

Height = 422

VertScrollBar.Range = 210

ActiveControl = Memo1

Caption = 'Form1'

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = 11

Font.Name = 'MS Sans Serif'

Font.Pitch = fpVariable

Font.Style = []

OldCreateOrder = True

OnCreate = FormCreate

PixelsPerInch = 96

TextHeight = 13

object Splitter1: TSplitter

Left = 0

Top = 169

Width = 576

Height = 3

Cursor = crVSplit

Align = alTop

ExplicitWidth = 584

end

object Memo1: TMemo

Left = 0

Top = 172

Width = 576

Height = 170

Align = alClient

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -13

Font.Name = 'Consolas'

Font.Pitch = fpVariable

Font.Style = []

Lines.Strings = (

'import sys'

'print (sys.version)'

''

'import spam'

''

'class MyPoint(spam.Point):'

' def Foo(Self, v):'

' Self.OffsetBy(v, v)'

''

'# old way to create a type instance'

'p = spam.CreatePoint(2, 5)'

'print (p, type(p))'

'p.OffsetBy( 3, 3 )'

'print (p.x, p.y)'

'print ("Name =", p.Name)'

'p.Name = '#39'Hello world!'#39

'print ("Name =", p.Name)'

''

'# new way to create a type instance'

'p = spam.Point(2, 5) # no need to use CreateXXX anymore'

'print (p, type(p))'

'p.OffsetBy( 3, 3 )'

'print (p.x, p.y)'

''

'# create a subtype instance'

'p = MyPoint(2, 5)'

'print (p, type(p))'

'p.OffsetBy( 3, 3 )'

'print (p.x, p.y)'

'p.Foo( 4 )'

'print (p.x, p.y)'

'print (dir(spam))'

'print (spam.Point)'

'print ("p = ", p, " --> ",)'

'if type(p) is spam.Point:'

' print ("p is a Point")'

'else:'

' print ("p is not a point")'

'p = 2'

'print ("p = ", p, " --> ",)'

'if type(p) is spam.Point:'

' print ("p is a Point")'

'else:'

' print ("p is not a point")'

'p = spam.CreatePoint(2, 5)'

'try:'

' print ("raising an error of class EBadPoint")'

' p.RaiseError() # it will raise spam.EBadPoint'

'except spam.PointError as what: # this shows that you can interc' +

'ept a parent class'

' print ("Caught an error derived from PointError")'

' print ("Error class = ", what.__class__, " a =", what.a,' +

' " b =", what.b, " c =", what.c)'

''

'# You can raise error from a Python script to !'

'print ("--------------------------------------------------------' +

'----------")'

'print ("Errors in a Python script")'

'try:'

' raise spam.EBadPoint("this is a test !")'

'except:'

' pass'

''

'try:'

' err = spam.EBadPoint()'

' err.a = 1'

' err.b = 2'

' err.c = 3'

' raise err'

'except spam.PointError as what: # this shows that you can interc' +

'ept a parent class'

' print ("Caught an error derived from PointError")'

' print ("Error class = ", what.__class__, " a =", what.a,' +

' " b =", what.b, " c =", what.c)'

''

'if p == spam.CreatePoint(2, 5):'

' print ("Equal")'

'else:'

' print ("Not equal")')

ParentFont = False

ScrollBars = ssVertical

TabOrder = 0

WordWrap = False

end

object Panel1: TPanel

Left = 0

Top = 342

Width = 576

Height = 41

Align = alBottom

BevelOuter = bvNone

TabOrder = 1

object Label1: TLabel

Left = 16

Top = 6

Width = 109

Height = 13

Caption = 'Select Python version :'

end

object Button1: TButton

Left = 336

Top = 6

Width = 75

Height = 25

Caption = 'Execute'

TabOrder = 0

OnClick = Button1Click

end

object cbPyVersions: TComboBox

Left = 144

Top = 6

Width = 161

Height = 21

Style = csDropDownList

TabOrder = 1

OnSelect = cbPyVersionsSelect

end

end

object Memo2: TMemo

Left = 0

Top = 0

Width = 576

Height = 169

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 PythonGUIInputOutput1: TPythonGUIInputOutput

UnicodeIO = True

RawOutput = False

Output = Memo2

Left = 136

Top = 16

end