Suche Statusbar, ähnlich Progressbar [erledigt]

[Michl]

Moin,

kennt jemand eine fertige Komponente, mit der man einen Status ähnlich einer Progressbar darstellen kann? Ich meine sowas in der Art (schnell per Gimp erstellt):

[sstvmaster]

Hast du schon mal bei Eye-Candy Controls nachgeschaut ob was für dich dabei ist?

https://wiki.freepascal.org/Eye-Candy_Controls

Download via OPM in Lazarus.

[wp_xyz]

Ich weiß nicht, ist es das wert, sich in die Abhängigkeit von Fremdkomponenten zu begeben? Basierend auf einer TPaintBox und in einen Frame gepackt, müsste das doch mit ein paar Zeilen Code zu erledigen sein.

[six1]

ich habe so Dinge auch schon einfach auf die Canvas eines Panel gezeichnet.

[Michl]

Hast du schon mal bei Eye-Candy Controls nachgeschaut ob was für dich dabei ist?

Wenn ich mir die Images so anschaue, wird immer alles von links weg gezeichnet. Hilft mir leider nicht, danke trotzdem.

Ich weiß nicht, ist es das wert, sich in die Abhängigkeit von Fremdkomponenten zu begeben?

Da es nur ein kleines privates Projekt für einen Bekannten ist, wäre das mir egal. Es sollte nur schnellst möglich erledigt sein.

OK, dann zeichne ich diese selbst. Danke an alle fürs mitdenken. Hätte ja sein können, daß ich es einfach hätte zusammenklicken können.

[six1]

Mit Shapes kann man bisschen abkürzen; muss man nur Größe und Position festlegen.
Im einfachsten Fall ein TPanel und ein TShape

[gladio]

In den RX-Komponenten ist sowas dabei.
Vielleicht taugt das für deine Zwecke.

[Michl]

In den RX-Komponenten ist sowas dabei.
Vielleicht taugt das für deine Zwecke.

Habe mir das Package installiert, konnte da aber sowas in der Art nicht entdecken. Keine Ahnung.

Wenn es jemand mal braucht, ich habe das jetzt selbst umgesetzt und meinen Komponenten zugefügt, zu finden per SVN https://svn.code.sf.net/p/michlpackages ... hlcontrols:

Code: Alles auswählen

procedure TTrendBar.Paint;
var
  LSize: Integer;
begin
  inherited Paint;
  Canvas.Brush.Color := ClientColor;
  Canvas.FillRect(1, 2, Width - 1, Height - 2);

  Canvas.Brush.Color := BorderColor;
  Canvas.FrameRect(0, 1, Width, Height - 1);
  Canvas.Pen.Color := BorderColor;
  Canvas.Line(Width div 2, 0, Width div 2, Height);

  if Value > 0 then
  begin
    Canvas.Brush.Color := ValuePositiveColor;
    LSize := Min(Width - Width Div 2 - 4, Trunc(Value / 200 * (Width - 4)));
    Canvas.FillRect(Width div 2 + 1, 4, Width div 2 + 1 + LSize, Height - 4);
  end
  else if Value < 0 then begin
    Canvas.Brush.Color := ValueNegativeColor;
    LSize := Max(3, Width div 2 + Trunc(Value / 200 * (Width - 4)));
    Canvas.FillRect(LSize, 4, Width div 2, Height - 4);
  end;
end;

Sieht dann hier so aus: