Bloco de Notas no Delphi

1º Abrimos uma nova aplicação no Delphi.

2º Inserimos os compontes visuais --------Aba
Main Menu ------------------------------Standard
Image list-------------------------------Win32
OPen Dialog-----------------------------Dialog
Save Dialog-----------------------------Dialog
Font Dialog-----------------------------Dialog
Print Dialog-----------------------------Dialog

3º Inserir Os Componetes Toolbar (Win32)e Rich Edit (Win32)
-Na propriedade Align do Rcih Edit mudar pra ALL Client //OU seja Toda a tela.

4º Fazer o Menu :
-Clicar duas Vazes no Main Menu e inserir os menus e seus itens:
Arquivo Editar Formatar Ajuda
-Novo -Desfazer (ctrl+z) -Fonte -Sobre...
-Abrir -Recortar (ctrl+x)
-Salvar -Copiar (ctrl +c)
-Imprimir -Colar ( ctrl+v)
-Sair -Selecionar Tudo (ctrl +t)

Na propriedade ShortCut do MainMenu inserir as teclas de atalho para cada sub menu.

5ºInserir 4 Image List e inserir as respectivas figuras para cada Menu (Novo/Abrir/Salvar/Imprimir)
C:\Arquivos de programas\Arquivos comuns\Borland Shared\Images\Buttons.

6º Inserir 4 botões na barra de ferramentas com separador:
-Selecionar o Tool Bar e com o botão direito clique em New Button e New Separator (4 Vezes)

7º Associar ao ImageList o ToolBar:
-Selecione o ToolBar e na propriedade Image Selecionar ImageList1.

8ºAssociar o MainMenu ao Image List :
-Selecione a propriedade Images do MainMenu e atribua ao ImageLlist.

9º Abrir o MainMEnu (duplo clique) e atribuir a cada item do Menu (Novo,Abrir...)a figura correspondente,atraves da propriedade Imageindex.

10º fechar o MainMenu.

11º Ajustar as Propriedades do Open Dialog e Save Dialog.
-Selecionar o Open Dialog.

Propriedade
Default EXT: TXT
Initial Dir C:\Documents and Settings\X\Meus Documentos // fica a seu critério o diretótio inicial.
filter cllicar em...
|
|_Descrição Máscara
Filter Name Filter
Arquivos de Textos *.TXT
Todos *.*

12ºAntes de Programar os Menus, Vá No form1 , e no Evento On Create digite:

procedure TForm1.FormCreate(Sender: TObject);
begin
RichEdit1.Clear;
end;

Programando os Menus
Clicar em Arquivo/NOvo e digitar o seguinte codigo:

procedure TForm1.Novo1Click(Sender: TObject);
begin
RichEdit1.Clear;
end;

Arquivo/Abrir

procedure TForm1.Abrir1Click(Sender: TObject);
begin
if opendialog1.Execute then
RichEdit1.Lines.LoadFromFile(opendialog1.FileName);
end;

Arquivo/Salvar
procedure TForm1.Salvar1Click(Sender: TObject);
begin
if savedialog1.Execute then
RichEdit1.Lines.SaveToFile(savedialog1.FileName);
end;

Arquivo/Imprimir
procedure TForm1.Imprimir1Click(Sender: TObject);
begin
if printDialog1.Execute then
RichEdit1.Print(richEdit1.Text);
end;

Arquivo/Sair
procedure TForm1.Sair1Click(Sender: TObject);
begin
Close;
end;

Segundo Menu

EDITAR/Desfazer
procedure TForm1.Desfazer1Click(Sender: TObject);
begin
sendmessage(richEdit1.Handle,wm_undo,0,0);
end;


EditAR/RECORTAR
procedure TForm1.Recortar1Click(Sender: TObject);
begin
RichEdit1.CutToClipboard;
end;

Editar/Copiar
procedure TForm1.Copiar1Click(Sender: TObject);
begin
RichEdit1.CopyToClipboard;
end;

Editar/Colar
procedure TForm1.Colar1Click(Sender: TObject);
begin
RichEdit1.PasteFromClipboard;
end;

EditAR/Selecionar tudo
procedure TForm1.SelecionarTudo1Click(Sender: TObject);
begin
RichEdit1.SelectAll;
end;

Terceiro Menu

Formatar/Fonte
procedure TForm1.Fonte1Click(Sender: TObject);
begin
if fontdialog1.Execute then
RichEdit1.SelAttributes.Assign(fontdialog1.Font);
end;

Ultimo Menu

Ajuda/Sobre
procedure TForm1.Sobre1Click(Sender: TObject);
begin
aboutbox.Showmodal;
end;

Bom ,Antes de se criar o codigo do MEnu Ajuda, faremos nosso AboutBox:

Vá Em File/New/Other,clique na aba Forms,Escolher Aboutbox;
-Voltar para o Form1;
-File/ Use Unit,selecionar arquivo (unit),Ok!!

Acho que é so isso,Agora é so testar.

Em relação a Aparencia fica à critério de cada um , Existe um componete que se chama XPManifest1,ele fica na Aba WIn32.Os Componentes que se encontram no form ,ficam parecendo com o XP.

Claro que existem outro componetes para mudar o visual de suas aplicações,como o Vclskin,SSCompXP,IPskin,BMSPack.

Se o Brain tiver alguma idéia pra melhorar fala aew beleza????

T+