Como criar um editor de textos básico!

[Hacker Xtreme]

VCL FORMS APPLICATIONS
Ao entrar no ambiente e tentar iniciar um novo projeto, o desenvolvedor será confrontado com muito mais escolhas: VCL Forms, Windows Forms, Packages, ASP.NET Web Application, etc.

Para saber qual delas escolher, é preciso ter conhecimento prévio de algumas coisas: VCL Forms é o nome que a Borland deu à nova versão da VCL. Na prática, é o tipo de aplicação que vai proporcionar maior compatibilidade com os projetos anteriores vindos do Delphi 7 no novo ambiente.

Já as aplicações Windows Forms são as que proporcionam maior conforto para quem estiver vindo do C# ou do VB.NET. A biblioteca Windows Forms é o padrão que a Microsoft liberou com a plataforma .NET. Ao selecionar Windows Forms, entretanto, o programador não terá acesso a alguns dos componentes mais populares do Delphi.
FERRAMENTAS: TOOL PALETTE
STANDART: TMainMenu
Este componente é usado para apresentar um menu de opções para o usuário.
STANDART: TMemo
Este componente é usado para mostrar um texto na formulário que normalmente ocupe mais de uma linha.
DIALOGS: TOpenDialog
Este componente apresenta uma caixa de diálogo para que o usuário escolha um arquivo para abrir.
DIALOGS:TSaveDialog
Este componente apresenta uma caixa de diálogo para que o usuário possa salvar um arquivo.
DIALOGS:TFontDialog
Este componente apresenta uma caixa de diálogo para que o usuário tenha a possibilidade de modificar as características da fonte do texto.
DIALOGS:TColorDialog
Este componente apresenta uma caixa de diálogo para que o usuário tenha a possibilidade de modificar as características da cor do texto.

CRIANDO UM EDITOR DE TEXTOS SIMPLES
Vamos  criar, no Delphi,  um projeto  utilizando (File/New/VCL Forms Application).  Devemos criar um subdiretório e  mandar salvar o programa neste diretório.
Em seguida criamos um TMainMenu para definir as opções utilizadas pelo usuário. 
Além disso, um componente TMemo  vai ser acrescentado ocupando  toda a área do formulário.

1.   File/New/VCL Forms Application.
2.   Coloque um componente TMainMenu no projeto

3.   Object Inspector/Caption
a.   &Arquivo
b.   &Abrir
c.   &Salvar
d.   –
e.   Sai&r
STANDART: TMainMenu
Este componente é usado para apresentar um menu de opções para o usuário.

Evento   Descrição
onClick   Abrir1
onClick   Salvar1
onClick   Sair1

UNIDADES DE CÓDIGO: UNITS

TRECHO 1
procedure TForm1.Abrir1Click(Sender: TObject);
begin
  if OpenDialog1.Execute = True then
  txtEditor.Lines.LoadFromFile(OpenDialog1.FileName);
  txtEditor.SetFocus;
end;

TRECHO 2
procedure TForm1.Salvar1Click(Sender: TObject);
begin
  if SaveDialog1.Execute = True then
     txtEditor.Lines.SaveToFile(SaveDialog1.FileName);
end;

TRECHO 3
procedure TForm1.Sair1Click(Sender: TObject);
begin
  Form1.close;
end;


4.   Coloque um componente TMemo no projeto
STANDART: TMemo
Este componente é usado para mostrar um texto na formulário que normalmente ocupe mais de uma linha.

Propriedade   Descrição
Align   alClient
Name   Editor
ScrollBars   ssVertical
WantTabs   true

5.   Coloque um OpenDialog no projeto
DIALOGS: TOpenDialog
Este componente apresenta uma caixa de diálogo para que o usuário escolha um arquivo para abrir.

Propriedade   Descrição
Options.ofFileMustExist   true
Filter   ...
*somente arquivos existents

Filter Name   Filter
Documento de texto   *.txt
Todos os arquivos   *.*

6.   Coloque um SaveDialog no projeto
DIALOGS:TSaveDialog
Este componente apresenta uma caixa de diálogo para que o usuário possa salvar um arquivo.

Propriedade   Descrição
Options.ofOverwritePrompt    true
Filter   ...
*se arquivo já existe, será avisado

Filter Name   Filter
Documento de texto   *.txt
Todos os arquivos   *.*

7.   Acrescente mais opções ao Menu.

8.   Object Inspector/Caption
a.   &Editar
b.   &Fontes
c.   &Cores

Evento   Descrição
onClick   Fontes1
onClick   Cores1


Vamos inserir algumas opções para escolha de Fontes e Cor de Fundo.

9.   Coloque um FontDialog da paleta Dialogs no projeto
UNIDADES DE CÓDIGO: UNITS

TRECHO 3
procedure TForm1.FonteClick(Sender: TObject);
begin
      if FontDialog1.Execute then
      txtEditor.Font := FontDialog1.Font;
end;


10.   Coloque um ColorDialog da paleta Dialogs no projeto
TRECHO 4
procedure TForm1.ColorClick(Sender: TObject);
begin
  if ColorDialog1.Execute then
    txtEditor.Color := ColorDialog1.Color;
  Form1.Color := txtEditor.Color;
end;


LEITURA RECOMENDADA

http://ww.clubedelphi.net
http://www.delphi.eti.br
http://www.delphibr.com.br
http://www.firebase.com.br