ImageEn, unit ieXCanvasUtils

IEDrawGradientToComboListBoxItem


Declaration

procedure IEDrawGradientToComboListBoxItem(ControlCanvas: TCanvas;
                                           CanvasRect: TRect;
                                           ControlEnabled: Boolean;
                                           GradientDir: TIEGDIPlusGradient;
                                           FromColor, ToColor: TColor;
                                           const Text: string);


Description

Draw a gradient to a combo box or list box

Note: Defined in iexCanvasUtils unit


Example

// Note: mbGradient.Style = csOwnerDrawFixed, and ideally a big ItemHeight e.g. 40
// It is filled with the items of TIEGDIPlusGradient, i.e. "None" down to "Bottom Right"
procedure Tfmain.cmbGradientDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
const
  Grad_Color1 = clRed;
  Grad_Color2 = clBlue;
begin
  IEDrawGradientToComboListBoxItem( TComboBox( Control ).Canvas, Rect,
                                    Control.Enabled,
                                    TIEGDIPlusGradient( Index ),
                                    Grad_Color1, Grad_Color2,
                                    TComboBox( Control ).Items[ Index ]);
end;


See Also

 GradientFillRect
 IEDrawShapeToComboListBoxItem
 IEDrawComboListBoxItem