Início
O Delphi nos proporciona desde os mais simples programas aos mais complexos.
Para começar quero apresentar a vocês um simples editor de textos, que podemos criar usando Delphi 7.
Tudo que você verá neste tutorial, poderá aplicar em outras versões do Delphi e do Windows.
Partindo para a prática:
Abra o Delphi
Clique no botão “SaveAll” para o “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 formulário 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”.
Bom, nosso layout está pronto. Veja se o meu layout está igual o seu:
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;
Bom, o que apresentei para vocês é uma forma de fazer um editor de texto que, usando sua criatividade, poderá ter inserido os diversos recursos que desejar.
Para começar quero apresentar a vocês um simples editor de textos, que podemos criar usando Delphi 7.
Tudo que você verá neste tutorial, poderá aplicar em outras versões do Delphi e do Windows.
Partindo para a prática:
Abra o Delphi
Clique no botão “SaveAll” para o “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 formulário 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”.
Bom, nosso layout está pronto. Veja se o meu layout está igual o seu:
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;
Bom, o que apresentei para vocês é uma forma de fazer um editor de texto que, usando sua criatividade, poderá ter inserido os diversos recursos que desejar.
