suichecklistbox.pas

新颖按钮控件

////////////////////////////////////////////////////////////////////////////////
//
//
//  FileName    :   SUICheckListBox.pas
//  Creator     :   Shen Min
//  Date        :   2002-09-07
//  Comment     :
//
//  Copyright (c) 2002-2003 Sunisoft
//  http://www.sunisoft.com
//  Email: [e-mail]
//
////////////////////////////////////////////////////////////////////////////////

unit SUICheckListBox;

interface

uses Windows, Messages, CheckLst, Graphics, Forms, Classes, Controls;

type
    TsuiCheckListBox = class(TCheckListBox)
    private
        m_BorderColor : TColor;

        procedure SetBorderColor(const Value: TColor);
        procedure WMPAINT(var Msg : TMessage); message WM_PAINT;
        procedure WMEARSEBKGND(var Msg : TMessage); message WM_ERASEBKGND;
        function GetBorderStyle() : TBorderStyle;
        procedure SetBorderStyle(const Value : TBorderStyle);
        function GetBorderWidth: TBorderWidth;
        procedure SetBorderWidth(const Value: TBorderWidth);

    public
        constructor Create(AOwner : TComponent); override;

    published
        property BorderColor : TColor read m_BorderColor write SetBorderColor;

        property BorderStyle : TBorderStyle read GetBorderStyle write SetBorderStyle;
        property BorderWidth : TBorderWidth read GetBorderWidth write SetBorderWidth;
    end;


implementation

uses SUIPublic, SUIThemes;

{ TsuiCheckListBox }

constructor TsuiCheckListBox.Create(AOwner: TComponent);
begin
    inherited;

    Flat := True;
    inherited BorderStyle := bsNone;
    BorderWidth := 2;

    m_BorderColor := GetBorderColor(TCustomForm(AOwner));
end;

function TsuiCheckListBox.GetBorderStyle: TBorderStyle;
begin
    Result := bsSingle;
end;

function TsuiCheckListBox.GetBorderWidth: TBorderWidth;
begin
    Result := 1;
end;

procedure TsuiCheckListBox.SetBorderColor(const Value: TColor);
begin
    m_BorderColor := Value;
    Repaint();
end;

procedure TsuiCheckListBox.SetBorderStyle(const Value: TBorderStyle);
begin
    inherited BorderStyle := bsNone;
end;

procedure TsuiCheckListBox.SetBorderWidth(const Value: TBorderWidth);
begin
    inherited BorderWidth := 1;
end;

procedure TsuiCheckListBox.WMEARSEBKGND(var Msg: TMessage);
begin
    inherited;

    DrawControlBorder(self, m_BorderColor, Color);
end;

procedure TsuiCheckListBox.WMPAINT(var Msg: TMessage);
begin
    inherited;

    DrawControlBorder(self, m_BorderColor, COlor);
end;

end.