smaskdata.pas

Alpha Controls 5.40,delphi上的alpha开发源码控件包。没有密码。5.40版的最新版。

unit sMaskData;
{$I sDefs.inc}

interface

uses Windows, Graphics, sConst, sGradient, jpeg;

type

  TsMaskData = record
    Bmp          : TBitmap;
    ClassName    : string;
    PropertyName : string;
    R            : TRect;             // Rectangle of the image piece in MasterBitmap
    ImageCount   : smallint;          // Count of States, allowed for control (count of images in piece)
    MaskType     : smallint;          // Type of used mask (0 - not used, 1 - AlphaMask, 2... - reserved)
    BorderWidth  : smallint;
    DrawMode     : smallint;          // Fill type if ImgType is texture
    ImgType      : TacImgType;        // itisaBorder, itisaTexture, itisaGlyph //, itisanOldType (default)
    Manager      : TObject;

    WL           : smallint;          // Border width (Reserved)
    WT           : smallint;
    WR           : smallint;
    WB           : smallint;
  end;

  TsPatternData = record
    Img          : TJPegImage;
    ClassName    : string;
    PropertyName : string;
  end;

  TsGeneralData = record
//////////// GENERAL PROPERTIES /////////
    ParentClass : string;
    ClassName : string;
    Color : TColor;
    Bevel : TsControlBevel;                // Deprecated in v5
    FontColor : array [1..5] of integer;
    HotFontColor : array [1..5] of integer;

    ReservedBoolean : boolean;
    // ---- Effects -----                  // Deprecated in v5
    ShadowBlur : integer;                  // Deprecated in v5
    ShadowColor : TColor;                  // Deprecated in v5
    ShadowDontUse : boolean;               // Deprecated in v5
    ShadowEnabled : boolean;               // Deprecated in v5
    ShadowOffset : integer;                // Deprecated in v5
    ShadowTransparency : integer;          // Deprecated in v5
/////////// PANELS PROPERTIES ////////////
    Transparency : integer;
    GradientPercent : integer;
    GradientData : string;
    GradientArray : TsGradArray;
    ImagePercent : integer;
///////////// BUTTONS PROPERTIES /////////
    ShowFocus : boolean;
    // ---- BtnEffects ----
    FadingEnabled : boolean;
    FadingIntervalIn : integer;            // Deprecated in v5
    FadingIntervalOut : integer;           // Deprecated in v5
    FadingIterations : integer;
    // ---- PaintingOptions -----
    HotColor : TColor;
    HotTransparency : integer;
    HotBevel : TsControlBevel;             // Deprecated in v5
    HotGradientPercent : integer;
    HotGradientData : string;
    HotGradientArray : TsGradArray;
    HotImagePercent : integer;
//////////// EDITORS PROPERTIES ///////////
    BorderColor1 : TColor;                 // Deprecated in v5
    BorderColor2 : TColor;                 // Deprecated in v5
  end;

  TsMaskArray = array of TsMaskData;
  TsPatternArray = array of TsPatternData;
  TsGeneralDataArray = array of TsGeneralData;

implementation

end.