Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cambiar TStatusBar Text color (https://www.clubdelphi.com/foros/showthread.php?t=92816)

bulc 09-02-2018 14:26:05

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...

Casimiro Notevi 09-02-2018 14:54:05

https://www.clubdelphi.com/foros/showthread.php?t=63197


La franja horaria es GMT +2. Ahora son las 10:26:55.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi