Komponentensuche: Kreisrunde Led Anzeige / Display

[bitsetter]

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;