随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253


uses ExtCtrls;

procedure TForm1.FormPaint(Sender: TObject);
var
  R1, R2: TRect;
begin
  R1 := Rect(10, 10, 150, 50);
  Frame3D(Canvas, R1, clBlack, clSilver, 1);

  R2 := Bounds(10, 80, 140, 40);
  Frame3D(Canvas, R2, clRed, clBlue, 1);
end;

posted on 2009-12-15 10:08  万一  阅读(...)  评论(...编辑  收藏