demorating.dfm

delphi的的三方控件

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