请问如何实现空挡接龙中某一张牌被选中后变色的效果？(100分)

X

xman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #1

如题，希望能讲解原理和例子

 

X

xman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #2

补充一点，我用的是timage控件来显示图象

 

3

3368aa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #3

好象canvas里有一个反转颜色的方法，可以去找一下，我懒得找。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #4

主要是设置 CopyMode,当然你可以设置其它值，做一个Mask的图像。

procedure TForm1.ImageClick(Sender: TObject);
var
ARect: TRect;
begin
with Image.Canvas do
begin
CopyMode := cmDstInvert;
ARect := Rect(0, 0, Image.Width, Image.Height);
CopyRect(ARect, Image.Canvas, ARect);
// CopyMode := cmSrcCopy; { restore the copy mode }
end;
end;

 

X

xman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #5

让我试试

 

X

xman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-28

• #6

多人接受答案了。