矢量绘图 功能线问题!!!!!!!!!!!!(急)(30分)

  • 主题发起人 主题发起人 anson60
  • 开始时间 开始时间
A

anson60

Unregistered / Unconfirmed
GUEST, unregistred user!
定制了一些功能线
要求在使用画笔绘图时不要覆盖功能线
需要怎样定制功能线
才能使功能线生成后使用画笔绘图不会覆盖功能线
下面是部分功能线生成代码:
with m_Bmp.Canvas do
begin
for i:= 1 to 20 do
begin
ccode := m_ColorCodeList.ColorCodeOf(i);
Pen.Color := ccode.Color;
MoveTo(x,y);
LineTo(x,y1);
dec(x,2);
end;

x := m_Bmp.Width -(4+39);
for i := 1 to 20 do
begin
ccode := m_ColorCodeList.ColorCodeOf(i);
Pen.Color := ccode.Color;
MoveTo(x,y);
LineTo(x,y1);
inc(x,2);
end;

ccode := m_ColorCodeList.ColorCodeOf(1);
Pen.Color := ccode.Color;
MoveTo(43,32);
LineTo(43 + 14 + m_DataWidth,32);

ccode := m_ColorCodeList.ColorCodeOf(edtStartPin.Value );
SetPixel(Handle,41,32,ccode.Color);
end;
 
不好意思 在非技术乱发搞得没分
请见谅 最近碰到的难题
恳请会的指教!
 
你最后使用xor画一次功能线?
 
你不能在同一个Canvas画
 
功能线和作图区域在一个Canvas内
功能线左右都有,且有间隔
间隔中使用颜色代码确定其功能
中间是作图区域
 
自己已经解决
结贴散分
多谢DFW们
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
556
import
I
后退
顶部