Construção do Editor de Textos

Décima parte

Abra novamente o Menu Designer e crie o menu Visualizar, com os seguintes submenus: Barra de títulos, Barra de Ferramentas e Régua. Vamos ao primeiro código:

void __fastcall TForm1::BarradeTtulos1Click(TObject *Sender)
{
if(BorderStyle == bsSizeable)
BorderStyle = bsNone;
else
BorderStyle = bsSizeable;
}

Vamos colocar uma Barra de Ferramentas e uma Régua em nosso Editor. Primeiramente coloque um componente TPanel (Panel), da página Standard no Form. Desse componente, no Object Inspector, delete qualquer caracter da propriedade Caption, altere a propriedade Align para alTop e a Propriedade Visible para false. Feito isso, eis o código do menu correspondente:

void __fastcall TForm1::BarradeFerramentas1Click(TObject *Sender)
{
if(Panel1->Visible == true)
Panel1->Visible = false;
else
Panel1->Visible = true;
}

Após terminar de digitar o código, coloque um segundo TPanel no Form. As Propriedades são rigorosamente as mesmas: Caption = “”; Align = alTop e Visible = false. Você perceberá que esse segundo Panel se instalará abaixo do primeiro (de Panel1). Eis o código:

void __fastcall TForm1::Rgua1Click(TObject *Sender)
{
if(Panel2->Visible == true)
Panel2->Visible = false;
else
Panel2->Visible = true;
}

O primeiro Panel será usado para construírmos a Barra de Ferramentas e o segundo, a régua.

Rode a aplicação e experimente o resultado parcial.