Ver Mensaje Individual
  #1  
Antiguo 09-02-2018
Avatar de bulc
bulc bulc is offline
Miembro
 
Registrado: jun 2010
Posts: 412
Reputación: 14
bulc Va por buen camino
Cambiar TStatusBar Text color

Uso este código para cambiar el color del texto enviado a un Panel de un TStatusBar pero no funciona. ¿Qué debo cambiar?
Código Delphi [-]
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
  const Rect: TRect);
begin
with StatusBar1.Canvas do
  begin
     Font.Color := clRed;
     TextOut(Rect.left, Rect.top, Panel.Text);
  end;
end;
Lo uso para avisar del TDataSource1.Status en Edición o Inserción...
Responder Con Cita