The SDL Component Suite is an industry leading collection of components supporting scientific and engineering computing. Please visit the SDL Web site for more information....



Interface of SDL_GradFl

const
{$IFDEF PAIDVERS}
  SDLVersionInfo = 'gradfl_r1050_full';
  IsLightEd = false;
{$ELSE}
  SDLVersionInfo = 'gradfl_r1050_lighted';
  IsLightEd = true;
{$ENDIF}
  release = 1050;

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);
  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;









Last Update: 2012-Oct-20