hintergrundbilder / balken mit rundungen

[Mirilin]

Hi

Delphi-Quellcode:

procedure DrawVerlauf(Cnvs : TCanvas;Rect : TRect);
var
  w,i,j   : Integer;
begin
  w := Rect.Right-Rect.Left;
  for i := Rect.Left to Rect.Right do
  begin
    for j := Rect.Top to Rect.Bottom do
    begin
      Cnvs.Pixels[i,j] := rgb( round((i-Rect.Left)/w*255),round((i-Rect.Left)/w*255),255 );
    end;
  end;
end;

procedure TMainForm.PaintBoxPaint(Sender: TObject);
begin
  DrawVerlauf(PaintBox.Canvas,PaintBox.BoundsRect);
end;

Wird wohl nicht die beste und effektifste Lösung sein, aber, es ist eine.