object Form1: TForm1
  Left = 198
  Top = 120
  Width = 603
  Height = 450
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 356
    Top = 75
    Width = 154
    Height = 20
    Caption = 'www.alberteije.com'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 301
    Top = 40
    Width = 270
    Height = 29
    Caption = 'Componente ActionList'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Image1: TImage
    Left = 8
    Top = 32
    Width = 272
    Height = 60
    AutoSize = True
    Picture.Data = {
      [encoded data, 71744 characters]
      5EEBDEFDD7BAF7BF75EEBFFFD9}
  end
  object RichEdit1: TRichEdit
    Left = 0
    Top = 101
    Width = 595
    Height = 295
    Align = alBottom
    Lines.Strings = (
      'RichEdit1')
    TabOrder = 0
  end
  object Button1: TButton
    Left = 8
    Top = 8
    Width = 75
    Height = 25
    Action = RichEditAlignCenter1
    TabOrder = 1
  end
  object Button2: TButton
    Left = 88
    Top = 8
    Width = 75
    Height = 25
    Action = RichEditAlignLeft1
    TabOrder = 2
  end
  object Button3: TButton
    Left = 168
    Top = 8
    Width = 75
    Height = 25
    Action = RichEditAlignRight1
    TabOrder = 3
  end
  object Button4: TButton
    Left = 248
    Top = 8
    Width = 75
    Height = 25
    Action = RichEditBold1
    TabOrder = 4
  end
  object Button5: TButton
    Left = 328
    Top = 8
    Width = 75
    Height = 25
    Action = RichEditItalic1
    TabOrder = 5
  end
  object Button6: TButton
    Left = 408
    Top = 8
    Width = 75
    Height = 25
    Action = RichEditUnderline1
    TabOrder = 6
  end
  object Button7: TButton
    Left = 488
    Top = 8
    Width = 75
    Height = 25
    Hint = 'Strikeout'
    Caption = 'form2'
    TabOrder = 7
    OnClick = Button7Click
  end
  object ActionList1: TActionList
    Left = 40
    Top = 64
    object EditCut1: TEditCut
      Category = 'Edit'
      Caption = 'Cu&t'
      Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
      ImageIndex = 0
      ShortCut = 16472
    end
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy|Copies the selection and puts it on the Clipboard'
      ImageIndex = 1
      ShortCut = 16451
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = 'Paste|Inserts Clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
    end
    object EditSelectAll1: TEditSelectAll
      Category = 'Edit'
      Caption = 'Select &All'
      Hint = 'Select All|Selects the entire document'
      ShortCut = 16449
    end
    object EditUndo1: TEditUndo
      Category = 'Edit'
      Caption = '&Undo'
      Hint = 'Undo|Reverts the last action'
      ImageIndex = 3
      ShortCut = 16474
    end
    object EditDelete1: TEditDelete
      Category = 'Edit'
      Caption = '&Delete'
      Hint = 'Delete|Erases the selection'
      ImageIndex = 5
      ShortCut = 46
    end
    object FileOpen1: TFileOpen
      Category = 'File'
      Caption = '&Open...'
      Hint = 'Open|Opens an existing file'
      ImageIndex = 7
      ShortCut = 16463
      OnAccept = FileOpen1Accept
    end
    object FileOpenWith1: TFileOpenWith
      Category = 'File'
      Caption = 'Open with...'
    end
    object FileSaveAs1: TFileSaveAs
      Category = 'File'
      Caption = 'Save &As...'
      Hint = 'Save As|Saves the active file with a new name'
      ImageIndex = 30
    end
    object FilePrintSetup1: TFilePrintSetup
      Category = 'File'
      Caption = 'Print Set&up...'
      Hint = 'Print Setup'
    end
    object FilePageSetup1: TFilePageSetup
      Category = 'File'
      Caption = 'Page Set&up...'
      Dialog.MinMarginLeft = 0
      Dialog.MinMarginTop = 0
      Dialog.MinMarginRight = 0
      Dialog.MinMarginBottom = 0
      Dialog.MarginLeft = 2500
      Dialog.MarginTop = 2500
      Dialog.MarginRight = 2500
      Dialog.MarginBottom = 2500
      Dialog.PageWidth = 21590
      Dialog.PageHeight = 27940
    end
    object FileRun1: TFileRun
      Category = 'File'
      Browse = False
      BrowseDlg.Title = 'Run'
      Caption = '&Run...'
      Hint = 'Run|Runs an application'
      Operation = 'open'
      ShowCmd = scShowNormal
    end
    object FileExit1: TFileExit
      Category = 'File'
      Caption = 'E&xit'
      Hint = 'Exit|Quits the application'
      ImageIndex = 43
    end
    object RichEditBold1: TRichEditBold
      Category = 'Format'
      AutoCheck = True
      Caption = '&Bold'
      Hint = 'Bold'
      ImageIndex = 31
      ShortCut = 16450
    end
    object RichEditItalic1: TRichEditItalic
      Category = 'Format'
      AutoCheck = True
      Caption = '&Italic'
      Hint = 'Italic'
      ImageIndex = 29
      ShortCut = 16457
    end
    object RichEditUnderline1: TRichEditUnderline
      Category = 'Format'
      AutoCheck = True
      Caption = '&Underline'
      Hint = 'Underline'
      ImageIndex = 28
      ShortCut = 16469
    end
    object RichEditStrikeOut1: TRichEditStrikeOut
      Category = 'Format'
      AutoCheck = True
      Caption = '&Strikeout'
      Hint = 'Strikeout'
      ImageIndex = 44
    end
    object RichEditBullets1: TRichEditBullets
      Category = 'Format'
      AutoCheck = True
      Caption = '&Bullets'
      Hint = 'Bullets|Inserts a bullet on the current line'
      ImageIndex = 38
    end
    object RichEditAlignLeft1: TRichEditAlignLeft
      Category = 'Format'
      AutoCheck = True
      Caption = 'Align &Left'
      Hint = 'Align Left|Aligns text at the left indent'
      ImageIndex = 35
    end
    object RichEditAlignRight1: TRichEditAlignRight
      Category = 'Format'
      AutoCheck = True
      Caption = 'Align &Right'
      Hint = 'Align Right|Aligns text at the right indent'
      ImageIndex = 36
    end
    object RichEditAlignCenter1: TRichEditAlignCenter
      Category = 'Format'
      AutoCheck = True
      Caption = '&Center'
      Hint = 'Center|Centers text between margins'
      ImageIndex = 37
    end
    object DataSetFirst1: TDataSetFirst
      Category = 'Dataset'
      Caption = 'DataSetFirst1'
    end
    object DataSetLast1: TDataSetLast
      Category = 'Dataset'
      Caption = 'DataSetLast1'
    end
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = 'DataSetInsert1'
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = 'DataSetDelete1'
    end
    object DataSetEdit1: TDataSetEdit
      Category = 'Dataset'
      Caption = 'DataSetEdit1'
    end
    object DataSetPost1: TDataSetPost
      Category = 'Dataset'
      Caption = 'DataSetPost1'
    end
    object DataSetCancel1: TDataSetCancel
      Category = 'Dataset'
      Caption = 'DataSetCancel1'
    end
  end
  object MainMenu1: TMainMenu
    Left = 160
    Top = 216
    object Arquivo1: TMenuItem
      Caption = 'Arquivo'
      object Abrir1: TMenuItem
        Action = FileOpen1
        Caption = '&Abrir...'
      end
      object SalvarComo1: TMenuItem
        Action = FileSaveAs1
        Caption = '&Salvar Como...'
      end
      object ConfigurarImpresso1: TMenuItem
        Action = FilePrintSetup1
        Caption = '&Configurar Impress'#227'o...'
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Sair1: TMenuItem
        Action = FileExit1
        Caption = '&Sair'
        ShortCut = 16467
      end
    end
    object Editar1: TMenuItem
      Caption = 'Editar'
      object Recortar1: TMenuItem
        Action = EditCut1
      end
      object Copiar1: TMenuItem
        Action = EditCopy1
      end
      object Colar1: TMenuItem
        Action = EditPaste1
      end
      object Desfazer1: TMenuItem
        Action = EditUndo1
      end
      object SelecionarTudo1: TMenuItem
        Action = EditSelectAll1
      end
    end
    object Formatao1: TMenuItem
      Caption = 'Formata'#231#227'o'
      object a1: TMenuItem
        Action = RichEditAlignCenter1
        AutoCheck = True
      end
      object c1: TMenuItem
        Action = RichEditAlignLeft1
        AutoCheck = True
      end
      object d1: TMenuItem
        Action = RichEditAlignRight1
        AutoCheck = True
      end
      object d2: TMenuItem
        Action = RichEditBold1
        AutoCheck = True
      end
      object d3: TMenuItem
        Action = RichEditItalic1
        AutoCheck = True
      end
      object d4: TMenuItem
        Action = RichEditStrikeOut1
        AutoCheck = True
      end
      object d5: TMenuItem
        Action = RichEditUnderline1
        AutoCheck = True
      end
    end
  end
end
