請教!! 如何在圖形連續變化的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 發送簡訊給我 |
發表時間：2004-03-16 09:50:19
IP:61.221.xxx.xxx 未訂閱
系統時間：2024-05-13 22:19:45
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |