各位大大 小弟想在 RichEdit 元件上輸入特殊字元（符號；exẶ、€、ى...等） 輸出到 Image 上，並儲存為圖檔 我使用如下： Image1.Canvas.TextOut(1,1,RichEdit1.Text); 寫入中、英文字時，皆可正確顯示 但是，當輸入特殊字元時，就會顯示成？了 請問要如何才可以做到

I think you would better make use of the PaintTo method of TWinControl, i.e. make rich edit paint itself onto the image.

引言: I think you would better make use of the PaintTo method of TWinControl, i.e. make rich edit paint itself onto the image.

不太瞭解您的意思耶 哪裡有類似的範例可以參考嗎？ 我的目的是： 想要把特殊字元、西歐字儲存成

既然是要存成 "圖檔" PhotoImpact 軟體就可以了,連日文都可以處理.

Tried... PaintTo won't paint the content, need to send message, e.g.    

var
   fmt: TFormatRange;
begin
    with fmt do begin
        hdc := Image1.Canvas.Handle;
        hdcTarget := hdc;
        rc := Rect(0,0,(Image1.Width*1440) div PixelsPerInch,
            (Image1.Height*1440) div PixelsPerInch);
        rcPage := rc;
        chrg.cpMin := 0;
        chrg.cpMax := RichEdit1.GetTextLen;
    end;
    RichEdit1.Perform(EM_FORMATRANGE,1,integer(@fmt));
    Image1.Invalidate;
end;

引言: Tried... PaintTo won't paint the content, need to send message, e.g.

var
   fmt: TFormatRange;
begin
    with fmt do begin
        hdc := Image1.Canvas.Handle;
        hdcTarget := hdc;
        rc := Rect(0,0,(Image1.Width*1440) div PixelsPerInch,
            (Image1.Height*1440) div PixelsPerInch);
        rcPage := rc;
        chrg.cpMin := 0;
        chrg.cpMax := RichEdit1.GetTextLen;
    end;
    RichEdit1.Perform(EM_FORMATRANGE,1,integer(@fmt));
    Image1.Invalidate;
end;

真是感謝您的大力指導 但恕小弟才疏學淺，還是有看不懂得地方 TFormatRange.....這是什麼type，我好像沒有耶 需要安裝什麼元件嗎?我使用的是 Delphi6 發表人 - akqj1098 於 2004/08/31 14:38:53

引言:

引言: Tried... PaintTo won't paint the content, need to send message, e.g.

var
   fmt: TFormatRange;
begin
    with fmt do begin
        hdc := Image1.Canvas.Handle;
        hdcTarget := hdc;
        rc := Rect(0,0,(Image1.Width*1440) div PixelsPerInch,
            (Image1.Height*1440) div PixelsPerInch);
        rcPage := rc;
        chrg.cpMin := 0;
        chrg.cpMax := RichEdit1.GetTextLen;
    end;
    RichEdit1.Perform(EM_FORMATRANGE,1,integer(@fmt));
    Image1.Invalidate;
end;

真是感謝您的大力指導 但恕小弟才疏學淺，還是有看不懂得地方 TFormatRange.....這是什麼type，我好像沒有耶 需要安裝什麼元件嗎?我使用的是 Delphi6 發表人 - akqj1098 於 2004/08/31 14:38:53

哇哈....我成功了 william 大大，謝謝您