object Form1: TForm1
  Left = 200
  Top = 108
  Caption = 'Example 2 : using module functions'
  ClientHeight = 441
  ClientWidth = 680
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 305
    Top = 0
    Height = 441
    ExplicitHeight = 453
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 305
    Height = 441
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 16
      Top = 8
      Width = 273
      Height = 377
      Caption = 'Properties'
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 16
        Width = 23
        Height = 13
        Caption = 'Title:'
      end
      object Label2: TLabel
        Left = 16
        Top = 64
        Width = 31
        Height = 13
        Caption = 'Name:'
      end
      object Label3: TLabel
        Left = 128
        Top = 176
        Width = 22
        Height = 13
        Caption = 'Age:'
      end
      object edName: TEdit
        Left = 16
        Top = 80
        Width = 241
        Height = 21
        TabOrder = 0
        Text = 'Smith'
      end
      object cbInformatician: TCheckBox
        Left = 16
        Top = 120
        Width = 97
        Height = 17
        Caption = 'Informatician ?'
        Checked = True
        State = cbChecked
        TabOrder = 1
      end
      object rgSex: TRadioGroup
        Left = 16
        Top = 168
        Width = 97
        Height = 65
        Caption = 'Sex'
        ItemIndex = 0
        Items.Strings = (
          'Male'
          'Female')
        TabOrder = 2
      end
      object cbPythonUser: TCheckBox
        Left = 16
        Top = 136
        Width = 97
        Height = 17
        Caption = 'Python User ?'
        TabOrder = 3
      end
      object cbTitle: TComboBox
        Left = 16
        Top = 32
        Width = 241
        Height = 21
        TabOrder = 4
        Text = 'Mr'
        Items.Strings = (
          'Mr'
          'Mrs'
          'Miss'
          'Dr')
      end
      object edAge: TEdit
        Left = 128
        Top = 192
        Width = 121
        Height = 21
        TabOrder = 5
        Text = '35'
      end
    end
    object Button1: TButton
      Left = 88
      Top = 408
      Width = 129
      Height = 25
      Caption = 'Execute Script'
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object Panel2: TPanel
    Left = 308
    Top = 0
    Width = 372
    Height = 441
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter2: TSplitter
      Left = 0
      Top = 209
      Width = 372
      Height = 3
      Cursor = crVSplit
      Align = alTop
      ExplicitWidth = 380
    end
    object Memo1: TMemo
      Left = 0
      Top = 212
      Width = 372
      Height = 229
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Consolas'
      Font.Style = []
      Lines.Strings = (
        'import props'
        '# Define some constants'
        'Male = 0'
        'Female = 1'
        ''
        '# Get one of the properties'
        'print (props.GetProperty('#39'Title'#39'))'
        '# Change one of the properties'
        'props.SetProperty('#39'Age'#39', 55)'
        ''
        '# We can simplify it with a new class'
        'class TProperties:'
        '  def __getattr__(Self, Key):'
        '      return props.GetProperty(Key)'
        ''
        '  def __setattr__(Self, Key, Value):'
        '      props.SetProperty(Key, Value)'
        ''
        '  def __repr__(Self):'
        '    tmp = ""'
        '    for i in props.GetPropertyList():'
        '      if tmp:'
        '        tmp = tmp + ", "'
        '      tmp = tmp + i + " = " + str(getattr(Self,i))'
        '    return tmp'
        ''
        '# Instantiate our new class'
        'Props = TProperties()'
        '# Use this instance to read/write the properties'
        'print ("Name:", Props.Name)'
        'Props.Name = "Watson"'
        'Props.PythonUser = True'
        'if Props.Sex == Male:'
        '  print (Props.Name, "is male!")'
        'else:'
        '  print (Props.Name, "is female!")'
        'print (Props)')
      ParentFont = False
      ScrollBars = ssBoth
      TabOrder = 0
      WordWrap = False
    end
    object Memo2: TMemo
      Left = 0
      Top = 0
      Width = 372
      Height = 209
      Align = alTop
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Consolas'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object PythonEngine1: TPythonEngine
    IO = PythonGUIInputOutput1
    Left = 8
    Top = 400
  end
  object PythonGUIInputOutput1: TPythonGUIInputOutput
    UnicodeIO = True
    RawOutput = False
    Output = Memo2
    Left = 40
    Top = 400
  end
  object PythonModule1: TPythonModule
    Engine = PythonEngine1
    OnInitialization = PythonModule1Initialization
    ModuleName = 'props'
    Errors = <>
    Left = 232
    Top = 400
  end
end