home *** CD-ROM | disk | FTP | other *** search
- object fHlavni: TfHlavni
- Left = 292
- Top = 235
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'MobyDict'
- ClientHeight = 363
- ClientWidth = 483
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- OldCreateOrder = False
- OnClose = FormClose
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 16
- Top = 32
- Width = 91
- Height = 13
- Caption = 'Dostupn� slovn�ky:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 8
- Top = 8
- Width = 37
- Height = 13
- Caption = 'Soubor:'
- end
- object btnKonec: TButton
- Left = 400
- Top = 328
- Width = 75
- Height = 25
- Caption = 'Konec'
- TabOrder = 7
- OnClick = btnKonecClick
- end
- object lbSlovniky: TListBox
- Left = 8
- Top = 48
- Width = 169
- Height = 249
- ItemHeight = 13
- TabOrder = 0
- OnClick = lbSlovnikyClick
- OnDblClick = ZkousejExecute
- end
- object GroupBox1: TGroupBox
- Left = 184
- Top = 40
- Width = 289
- Height = 265
- Caption = 'P�ezkou�en�'
- TabOrder = 1
- object LCelkemSlov: TLabel
- Left = 75
- Top = 64
- Width = 6
- Height = 13
- Caption = '_'
- end
- object Label2: TLabel
- Left = 8
- Top = 64
- Width = 65
- Height = 13
- Caption = 'Po�et v�raz�:'
- end
- object Label3: TLabel
- Left = 8
- Top = 24
- Width = 77
- Height = 13
- Caption = 'N�zev slovn�ku:'
- end
- object LNazev: TLabel
- Left = 96
- Top = 24
- Width = 185
- Height = 41
- AutoSize = False
- Caption = '_'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- WordWrap = True
- end
- object lUsek: TLabel
- Left = 32
- Top = 200
- Width = 94
- Height = 13
- Caption = 'Po�et slov na �sek:'
- end
- object btnPrezkouset: TButton
- Left = 206
- Top = 232
- Width = 75
- Height = 25
- Action = Zkousej
- Default = True
- TabOrder = 1
- end
- object RadioGroup2: TRadioGroup
- Left = 168
- Top = 104
- Width = 89
- Height = 73
- Caption = 'Po�ad�'
- TabOrder = 0
- end
- object rbVzestupne: TRadioButton
- Left = 176
- Top = 138
- Width = 73
- Height = 17
- Caption = 'Vzestupn�'
- TabOrder = 2
- end
- object rbSestupne: TRadioButton
- Left = 176
- Top = 156
- Width = 73
- Height = 17
- Caption = 'Sestupn�'
- TabOrder = 3
- end
- object rbNahodne: TRadioButton
- Left = 176
- Top = 120
- Width = 65
- Height = 17
- Caption = 'N�hodn�'
- Checked = True
- TabOrder = 4
- TabStop = True
- end
- object cbPoUsecich: TCheckBox
- Left = 16
- Top = 176
- Width = 129
- Height = 17
- Action = NastavUsek
- Checked = True
- State = cbChecked
- TabOrder = 5
- end
- object edtDelkaUseku: TEdit
- Left = 128
- Top = 197
- Width = 33
- Height = 21
- Hint = 'Po�et slov, kter� budou opakov�na dokud se je u�ivatel nenau��.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- Text = '6'
- OnChange = NastavUsekExecute
- end
- object cbVypisovat: TCheckBox
- Left = 16
- Top = 224
- Width = 145
- Height = 17
- Caption = 'Odpov�di nutno vypisovat'
- TabOrder = 7
- end
- end
- object RadioGroup1: TRadioGroup
- Left = 192
- Top = 144
- Width = 137
- Height = 57
- Caption = 'Sm�r'
- TabOrder = 2
- end
- object rbCA: TRadioButton
- Left = 200
- Top = 178
- Width = 113
- Height = 17
- Caption = '�e�tina ->ciz� jazyk'
- Checked = True
- TabOrder = 3
- TabStop = True
- end
- object rbAC: TRadioButton
- Left = 200
- Top = 160
- Width = 113
- Height = 17
- Caption = 'ciz� jazyk ->�e�tina'
- TabOrder = 4
- end
- object brnZmenit: TButton
- Left = 303
- Top = 4
- Width = 73
- Height = 25
- Caption = 'Zm�nit'
- TabOrder = 5
- OnClick = Otevi1Click
- end
- object edtJmeno: TEdit
- Left = 49
- Top = 6
- Width = 249
- Height = 21
- ReadOnly = True
- TabOrder = 6
- Text = 'edtJmeno'
- end
- object ActionList1: TActionList
- Left = 400
- object Zkousej: TAction
- Caption = 'P�ezkou�ej'
- OnExecute = ZkousejExecute
- end
- object NastavUsek: TAction
- Caption = 'Zkou�et po �sec�ch'
- OnExecute = NastavUsekExecute
- end
- end
- object MainMenu1: TMainMenu
- Left = 368
- object info: TMenuItem
- Caption = 'O Programu'
- OnClick = infoClick
- end
- end
- object FDSlovnik: TOpenDialog
- Filter = 'Textov� soubory|*.txt|V�echny soubory|*.*'
- InitialDir = '.\slovniky'
- Left = 336
- end
- end
-