請教!! 如何在圖形連續變化的Image上永遠保持十字線 |
答題得分者是:swindler
|
無故障
一般會員 發表:17 回覆:69 積分:17 註冊:2004-03-11 發送簡訊給我 |
各位大大: 與 "【問題】請教!! 如何在Image上繪製可依滑鼠指定位置移動的十字線 " 功能略為相反,小弟也是從hlp上取得範例測試,雖然略為修改,但是也無法
克服畫面覆蓋問題,煩請協助,謝謝 hlp範例,亂數產生方形圖案 void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
x = random(Image1->Width - 10);
y = random(Image1->Height - 10);
Canvas->Pen->Color = (Graphics::TColor) random(65535);
switch (random(5))
{
case 0: Canvas->Pen->Style = psSolid; break; case 1: Canvas->Pen->Style = psDash; break;
case 2: Canvas->Pen->Style = psDot; break;
case 3: Canvas->Pen->Style = psDashDot; break;
case 4: Canvas->Pen->Style = psDashDotDot; break;
}
Image1->Canvas->Rectangle(x, y, x random(400), y random(400));
}
------
嘿嘿嘿 |
swindler
一般會員 發表:13 回覆:22 積分:17 註冊:2003-01-08 發送簡訊給我 |
|
JerryKuo
版主 發表:42 回覆:571 積分:322 註冊:2003-03-10 發送簡訊給我 |
|
無故障
一般會員 發表:17 回覆:69 積分:17 註冊:2004-03-11 發送簡訊給我 |
請教一下 , TBitmap 如何使用 ? bcb5 好像沒現成元件按鈕可看到 順便請問一下,TBitmap 繪十字線方式與 Image 畫線方式相同嗎?
Form1->Image2->Canvas->MoveTo(Form1->Image2->Width/2 , 0); Form1->Image2->Canvas->LineTo(Form1->Image2->Width/2, Form1->Image2->Height); Form1->Image2->Canvas->MoveTo(0, Form1->Image2->Height/2); Form1->Image2->Canvas->LineTo(Form1->Image2->Width, Form1->Image2->Height/2);練習! 練習! 再練習! 發表人 - 無故障 於 2004/03/16 17:47:01
------
嘿嘿嘿 |
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
無故障您好:
PO程式碼的方式請參考版規,方便他人閱讀
http://delphi.ktop.com.tw/FORUM.asp?FORUM_ID=921
|
無故障
一般會員 發表:17 回覆:69 積分:17 註冊:2004-03-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |