全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2049
推到 Plurk!
推到 Facebook!

劃線..無法變色

答題得分者是:taishyang
stwave
一般會員


發表:9
回覆:9
積分:3
註冊:2005-03-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-07-17 09:46:50 IP:114.47.xxx.xxx 訂閱
請問一下各位前輩
小弟參考一些文章與程式範例..使用下面的程式..但卻一直換不了色
試了一整晚..不知道到底錯在哪...
[code cpp]
m_pRedPen = new TPen;
m_pRedPen->Mode = pmCopy;
m_pRedPen->Style = psSolid;
m_pRedPen->Color = clRed;
m_pRedPen->Width = 5;
[/code]
[code cpp]
Image01->Canvas->Pen = m_pRedPen;
Image01->Canvas->MoveTo(11,22);
Image01->Canvas->LineTo(333,555);
Image01->Refresh();
[/code]
taishyang
站務副站長


發表:377
回覆:5486
積分:4552
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-07-17 10:04:21 IP:118.169.xxx.xxx 訂閱
Pen裡面不是本來就有Color屬性?
Image01->Canvas->Pen->Color = clRed;



===================引 用 stwave 文 章===================
請問一下各位前輩
小弟參考一些文章與程式範例..使用下面的程式..但卻一直換不了色
試了一整晚..不知道到底錯在哪...
[code cpp]
m_pRedPen = new TPen;
m_pRedPen->Mode = pmCopy;
m_pRedPen->Style = psSolid;
m_pRedPen->Color = clRed;
m_pRedPen->Width = 5;
[/code]
[code cpp]
Image01->Canvas->Pen = m_pRedPen;
Image01->Canvas->MoveTo(11,22);
Image01->Canvas->LineTo(333,555);
Image01->Refresh();
[/code]
stwave
一般會員


發表:9
回覆:9
積分:3
註冊:2005-03-29

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-07-17 10:52:42 IP:114.47.xxx.xxx 訂閱
可是我一開始試過..
還是一樣都不會變色~"~
taishyang
站務副站長


發表:377
回覆:5486
積分:4552
註冊:2002-10-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-07-17 11:04:41 IP:118.169.xxx.xxx 訂閱
開新專案,放按Button1和Image1
下面的code會在Image1上看到紅色線條
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Image1->Canvas->Pen->Color = clRed;
Image1->Canvas->MoveTo(11,22);
Image1->Canvas->LineTo(333,555);
Image1->Refresh();
}
李國維
高階會員


發表:42
回覆:287
積分:235
註冊:2003-02-07

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-07-17 11:07:58 IP:61.67.xxx.xxx 未訂閱
 我開啟你的專案執行過.
在載入Bitmap圖檔後,會有紅線.
所以無法得知錯誤為何
===================引 用 stwave 文 章===================
請問一下各位前輩
小弟參考一些文章與程式範例..使用下面的程式..但卻一直換不了色
試了一整晚..不知道到底錯在哪...
[code cpp]
m_pRedPen = new TPen;
m_pRedPen->Mode = pmCopy;
m_pRedPen->Style = psSolid;
m_pRedPen->Color = clRed;
m_pRedPen->Width = 5;
[/code]
[code cpp]
Image01->Canvas->Pen = m_pRedPen;
Image01->Canvas->MoveTo(11,22);
Image01->Canvas->LineTo(333,555);
Image01->Refresh();
[/code]
stwave
一般會員


發表:9
回覆:9
積分:3
註冊:2005-03-29

發送簡訊給我
#6 引用回覆 回覆 發表時間:2009-07-17 11:18:06 IP:114.47.xxx.xxx 訂閱
看到您的問題突然想到圖片的問題..
我都是載..8bit的黑白BMP...
剛用小畫家存成一空白BMP去開就有紅線了..
難怪兩位都認為程式是OK的!!^^
另外可以請教這樣的情況..
能有方法顯示有顏色的線嗎??

===================引 用 李國維 文 章===================
我開啟你的專案執行過.
在載入Bitmap圖檔後,會有紅線.
所以無法得知錯誤為何
編輯記錄
stwave 重新編輯於 2009-07-17 11:21:50, 註解 無‧
taishyang
站務副站長


發表:377
回覆:5486
積分:4552
註冊:2002-10-08

發送簡訊給我
#7 引用回覆 回覆 發表時間:2009-07-17 13:41:44 IP:118.169.xxx.xxx 訂閱
灰階(8 bits)的圖片要顯示彩色(24 bits)的紅線?
用另外一個Image(透明屬性設為true)顯示畫圖的效果就好了
stwave
一般會員


發表:9
回覆:9
積分:3
註冊:2005-03-29

發送簡訊給我
#8 引用回覆 回覆 發表時間:2009-07-17 19:23:12 IP:114.47.xxx.xxx 訂閱
了解~還是需要再多一個Image來顯示~
===================引 用 taishyang 文 章===================
灰階(8 bits)的圖片要顯示彩色(24 bits)的紅線?
用另外一個Image(透明屬性設為true)顯示畫圖的效果就好了
系統時間:2017-10-24 17:34:22
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!