Fórum Modificar cor do Menu #369156

//Pinta a opção if Selected then //verifica se o item está selecionado begin ACanvas.Brush.Color := $00F0F7F0; //cor de fundo do item (Lembrando que podemos printar um Imagem). // Canv.Brush.Color := clAppWorkSpace; ACanvas.Rectangle(Arect); //Desenharemos uma retangulo em todo o Item selecionado. ACanvas.pen.Color:=$00B8D8B8; //seta a cor da borda do retangulo. InflateRect (ARect, -1,-1); end else ACanvas.Brush.Color:=$00B8D8B8; //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,´Cadastro´);//local onde sera escrito o texto ARect