Chip 1999 September/Chip_1999-09_cd.bin/ctenari/Novotny/DED.EXE/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1999-06-12 | 9KB | 332 lines

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: TRichEdit
    Left = 264
    Top = 112
    Width = 49
    Height = 25
    PlainText = True
    TabOrder = 1
    Visible = False
    WordWrap = False
  end
  object pomocneMemo2: TRichEdit
    Left = 184
    Top = 64
    Width = 41
    Height = 17
    PlainText = True
    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