Bem vindo ao LifeGames Demo
Cadastre-se agora para ter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações de status post, gerir o seu perfil e muito mais. Esta mensagem será removida assim que tiver logado.
Entrar Cadastre-se


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 Criando bloco de notas no delphi 7 em Sab Mar 16, 2013 3:21 pm

Moedas Moedas : 11
Mensagens Mensagens : 16
Humor Humor : Bom
Reputação Reputação : 0
Quebra de regras:
0 / 1000 / 100

TH3 CH4OS

Estagiário

Estagiário



Abra o Delphi
[Você precisa estar registrado e conectado para ver esta imagem.]

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).
[Você precisa estar registrado e conectado para ver esta imagem.]

Crie um "Panel". Para isso vá até a aba "Standard" e clique em "Panel" depois clique no seu ?form? ou formulário.
[Você precisa estar registrado e conectado para ver esta imagem.]

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

Align = alTop
Caption = NADA
Height = 33

Seu form ficará assim:
[Você precisa estar registrado e conectado para ver esta imagem.]

Crie um ?Memo? para isso vá até a aba ?Standard? e clique em ?Memo? e depois clique no seu ?form? ou formulário.
[Você precisa estar registrado e conectado para ver esta imagem.]

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.
[Você precisa estar registrado e conectado para ver esta imagem.]

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.
[Você precisa estar registrado e conectado para ver esta imagem.]

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?.
[Você precisa estar registrado e conectado para ver esta imagem.]

Bom, nosso layout está pronto. Veja se o meu layout está igual o seu:
[Você precisa estar registrado e conectado para ver esta imagem.]

Vamos Programar?

Clique duas vezes no botão NOVO e coloque o código:
CÓDIGO:Memo1.Clear;


Clique duas vezes no botão ABRIR e coloque o código:
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:
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:
CÓDIGO:memo1.Font.Style := [fsbold];

Clique duas vezes no botão ITÁLICO e coloque o código:
CÓDIGO:memo1.Font.Style := [fsitalic];

Clique duas vezes no botão SUBLINHADO e coloque o código:
CÓDIGO:memo1.Font.Style := [fsunderline];

Clique duas vezes no botão COPIAR e coloque o código:
CÓDIGO:Memo1.CopyToClipboard;

Clique duas vezes no botão RECORTAR e coloque o código:
CÓDIGO:Memo1.CutToClipboard;

Clique duas vezes no botão COLAR e coloque o código:
CÓDIGO:Memo1.PasteFromClipboard;

E por fim: Clique duas vezes no botão FECHAR e coloque o código:
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.


Créditos: Oficinadanet



[Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário

2 Re: Criando bloco de notas no delphi 7 em Seg Mar 18, 2013 3:01 pm

Moedas Moedas : 278
Mensagens Mensagens : 1177
Idade Idade : 19
Humor Humor : Forever Alone T.T
Reputação Reputação : 28
Quebra de regras:
0 / 1000 / 100

RodrigoNunes

Admin

Admin

Legal cabrão eu criei um aqui e em breve irei postar a source para download. Rep + pelo tópico




[Você precisa estar registrado e conectado para ver esta imagem.]
O Administrador ℛodrigoNunes sugere:
- Respeite as [Você precisa estar registrado e conectado para ver este link.]
- Participe das nossas [Você precisa estar registrado e conectado para ver este link.]
- Veja a nosso [Você precisa estar registrado e conectado para ver este link.]
- Não peça suporte por MP


Try
Topic.Resolve;
Finally
Topic.Caption := Topic.Caption + '[RESOLVIDO]';
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário https://www.facebook.com/DarkGamesBrasil formatacaodemicros@hotmail.com.br naotenho esqueci

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum