Timage 的比例問題 |
尚未結案
|
tidal
初階會員 發表:93 回覆:32 積分:25 註冊:2003-07-15 發送簡訊給我 |
|
Chance36
版主 發表:31 回覆:1033 積分:792 註冊:2002-12-31 發送簡訊給我 |
引言: 假如我有一個Timage, 我把stretch 屬性設定為true. stretch後, 我如何把圖的比例保持原來狀態?tidal 你好 Image.Width = 顯示在畫面上的寬度 Image.Height = 顯示在畫面上的高度 Image.Picture.Width = 圖片實際的寬度 Image.Picture.Height = 圖片實際的高度 兩組數值做等比例運算即可! _______________________________________ 深藍的魚,祝您好運..........連連 |
tidal
初階會員 發表:93 回覆:32 積分:25 註冊:2003-07-15 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
Chance36 大大已經做了說明
接下來就是看您是要以 Width 為準, 還是要以 Height 為準
若是以 Width 為準, 例子如下:
var f: Extended; begin f := Image1.Picture.Width / Image1.Picture.Height; // Image1 的 Width 已經固定了, 調整 Image1 的 Height Image1.Height := (Image1.Width / f); end;若是以 Height 為準的話, 就上面的例子顛例過來 |
richtop
資深會員 發表:122 回覆:646 積分:468 註冊:2003-06-10 發送簡訊給我 |
tidal 您好: 插個花! 之前回答另一位會員類似問題寫的程式碼,請參考修改。 不好意思!補充更正!
沒看清楚是>
< class="code">
//---------------------------------------------------------------------------
// 可將影像維持長寬比的縮放至規定的顯示區域
void __fastcall TForm1::Button1Click(TObject *Sender)
{ float scale, scaleX, scaleY; scaleX = (float) Image1->Width / Image1->Picture->Width;
scaleY = (float) Image1->Height / Image1->Picture->Height; if ( scaleX
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |