hintergrundbilder / balken mit rundungen

[antonio2604]

Hi ich fange gerade an mit delphi an und möchte gern einen verlauf auf meine oberfläche bekommen als hintergrund der sich von der breite her anpast wie kann ich das realiseieren.

genaus so abe ich eine balken von 30 pix höhe und möchte eine grafik mit verlauf uf diesen balken legen .
ist eigendlich ganz einfach für den anfang doch ich möchte das sich dieser verlauf anpsst je nach größe des balkes.

z.B.
rundung (feste größen) mittelstück( in der breite Scallierbar) rundungende (feste größe)

also ich sag schon mal vor ab vielen vielen dank.

[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.