請教各位先進:    我想要在 Canvas 中顯示一個指定的寬度字串, 下列程式中使用在固定寬度字型 (Fixed) 中沒有問題, 但選用調合字型 (TrueType 'i' 與 'w' 寬度不同) 時, 就無法依指定的寬度來顯示, 不知道有什麼方法可以讓調合字型顯示固定寬度, 謝謝.    

procedure TForm1.PaintBox1Paint(Sender: TObject);
var LogRec: TLOGFONT;
    OldFont, NewFont: HFONT;
begin
     with PaintBox1.Canvas do
     begin
          Brush.Style := bsClear;
          GetObject(Font.Handle, SizeOf(LogRec), @LogRec);
          with LogRec do
          begin
               lfOutPrecision := OUT_DEFAULT_PRECIS;
               lfEscapement   := 0;
               lfHeight       := 30;
               lfWidth        := 30;
               NewFont        := CreateFontIndirect(LogRec);
               OldFont        := SelectObject(Handle, NewFont);
               TextOut(x, y, 'i');
               NewFont        := SelectObject(Handle, OldFont);
               DeleteObject(NewFont);
          end;
          Rectangle(x, y, x   30, y   30);
     end;
end;

那就是為什麼Fixed Font叫做Fixed Font 吧. 不是FixedFont 當然每個字寬度不一, 你只好一個個由TEXTMETRIC取得 可試試改 lfPitchAndFamily 設成FIXED_PITCH看看, 不過我記得好像用處也不大 不過你倒是可以用Canvas.TextWidth 簡單測出總長

引言: 請教各位先進: 我想要在 Canvas 中顯示一個指定的寬度字串, 下列程式中使用在固定寬度字型 (Fixed) 中沒有問題, 但選用調合字型 (TrueType 'i' 與 'w' 寬度不同) 時, 就無法依指定的寬度來顯示, 不知道有什麼方法可以讓調合字型顯示固定寬度, 謝謝.

procedure TForm1.PaintBox1Paint(Sender: TObject);
var LogRec: TLOGFONT;
    OldFont, NewFont: HFONT;
begin
     with PaintBox1.Canvas do
     begin
          Brush.Style := bsClear;
          GetObject(Font.Handle, SizeOf(LogRec), @LogRec);
          with LogRec do
          begin
               lfOutPrecision := OUT_DEFAULT_PRECIS;
               lfEscapement   := 0;
               lfHeight       := 30;
               lfWidth        := 30;
               NewFont        := CreateFontIndirect(LogRec);
               OldFont        := SelectObject(Handle, NewFont);
               TextOut(x, y, 'i');
               NewFont        := SelectObject(Handle, OldFont);
               DeleteObject(NewFont);
          end;
          Rectangle(x, y, x   30, y   30);
     end;
end;

由於windows 有很多字型滿多字型寬高都不一樣 但也有寬高字型一樣的字型例如: Courier 你自己試看看吧

我都用字型為[細明體]就可以了 try try see

對不起多按了一次,可否刪除 發表人 - jeffreck 於 2004/02/26 23:30:06

Main Chen 你好

procedure TForm1.PaintBox1Paint(Sender: TObject);
var LogRec: TLOGFONT;
    OldFont, NewFont: HFONT;
begin
     with PaintBox1.Canvas do
     begin
          Brush.Style := bsClear;
          GetObject(Font.Handle, SizeOf(LogRec), @LogRec);
          Font.Pitch := fpFixed ; //加入這行
          with LogRec do
          begin
               lfOutPrecision := OUT_DEFAULT_PRECIS;
               lfEscapement   := 0;
               lfHeight       := 30;
               lfWidth        := 30;
               NewFont        := CreateFontIndirect(LogRec);
               OldFont        := SelectObject(Handle, NewFont);
               TextOut(x, y, 'i');
               NewFont        := SelectObject(Handle, OldFont);
               DeleteObject(NewFont);
          end;
          Rectangle(x, y, x   30, y   30);
     end;
end;

看看可以嗎?

感謝大家的回答, 我已使用 Path 功能達到這部份的功能了, 謝謝.