const
{$IFDEF PAIDVERS}
SDLVersionInfo = 'gradfl_r1210_full';
IsLightEd = false;
{$ELSE}
SDLVersionInfo = 'gradfl_r1210_lighted';
IsLightEd = true;
{$ENDIF}
Release = 1210;
type
{$IFDEF PAIDVERS}
TGradType = (gtHoriz, gtVert, gtMidBandHoriz, gtMidBandVert, gtEllipticFull,
gtEllipticFit, gtRadial, gtDiagGrid, gtRect);
{$ELSE}
TGradType = (gtHoriz, gtVert, gtMidBandHoriz, gtMidBandVert);
{$ENDIF}
TGridMode = (gmNone, gmHoriz, gmVert, gmBoth);
{$IFDEF GE_LEV29}
[ComponentPlatformsAttribute(pidWin32 or pidWin64 or pidWin64x)]
{$ENDIF}
TGradFill = class(TGraphicControl)
private
FNrColors : integer;
FGradType : TGradType;
FColorFirst : TColor;
FColorLast : TColor;
FColFirstOrg : TColor;
FColLastOrg : TColor;
FColorsFlipped : boolean;
FFrameStyle : TFrameStyle;
FGridMode : TGridMode;
FGridColor : TColor;
FOnPaint : TNotifyEvent;
procedure SetColorLast(Value: TColor);
procedure SetColorFirst(Value: TColor);
procedure SeTGradType(Value: TGradType);
procedure SetFrameStyle(Value: TFrameStyle);
procedure SetNrColors(Value: integer);
procedure SetColorFlipped (Value: boolean);
procedure SetGridColor (Value: TColor);
procedure SetGridMode (Value: TGridMode);
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
procedure DrawGradient (var bmp: TBitMap);
published
property ColorFlipped: boolean
read FColorsFlipped write SetColorFlipped;
property ColorFirst: TColor
read FColorFirst write SetColorFirst;
property ColorLast: TColor read FColorLast write SetColorLast;
property FillType: TGradType
read FGradType write SetGradType default gtHoriz;
property FrameStyle: TFrameStyle
read FFrameStyle write SetFrameStyle;
property GridColor: TColor read FGridColor write SetGridColor;
property GridMode: TGridMode read FGridMode write SetGridMode;
property NrColors: integer
read FNrColors write SetNrColors default 16;
property Align;
property ParentShowHint;
property ShowHint;
property Visible;
property OnClick;
property OnDblClick;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
end;
|