unit1.dfm

Editor de Textos em Delphi

object Form1: TForm1
  Left = 9
  Top = 38
  Width = 812
  Height = 580
  AutoSize = True
  BorderIcons = [biSystemMenu, biMaximize, biHelp]
  Caption = 'Fox'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  WindowState = wsMaximized
  WindowMenu = Abrir1
  OnShow = FormShow
  DesignSize = (
    804
    534)
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 783
    Top = 16
    Width = 15
    Height = 13
    Glyph.Data = {
      A6020000424DA6020000000000003600000028000000100000000D0000000100
      18000000000070020000C40E0000C40E00000000000000000000404040404040
      4040404040404040404040404040404040404040404040404040404040404040
      40404040404040404040FFFFFF80808080808080808080808080808080808080
      8080808080808080808080808080808080808080808080404040FFFFFFC8D0D4
      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
      D4C8D0D4808080404040FFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040FFFFFFC8D0D4
      C8D0D4C8D0D4000000000000C8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0
      D4C8D0D4808080404040FFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8
      D0D4C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040FFFFFFC8D0D4
      C8D0D4C8D0D4C8D0D4C8D0D4000000000000000000000000C8D0D4C8D0D4C8D0
      D4C8D0D4808080404040FFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D400
      0000000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040FFFFFFC8D0D4
      C8D0D4C8D0D4C8D0D4C8D0D4000000000000000000000000C8D0D4C8D0D4C8D0
      D4C8D0D4808080404040FFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8
      D0D4C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040FFFFFFC8D0D4
      C8D0D4C8D0D4000000000000C8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0
      D4C8D0D4808080404040FFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040FFFFFFC8D0D4
      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
      D4C8D0D4808080404040}
    OnClick = SpeedButton1Click
  end
  object ControlBar1: TControlBar
    Left = 1
    Top = 0
    Width = 776
    Height = 34
    Anchors = [akRight, akBottom]
    BevelEdges = []
    BevelOuter = bvRaised
    BevelKind = bkSoft
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 505
      Height = 30
      AutoSize = True
      ButtonHeight = 26
      Caption = 'ToolBar1'
      Images = ImageList1
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        Caption = 'ToolButton1'
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 23
        Top = 2
        Caption = 'ToolButton2'
        ImageIndex = 1
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 46
        Top = 2
        Caption = 'ToolButton3'
        ImageIndex = 2
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 69
        Top = 2
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 77
        Top = 2
        Caption = 'ToolButton5'
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton5Click
      end
      object ToolButton6: TToolButton
        Left = 100
        Top = 2
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolBar2: TToolBar
        Left = 108
        Top = 2
        Width = 397
        Height = 26
        AutoSize = True
        Caption = 'ToolBar2'
        Images = ImageList1
        TabOrder = 0
        object FontComboBox1: TFontComboBox
          Left = 0
          Top = 3
          Width = 145
          Height = 20
          TabOrder = 1
          OnClick = FontComboBox1Click
        end
        object ComboBox2: TComboBox
          Left = 145
          Top = 2
          Width = 64
          Height = 21
          ItemHeight = 13
          ItemIndex = 1
          TabOrder = 0
          Text = '10'
          OnClick = ComboBox2Click
          OnKeyPress = ComboBox2KeyPress
          Items.Strings = (
            '8'
            '10'
            '12'
            '14'
            '16'
            '18'
            '20'
            '22'
            '24'
            '26'
            '36'
            '48'
            '72'
            '96')
        end
        object ToolButton7: TToolButton
          Left = 209
          Top = 2
          Width = 8
          Caption = 'ToolButton7'
          Style = tbsSeparator
        end
        object ToolButton12: TToolButton
          Left = 217
          Top = 2
          Caption = 'ToolButton12'
          ImageIndex = 9
          OnClick = ToolButton12Click
        end
        object ToolButton16: TToolButton
          Left = 240
          Top = 2
          Width = 8
          Caption = 'ToolButton16'
          ImageIndex = 17
          Style = tbsSeparator
        end
        object ToolButton13: TToolButton
          Left = 248
          Top = 2
          Caption = 'ToolButton13'
          Grouped = True
          ImageIndex = 10
          Style = tbsCheck
          OnClick = ToolButton13Click
        end
        object ToolButton14: TToolButton
          Left = 271
          Top = 2
          Caption = 'ToolButton14'
          Grouped = True
          ImageIndex = 11
          Style = tbsCheck
          OnClick = ToolButton14Click
        end
        object ToolButton15: TToolButton
          Left = 294
          Top = 2
          Caption = 'ToolButton15'
          Grouped = True
          ImageIndex = 12
          Style = tbsCheck
          OnClick = ToolButton15Click
        end
        object ToolButton8: TToolButton
          Left = 317
          Top = 2
          Width = 8
          Caption = 'ToolButton8'
          ImageIndex = 17
          Style = tbsSeparator
        end
        object ToolButton9: TToolButton
          Left = 325
          Top = 2
          Caption = 'ToolButton9'
          ImageIndex = 14
          Style = tbsCheck
          OnClick = ToolButton9Click
        end
        object ToolButton10: TToolButton
          Left = 348
          Top = 2
          Caption = 'ToolButton10'
          ImageIndex = 15
          Style = tbsCheck
          OnClick = ToolButton10Click
        end
        object ToolButton11: TToolButton
          Left = 371
          Top = 2
          Caption = 'ToolButton11'
          ImageIndex = 16
          Style = tbsCheck
          OnClick = ToolButton11Click
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 515
    Width = 804
    Height = 19
    Panels = <
      item
        Style = psOwnerDraw
        Text = 'Teste'
        Width = 50
      end
      item
        Text = 'Testando'
        Width = 50
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 34
    Width = 792
    Height = 480
    TabOrder = 2
    object Panel2: TPanel
      Left = -1
      Top = 0
      Width = 775
      Height = 482
      Caption = 'Panel2'
      Color = clActiveBorder
      TabOrder = 0
      object Panel3: TPanel
        Left = 21
        Top = 0
        Width = 753
        Height = 481
        Color = clBtnShadow
        TabOrder = 0
        object Image1: TImage
          Left = 424
          Top = 216
          Width = 105
          Height = 105
          Visible = False
        end
        object texto: TRxRichEdit
          Left = 13
          Top = 24
          Width = 724
          Height = 944
          BorderStyle = bsNone
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          LangOptions = [rlAutoFont, rlImeAlwaysSendNotify]
          ParentFont = False
          StreamMode = [smSelection, smUnicode]
          TabOrder = 0
          OnChange = textoChange
        end
      end
      object Panel4: TPanel
        Left = 2
        Top = 0
        Width = 19
        Height = 1500
        Color = clCaptionText
        TabOrder = 1
        object Label1: TLabel
          Left = 6
          Top = 8
          Width = 6
          Height = 13
          Caption = '1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -1
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 8
          Top = 26
          Width = 3
          Height = 13
          Caption = '-'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText