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