ImageEn, unit iegdiplus

TIECanvas.GradientFillRect

TIECanvas.GradientFillRect


Declaration

procedure GradientFillRect(aRect: TRect; Dir: TIEGDIPlusGradient = gpgVertical);
procedure GradientFillRect(aRect: TRect; FromColor, ToColor: TColor; Dir: TIEGDIPlusGradient = gpgVertical);


Description

Fill an area with a gradient.

With first overload:
From Color is specified by Brush.Color and Brush.Transparency
To Color is specified by Brush.BackColor and Brush.BackTransparency




Example

// Fill image with a vertical gradient from yellow to red
ImageEnView1.IEBitmap.IECanvas.GradientFillRect( Rect( 0, 0, ImageEnView1.IEBitmap.Width, ImageEnView1.IEBitmap.Height ), clYellow, clRed, gpgVertical );
ImageEnView1.Update();



See Also

IEDrawGradientToComboListBoxItem