StatusBar

Delphi

21/02/2004

Como que eu faço para mudar a cor da fonte do StatusBar?
É possivel mudar de um único panel?
Agradeço a quem puder ajudar-me.


Jose

Jose

Curtidas 0

Respostas

Jasig Aurumalfa

Jasig Aurumalfa

21/02/2004

Pode-se fazer isso usando o editor visual:
Basta clicar no seu StatusBar...
E procurar naquela tabelinha: Font...
Se você quizer eu posto uma resposta com as imagens mostrando como fazer...
Espero ter ajudado...


GOSTEI 0
Jose

Jose

21/02/2004

Ja fiz isso e não mudou nada. Motivo pelo qual estou precisando de ajuda
Obrigado mesmo assim.


GOSTEI 0
Fórum Vini

Fórum Vini

21/02/2004

Olá,
mude a propriedade Style para psOwnerDraw de todos os panels da sua StatusBar.
Coloque esse código no evento OnDrawPanel da StatusBar:
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  case Panel.Index of
    0: StatusBar.Canvas.Font.Name:= ´Comic Sans MS´;
    1: StatusBar.Canvas.Font.Name:= ´Arial´;
    //Siga esse modelo:
    //Indice_do_panel: StatusBar.Canvas.Font.Name:= ´Nome da fonte´;
  end;
  //Pode trocar o +1 pelo tamanho da margem que você quiser
  StatusBar.Canvas.TextOut(Rect.Left+1, Rect.Top,  Panel.Text);
end;


Espero ter ajudado.
Vinicius.


GOSTEI 0
POSTAR