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;
要求在使用画笔绘图时不要覆盖功能线
需要怎样定制功能线
才能使功能线生成后使用画笔绘图不会覆盖功能线
下面是部分功能线生成代码:
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;