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

Timage 的比例問題

尚未結案
tidal
初階會員


發表:93
回覆:32
積分:25
註冊:2003-07-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-11 12:42:53 IP:202.82.xxx.xxx 未訂閱
假如我有一個Timage, 我把stretch 屬性設定為true. stretch後, 我如何把圖的比例保持原來狀態?
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-11-11 12:57:43 IP:203.204.xxx.xxx 未訂閱
引言: 假如我有一個Timage, 我把stretch 屬性設定為true. stretch後, 我如何把圖的比例保持原來狀態?
tidal 你好 Image.Width = 顯示在畫面上的寬度 Image.Height = 顯示在畫面上的高度 Image.Picture.Width = 圖片實際的寬度 Image.Picture.Height = 圖片實際的高度 兩組數值做等比例運算即可! _______________________________________ 深藍的魚,祝您好運..........連連
tidal
初階會員


發表:93
回覆:32
積分:25
註冊:2003-07-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-11-11 15:17:21 IP:202.82.xxx.xxx 未訂閱
有沒有例子可供參考?
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-11-11 20:48:43 IP:202.39.xxx.xxx 未訂閱
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

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-11-11 20:58:17 IP:211.76.xxx.xxx 未訂閱
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 ( scaleXWidth = Image1->Picture->Width * scale; Image1->Height = Image1->Picture->Height* scale; Image1->Stretch = true; Image1->Refresh(); } //--------------------------------------------------------------------------- // Delphi version: procedure TForm1.Button1Click(Sender: TObject); var scale, scaleX, scaleY : Extended; begin scaleX := Image1.Width / Image1.Picture.Width; scaleY := Image1.Height / Image1.Picture.Height; if ( scaleX RichTop 敬上 =====***** 把數學當工具,可以解決問題;將數學變能力,能夠發現並解決問題! =====##### 發表人 - richtop 於 2004/11/11 23:34:52
系統時間:2024-07-02 12:40:45
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!