object frShapeForm: TfrShapeForm Left = 344 Height = 143 Top = 163 Width = 367 HorzScrollBar.Page = 276 VertScrollBar.Page = 93 ActiveControl = ButtonPanel1 BorderStyle = bsDialog Caption = 'Shape' ClientHeight = 143 ClientWidth = 367 OnCreate = FormCreate Position = poScreenCenter LCLVersion = '0.9.29' object Image1: TImage Left = 32 Height = 16 Top = 64 Width = 16 Picture.Data = { 07544269746D6170F6000000424DF60000000000000076000000280000001000 0000100000000100040000000000800000000000000000000000100000000000 000000000000000080000080000000808000800000008000800080800000C0C0 C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF FF007777777700000007777777770FFFFF07777777770FFFFF07770000770FFF FF07702222070FFFFF07022222200FFFFF070222222000000007022222207777 77770222000000000777702220CCCCC07777770000CCCCC077777777770CCC07 77777777770CCC07777777777770C077777777777770C0777777777777770777 7777 } Transparent = True Visible = False end object GroupBox1: TGroupBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 6 Height = 57 Top = 6 Width = 355 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Around = 6 Caption = ' Shape kind ' ClientHeight = 41 ClientWidth = 353 TabOrder = 0 object CB1: TComboBox AnchorSideLeft.Control = GroupBox1 AnchorSideTop.Control = GroupBox1 AnchorSideRight.Control = GroupBox1 AnchorSideRight.Side = asrBottom Left = 6 Height = 29 Top = 6 Width = 341 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 ItemHeight = 0 Style = csDropDownList TabOrder = 0 end end object ButtonPanel1: TButtonPanel Left = 6 Height = 38 Top = 99 Width = 355 OKButton.Name = 'OKButton' HelpButton.Name = 'HelpButton' CloseButton.Name = 'CloseButton' CloseButton.Enabled = False CancelButton.Name = 'CancelButton' TabOrder = 1 ShowButtons = [pbOK, pbCancel, pbHelp] end end