如何画出荧光笔那样的半透明线

TranceChow 2003-04-08 05:44:08

原来的帖子打不开了

...全文

95 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

TranceChow 2003-04-12

打赏
举报

搞掂了

TranceChow 2003-04-12

打赏
举报

但是这样画的线怎么存在image上呢？

findcsdn 2003-04-09

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
hpen: THandle;
hdc: THandle;
pt: TPoint;
begin
hpen := CreatePen(PS_SOLID, 10, clGreen);
hdc := GetDC(0);
SetROP2(hdc, R2_MASKPEN); // 这个函数的许多效果参数可以改。
SelectObject(hdc, hpen);
pt := Point(Button1.Left, Button1.Top);
pt := ClientToScreen(pt);
MoveToEx(hdc, pt.X - 50, pt.Y + 10, nil);
LineTo(hdc, pt.X + 100, pt.Y + 10);
releasedc(0, hdc);
DeleteObject(hpen);
end;

myling 2003-04-09