Komponentensuche: Kreisrunde Led Anzeige / Display

[kurtm1]

Ich suche für ein Projekt eine Komponente die im wesentlichen dem angehängten Bild gleichen soll:


Der ganze Ring soll gedreht werden können. Mir ist klar dass dies alles auch mit Bildern machbar wäre, die ständigen Bildtransformationen sind aber sicher nicht optimal für die CPU Belastung usw.

[mkinzler]

http://torry.net/pages.php?id=120

[bitsetter]

Zitat:

Zitat von kurtm1

Der ganze Ring soll gedreht werden können. Mir ist klar dass dies alles auch mit Bildern machbar wäre, die ständigen Bildtransformationen sind aber sicher nicht optimal für die CPU Belastung usw.

Hi,

man könnte zur Not das Ganze auch selber zeichnen:

Delphi-Quellcode:

procedure Ring(cav: TCanvas; AussenRad, InnenRad, GradA, GradB: integer);
var
  AussenDM: integer;
begin
  AussenDM :=  AussenRad * 2;
  with cav do
  begin
    Brush.Color := clGray;
    Pen.Color := Brush.Color;
    Pie(0, 0, AussenDM, AussenDM, trunc(AussenRad + AussenRad * sin(GradA / 180 * Pi)),
      trunc(AussenRad - AussenRad * sin((90 - GradA) / 180 * Pi)), trunc(AussenRad + AussenRad * sin(GradB / 180 * Pi)),
      trunc(AussenRad - AussenRad * sin((90 - GradB) / 180 * Pi)));
    Brush.Color := clWhite;
    Pen.Color := Brush.Color;
    Ellipse(AussenRad - InnenRad, AussenRad - InnenRad, AussenRad + InnenRad, AussenRad + InnenRad);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Width := 200;
  Image1.Height := 200;
  Ring(Image1.Canvas, 100, 67, 30, 45);
end;

[Robert Marquardt]

Es duerfte effizienter sein eine vorgefertigte Bitmap mit den kompletten Ring nehmen und die Luecke malen.
Insgesamt duerfte JvLED aus der JVCL fast die Komponente sein, die du brauchst. Der Unterschied duerfte nur die Erstellung der Bitmaps sein.