faz assim ó:
procedure TFmenu.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if Panel.Index=1 then
begin
StatusBar.Canvas.Font.Color := clgreen;
StatusBar.Canvas.brush.Color:=$D1D1D1;
StatusBar.Canvas.FillRect(Rect);
StatusBar.Canvas.TextOut(Rect.left+2, Rect.top+1, 'aaaaaaaa');
end;
if Panel.Index=3 then
begin
StatusBar.Canvas.Font.Color := clRed;
StatusBar.Canvas.brush.Color:=$D1D1D1;
StatusBar.Canvas.FillRect(Rect);
StatusBar.Canvas.TextOut(Rect.left+2, Rect.top+1, 'aaaaaaaa');
end;
end;
----- Original Message -----
From: "lixeirod" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, November 12, 2004 3:23 PM
Subject: [delphi-br] StatusBar
Porque quando definimos a cor da fonte de uma StatusBar o texto não
fica na cor desejada?
O tipo da fonte e o tamanho sim, mas a cor não muda.
O que é necessário fazer para mudar a cor?
Valeu!
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
