Mudar Cor de Fundo do Panel na Status Bar

Question

Ol�,J� procurei aqui no f�rum, mas o q achei, testei e n�o funcionou. Estou tentando fazer assim:[code:1:f1888c5b44]procedure TFmPrincipal.StatusBar1DrawPanel(StatusBar: TStatusBar;  Panel: TStatusPan...

Vitor Alcantara · Answer

Tente mudar a propriedade Style do panel pra psOwnerDraw, acho que isso deve resolver seu caso....

Dbergkamps10 · Answer

Ol�,Esqueci de colocar no post q ja tinha mudado este propriedade. :wink: Mesmo assim nada acontece.AttDatlon...

Vitor Alcantara · Answer

Voc� est� colocando o indice/index do panel corretamente? Lembre que a contagem come�a do 0 (zero), por exemplo se voc� tiver dois panels no StatusBar o primeiro panel vai ter indice/Index 0 (zero) e o segundo vai ter indice 1.

Olha ai um exemplo que utilizo em minha aplica��o, funciona beleza.

procedure TFormPrincipal.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
 with StatusBar1.Canvas do
 begin
  FillRect(Rect);


  //Definir Font e Style
  Font.Name := �Verdana�;
  Font.Color := ClBlack;
  
  //Font.Style := [FsBold];


  //Escreve o texto em cada panel
  if Panel.Index = 0 then
  begin
    Font.Color := clBlue;
    //ImageList1.Draw(StatusBar1.Canvas,Rect.Left+5,Rect.Top+1,3);
    TextOut(Rect.Left +25, Rect.Top + 1,Panel.Text);
  end;
  if Panel.Index = 1 then
  Begin

    Font.Color := ClRed;
    TextOut(Rect.Left +1 , Rect.Top + 1, Panel.Text);
  end;
  if Panel.Index = 2 then
  Begin
    //ImageList1.Draw(StatusBar1.Canvas,Rect.Left+5,Rect.Top+1,4);
    TextOut(Rect.Left+25 , Rect.Top + 1,Panel.Text);
  end;
  if Panel.Index = 3 then
  Begin
    //ImageList1.Draw(StatusBar1.Canvas,Rect.Left+5,Rect.Top+1,5);
    TextOut(Rect.Left+25 , Rect.Top + 1,Panel.Text);
  end;
 end;

end;

Dbergkamps10 · Answer

Ol�,Vlw Vitor, funcionou blz!!!!!!! :D  :D  :D  :D Como eu e um amigo meu dizemos, essa � pra guardar em nossos cora��es.Obrigado e at� +...AttDalton...

F�rum Mudar Cor de Fundo do Panel na Status Bar #352600