object Form1: TForm1
  Left = 232
  Top = 138
  Width = 948
  Height = 794
  Caption = 'Intercap'
  Color = clActiveCaption
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    932
    735)
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 940
    Height = 25
    Anchors = [akLeft, akTop, akRight]
    BevelOuter = bvLowered
    TabOrder = 0
    DesignSize = (
      940
      25)
    object newButton1: TSpeedButton
      Left = 2
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Arquivo novo'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
      OnClick = newButton1Click
    end
    object OpenButton: TSpeedButton
      Left = 26
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Abrir arquivo'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555555555555555555555555555555555555555555
        555555555555555555555555555555555555555FFFFFFFFFF555550000000000
        55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
        B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
        000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
        555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
        55555575FFF75555555555700007555555555557777555555555555555555555
        5555555555555555555555555555555555555555555555555555}
      NumGlyphs = 2
      OnClick = OpenButtonClick
    end
    object genvisBtn: TSpeedButton
      Left = 232
      Top = 2
      Width = 57
      Height = 22
      Hint = 'Visualizar'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
      OnClick = genvisBtnClick
    end
    object ConfigBtn: TSpeedButton
      Left = 80
      Top = 2
      Width = 23
      Height = 22
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5000555555555555577755555555555550B0555555555555F7F7555555555550
        00B05555555555577757555555555550B3B05555555555F7F557555555555000
        3B0555555555577755755555555500B3B0555555555577555755555555550B3B
        055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
        555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
        55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
        555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
        55555575FFFF7755555555570000755555555557777775555555}
      NumGlyphs = 2
      OnClick = ConfigBtnClick
    end
    object negBtn: TSpeedButton
      Left = 474
      Top = 1
      Width = 34
      Height = 24
      Hint = 'Negrito/Sublinhado/It'#225'lico'
      Caption = 'NEG'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = [fsUnderline]
      Layout = blGlyphRight
      ParentFont = False
      OnClick = negBtnClick
    end
    object CutBtn: TSpeedButton
      Left = 124
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Cortar sele'#231#227'o'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333FFFF333333FF
        FF33333844833333384483333338888FF33338888FF333843348333384334833
        3388F388F333883388F3338433343333433348333388F338F3338F3388F33384
        33343333433348333388FF38FF338F3388333338433483384334833333388FF8
        8FF88FF883333333844448844448333333338888888888883333333333444444
        4433333333333388888888333333333333346FF6433333333333333883F88F33
        333333333330F00F0333333333333338388383F333333333330FFFF0F0333333
        3333338333F8383F3333333330FFF00FFF033333333338333883F383F3333333
        0FFF0330FFF033333333833383383F383F333330FFF033330FFF033333383338
        333383F383F3330FFF03333330FFF033338F33833333383F38F3330FF0333333
        330FF033338F383333333383F8F3330F033333333330F033338F833333333338
        38F3330033333333333300333388333333333333883333333333333333333333
        33333333333333333333}
      Layout = blGlyphRight
      NumGlyphs = 2
    end
    object CopyBtn: TSpeedButton
      Left = 149
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Copiar sele'#231#227'o'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333FFFFFFFFFF33333333300000000003333333333888888888
        8F3333333330FFFFFFFF033333333338F33333338F3333333330BFBFBFBF0333
        33333338F3FFFFFF8F3333333330F888888F033333333338F88888838F333333
        3330BFBFBFBF0333333FFFF8F3FFFFFF8F3333000000F888888F033333888888
        F88888838F33330FFFF0BFBFBFBF0333338F3338F3FFFFFF8F33330FFFF0F888
        888F0333338F3338F88888838F33330F7770BFBFBFBF0333338F3338F333333F
        8F33330FFFF0FFFFFF000333338F3338F33333888333330F7770BFBFBF003333
        338F3338FFFFFF883333330FFFF0000000033333338F3338888888833333330F
        777777F033333333338F33333338F3333333330FFFFFFFF033333333338F3333
        33F8F3333333330FFFFFF00033333333338F3333388833333333330FFFFFF003
        33333333338FFFFFF88333333333330000000033333333333388888888333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      Layout = blGlyphRight
      NumGlyphs = 2
    end
    object PasteBtn: TSpeedButton
      Left = 174
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Colar'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333FFFFFFFFF333333333300000000033333333333888888
        888F33333333330BFBFBFB03333FFFFFFF8F3FFFFF8F33000000000F88888F03
        33888888888F8888838F307F7F7F7F0BFBFBFB0338F33333338F333FFF8F30F7
        F7F7F70F77888F0338F33333338FFF88838F307F7F7F74444BFBFB0338F33333
        38888F3FFF8F30F7F7F7F7C447888F0338F3333333888F88838F307F7F7F744C
        4BFBFB0338F3333338888F333F8F30F7F7F7444F4FFF880338F33333888F8333
        8883307F7F74440BFBFB803338F33338888FFFFF883330F7F744470000000333
        38F33388838888888333307F7F747F7F0333333338F3333833338F33333330F7
        F7F7F7F70333333338F3333333338F333333307F7F7F7F7F0333333338F33FFF
        FFF38F33333330F7444444F703333333383F888888FF833333333300ECCCC400
        33333333338838888888333333333333ECCCC433333333333333388888333333
        333333333EEEE333333333333333333333333333333333333333333333333333
        33333333333333333333}
      Layout = blGlyphRight
      NumGlyphs = 2
    end
    object saveButton: TSpeedButton
      Left = 46
      Top = 1
      Width = 25
      Height = 23
      Hint = 'Salvar'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333FFFFFFFFFFFFFF3333380000000000008333
        333888F8FF888F888F333330CC08CCF770CC0333333888F8FF888F888F333330
        CC08CCF770CC0333333888F888888F888F333330CC07887770CC03333338888F
        FFFFF8888F333330CC60000006CC033333388888888888888F333330CCCCCCCC
        CCCC033333388888888888888F333330C6000000006C03333338888888888888
        8F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330C0FFFFFFFF0C0333
        333888FFFFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330
        C0FFFFFFFF0C0333333888FFFFFFFF888F33333000FFFFFFFF000333333888FF
        FFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F33333800000000
        0000833333388888888888888333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      Layout = blGlyphRight
      NumGlyphs = 2
      OnClick = saveButtonClick
    end
    object itaBtn: TSpeedButton
      Left = 508
      Top = 1
      Width = 32
      Height = 24
      Hint = 'Negrito/Sublinhado/It'#225'lico'
      Caption = 'ITA'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = [fsUnderline]
      Layout = blGlyphRight
      ParentFont = False
      OnClick = itaBtnClick
    end
    object ProgBtn: TSpeedButton
      Left = 377
      Top = 1
      Width = 40
      Height = 24
      Hint = 'Negrito/Sublinhado/It'#225'lico'
      Caption = 'PROG'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = [fsUnderline]
      Layout = blGlyphRight
      ParentFont = False
      OnClick = ProgBtnClick
    end
    object CentrBtn: TSpeedButton
      Left = 418
      Top = 1
      Width = 39
      Height = 24
      Hint = 'Negrito/Sublinhado/It'#225'lico'
      Caption = 'CENTR'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = [fsUnderline]
      Layout = blGlyphRight
      ParentFont = False
      OnClick = CentrBtnClick
    end
    object TituloBtn: TSpeedButton
      Left = 328
      Top = 1
      Width = 50
      Height = 24
      Hint = 'Negrito/Sublinhado/It'#225'lico'
      Caption = 'TIT'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = [fsUnderline]
      Layout = blGlyphRight
      ParentFont = False
      OnClick = TituloBtnClick
    end
    object sublBtn: TSpeedButton
      Left = 542
      Top = 1
      Width = 30
      Height = 24
      Hint = 'Negrito/Sublinhado/It'#225'lico'
      Caption = 'SUBL'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = [fsUnderline]
      Layout = blGlyphRight
      ParentFont = False
      OnClick = sublBtnClick
    end
    object l_lincol: TLabel
      Left = 618
      Top = 7
      Width = 43
      Height = 13
      Caption = 'L=1  C=1'
    end
    object btnPag: TButton
      Left = 835
      Top = 1
      Width = 32
      Height = 24
      Anchors = [akTop, akRight]
      Caption = 'mdl'
      TabOrder = 4
      TabStop = False
      OnClick = btnExtensaoClick
    end
    object Button2: TButton
      Left = 803
      Top = 1
      Width = 32
      Height = 24
      Anchors = [akTop, akRight]
      Caption = 'menu'
      TabOrder = 3
      TabStop = False
      OnClick = btnExtensaoClick
    end
    object Button3: TButton
      Left = 771
      Top = 1
      Width = 32
      Height = 24
      Anchors = [akTop, akRight]
      Caption = 'css'
      TabOrder = 2
      TabStop = False
      OnClick = btnExtensaoClick
    end
    object Button4: TButton
      Left = 867
      Top = 1
      Width = 32
      Height = 24
      Anchors = [akTop, akRight]
      Caption = 'inc'
      TabOrder = 5
      TabStop = False
      OnClick = btnExtensaoClick
    end
    object Button5: TButton
      Left = 899
      Top = 1
      Width = 32
      Height = 24
      Anchors = [akTop, akRight]
      Caption = '*.*'
      TabOrder = 6
      TabStop = False
      OnClick = btnExtensaoClick
    end
    object Button1: TButton
      Left = 739
      Top = 1
      Width = 32
      Height = 24
      Anchors = [akTop, akRight]
      Caption = 'php'
      TabOrder = 1
      TabStop = False
      OnClick = btnExtensaoClick
    end
    object Button6: TButton
      Left = 707
      Top = 1
      Width = 32
      Height = 24
      Anchors = [akTop, akRight]
      Caption = 'pag'
      TabOrder = 0
      TabStop = False
      OnClick = btnExtensaoClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 24
    Width = 932
    Height = 711
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 753
      Top = 1
      Width = 2
      Height = 709
      Cursor = crHSplit
    end
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 752
      Height = 709
      Align = alLeft
      Anchors = [akLeft, akTop, akRight, akBottom]
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Consolas'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
      OnChange = Memo1Change
      OnClick = Memo1Click
      OnKeyUp = Memo1KeyUp
    end
    object lb_arqpag: TListBox
      Left = 755
      Top = 1
      Width = 176
      Height = 709
      TabStop = False
      Align = alClient
      Color = clGradientInactiveCaption
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Calibri'
      Font.Style = []
      ItemHeight = 18
      ParentFont = False
      TabOrder = 1
      OnClick = lb_arqpagClick
    end
  end
  object MainMenu1: TMainMenu
    Left = 464
    Top = 32
    object Arquivo1: TMenuItem
      Caption = '&Arquivo'
      object Criarnovapastadepublicao1: TMenuItem
        Caption = 'Escolher pasta &base'
        OnClick = escolherPastaBase1Click
      end
      object Reabrir1: TMenuItem
        Caption = '&Reabrir pasta base'
        OnClick = CriaMenuReabrir1Click
        object N11: TMenuItem
          OnClick = N11Click
        end
        object N21: TMenuItem
          OnClick = N21Click
        end
        object N31: TMenuItem
          OnClick = N31Click
        end
        object N41: TMenuItem
          OnClick = N41Click
        end
        object N51: TMenuItem
          OnClick = N51Click
        end
      end
      object Novo1: TMenuItem
        Caption = '&Nova p'#225'gina'
        OnClick = Novo1Click
      end
      object Abrir1: TMenuItem
        Caption = '&Abrir p'#225'gina ou texto'
        OnClick = Abrir1Click
      end
      object Salvar1: TMenuItem
        Caption = '&Salvar p'#225'gina'
        ShortCut = 16467
        OnClick = Salvar1Click
      end
      object SalvarComo1: TMenuItem
        Caption = 'Salvar p'#225'gina &Como'
        OnClick = SalvarComo1Click
      end
      object Mostrarpastaatual1: TMenuItem
        Caption = '&Mostrar pasta atual'
        OnClick = Mostrarpastaatual1Click
      end
      object Terminar: TMenuItem
        Caption = '&Terminar'
        OnClick = TerminarClick
      end
    end
    object Editar1: TMenuItem
      Caption = '&Editar'
      object Desfazer1: TMenuItem
        Caption = 'Desfazer'
        ShortCut = 16474
        OnClick = Desfazer1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Cortar1: TMenuItem
        Caption = 'Cor&tar'
        ShortCut = 16472
        OnClick = Cortar1Click
      end
      object Copiar1: TMenuItem
        Caption = 'Copiar'
        ShortCut = 16451
        OnClick = Copiar1Click
      end
      object Colar1: TMenuItem
        Caption = 'Colar'
        ShortCut = 16470
        OnClick = Colar1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Localizar1: TMenuItem
        Caption = 'Localizar'
        ShortCut = 16454
        OnClick = Localizar1Click
      end
    end
    object Inserir1: TMenuItem
      Caption = '&Inserir'
      object Cabecalho1: TMenuItem
        Caption = '&Cabe'#231'alho'
        OnClick = Cabecalho1Click
      end
      object Elo1: TMenuItem
        Caption = '&Elo'
        OnClick = Elo1Click
      end
      object Imagem1: TMenuItem
        Caption = '&Imagem'
        OnClick = Imagem1Click
      end
      object Botao1: TMenuItem
        Caption = 'Bot'#227'o'
        OnClick = Botao1Click
      end
      object Separador1: TMenuItem
        Caption = '&Separador'
        OnClick = Separador1Click
      end
      object Rotulo1: TMenuItem
        Caption = 'R'#243'tulo para acesso'
        OnClick = Rotulo1Click
      end
      object Tabela1: TMenuItem
        Caption = '&Tabela'
        OnClick = Tabela1Click
      end
      object Formulario1: TMenuItem
        Caption = 'Formul'#225'rio'
        OnClick = Formulario1Click
      end
    end
    object HTML1: TMenuItem
      Caption = '&Formata'#231#227'o'
      object amanho1: TMenuItem
        Caption = '&Tamanho'
        object H1Grande1: TMenuItem
          Caption = 'H1 (Grande)'
          OnClick = H1Grande1Click
        end
        object H21: TMenuItem
          Caption = 'H2'
          OnClick = H21Click
        end
        object H31: TMenuItem
          Caption = 'H3'
          OnClick = H31Click
        end
        object H41: TMenuItem
          Caption = 'H4'
          OnClick = H41Click
        end
        object H51: TMenuItem
          Caption = 'H5'
          OnClick = H51Click
        end
        object H6Micro1: TMenuItem
          Caption = 'H6 (Micro)'
          OnClick = H6Micro1Click
        end
      end
      object Negrito1: TMenuItem
        Caption = '&Negrito'
        OnClick = Negrito1Click
      end
      object Itlico1: TMenuItem
        Caption = '&It'#225'lico'
        OnClick = Itlico1Click
      end
      object Programa1: TMenuItem
        Caption = '&Programa'
        OnClick = Programa1Click
      end
      object Centralizado1: TMenuItem
        Caption = '&Centralizado'
        OnClick = Centralizado1Click
      end
      object Titulo1: TMenuItem
        Caption = '&T'#237'tulo'
        OnClick = Titulo1Click
      end
      object Sublinhado1: TMenuItem
        Caption = '&Sublinhado'
        OnClick = Sublinhado1Click
      end
    end
    object Configurar1: TMenuItem
      Caption = '&Configurar'
      OnClick = Configurar1Click
    end
    object GerarHTML1: TMenuItem
      Caption = '&HTML'
      object GeraHTML1: TMenuItem
        Caption = '&Gerar HTML'
        OnClick = GerarHTML1Click
      end
      object Regenerartudo1: TMenuItem
        Caption = '&Regenerar tudo'
        OnClick = Regenerartudo1Click
      end
    end
    object Visualizar1: TMenuItem
      Caption = '&Visualizar'
      OnClick = Visualizar1Click
    end
    object ajuda1: TMenuItem
      Caption = '&?'
      object Ajuda2: TMenuItem
        Caption = '&Ajuda'
        OnClick = Ajuda2Click
      end
      object Sobreesteprograma1: TMenuItem
        Caption = '&Sobre este programa'
        OnClick = Sobreesteprograma1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = '*.pag|*.pag|*.html; *.htm|*.html; *.htm|*.mdl|*.mdl|*.*|*.*'
    Left = 464
    Top = 96
  end
  object SaveDialog1: TSaveDialog
    Filter = '*.pag|*.pag|*.html; *.htm|*.html; *.htm|*.*|*.*'
    Left = 496
    Top = 96
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 496
    Top = 64
  end
  object FindDialog1: TFindDialog
    Options = [frFindNext, frHideMatchCase]
    OnFind = FindDialog1Find
    Left = 464
    Top = 64
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 496
    Top = 32
  end
end