TplTextureSettings

type TplTextureSettings = class(TPersistent)

public

  BlockRepaint: Boolean;

  FRegion: THandle;

  Hw: HWND;

  function CreateRegion();

  procedure SetGradType();

  procedure SetOffsetX();

  procedure SetOffsety();

  procedure SetSize();

  procedure SetShadeHeight();

  procedure SetShadeDiffusion();

  procedure SetShadeAngle();

  procedure SetShadeColor();

  procedure SetShadeShow();

  procedure SetShape();

  procedure SetTexture();

  procedure SetTType();

  procedure SetSmooth();

  procedure SetScale();

  procedure SetGrad1();

  procedure SetGrad2();

  procedure SetBCol();

  procedure SetBlendCol();

  procedure SetBlend();

  procedure Region;

  constructor Create;

  destructor Destroy; override;

published

  property AlphaBlendColor: TColor; [rw]

  property AlphaBlend: Byte; [rw]

  property BorderColor: TColor; [rw]

  property Moveable: Boolean; [rw]

  property Sizeable: Boolean; [rw]

  property GradientColor1: TColor; [rw]

  property GradientColor2: TColor; [rw]

  property GradientType: TGradType; [rw]

  property GradientX0: Integer; [rw]

  property GradientY0: Integer; [rw]

  property Texture: TBitmap; [rw]

  property TextureType: TTextureType; [rw]

  property TextureScale: Double; [rw]

  property TextureSmooth: Boolean; [rw]

  property ShadeAngle: Integer; [rw]

  property ShadeColor: TColor; [rw]

  property ShadeDiffusion: Integer; [rw]

  property ShadeHeight: Integer; [rw]

  property ShadeShow: Boolean; [rw]

  property Shape: TBitmap; [rw]

  property OnChange: TNotifyEvent; [rw]

end;

TplTextureSettings

TObject