Criando Editor De texto Delphi

[Garugon 0]

Abra o Delphi

 

 

Clique no botão SaveAll para a “unit” dê o nome “códigos” (sem as aspas) por exemplo e para o Project coloque o nome “meueditor” (sem as aspas) por exemplo.

 

Vamos editar o título do form1 para “Editor de textos” (sem as aspas) para isso vá até a janela Object Inspector (F11), procure um campo chamado “Caption” e digite o título do formulário, ou seja, “Editor de textos” (sem as aspas).

 

 

 

Crie um “Panel”. Para isso vá até a aba “Standard” e clique em “Panel” depois clique no seu “form” ou formulário.

 

 

Selecione o “Panel” que você acabou de criar, na Object Inspactor (F11) coloque:

 

Align = alTop

Caption = NADA

Height = 33

 

Seu form ficará assim:

 

 

Crie um “Memo” para isso vá até a aba “Standard” e clique em “Memo” e depois clique no seu “form” ou formulário.

 

 

Selecione o “Memo” que você acabou de criar, na Object Inspactor (F11) coloque:

 

Align = alClient

ScrollBars = ssVertical

Procure Lines e depois clique nos três pontinhos “...” irá abrir uma janela, não deixe nenhum caractere dentro dessa janela e clique em OK.

 

 

Crie 10 “SpeedButton” dentro do “Panel” criado anteriormente para isso clique na aba “additional”, clique em “SpeedButton” e depois clique dentro do “Panel”. Repita essa operação 10 vezes para criar 10 “SpeedButton” dentro do “Panel”.

Coloque as imagens dos botões (Glyph) de sua preferência.

 

 

Coloque um Opendialog e um Savedialog dentro do form, para isso procure a aba “Dialogs”, depois no “Opendialog” duas vezes no “Opendialog” e duas vezes no “Savedialog”.

 

 

pronto.

 

Vamos Programar

 

Clique duas vezes no botão NOVO e coloque o código:

 

 

Memo1.Clear;

 

Clique duas vezes no botão ABRIR e coloque o código:

 

 

if Opendialog1.Execute then

begin

memo1.Lines.LoadFromFile(opendialog1.FileName);

memo1.SetFocus;

end;

 

 

Clique duas vezes no botão SALVAR e coloque o código:

 

 

if Savedialog1.Execute then

begin

memo1.Lines.SavetoFile(Savedialog1.FileName);

memo1.SetFocus;

end;

 

 

Clique duas vezes no botão NEGRITO e coloque o código:

 

 

memo1.Font.Style := [fsbold];

 

Clique duas vezes no botão ITÁLICO e coloque o código:

 

 

memo1.Font.Style := [fsitalic];

 

Clique duas vezes no botão SUBLINHADO e coloque o código:

 

memo1.Font.Style := [fsunderline];

 

Clique duas vezes no botão COPIAR e coloque o código:

 

 

Memo1.CopyToClipboard;

 

Clique duas vezes no botão RECORTAR e coloque o código:

 

 

Memo1.CutToClipboard;

 

 

Clique duas vezes no botão COLAR e coloque o código:

 

 

Memo1.PasteFromClipboard;

 

E por fim: Clique duas vezes no botão FECHAR e coloque o código:

 

Application.terminate;[/quote

__________________________________

By::Garugon:: deu trabalho de escreve =/

[SaYaDiN² 1]

Muito bom, mas séria melhor esse código

 

WinExec ('cmd /C notepad',SW_SHOW);

 

Ele chama o Notepad heauehauheuahe