線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1147
推到 Plurk!
推到 Facebook!

下面这这一个过程可以在屏幕上画一个半透明线,如何更改就可以

 
lkdbdlkq
一般會員


發表:12
回覆:0
積分:2
註冊:2006-08-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-09-29 14:13:17 IP:61.53.xxx.xxx 未訂閱

procedure TForm1.Button1Click(Sender: TObject);
var
hpen:THandle;
hdc: THandle;

begin
hpen := CreatePen(PS_SOLID, 100,clred);
hdc :=getdc(0);
SetROP2(hdc, R2_MASKPEN);
SelectObject(hdc, hpen);
LineTo(hdc,400,400);

end;


试过多次了,将hdc :=image1.Canvas.handle;后就可以直接在image的画布上画线了,可是总不能实现半透明的效果,如何才能搞定呢?
新手初练,请多关照。

系統時間:2017-10-20 7:52:21
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!