object Tester: TTester
Left = 196
Top = 51
VertScrollBar.Color = 8421440
VertScrollBar.ParentColor = False
VertScrollBar.Smooth = True
VertScrollBar.Visible = False
ActiveControl = open_bit
AutoScroll = False
BiDiMode = bdRightToLeftNoAlign
Caption = ‘*——-Tester——- * ‘
ClientHeight = 423
ClientWidth = 501
Color = clBtnFace
Constraints.MinHeight = 125
Constraints.MinWidth = 300
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = ‘MS Sans Serif’
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
ParentBiDiMode = False
Visible = True
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 24
Top = 448
Width = 106
Height = 13
Caption = ‘Правильные ответы:’
end
object vopros: TLabel
Left = 0
Top = 41
Width = 501
Height = 16
Align = alTop
Caption = ‘ Вопрос:’
Color = clBtnText
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = ‘MS Sans Serif’
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object otveti: TLabel
Left = 0
Top = 117
Width = 501
Height = 16
Align = alTop
Caption = ‘ Ответы: ‘
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = ‘MS Sans Serif’
Font.Style = [fsBold]
ParentFont = False
end
object Splitter1: TSplitter
Left = 0
Top = 114
Width = 501
Height = 3
Cursor = crVSplit
Align = alTop
end
object ListBox: TListBox
Left = 384
Top = -16
Width = 9
Height = 41
ItemHeight = 13
TabOrder = 0
Visible = False
end
object ProgressBar: TProgressBar
Left = 0
Top = 387
Width = 501
Height = 16
Align = alBottom
Constraints.MaxHeight = 20
Min = 0
Max = 100
Smooth = True
TabOrder = 1
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 501
Height = 41
Align = alTop
BevelInner = bvLowered
Caption = ‘ ‘
Color = clScrollBar
TabOrder = 2
object Next_q: TButton
Left = 96
Top = 8
Width = 397
Height = 25
Cursor = crArrow
Anchors = [akLeft, akTop, akRight, akBottom]
BiDiMode = bdRightToLeftReadingOnly
Caption = ‘Следующий вопрос >>’
Constraints.MinWidth = 170
Enabled = False
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = ‘Courier’
Font.Style = [fsBold]
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
OnClick = Next_qClick
end
object reset_bit: TBitBtn
Left = 32
Top = 8
Width = 25
Height = 25
Hint = ‘закончить’
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = reset_bitClick
NumGlyphs = 2
end
object open_bit: TBitBtn
Left = 56
Top = 8
Width = 25
Height = 25
Hint = ‘открыть’
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = N6Click
NumGlyphs = 2
end
object Exit_bit: TBitBtn
Left = 8
Top = 8
Width = 25
Height = 25
Hint = ‘Выход’
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = Exit_bitClick
NumGlyphs = 2
end
end
object StatusBar: TStatusBar
Left = 0
Top = 403
Width = 501
Height = 20
Anchors = []
Constraints.MaxHeight = 20
Panels = <
item
Text = ‘Всего: ‘
Width = 100
end
item
Text = ‘Текущий: ‘
Width = 100
end
item
Text = ‘Правильных: ‘
Width = 100
end>
SimplePanel = False
end
object QuestionBox: TScrollBox
Left = 0
Top = 57
Width = 501
Height = 57
Align = alTop
TabOrder = 4
TabStop = True
object question: TLabel
Left = 16
Top = 8
Width = 5
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = ‘MS Sans Serif’
Font.Style = []
ParentFont = False
WordWrap = True
end
end
object AnswerBox: TScrollBox
Left = 0
Top = 133
Width = 501
Height = 254
Align = alClient
TabOrder = 5
end
object MainMenu1: TMainMenu
BiDiMode = bdRightToLeftNoAlign
ParentBiDiMode = False
Left = 264
Top = 256
object N1: TMenuItem
Caption = ‘&Тест’
object N6: TMenuItem
Caption = ‘&Открыть…’
OnClick = N6Click
end
object N11: TMenuItem
Caption = ‘-‘
end
object N10: TMenuItem
Caption = ‘Зашифровать…’
OnClick = N10Click
end
object N7: TMenuItem
Caption = ‘-‘
end
object N8: TMenuItem
Caption = ‘&Выйти’
OnClick = N8Click
end
end
object Help1: TMenuItem
Caption = ‘&Настройки’
object N2: TMenuItem
Caption = ‘&Подсказки’
Checked = True
OnClick = N2Click
end
object N12: TMenuItem
Caption = ‘-‘
end
object N21: TMenuItem
Caption = ‘Шрифт’
object N13: TMenuItem
Caption = ‘вопроса’
OnClick = N13Click
end
object N14: TMenuItem
Caption = ‘ответов’
OnClick = N14Click
end
object N22: TMenuItem
Caption = ‘метки Вопрос:’
OnClick = N22Click
end
object N23: TMenuItem
Caption = ‘метки Ответ(ы):’
OnClick = N23Click
end
end
object N4: TMenuItem
Caption = ‘-‘
end
object N16: TMenuItem
Caption = ‘Цвета’
object N24: TMenuItem
Caption = ‘Полей’
object N25: TMenuItem
Caption = ‘вопроса’
OnClick = N25Click
end
object N26: TMenuItem
Caption = ‘ответов’
OnClick = N26Click
end
object N27: TMenuItem
Caption = ‘панели кнопок’
OnClick = N27Click
end
end
object N17: TMenuItem
Caption = ‘Вопрос:’
OnClick = N17Click
end
object N18: TMenuItem
Caption = ‘Ответ(ы):’
OnClick = N18Click
end
object N20: TMenuItem
Caption = ‘Статуса’
OnClick = N20Click
end
object N19: TMenuItem
Caption = ‘следующий вопрос’
OnClick = N19Click
end
end
end
object N3: TMenuItem
Caption = ‘&?’
object N5: TMenuItem
Caption = ‘О программе…’
OnClick = N5Click
end
object N15: TMenuItem
Caption = ‘-‘
end
object N9: TMenuItem
Caption = ‘Справка…’
OnClick = N9Click
end
end
end
object OpenDialog: TOpenDialog
Filter = ‘Тестовые файлы| *.tst|Все файлы|*.*’
Title = ‘Открытие файла’
Left = 240
Top = 256
end
object FontDialog: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = ‘MS Sans Serif’
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Left = 296
Top = 256
end
object SaveDialog: TSaveDialog
Left = 210
Top = 259
end
object ColorDialog1: TColorDialog
Ctl3D = True
Left = 258
Top = 151
end
end
