GDI+ Graduelles Rechteck (transparent)

[Dunkelbunt27]

Hallo Delphi-PRAXIS,

ich möchte mit Hilfe von GDI+ ein Rechteck erzeugen, das einen Farbverlauf von
Grau (oben) zu weiß (Mitte) zu Grau (unten) beeinhaltet.
Das Rechteck soll außerdem semitransparen sein, also müsste Alpha = 80% mit berücksichtigt werden.

Das Grundprinzip habe ich so aus der Demo, ist aber ziemlich daneben...

Delphi-Quellcode:

  
var   Graphics: IGPGraphics;
[...]

  Graphics := TGPGraphics.Create(Form1.Canvas.Handle);
  {Farben} //Die Farben passen nicht, war nur zum testen
   Farbe1.Initialize(255, 120, 248, 253);
   Farbe2.Initialize(255, 200, 216, 250);

  {Zeichnen}
  Brush := TGPLinearGradientBrush.Create(
    TGPPoint.Create(0, 10), TGPPoint.Create(200, 10),
    Farbe1,
    Farbe2);
  Pen := TGPPen.Create(Brush);

  Waagen.FillRectangle(Brush, 0, 155, 500, 30);

Kennt sich damit jemand aus?
Soll am Ende wie im Anhang aussehen.

[Bummi]

IMHO nahe genug daran um es nach Deinen Wünschen anzupassen.

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
const
  RelativeIntensities: array [0 .. 2] of Single = (0.0, 0.9, 0.0);
  RelativePositions: array [0 .. 2] of Single = (0.0, 0.6, 1.0);
var
  Graphics: IGPGraphics;
  Blend: IGPBlend;
  Brush: IGPLinearGradientBrush;
  F1, F2: TGPColor;
  y1, y2: Integer;
begin
  y1 := 0;
  y2 := 30;
  { "normle" Ellpise für Transparenztest
    canvas.Brush.Color := clBlue;
    Canvas.Ellipse(0,0,500,500);
    }
  Graphics := TGPGraphics.create(Canvas.Handle);
  F1.Initialize(255 * 80 div 100, 250, 250, 250);
  F2.Initialize(255 * 80 div 100, 100, 100, 100);
  // harte Übergänge verhindern

  Brush := TGPLinearGradientBrush.create(TGPPoint.create(0, y1 - 2)
    // harte Übergänge verhindern
      , TGPPoint.create(0, y2 + 2), F1, F2);

  Blend := TGPBlend.create(RelativeIntensities, RelativePositions);
  Brush.Blend := Blend;
  Graphics.FillRectangle(Brush, y1, 155, 500, y2);
end;

[Dunkelbunt27]

Danke, das sieht echt gut aus

EDIT:
Beim Verschieben dieser "Leiste" verschiebt sich der Mittelpunkt des Farbverlaufs,
also ich weiß nicht wie ich das beschreiben soll, deshalb hab ich das ganze mal zurecht gemacht und angehängt.

Ich hätte es lieber, wenn die Leiste dauerhaft wie die Datei aus dem ersten Post aussieht, auch
wenn man sie an einer anderen Stelle neu zeichnet...

[Bummi]

Delphi-Quellcode:

  Brush := TGPLinearGradientBrush.Create(TGPPoint.create(Y, Y + y1-2),
    TGPPoint.create(Y, Y + y2 + 2), F2, F1);

[Dunkelbunt27]

Und nochmals Danke!

[Bummi]

ist mit immer ein Fest