Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Hilfe bei Farbverlauf procedure

    Delphi
    by Kalfany, 31. Aug 2009
  Sagen wirs so ... ich hab von den 5% die ich gelesen hab 95% nicht verstanden :mrgreen: (Ich schieb das ganze jetzt mal auf meine akt. Medikamente :roteyes: :tongue: ) Aber evtl. kann jemand anders das Bsp. ja mal brauchen.
• Forum: Multimedia

  Re: Hilfe bei Farbverlauf procedure

    Delphi
    by Kalfany, 31. Aug 2009
  Folgendes Bsp. zeichnet einen Verlauf von links nach rechts.
  
  procedure Gradient(Canvas: TCanvas; Width,Height: Integer; BeginColor,EndColor: TColor);
  var
  RGBValue: array of Byte;
  RGBDiff: array of Integer;
  Rect: TRect;
  i: Integer;
  R, G, B: Byte;
  begin