object DemoRatingForm: TDemoRatingForm Left = 399 Top = 220 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Demo rating ' ClientHeight = 254 ClientWidth = 306 Color = 14988436 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 16 Width = 256 Height = 13 Caption = 'How would you rate the quality of this demo?' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 8 Top = 48 Width = 22 Height = 13 Caption = 'Poor' end object Label3: TLabel Left = 252 Top = 48 Width = 43 Height = 13 Caption = 'Excellent' end object Label4: TLabel Left = 8 Top = 80 Width = 206 Height = 13 Caption = 'Tell us your opinion about this demo' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object memRateDescrip: TcxMemo Left = 8 Top = 96 Width = 289 Height = 121 Style.Color = 16247513 TabOrder = 1 end object btnSend: TcxButton Left = 224 Top = 224 Width = 75 Height = 25 Caption = 'Email...' Enabled = False TabOrder = 2 OnClick = btnSendClick end object rgRate: TcxRadioGroup Left = 44 Top = 32 Width = 201 Height = 38 Properties.Columns = 5 Properties.Items = < item Caption = '1' end item Caption = '2' end item Caption = '3' end item Caption = '4' end item Caption = '5' end> TabOrder = 0 OnClick = rgRateChange Caption = '' end end