關於TImage 的 transparent 屬性 |
|
尚未結案
|
|
t27
中階會員   發表：34 回覆：95 積分：90 註冊：2002-06-19 發送簡訊給我 |
|
|
aquarius
資深會員 發表：3 回覆：347 積分：330 註冊：2003-05-21 發送簡訊給我 |
|
|
t27
中階會員 發表：34 回覆：95 積分：90 註冊：2002-06-19 發送簡訊給我 |
|
|
aquarius
資深會員 發表：3 回覆：347 積分：330 註冊：2003-05-21 發送簡訊給我 |
引言: 請問TImage讀入JPG檔案後, 如何轉換成 Bitmap? 可否提供範例參考.謝謝!Transparent 是以圖片的左下角那一點為透明色. 另外因為 JPG 的檔案使用會失真的壓縮法, 會導致原本單一顏色的部份改變. 透明後的效果不佳, 這要先有心理準備.
procedure TForm1.Button1Click(Sender: TObject);
var
bmp : TBitmap ;
begin
bmp:=TBitmap.Create ;
try
bmp.Assign(Image1.Picture.Graphic) ;
Image1.Picture.Assign(bmp) ;
Image1.Transparent:=true ;
finally
bmp.free ;
end ;
end; ...Aquarius
------
水瓶男的blog: http://791909.blogspot.com |
發表時間：2003-12-07 00:07:30
IP:61.230.xxx.xxx 未訂閱
系統時間：2024-06-29 7:50:56
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |