Boa galera, este é o meu primeiro Artigo no Scriptfacil. O primeiro de muitos! Mas o que importa e que estaremos aqui, trabalhando para melhorar e aumentar os códigos livres...!

Quando comecei a estudar programação quis fazer um editor de texto. Não achava em lugar nenhum, então decidi fazer um aqui com vocês.

A idéia que todos trabalhem no editor, vou postar aqui o código fonte e meu e-mail, otacilio@upbrasil.com.br. Não vou procurar fazer da melhor forma, mas dinâmica e eficiente, pois como disse quero que todos os fação porte do desenvolvimento deste projeto, procurando a melhor forma de fazê-lo, dinâmica e o melhor código. Vou apresentar varias opções sempre que postar artigos referentes ao editor. Durante a criação deste artigo percebi que não ficaria legal colocar tudo de uma vez só aqui, então vou dividir este artigo em vários.


Mas vamos parar de enrolação. vamos lá!!!

Crie um novo projeto. Coloque o nome que você achar melhor. Eu coloque Netwhile.

• Crie em seguida um no form.
  
  
• Salve os form´s.
  
  
• No primeiro coloque os seguintes componentes: MainMenu, ImageList, OpenDialog, SaveDialog, CoolBar, um ToolBar e um StatusBar.
  
  
• Vamos nomear o projeto. O form que é criado junto com a aplicação de o nome de foeditor, e em formStyle coloque fsMDIForm já no segundo form coloque "fonovo" e em FormStyle coloque fsMDIChild.
  
  
• Agora vamos criar os menus.
  
  
  
  
  • Clique duas vezes no componente MainMenu. Aparecerá, algo semelhante. A imagem abaixo.
    
  • Clique no retângulo que aparece e pressione F11 ou Enter. Clique em Caption e coloque o nome Arquivo. Faça isso para todos os outros.
    
  
  
  
• No Form Principal, clique em Arquivo - Novo e digite o código abaixo e copile.
  
  
  with TFonovo.Create(Self) do
  Update;
   
  
  
  
• No segundo Form coloque o componente Richedit. Modifique as seguintes propriedades.
  
  
  Aling = alclient
  Name=renovo
  Em lines retire o texto
   
  
  
  
• No Form fonovo, no evento onclose coloque o código abaixo.
  
  
  DestroyWindowHandle;
   
  
  
  
• Na Barra de ferramentas que estamos criando clique com o botão direito e em New Button, três Vezes.
  
  
• Clique duas Vezes no componente Imagelist e em Add ache os ícones. Estarão disponíveis para download juntamente como projeto. Apague os mais claros.
  
  
• Clique no componente ToolBar do projeto e em Images coloque o nome do componente ImageList.
  
  
• Clique no botão novo e na paleta de eventos direcione o evento onclick deste botão para o evento onclick do MainMenu - Novo.
  
  
  onClick= Novo1Click
   
  
  

Copile e teste. Agora e só trabalhar mais um pouco.


Bom esta Chegando ao fim a primeira parte deste Artigo.
Até a próxima galera!