Czy da się i ew jak wyświetlić w TStatusBar info w 2 różnych kolorach?
Chodzi o SimpleText
StatusKolorZielony + StatusKolorCzerwony
0
1
musisz ręcznie rysować w zdarzeniu OnDrawPanel http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/OnDrawPanel_(Delphi)
1
Tworzysz panele w StatusBarze, ustawiasz styl na OwnerDraw, a z zdarzeniu StatusBara dla OnDrawPanel wpisujesz np.:
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;