Colorpanel berechnen

[Muetze1]

Moin!

Delphi-Quellcode:

    for LCountY := 0 to ABitmap.Height - 1 do  // -1 
    begin
      LTmpColor2 := GetBlendColor(LTmpColor1, ADestColor2, Trunc(LCountY * LFactorY));
      ABitmap.Canvas.Pixels[LCountX, LCountY] := LTmpColor2;
    end;

MfG
Muetze1