Construção do Editor de Textos
Sétima parte
Abaixo do menu Editar, crie o menu Formatar com dois submenus: Fontes e Cores.
submenu Fontes
Coloque um componente FontDialog no projeto.
Eis o código:
void __fastcall TForm1::Fontes1Click(TObject *Sender)
{ /*coloca os atributos do texto selecionado no RichEdit1
em FontDialog1*/
FontDialog1->Font->Assign(RichEdit1->SelAttributes);
/*Sendo chamada a caixa de diálogo de fontes*/
if(FontDialog1->Execute())
/*as fontes selecionadas de RichEdit1 receberão os atributos
da caixa de diálogos de fontes*/
RichEdit1->SelAttributes->Assign(FontDialog1->Font);
}
|
|
Nota: TtextAttributes::Assign
Coloca as propriedades de um objeto TTextAttributes em conformidade com as propriedades especificadas em outro objeto TTextAttributes ou num objeto TFont.
Use Assign para mudar todos os atributos de texto simultaneamente. Assign pode colocar as características das fonts selecionadas num texto em conformidade com as características default da font ou vice-versa. Quando o início é um objeto TTextAttributes, Assign adapta somente Color, Name, Style, e propriedades Pitch. Quando o início é um objeto TFont, Assign também adapta o Size.
Nota: Assign somente substitui em tempo de execução quando ´início é um objeto TTextAttributes, um objeto TFont, ou um objeto que tenha implementado um método AssignTo que trate o objeto TTextAttributes. Outras origens produzem exceções de erro. |
Coloque um componente ColorDialog no projeto.
Eis o código:
void __fastcall TForm1::Cores1Click(TObject *Sender)
{
if (ColorDialog1 -> Execute())
/*a cor de RichEdit1 será a cor escolhida em ColorDialog1*/
RichEdit1 -> Color = ColorDialog1 -> Color;
}
|
O código de Cores1Click não é subsistente. Ou seja, se você alterar a cor do editor de textos e fechar o aplicativo, na próxima vez que abrir o editor de textos, ele abrirá na cor padrão, estabelecida inicialmente no Object Inspector. Futuramente nós veremos um modo de conservar a cor atrávés de arquivos .INI.
|
HOME || MAPA DO SITE || CURSOS || TUTORIAIS || LINKS || FORUM || CONTATO |