Wyswietlenie 2 roznych kolorow w Statusbar

2017-11-09T10:48:27+01:00

Rejestracja: dni
Ostatnio: dni

Czy da się i ew jak wyświetlić w TStatusBar info w 2 różnych kolorach?
Chodzi o SimpleText
StatusKolorZielony + StatusKolorCzerwony

abrakadaber

2017-11-09T13:05:41+01:00

Rejestracja: dni
Ostatnio: dni
Postów: 6610

musisz ręcznie rysować w zdarzeniu OnDrawPanel http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/OnDrawPanel_(Delphi)

Clarc

2017-11-09T13:07:34+01:00

Rejestracja: dni
Ostatnio: dni

Tworzysz panele w StatusBarze, ustawiasz styl na OwnerDraw, a z zdarzeniu StatusBara dla OnDrawPanel wpisujesz np.:

Kopiuj

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  case panel.Index of
    0 : begin
          StatusBar.Canvas.Font.Color := clGreen;
          StatusBar.Canvas.TextRect(Rect,Rect.Left,Rect.Top, Panel.Text);
        end;
    1 : begin
          StatusBar.Canvas.Font.Color := clRed;
          StatusBar.Canvas.TextRect(Rect,Rect.Left,Rect.Top, Panel.Text);
        end;
  end;
end;