xpctrlstyle.pas

来自「非常好的xp界面控件」· PAS 代码 · 共 47 行

unit xpCtrlStyle;

interface

uses
  Classes, xpReg;



type
  //Rounded corner type
  TRoundedCorner = (rcTopLeft, rcTopRight, rcBottomLeft, rcBottomRight);
  TRoundedCorners = Set of TRoundedCorner;

  //Standart styles
  TxpWindowStyle = (xwsCustom, xwsXPBlue, xwsXPSilver, xwsXPOlive, xwsMSN, xwsICQ);

  TxpControlStyle = class (TPersistent)
  private
    FActive      : Boolean;
  protected
    procedure SetActive (AValue : Boolean); virtual;
  public
    constructor Create; 
  published
    property Active : Boolean read FActive write SetActive default true;
  end;

implementation

constructor TxpControlStyle.Create;
begin
  inherited;
  FActive := True;
end;

procedure TxpControlStyle.SetActive (AValue : Boolean);
begin
  if FActive <> AValue then
  begin
    FActive := AValue;
  end;
end;


end.