如何讓字體順時針轉90度 |
|
答題得分者是：sryang
|
|
raining1314
一般會員   發表：4 回覆：7 積分：2 註冊：2014-09-05 發送簡訊給我 |
小弟公司是用delphi 6.0
目前遇到一個瓶頸 客戶要求標籤製作時 有一排字 要以順時針轉90度 的方式呈現 有點像是word橫書改直書的方式 如附件 請問各位前輩 有辦法嗎? 編輯記錄
raining1314 重新編輯於 2014-09-05 17:38:08， 註解 無‧
|
|
sryang
尊榮會員   發表：39 回覆：762 積分：920 註冊：2002-06-27 發送簡訊給我 |
請參考
[code delphi] var lFont: TLogFont; newFont: TFont; begin newFont := TFont.Create; newFont.Assign(Canvas.Font); GetObject(newFont.Handle, Sizeof(lFont), @lFont); // 因為是逆時針轉的，所以向右 90 度要用 2700，單位是 0.01 度 lFont.lfEscapement := 2700; newFont.Handle := CreateFontIndirect(lFont); Canvas.Font.Assign(newFont); // 接下來畫字 // 這裡我就不寫了 newFont.Free; end; [/code]
------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/
編輯記錄
sryang 重新編輯於 2014-09-05 21:12:39， 註解 無‧
|
|
raining1314
一般會員 發表：4 回覆：7 積分：2 註冊：2014-09-05 發送簡訊給我 |
|
|
raining1314
一般會員 發表：4 回覆：7 積分：2 註冊：2014-09-05 發送簡訊給我 |
|
|
sryang
尊榮會員 發表：39 回覆：762 積分：920 註冊：2002-06-27 發送簡訊給我 |
|
|
raining1314
一般會員 發表：4 回覆：7 積分：2 註冊：2014-09-05 發送簡訊給我 |
發表時間：2014-09-05 16:53:11
IP:118.163.xxx.xxx 訂閱
附加檔案：
系統時間：2024-11-10 20:50:22
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |