Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Drehpoti zeichnen

    Delphi
    by marabu, 31. Mai 2006
  Ich habe mal den Code für einfarbige Darstellung geschrieben. Wenn du noch eine Skala definierst, dann kannst du die Abschnitte verschiedenfarbig zeichnen:
  
  
  procedure DrawPercent(img: TImage; n, percent: Integer);
  const
  OUTER_OFFSET = 5;
  INNER_OFFSET = 5;
  var
  alpha, beta, ro, ri, xa, ya, xb, yb, mx, my: Integer;
  begin
• Forum: Object-Pascal / Delphi-Language

  Re: Drehpoti zeichnen

    Delphi
    by marabu, 31. Mai 2006
  Hi Pinki,
  
  rechne nie mit Float-Werten, wenn du es vermeiden kannst.
  
  
  uses
  Math;
  
  procedure DrawLeds(img: TImage; n: Integer);
  const