type tcustomsplitter = class(tgraphiccontrol)
{**
    @explan(说明)调整分割控件
**}
    function create(AOwner);
    begin
        inherited;
        Caption := "";
        color := 	0xEED2BC;        
        Width := 6;
        Height := 100;
    end 
    function paint();override;
    begin
        inherited;
        if Border then 
        begin
            r := ClientRect;
            dc := Canvas;
            dc.pen.color := 0;
            dc.pen.Width := 2;
            dc.draw("polygon",array(r[0:1],r[array(2,1)],r[array(2,3)],r[array(0,3)],r[0:1]));
        end 
    end 
    function SetAlign(a);override;
    begin
        inherited;
    end 
end