object fHlavni: TfHlavni Left = 55 Top = 43 Anchors = [akLeft, akTop, akRight, akBottom] BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'MobyDict' ClientHeight = 442 ClientWidth = 482 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 = 384 Top = 408 Width = 75 Height = 25 Caption = 'Konec' TabOrder = 5 OnClick = btnKonecClick end object lbSlovniky: TListBox Left = 8 Top = 48 Width = 169 Height = 353 ItemHeight = 13 TabOrder = 0 OnClick = lbSlovnikyClick OnDblClick = ZkousejExecute end object GroupBox1: TGroupBox Left = 184 Top = 40 Width = 289 Height = 337 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 = 24 Top = 192 Width = 94 Height = 13 Caption = 'Po�et slov na �sek:' end object Label5: TLabel Left = 24 Top = 226 Width = 91 Height = 13 Caption = 'Nutno zodpov�d�t:' end object Label6: TLabel Left = 158 Top = 226 Width = 21 Height = 13 Caption = 'kr�t.' end object btnPrezkouset: TButton Left = 190 Top = 288 Width = 75 Height = 25 Action = Zkousej Caption = 'P�ezkou�et' Default = True TabOrder = 1 end object rgPoradi: TRadioGroup Left = 168 Top = 96 Width = 89 Height = 73 Caption = 'Po�ad�' TabOrder = 0 end object rbVzestupne: TRadioButton Left = 176 Top = 130 Width = 73 Height = 17 Caption = 'Vzestupn�' TabOrder = 2 end object rbSestupne: TRadioButton Left = 176 Top = 148 Width = 73 Height = 17 Caption = 'Sestupn�' TabOrder = 3 end object rbNahodne: TRadioButton Left = 176 Top = 112 Width = 65 Height = 17 Caption = 'N�hodn�' Checked = True TabOrder = 4 TabStop = True end object cbPoUsecich: TCheckBox Left = 16 Top = 168 Width = 129 Height = 17 Action = NastavUsek Checked = True State = cbChecked TabOrder = 5 end object edtDelkaUseku: TEdit Left = 120 Top = 189 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 rgRezimZkouseni: TRadioGroup Left = 8 Top = 256 Width = 137 Height = 73 Caption = 'Re�im zkou�en�' Items.Strings = ( 'Nutno vypisovat' 'Zobrazovat' 'Pln� automaticky') TabOrder = 7 end object edtPocetOprav: TEdit Left = 120 Top = 224 Width = 33 Height = 21 Hint = 'Kolikr�t je nutno spr�vn� zodpov�d�t v�raz, ve kter�m bylo chybo' + 'v�no..' ParentShowHint = False ShowHint = True TabOrder = 8 Text = '2' end end object rgSmer: TRadioGroup Left = 192 Top = 136 Width = 137 Height = 57 Caption = 'Sm�r' ItemIndex = 0 Items.Strings = ( 'Zleva -> Doprava' 'Zprava -> Doleva') TabOrder = 2 end object brnZmenit: TButton Left = 303 Top = 4 Width = 73 Height = 25 Caption = 'Zm�nit' TabOrder = 3 OnClick = Otevi1Click end object edtJmeno: TEdit Left = 49 Top = 6 Width = 249 Height = 21 ReadOnly = True TabOrder = 4 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