Gradient Filler

Usage

<delphi>// Gradientfiller for the form background It's a 50/50 scale so both gradients meet in the middle. gfPaint := TGradientFiller.Create(gdHorizontal); gfPaint.AddGradient(clYellow, clBlue, gdHorizontal, 50); gfPaint.AddGradient(clBlue, clGreen, gdHorizontal, 50); //... // Form paint: gfPaint.Draw(self.Canvas, self.ClientRect);</delphi>

Screenshots

Downloads

Gradient Filler 1.0 OOGradient.zip (6.13 KB)