image上划线显示不了 ( 积分: 100 )

L

lihj36087221

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-02

• #1

我一段程序在image上划线，代码很简单：
Image1.Canvas.LineTo(X_Start ,Y_Start1)，颜色和线宽都设置没有问题。
但问题是这样，以前这个程序工作的很好，但我最近换了IBM的T60后，程序划线就有问题了，有时能够划出线，有时不行，而且也随机出现，我另外同事的T60也这样，换到其它人的机子上，有一台双核的机子也不行，重装系统也不行；但在其它配置低一点的机子上就没有问题了。我反复检查程序也没有发现问题，不知道有没有高手碰到过类似的问题。我的delphi是7.0版本

 

L

lihj36087221

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-03

• #2

还没有人回答我的问题，是不是我描述不太清楚呢？我主要怀疑是不是64位或者双核造成的，但是我的T60又无法禁用双核（BIOS里设置好后）xp就起不来了！

 

L

lisongmagic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-03

• #3

说明你代码写的有问题.
兼容和可移植性不能这么没有保证.
一般来说也只有机器配置差不行,越好应该没问题,
还没遇到过机器越好我的程序越不行的,呵呵.
再说保证一定的兼容和可移植性,也是我们程序员的责任

把相关代码粘贴出来看看

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-03

• #4

这么好玩啊....代码发上来看看，我的机器也是双核的，也有T60

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-03

• #5

凑个热闹。。

 

晶

晶晶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-03

• #6

Image1.Canvas.LineTo调用的是Windows的GDI函数。应该不存在兼容的问题。
也许是显示屏的问题呢^_^

 

L

lihj36087221

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-04

• #7

代码如下：
if GetPixel(image1.Canvas.Handle,X,98)=0 then exit;
image1.Canvas.Pen.color:=ClBlack;
image1.Canvas.Pen.Mode := pmNotXor;
image1.Canvas.Pen.Style :=psSolid;
image1.Canvas.MoveTo(pTloca.x,0);
image1.Canvas.lineTo(pTloca.x,1000);
image1.Canvas.MoveTo(X,0);
image1.Canvas.lineTo(X,1000);
第一个划线是将前面的线削掉，第二个lineTo是划新的线，但就是这个看不到呀！

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-04

• #8

先对Image1填充颜色，再上别一条线的颜色就可以了。

 

L

lihj36087221

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-05

• #9

bbscom是说填充颜色,是这样的吗?
image1.Canvas.Brush.Color:=RGB(0,0,0) ;
Dct:=Rect(0,0,1329,217) ;
image1.Canvas.FillRect(Dct);
我原先image1的颜色就是白色,但填充后怎么变成黑色了,而且问题仍然没有解决!