object Form1: TForm1 Left = 282 Top = 111 Width = 455 Height = 492 ActiveControl = Memo1 Caption = 'DaNiElSoFt editor' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Menu = MainMenu1 Position = poDefaultPosOnly OnCloseQuery = FormCloseQuery OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Memo1: TRichEdit Left = 0 Top = 0 Width = 447 Height = 446 Align = alClient BorderStyle = bsNone Font.Charset = EASTEUROPE_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] HideSelection = False Lines.Strings = ( '') MaxLength = 200000000 ParentFont = False PlainText = True ScrollBars = ssBoth TabOrder = 0 WantTabs = True WordWrap = False OnChange = Memo1Change OnKeyDown = FormKeyDown OnKeyPress = Memo1KeyPress end object pomocneMemo: TMemo Left = 264 Top = 112 Width = 49 Height = 25 TabOrder = 1 Visible = False WordWrap = False end object pomocneMemo2: TMemo Left = 184 Top = 64 Width = 41 Height = 17 Lines.Strings = ( '') TabOrder = 2 Visible = False WordWrap = False end object MainMenu1: TMainMenu Left = 288 Top = 16 object Soubor: TMenuItem Caption = '&Soubor' ShortCut = 32858 object Novy: TMenuItem Caption = 'Nov�' ShortCut = 16462 OnClick = NovyClick end object Otevrit: TMenuItem Caption = 'Otev��t...' ShortCut = 114 OnClick = OtevritClick end object Ulozit: TMenuItem Caption = 'Ulo�it' ShortCut = 113 OnClick = UlozitClick end object UlozitJako: TMenuItem Caption = 'Ulo�it jako...' ShortCut = 16497 OnClick = UlozitJakoClick end object ZnovuNacist: TMenuItem Caption = 'Znovu na��st' ShortCut = 16474 OnClick = ZnovuNacistClick end object Daloknoeditoru1: TMenuItem Caption = 'Dal�� okno editoru' ShortCut = 16463 OnClick = Daloknoeditoru1Click end object Konec: TMenuItem Caption = 'Konec' ShortCut = 121 OnClick = KonecClick end end object Upravy: TMenuItem Caption = '�&pravy' OnClick = UpravyClick object Kopiruj: TMenuItem Caption = 'Kop�ruj' ShortCut = 16429 OnClick = KopirujClick end object Vystrihni: TMenuItem Caption = 'Vyst�ihni' ShortCut = 8238 OnClick = VystrihniClick end object pridej: TMenuItem Caption = 'P�idej' ShortCut = 32813 OnClick = pridejClick end object Prilep: TMenuItem Caption = 'P�ilep' ShortCut = 8237 OnClick = PrilepClick end object Pilepzesouboru1: TMenuItem Caption = 'P�ilep ze souboru...' OnClick = Pilepzesouboru1Click end object Vybervse: TMenuItem Caption = 'Vyber v�e' ShortCut = 16449 OnClick = VybervseClick end object zacatekvyberu: TMenuItem Caption = 'Za��tek SuperV�b�ru' ShortCut = 16450 OnClick = zacatekvyberuClick end object konecvyberu: TMenuItem Caption = 'Konec SuperV�b�ru' ShortCut = 16453 OnClick = konecvyberuClick end end object Formt1: TMenuItem Caption = '&Form�t' object smazradek: TMenuItem Caption = 'Sma� ��dek' ShortCut = 32814 OnClick = smazradekClick end object Zalamovani: TMenuItem Caption = 'Zalamov�n� ��dk�' ShortCut = 16466 OnClick = ZalamovaniClick end object odsadblok: TMenuItem Caption = 'Posu� blok doprava' ShortCut = 49191 OnClick = odsadblokClick end object ododsad: TMenuItem Caption = 'Posu� blok doleva' ShortCut = 49189 OnClick = ododsadClick end object srovnejblok: TMenuItem Caption = 'Srovnej blok' ShortCut = 49235 OnClick = srovnejblokClick end object Font1: TMenuItem Caption = 'Font...' OnClick = Font1Click end object inshtml: TMenuItem Caption = 'Vlo� standardn� hlavi�ku HTML' OnClick = inshtmlClick end end object cestina: TMenuItem Caption = '�&e�tina' object Ukldatnahrvatv1: TMenuItem Caption = 'Ukl�dat / nahr�vat v :' end object CP1250W: TMenuItem Caption = 'CP 1250 (Win)' Checked = True OnClick = CP1250WClick end object ISO8859: TMenuItem Caption = 'ISO-8859-2 (Unix)' OnClick = ISO8859Click end object PCLatin2: TMenuItem Caption = 'PC Latin 2 (DOS,OS/2)' OnClick = PCLatin2Click end object Kamenicti1: TMenuItem Caption = 'Kameni�t� (DOS)' OnClick = Kamenicti1Click end object YxZ: TMenuItem Caption = 'P�ehodit "y" a "z"' OnClick = YxZClick end end object Hledej: TMenuItem Caption = '&Hledej' object Hledej1: TMenuItem Caption = 'Hledej...' ShortCut = 16454 OnClick = Hledej1Click end object Nahrad: TMenuItem Caption = 'Nahra�...' ShortCut = 16466 OnClick = NahradClick end end object Jdina1: TMenuItem Caption = '&Jdi na...' object Zateksouboru1: TMenuItem Caption = 'Za��tek souboru' ShortCut = 16420 OnClick = Zateksouboru1Click end object Konecsouboru1: TMenuItem Caption = 'Konec souboru' ShortCut = 16419 OnClick = Konecsouboru1Click end object dekslo1: TMenuItem Caption = '��dek ��slo...' OnClick = dekslo1Click end object Znakslo1: TMenuItem Caption = 'Znak ��slo...' OnClick = Znakslo1Click end object PredchoziSoubor: TMenuItem Caption = 'P�edchoz� soubor' Enabled = False ShortCut = 32805 OnClick = PredchoziSouborClick end object DalsiSoubor: TMenuItem Caption = 'Dal�� soubor' Enabled = False ShortCut = 32807 OnClick = DalsiSouborClick end end object Zobraz1: TMenuItem Caption = '&Zobraz...' object zhtml: TMenuItem Caption = 'Soubor jako HTML str�nku' ShortCut = 16456 OnClick = zhtmlClick end object Poetdkvtextu1: TMenuItem Caption = 'Po�et ��dk� v textu' OnClick = Poetdkvtextu1Click end object pocetslov: TMenuItem Caption = 'Po�et slov v textu' OnClick = pocetslovClick end object Poetznakvtextu1: TMenuItem Caption = 'Po�et znak� v textu' OnClick = Poetznakvtextu1Click end end object Napoveda1: TMenuItem Caption = '&N�pov�da' OnClick = Napoveda1Click object Obsah: TMenuItem Caption = 'Obsah' ShortCut = 112 OnClick = ObsahClick end object Oaplikaci: TMenuItem Caption = 'O aplikaci...' OnClick = OaplikaciClick end end end object loud: TOpenDialog Filter = 'v�echny soubory|*.*|texty|*.txt;*.doc;*.me|Pascal|*.pas|C & C++|' + '*.c;*.cpp|Assembler|*.asm|Haskell|*.hs|v�echny zdroj�ky|*.asm;*.' + 'pas;*.c;*.c++;*.asm;*.hs;*.cpp;*.pl;*.bas;*.bat|HTML str�nky|*.h' + 'tm;*.html|INI soubory|*.ini' FilterIndex = 7 Options = [ofHideReadOnly, ofNoReadOnlyReturn] Left = 200 Top = 16 end object Sejf: TSaveDialog Filter = 'jak�koli soubor|*.*' Left = 328 Top = 24 end object FindDialog1: TFindDialog OnFind = FindDialog1Find Left = 152 Top = 16 end object ReplaceDialog1: TReplaceDialog OnFind = FindDialog1Find OnReplace = ReplaceDialog1Replace Left = 248 Top = 16 end object FontDialog: TFontDialog Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 360 Top = 88 end end