Transparent作怪? |
尚未結案
|
蔚空_0
一般會員 發表:8 回覆:0 積分:1 註冊:2005-04-02 發送簡訊給我 |
border_img := TBitMap.Create;
border_img.width := 10;
border_img.height := 10;
border_img.Canvas.Brush.Color := clBlack;
border_img.Canvas.Rectangle(0,0,10,10);
Form1.SpeedButton1.Glyph := border_img; 我想在一個SpeedButton上畫一個圖案, 但發現, 不知道為甚麼黑色無法顯示出來, 其他色就沒問題, 為甚麼呢?
|
G01
高階會員 發表:249 回覆:379 積分:215 註冊:2002-05-21 發送簡訊給我 |
這是因為牽涉到前景色與背景色的緣故 Canvas的BackGroundColor = ClBlack ,所以當你設定為ClBlack時,
它認為你沒有給任何顏色,所以話不出來
以下為本問題的解法
procedure TForm1.FormCreate(Sender: TObject); var border_img:TBitMap; begin border_img := TBitMap.Create; border_img.width := 10; border_img.height := 10; border_img.Canvas.Pen.Color := ClBtnFace; border_img.Canvas.Brush.Color := clRed; border_img.Canvas.Rectangle(0,0,10,10); Form1.SpeedButton1.Glyph := border_img; end;努力不一定成功 , 不努力一定不成功!! |
G01
高階會員 發表:249 回覆:379 積分:215 註冊:2002-05-21 發送簡訊給我 |
|
fangwy
中階會員 發表:99 回覆:139 積分:62 註冊:2003-09-10 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |