圖形區域大小?? |
|
答題得分者是：領航天使
|
|
小蚊子
中階會員   發表：55 回覆：267 積分：94 註冊：2002-06-08 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
VAR
BMP1 : TBITMAP;
begin
BMP1 := TBitMap.create; bmp1.Width := 320;
bmp1.Height:= 320; bmp1.Canvas.Font.Height := 40; BMP1.canvas.TextOut(0,0,edit1.text);// edit1.text := '測試';
BMP1.SaveToFile( 'test1.BMP');
end; // 問1 : 我現在將圖形預設為 320x320 大小,在此圖上寫入 測試 二字
大小是 40 點 ,存檔test1.bmp 就是 320x320,如何才可以僅存
文字的大小區域(此例是80x40) ,而不是預設大小320x320 ?? // 問2 : bmp1.Canvas.Font.width := ??? 無此設定屬性嗎?
那要如何改變字體的寬度呢?? 謝謝您的解答!!
|
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: procedure TForm1.Button1Click(Sender: TObject); VAR BMP1 : TBITMAP; begin BMP1 := TBitMap.create; bmp1.Width := 320; bmp1.Height:= 320; bmp1.Canvas.Font.Height := 40; BMP1.canvas.TextOut(0,0,edit1.text);// edit1.text := '測試'; BMP1.SaveToFile( 'test1.BMP'); end; // 問1 : 我現在將圖形預設為 320x320 大小,在此圖上寫入 測試 二字 大小是 40 點 ,存檔test1.bmp 就是 320x320,如何才可以僅存 文字的大小區域(此例是80x40) ,而不是預設大小320x320 ?? // 問2 : bmp1.Canvas.Font.width := ??? 無此設定屬性嗎? 那要如何改變字體的寬度呢?? 謝謝您的解答!!可以用 bmp1.Width := BMP1.canvas.textwidth('測試'); bmp1.Height:= BMP1.canvas.textHeight('測試'); 至於第2個問題,Windows?定的字體為自動調整長寬比的, 要自行設定不同比例的長寬比可能要從讀取字體造型的向量資料喔! ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
發表時間：2002-08-29 04:23:32
IP:211.74.xxx.xxx 未訂閱
系統時間：2024-04-20 18:28:57
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |