線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:8896
推到 Plurk!
推到 Facebook!

如何讓字體順時針轉90度

答題得分者是:sryang
raining1314
一般會員


發表:4
回覆:7
積分:2
註冊:2014-09-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2014-09-05 16:53:11 IP:118.163.xxx.xxx 訂閱
小弟公司是用delphi 6.0

目前遇到一個瓶頸

客戶要求標籤製作時 有一排字 要以順時針轉90度 的方式呈現

有點像是word橫書改直書的方式

如附件

請問各位前輩 有辦法嗎?
編輯記錄
raining1314 重新編輯於 2014-09-05 17:38:08, 註解 無‧
sryang
尊榮會員


發表:39
回覆:762
積分:920
註冊:2002-06-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2014-09-05 21:09:22 IP:59.127.xxx.xxx 訂閱
請參考
[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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2014-09-09 09:05:08 IP:118.163.xxx.xxx 訂閱
太感謝了~

已經成功囉~~~
raining1314
一般會員


發表:4
回覆:7
積分:2
註冊:2014-09-05

發送簡訊給我
#4 引用回覆 回覆 發表時間:2014-09-09 13:57:59 IP:118.163.xxx.xxx 訂閱
SORRY 小弟又遇到問題了

在用預覽列印時 QuickRep1.Preview

顯示是轉90度的沒錯 但是印出來竟然還是正的

是哪邊錯誤了呢?
sryang
尊榮會員


發表:39
回覆:762
積分:920
註冊:2002-06-27

發送簡訊給我
#5 引用回覆 回覆 發表時間:2014-09-09 14:14:52 IP:59.127.xxx.xxx 訂閱
很抱歉,我對於 QR 不熟悉,無法幫到你
------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/
raining1314
一般會員


發表:4
回覆:7
積分:2
註冊:2014-09-05

發送簡訊給我
#6 引用回覆 回覆 發表時間:2014-09-09 14:20:37 IP:118.163.xxx.xxx 訂閱
沒關係  能用出90度 就很感激嚕

我在研究一下 為什麼列印時 會跳掉^^

3Q~~
系統時間:2024-04-26 7:50:25
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!