填充了一个矩形，怎么样让这个矩形(R)有一种突起的感觉？(20分)

N

nnnnyyyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-29

• #1

填充了一个矩形，怎么样让这个矩形(R)有一种突起的感觉？
begin
var
R: TRect;
begin
C := TControlCanvas.Create;
try
C.Control := Self;
with C do
begin
R := Rect(ClientRect.Right - 20, ClientRect.Top, ClientRect.Right, ClientRect.Bottom);

Brush.Color := clRed;

Canvas.FillRect(R);
end;

 

N

nnnnyyyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-30

• #2

有没有知道？

 

F

fxh7622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-30

• #3

其实填充的时候用双层就可以了，例如：下面添白色，上面错一个象素填充黑色，然后就会邮这个感觉了！

 

D

dreamisx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-30

• #4

看看Button嘛,就是左边及上边用浅色(如白色)画;右边及下边用深色画(如黑色);注意,只要画一线条即可.

 

X

x_horse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-30

• #5

要想突起肯定不能用一种颜色了，这个应该是美术学的问题
找个简单的有立体感的平面画，照着填充一个就行
呵呵

 

Z

zj_mpy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-30

• #6

在坐标（1，1）先画白色巨形，并填充，再在最右边和下边画黑色线

 

W

waterspace

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-31

• #7

uses ExtCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var C: TControlCanvas;
R: TRect;
begin
C := TControlCanvas.Create;
C.Control := Self;
R := Rect(20, 20, 95, 45);
C.Brush.Color := clBtnFace;
C.FillRect(R);
Frame3D(C, R, clBtnHighlight, clBtnShadow, 2);
end;