object AboutForm: TAboutForm Left = 414 Height = 196 Top = 220 Width = 294 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'О программе' ClientHeight = 196 ClientWidth = 294 Color = clBtnFace Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Position = poScreenCenter LCLVersion = '1.6.4.0' object ButtonOK: TButton Left = 8 Height = 25 Top = 168 Width = 281 Cancel = True Caption = 'ОК' OnClick = ButtonOKClick TabOrder = 0 end object PanelAbout: TPanel Left = 8 Height = 153 Top = 8 Width = 281 ClientHeight = 153 ClientWidth = 281 TabOrder = 1 object Bevel1: TBevel Left = 6 Height = 41 Top = 6 Width = 265 Shape = bsFrame end object Bevel2: TBevel Left = 6 Height = 89 Top = 54 Width = 265 Shape = bsFrame end object LabelTitle: TLabel Left = 10 Height = 13 Top = 10 Width = 164 Caption = 'Редактор карт Doom 2D: Forever' ParentColor = False WordWrap = True end object LabelVer: TLabel Left = 200 Height = 13 Top = 22 Width = 64 Caption = 'Версия 2.0.3' ParentColor = False end object LabelAuthor: TLabel Left = 10 Height = 13 Top = 62 Width = 76 Caption = 'Автор: rs.falcon' ParentColor = False end object LabelMail: TLabel Cursor = crHandPoint Left = 172 Height = 13 Top = 62 Width = 92 Caption = 'rmw.falcon@mail.ru' ParentColor = False OnClick = LabelMailClick OnMouseLeave = LabelMailMouseLeave OnMouseMove = LabelMailMouseMove end object LabelSite: TLabel Left = 10 Height = 13 Top = 118 Width = 114 Caption = 'Сайт Doom 2D: Forever' ParentColor = False end object LabelHttp: TLabel Cursor = crHandPoint Left = 180 Height = 13 Top = 118 Width = 83 Caption = 'www.doom2d.org' ParentColor = False OnClick = LabelHttpClick OnMouseLeave = LabelMailMouseLeave OnMouseMove = LabelMailMouseMove end object LabelAuthor2: TLabel Left = 10 Height = 13 Top = 90 Width = 93 Caption = 'Дорабатывал: Pss' ParentColor = False end object LabelMail2: TLabel Cursor = crHandPoint Left = 197 Height = 13 Top = 90 Width = 67 Caption = 'pssxx@mail.ru' ParentColor = False OnClick = LabelMail2Click OnMouseLeave = LabelMailMouseLeave OnMouseMove = LabelMailMouseMove end end end