lazarus-ccr/components/richmemo/samples/mlparse/unit1.lfm

object Form1: TForm1
  Left = 556
  Height = 393
  Top = 212
  Width = 580
  Caption = 'ML Parsing Example'
  ClientHeight = 393
  ClientWidth = 580
  LCLVersion = '1.7'
  object Button1: TButton
    Left = 16
    Height = 25
    Top = 8
    Width = 75
    Caption = 'Convert'
    OnClick = Button1Click
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Height = 353
    Top = 40
    Width = 580
    Align = alBottom
    Anchors = [akTop, akLeft, akRight, akBottom]
    BevelOuter = bvNone
    ClientHeight = 353
    ClientWidth = 580
    TabOrder = 1
    object RichMemo1: TRichMemo
      Left = 304
      Height = 353
      Top = 0
      Width = 276
      Align = alClient
      HideSelection = False
      Lines.Strings = (
        'RichMemo1'
      )
      TabOrder = 0
      ZoomFactor = 1
    end
    object Memo1: TMemo
      Left = 0
      Height = 353
      Top = 0
      Width = 299
      Align = alLeft
      Lines.Strings = (
        '<h1>Big Header</h1>'
        ''
        '<h2>Small Header</h2>'
        ''
        'Hello world, let me <b>stress</b> how '
        '<i>happy</i> this component is.'
        'Infact, <b><u>any</u> user</b> could use it.'
        ''
        'Just refer to the code and see how TagFormat handler '
        'is working'
        '<pre>'
        'begin'
        '  if a &lt; b then '
        '    writeln(''hello world'');'
        'end;'
        '</pre>'
        ''
        'Really easy! Right?'
      )
      TabOrder = 1
    end
    object Splitter1: TSplitter
      Left = 299
      Height = 353
      Top = 0
      Width = 5
    end
  end
end