30 lines
663 B
Plaintext
30 lines
663 B
Plaintext
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
|