lazarus-ccr/components/exctrls/examples/ShapeEx/main.lfm

object MainForm: TMainForm
  Left = 327
  Height = 333
  Top = 127
  Width = 451
  Caption = 'TShapeEx demo'
  ClientHeight = 333
  ClientWidth = 451
  object ShapeEx1: TShapeEx
    Left = 29
    Height = 86
    Top = 18
    Width = 107
    Shape = stRoundRect
    Header.Lines.Strings = (
      'Round Rect'
    )
    Header.VertAlignment = taAlignTop
    HeaderFont.Style = [fsBold]
    Text.Lines.Strings = (
      'Line 1'
      'Line 2'
    )
  end
  object ShapeEx2: TShapeEx
    Left = 160
    Height = 86
    Top = 18
    Width = 120
    Shape = stEllipse
    Header.Lines.Strings = (
      'Ellipse'
    )
    Header.VertAlignment = taAlignTop
    HeaderFont.Style = [fsBold]
    Text.Lines.Strings = (
      'Line 1'
      'Line 2'
    )
  end
  object ShapeEx3: TShapeEx
    Left = 30
    Height = 104
    Top = 120
    Width = 98
    Brush.Color = clTeal
    Shape = stStar
    Font.Color = clWhite
    Header.VertAlignment = taAlignTop
    HeaderFont.Style = [fsBold]
    Text.Lines.Strings = (
      'Text'
      'only'
    )
  end
  object ShapeEx4: TShapeEx
    Left = 160
    Height = 104
    Top = 120
    Width = 120
    Shape = stRoundRect
    Header.Lines.Strings = (
      'Red header'
    )
    Header.VertAlignment = taAlignTop
    HeaderFont.Color = clRed
    HeaderFont.Height = -16
    HeaderFont.Style = [fsBold]
    Text.Lines.Strings = (
      'Text at top'
    )
    Text.VertAlignment = taAlignTop
  end
  object ShapeEx5: TShapeEx
    Left = 312
    Height = 203
    Top = 21
    Width = 120
    Brush.Color = clYellow
    Pen.Color = clRed
    Shape = stTriangle
    Header.Lines.Strings = (
      'Footer'
    )
    Header.VertAlignment = taAlignBottom
    HeaderFont.Style = [fsBold]
    Text.Lines.Strings = (
      'Text'
    )
    Text.VertMargin = 0
  end
  object ShapeEx6: TShapeEx
    Left = 16
    Height = 65
    Top = 248
    Width = 193
    Pen.Style = psClear
    Header.HorAlignment = taLeftJustify
    Header.Lines.Strings = (
      'Header (left-aligned)'
    )
    Header.VertAlignment = taAlignTop
    Header.VertMargin = 6
    HeaderFont.Style = [fsBold]
    Text.HorAlignment = taRightJustify
    Text.Lines.Strings = (
      'Text (right-aligned, bottom)'
    )
    Text.VertAlignment = taAlignBottom
  end
  object ShapeEx7: TShapeEx
    Left = 231
    Height = 65
    Top = 248
    Width = 201
    Pen.Style = psDot
    Header.HorAlignment = taRightJustify
    Header.Lines.Strings = (
      'Header (right-aligned)'
    )
    Header.VertAlignment = taAlignTop
    Header.VertMargin = 6
    HeaderFont.Style = [fsBold]
    Text.HorAlignment = taLeftJustify
    Text.Lines.Strings = (
      'Text (left-aligned, bottom)'
    )
    Text.VertAlignment = taAlignBottom
  end
end