(delphi) criando menu

[matheusguerra 2]

não estarei postando codigos das funçoes, mais se precisar é só falar

 

1º- Criar menus

2º- Deixalo com um visual melhor

 

 

1º Parte

Abra uma nova aplicação.

Na form, adicione um MainMenu(paleta estandarte)

De 2 clicks no MainMenu, ira aparecer o editor, para dar os nomes é só mudar a Caption

pra criar uma sub opção ex:

 

arquivo

abrir

salvar

mais> abrir outro

----------salvar outro.

 

é só apertar CTRL+seta direita

 

2º Parte

seguindo o mesmo procedimento anterior.

IMPORTANTE - na properties, a opção OwnerDraw estara False, Mude para True

Depois acesse o Evento onDrawItem de deste item do Menu e coloque o código:

//Pinta a opção

 

if Selected then //verifica se o item está selecionado

BEGIN

ACanvas.Brush.Color := $00EFD3C6; //cor de fundo do item

 

// Canv.Brush.Color := clAppWorkSpace;

ACanvas.Rectangle(Arect); //Desenharemos uma retangulo em todo o Item selecionado.

ACanvas.pen.Color:=$00C66931; //seta a cor da borda do retangulo.

InflateRect (ARect, -1,-1);

end

else

ACanvas.Brush.Color:=clMenu; //se não estiver selecionado o item coloca a cor normal do item.

//--> dietrich 01/02/2007

 

//coloca o texto

ACanvas.pen.Color:=clBlack; //cor

ACanvas.TextRect(ARect,ARect.Left+5, ARect.Top+1,'Sair');//local onde sera escrito o texto ARect

 

FIM...

 

lembrando que as funções das opções estarão desabilitadas, pois estarão sem o codigo