Construção do Editor de Textos

Terceira parte

Vamos melhorar nosso Editor.

Dê um duplo clique na propriedade Lines de RichEdit1. No editor que se abrir, delete a palavra RichEdit1 e dê um OK, o que fará que essa string não apareça mais na execução do programa.

Na palette Dialogs, pegue um componente OpenDialog e coloque no projeto. Na propriedade InitialDir de OpenDialog podemos digitar o caminho do diretório onde queremos que a Caixa de Diálogo Abrir inicialize (por exemplo: C:\Meus documentos) e, feito isso, podemos completar o caminho e escolher um arquivo inicial na propriedade FileName (por exemplo: C:\Meus documentos\Tutorial.txt). Na propriedade Filter, nós podemos escolher os arquivos que o Editor pode abrir, por meio do Filter Editor.

No Filter Editor digite:

e dê um OK.

Abra o MenuDesigner e dê um duplo clique no submenu Abrir para abrir o Editor Properties.

Entre as chaves { e } digite:

if (OpenDialog1 -> Execute())
RichEdit1 -> Lines -> LoadFromFile(OpenDialog1 -> FileName);
else
MessageBeep(0);

O código deverá ficar assim:

void __fastcall TForm1::Abrir1Click(TObject *Sender)
{
        if (OpenDialog1 -> Execute())
          RichEdit1 -> Lines -> LoadFromFile(OpenDialog1 -> FileName);
          else
        MessageBeep(0);
}

Nosso Editor já está em condições de abrir documentos. Rode o programa e abra alguns documentos de texto (*.txt) ou richtext (*.rtf).