Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
BVExample.thy
Sprache: Delphi
|
object Feedform: TFeedform
Left = 357
Top = 182
Caption = 'Feedform'
ClientHeight = 446
ClientWidth = 360
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClick = FormClick
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 16
Width = 42
Height = 13
Caption = 'Vorname'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 56
Width = 28
Height = 13
Caption = 'Name'
Color = clBtnFace
ParentColor = False
end
object Label3: TLabel
Left = 16
Top = 96
Width = 25
Height = 13
Caption = 'Email'
Color = clBtnFace
ParentColor = False
end
object Label6: TLabel
Left = 16
Top = 136
Width = 51
Height = 13
Caption = 'Bewertung'
Color = clBtnFace
ParentColor = False
end
object Label7: TLabel
Left = 16
Top = 184
Width = 53
Height = 13
Caption = 'Kommentar'
end
object Vorname: TEdit
Left = 136
Top = 13
Width = 121
Height = 21
TabOrder = 0
Text = 'Vorname'
end
object Name: TEdit
Left = 136
Top = 51
Width = 121
Height = 21
TabOrder = 1
Text = 'Name'
end
object Email: TEdit
Left = 136
Top = 90
Width = 121
Height = 21
TabOrder = 2
Text = 'Email'
end
object Kommentar: TMemo
Left = 136
Top = 189
Width = 177
Height = 185
Lines.Strings = (
'Memo1')
TabOrder = 4
end
object Absenden: TButton
Left = 64
Top = 400
Width = 107
Height = 25
Caption = 'Absenden'
Default = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 5
OnClick = AbsendenClick
end
object Bewertung: TComboBox
Left = 136
Top = 133
Width = 145
Height = 21
Style = csDropDownList
TabOrder = 3
Items.Strings = (
'1 (sehr gut)'
'2 (gut)'
'3 (befriedigend)'
'4 (ausreichend)'
'5 (ungen'#252'gend)'
'6 (mangelhaft)')
end
object Verwerfen: TButton
Left = 216
Top = 400
Width = 113
Height = 25
Cancel = True
Caption = 'Verwerfen'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 2
ParentFont = False
TabOrder = 6
OnClick = VerwerfenClick
OnEnter = VerwerfenClick
end
end
[ zur Elbe Produktseite wechseln0.31Quellennavigators
Analyse erneut starten
]
|
|
