怎么能让部分像素变白 ( 积分: 100 )

P

psyxgq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-22

• #1

属于新手，提问有说不明白的地方还望指教。
想实现下面的描述：
整个电脑屏幕是黑色的背景，每按动一次button按钮，在屏幕左上方一个固定（200*100pixel）的范围内，随机的找出1000个像素点，让这些像素点成为白色，当再次按下按钮，原来的1000个像素点恢复，又找出新的1000个像素点成为白色。
上面的过程怎么实现？能给出代码么？谢谢！

 

P

psyxgq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-22

• #2

属于新手，提问有说不明白的地方还望指教。
想实现下面的描述：
整个电脑屏幕是黑色的背景，每按动一次button按钮，在屏幕左上方一个固定（200*100pixel）的范围内，随机的找出1000个像素点，让这些像素点成为白色，当再次按下按钮，原来的1000个像素点恢复，又找出新的1000个像素点成为白色。
上面的过程怎么实现？能给出代码么？谢谢！

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-23

• #3

除了你的程序有这个功能外，不是显示器就是显示卡有问题。

 

4

41426277

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-23

• #4

是不是显示卡驱动装错啦

 

P

psyxgq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-23

• #5

两位理解错了。我不是在说电脑除了问题。
我是想做一个dephi得程序，实现我的描述。

 

P

power2010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-23

• #6

procedure TForm1.Button1Click(Sender: TObject);
var i:integer ;
begin
for i:=0 to 1000 do
Canvas.Pixels[Random(Screen.Height),Random(Screen.Width)]:=clWhite;
end;


开始的时候注意...
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;

 

D

dreamisx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-24

• #7

还应该将这1000个点的坐标及原先的颜色值保存下来，以便恢复显示。

 

P

phoenixwonder

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-24

• #8

先用一个TBitmap对象和BitBlt函数把作图区域的内容保存起来,然后照上面朋友的代码画出1000个点,要恢复的时候,再用BitBlt函数把TBitmap对象中的内容恢复到指定区域

 

P

psyxgq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-24

• #9

还想问一下，上面的程序运行时间与用控件后运行的时间上会不会有差别？
我希望的是耗时最好没有或极少。

 

烽

烽火扬州路

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-24

• #10

路过`````````

 

P

psyxgq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-26

• #11

thx

 

P

psyxgq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-26

• #12

多人接受答案了。