SpeedButton 如何使用 Jpeg 圖 |
|
答題得分者是：hagar
|
|
zombit
初階會員   發表：63 回覆：39 積分：30 註冊：2004-05-11 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
參考這篇:
http://delphi.about.com/cs/adptips2001/a/bltip0901_2.htm
var
bmp: TBitmap;
begin
bmp:=TBitmap.Create;
try
bmp.Width := Image.Picture.Graphic.Width;
bmp.Height := Image.Picture.Graphic.Height;
bmp.Canvas.Draw(0, 0, Image.Picture.Graphic) ;
BitBtn.Glyph:=bmp;
finally
bmp.Free;
end;
end;
--
hagar.
|
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
簡單來說，就是 JPG to BMP
這樣可能會比較貼切。
uses JPEG; procedure TForm1.FormCreate(Sender: TObject);
Var
MyJPEG : TJPEGImage;
begin
MyJPEG := TJPEGImage.Create;
Try
MyJPEG.LoadFromFile('C:\test.jpg');
SpeedButton1.Glyph.Assign(MyJPEG);
finally
MyJPEG.Free;
end;
end;
～～～～～～～～～～～
難得聰明，常常糊塗。
～～～～～～～～～～～
|
|
zombit
初階會員 發表：63 回覆：39 積分：30 註冊：2004-05-11 發送簡訊給我 |
發表時間：2005-05-10 16:21:44
IP:61.62.xxx.xxx 未訂閱
系統時間：2024-11-23 2:19:59
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |