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

請教關于輸齣鏇轉字體

缺席
sieg0529
一般會員


發表:2
回覆:1
積分:0
註冊:2003-12-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-08-27 19:36:12 IP:222.84.xxx.xxx 未訂閱
意思就是,假若我有一字串為“鏇轉測試半角ABC全角abc”,我需要將其中的英文及數字類字符在輸齣時順時針鏇轉90℃,但我編寫下列代碼后髮現,如果將字串輸齣至TForm的Canvas,輸齣的是預期結果,但若輸齣至TPrinter的Canvas,打印齣來的英文、數字字符並未鏇轉,請問要如何解決? 望賜教。 代碼: //字串為竪式顯示 var lfC, lfE : TLogFont; tfC, tfE : TFont; i, j, fH : integer; s : string; a :array of string; r: TRect; begin s := '鏇轉測試半角ABC全角abc'; SetLength(a, Length(s));//求簡單 i := 1; j := 0; with Form1.Canvas do begin r := Rect(20, 20, 80, 300); Font.Name := '黑體'; Font.Size := 12; tfC := TFont.Create; tfE := TFont.Create; tfC.Assign(Font); tfE.Assign(Font); GetObject(tfC.Handle, sizeof(lfC), @lfC); GetObject(tfE.Handle, sizeof(lfE), @lfE); lfC.lfEscapement := 0; lfC.lfOrientation := 0; lfE.lfEscapement := -900; lfE.lfOrientation := -900; tfC.Handle := CreateFontIndirect(lfC); tfE.Handle := CreateFontIndirect(lfE); fH := Abs(Font.Height); while i<=Length(s) do if (Ord(s[i])>=128)and(Ord(s[i])<>163) then begin Font.Assign(tfC); TextOut(0, fH*j, Copy(s, i, 2)); Inc(i,2); Inc(j); end else if (Ord(s[i])<=127) then begin Font.Assign(tfE); TextOut(fH, fH*j, Copy(s, i, 1)); Inc(i,1); Inc(j); end else if (Ord(s[i])=163) then begin Font.Assign(tfE); TextOut(fH, fH*j, Copy(s, i, 2)); Inc(i,2); Inc(j); end; tfC.Free; tfE.Free; end; end;
系統時間:2024-03-29 0:10:00
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!