bulc
09-02-2018, 13:26:05
Uso este código para cambiar el color del texto enviado a un Panel de un TStatusBar pero no funciona. ¿Qué debo cambiar?
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...
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...