Chip 2002 July/07_02.iso/software/htmlopt/HTMLOPT.EXE/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 2000-03-11 | 13.1 KB | 425 lines

object MainForm: TMainForm
  Left = 191
  Top = 107
  Width = 460
  Height = 329
  Caption = '����������� HTML ������'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  Scaled = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 32
    Width = 452
    Height = 2
    Align = alTop
    Shape = bsTopLine
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 263
    Width = 452
    Height = 20
    Panels = <>
    SimplePanel = True
  end
  object panButton: TPanel
    Left = 0
    Top = 0
    Width = 452
    Height = 32
    Align = alTop
    BevelOuter = bvNone
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object btnFileOpen: TSpeedButton
      Left = 7
      Top = 5
      Width = 25
      Height = 25
      Hint = '������� ����'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000000000000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        88888888888888888888000000000008888800333333333088880B0333333333
        08880FB03333333330880BFB0333333333080FBFB000000000000BFBFBFBFB08
        88880FBFBFBFBF0888880BFB0000000888888000888888880008888888888888
        8008888888880888080888888888800088888888888888888888}
      ParentFont = False
      OnClick = FileOpen
    end
    object btnFileSave: TSpeedButton
      Left = 32
      Top = 5
      Width = 25
      Height = 25
      Hint = '��������� ����'
      Enabled = False
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000000000000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888880000000000000880330000008803088033000000880308803300000088
        0308803300000000030880333333333333088033000000003308803088888888
        0308803088888888030880308888888803088030888888880308803088888888
        0008803088888888080880000000000000088888888888888888}
      OnClick = FileSave
    end
    object btnGo: TSpeedButton
      Left = 140
      Top = 5
      Width = 25
      Height = 25
      Hint = '�����������'
      Glyph.Data = {
        50010000424D5001000000000000760000002800000011000000110000000100
        04000000000000000000000000000000000010000000000000000C060C00CC92
        0C00CCCA2C00BCDABC002C320400FCFA6400FCCA9400FCCA640064320400BCBE
        BC00FCEACC003C423C00CCCA6400F4F2F400FC060000A1C10000989999999999
        9999900000008D89999999999999900000009499944999999449900000008449
        4114999941149000000041144114450542249000000046344AA4BB0B0AA49000
        00004DA446505B5B45549000000091494AD899998AA490000000949822899999
        98DC800000008A88C8999999998C800000009898A8999999998C800000009998
        689999999986800000009998C8999999998780000000999828999999998C8000
        0000999818999999998280000000999818999999998180000000999988999999
        998890000000910100A03C0050002C0050004501}
      OnClick = GoOptimization
    end
    object Bevel2: TBevel
      Left = 0
      Top = 0
      Width = 452
      Height = 2
      Align = alTop
      Shape = bsTopLine
    end
    object btnOptions: TSpeedButton
      Left = 65
      Top = 5
      Width = 25
      Height = 25
      Hint = '���������'
      AllowAllUp = True
      Glyph.Data = {
        D8000000424DD800000000000000560000002800000010000000100000000100
        040000000000000000001E1C00001E1C000008000000080000007F00000000FF
        0000007F000000007F00FFFFFF00BFBFBF007F7F7F0000000000555555555636
        5555555555555336465555555555633546555555555533654655555555563355
        4655555555533655465555555563355546555676553365522025654756335555
        2055745763365557107567777735555710755567776665571075555677767557
        10755555677755571075555555555555775555555555555555550000}
      OnClick = OptionsSet
    end
    object btnAbout: TSpeedButton
      Left = 273
      Top = 5
      Width = 25
      Height = 25
      Cursor = crSQLWait
      Hint = '� ���������'
      AllowAllUp = True
      Glyph.Data = {
        68010000424D6801000000000000760000002800000014000000140000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888800008888888888888888888888888888888887778888888888888888
        8888300788888888888888888888B30788888888888888888888BB3888888888
        888888888888877788888888888888888888300788888888888888888888B307
        78888888888888888888B330778888888888888888888B330778888888888888
        888878B330778888888888888880778B330788888888888888330778B3078888
        8888888888B33077B308888888888888888B330033388888888888888888B333
        3B8888888888888888888BBBB888888888888888888888888888888888888888
        888888888888888888880000}
      OnClick = menuAboutClick
    end
    object labAutoStart: TLabel
      Left = 190
      Top = 10
      Width = 80
      Height = 15
      AutoSize = False
      Caption = '���������'
      OnClick = chkAutoChange
    end
    object btnBrowse: TSpeedButton
      Left = 90
      Top = 5
      Width = 25
      Height = 25
      Hint = '��������'
      AllowAllUp = True
      Glyph.Data = {
        B0010000424DB001000000000000AE0000002800000010000000100000000100
        08000000000000000000120B0000120B00001E0000001E0000009F0000008000
        0000CF3030009F303000CF60600060303000FF6030009F300000CF6030009F60
        3000CF600000CF9F6000FF9F00009F600000CF9F3000FFCF0000FFFF60009F9F
        6000FFFF9F00CFCF9F00609F9F009FFFFF009FCFCF00609FCF009FCFFF00C0C0
        C000707070005F5F5F0010101000000000001919020202191919191919191919
        191919020D1919071C0002090D0D191919191A0219191C1C0209090A06060D0D
        19191B021905030209060A06060606060D191B0807010209060A191902060606
        060D1B140803090A0619191919020606060D1A17060209060A19191919191919
        19191A16170809060A0A0A0A0A0A0A0A0A0A191A160408060606060E0E0C0C0C
        0C0A1902141806060A1919191902100F0C0A1919031115060A0A1919020E1210
        0A191919020311190A0A02020A0F100C0A19191919020A0B130A0A0E0C0E0C0A
        1906191919190A0A060606060E0C0A1919061919191919190A0A0A0A0A0A1919
        190A19191919191919191919190A0A0A0A190000}
      OnClick = HTMLView
    end
    object btnUndo: TSpeedButton
      Left = 115
      Top = 5
      Width = 25
      Height = 25
      Hint = '������'
      AllowAllUp = True
      Enabled = False
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777000000
        87777777770AAAAA00877777770AAAAAA2077777770AAAAA2A20777777000000
        A220777777777777002077777777777777007777077777777700777007777777
        0020770A00000000A22070AAAAAAAAAA2A200AAAAAAAAAAAA20770AAAAAAAAAA
        0077770A00000000877777700777777777777777077777777777}
      OnClick = UndoOptimization
    end
    object chkAuto: TCheckBox
      Left = 174
      Top = 9
      Width = 15
      Height = 17
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = chkAutoClick
    end
  end
  object Memo: TRichEdit
    Left = 0
    Top = 34
    Width = 452
    Height = 229
    Align = alClient
    PlainText = True
    PopupMenu = PopupMenu
    ScrollBars = ssBoth
    ShowHint = True
    TabOrder = 2
    WordWrap = False
    OnChange = MemoChange
  end
  object MainMenu: TMainMenu
    Left = 416
    Top = 96
    object menuFile: TMenuItem
      Caption = '&����'
      ShortCut = 0
      object menuFileOpen: TMenuItem
        Caption = '&�������...'
        ShortCut = 114
        OnClick = FileOpen
      end
      object menuFileSave: TMenuItem
        Caption = '&���������'
        Enabled = False
        ShortCut = 113
        OnClick = FileSave
      end
      object menuFileSaveAs: TMenuItem
        Caption = '��������� &���...'
        ShortCut = 0
        OnClick = FileSaveAs
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object menuExit: TMenuItem
        Caption = '�&����'
        ShortCut = 0
        OnClick = FileExit
      end
    end
    object menuEdit: TMenuItem
      Caption = '&������'
      ShortCut = 0
      object menuEditUndo: TMenuItem
        Caption = '&��������'
        ShortCut = 16474
        OnClick = EditUndo
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object menuEditCut: TMenuItem
        Caption = '&��������'
        ShortCut = 16472
        OnClick = EditCut
      end
      object menuEditCopy: TMenuItem
        Caption = '&����������'
        ShortCut = 16451
        OnClick = EditCopy
      end
      object menuEditPaste: TMenuItem
        Caption = '��������'
        ShortCut = 16470
        OnClick = EditPaste
      end
      object menuEditClear: TMenuItem
        Caption = '&�������'
        ShortCut = 16430
        OnClick = EditClear
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object menuEditSelectAll: TMenuItem
        Caption = '�������� &���'
        ShortCut = 16449
        OnClick = EditSelectAll
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object menuEditSelectFont: TMenuItem
        Caption = '������� &�����...'
        ShortCut = 0
        OnClick = SelectFont
      end
    end
    object menuOptimization: TMenuItem
      Caption = '&�����������'
      ShortCut = 0
      object menuUndo: TMenuItem
        Caption = '&��������'
        Enabled = False
        ShortCut = 16504
        OnClick = UndoOptimization
      end
      object menuGo: TMenuItem
        Caption = '&������'
        ShortCut = 120
        OnClick = GoOptimization
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object menuView: TMenuItem
        Caption = '&��������'
        ShortCut = 119
        OnClick = HTMLView
      end
      object menuOptions: TMenuItem
        Caption = '�&��������...'
        ShortCut = 0
        OnClick = OptionsSet
      end
    end
    object menuQ: TMenuItem
      Caption = '&?'
      ShortCut = 0
      object menuAbout: TMenuItem
        Caption = '&� ���������'
        ShortCut = 0
        OnClick = menuAboutClick
      end
    end
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter =
      'HTML ����� (*.htm; *.html)|*.htm; *.html|SHTML ����� (*.shtm; *.' +
      'shtml)|*.shtm; *.shtml|��� ����� (*.*)|*.*'
    Options = [ofAllowMultiSelect]
    Left = 416
    Top = 128
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'htm'
    FileEditStyle = fsEdit
    Filter =
      'HTML ����� (*.htm; *.html)|*.htm; *.html|SHTML ����� (*.shtm; *.' +
      'shtml)|*.shtm; *.shtml|��� ����� (*.*)|*.*'
    Left = 416
    Top = 160
  end
  object PopupMenu: TPopupMenu
    Left = 416
    Top = 224
    object popUpUndo: TMenuItem
      Caption = '&������'
      ShortCut = 0
      OnClick = EditUndo
    end
    object popUpLine: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object popUpCut: TMenuItem
      Caption = '&��������'
      ShortCut = 0
      OnClick = EditCut
    end
    object popUpCopy: TMenuItem
      Caption = '&����������'
      ShortCut = 0
      OnClick = EditCopy
    end
    object popUpPaste: TMenuItem
      Caption = '���&�����'
      ShortCut = 0
      OnClick = EditPaste
    end
    object popUpClear: TMenuItem
      Caption = '&�������'
      ShortCut = 0
      OnClick = EditClear
    end
    object N4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object popUpSelectAll: TMenuItem
      Caption = '�������� �&��'
      ShortCut = 0
      OnClick = EditSelectAll
    end
  end
  object FontDialog: TFontDialog
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdEffects, fdApplyButton]
    Left = 416
    Top = 192
  end
end