在 image 上,畫出 unicode 的字,有些問題 ?? |
|
答題得分者是：wameng
|
|
小蚊子
中階會員   發表：55 回覆：267 積分：94 註冊：2002-06-08 發送簡訊給我 |
procedure TForm1.Button2Click(Sender: TObject);
VAR
buf : WideString;
begin
buf := tntlbl2.Caption;
TextOutW(Form1.Canvas.Handle, 20, 40, PWChar(buf), Length(buf));
end;
找了一下早期的文章,發現用 TNT 的元件,可以將 Unicode 的字 ,
例如 : "堃" 字,可以畫在 Form1 上 想請問前輩 想把"堃" 畫在 Image1 的範圍內,可是無法找到接受 Unicode 的字串的方式??
我用 Image1.Canvas. 當'.' 打完後,會列出一堆可以選用的屬性
可是沒有發現 TextOutW 的選項可以用
若改用 Image1.Canvas.TextOut(........); // 則無法接受 Unicode 的字串 該如何實做??? 2. TextOutW 是出自何處?? 謝謝您!!
|
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
|
|
小蚊子
中階會員 發表：55 回覆：267 積分：94 註冊：2002-06-08 發送簡訊給我 |
引言: 在 Windows 單元中，為 Windows API 。 function TextOutW(DC: HDC; X, Y: Integer; Str: PWideChar; Count: Integer): BOOL; stdcall; DC -> Canvas.Handle
procedure TForm1.Button2Click(Sender: TObject);
VAR
buf : WideString;
begin
buf := tntlbl2.Caption;
// TextOutW(Form1.Canvas.Handle, 20, 40, PWChar(buf), Length(buf)); TextOutW(image1.Canvas.Handle, 0, 0, PWChar(buf), Length(buf)); end;
謝謝您!! 我已經試出來了!! 就是把繪圖的工作,從Delphi 交給 Windows,以前我不知道可以如此用 !!
delphi 熟的話,真的很好用!!
|
發表時間：2005-04-02 15:19:36
IP:211.78.xxx.xxx 未訂閱
系統時間：2024-05-04 1:18:41
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |