我是在用image上操作的,用image.canvas.textOut这个方法可以简单的实现。
但是现在我想控制每一行文字的字体,如下‘ABCDEFG’//这行文字用8号字。
‘大大大大大’//这行文字用10号字加粗体字。请问各位大虾该如何实现?
先谢了!

解决方案 »

  1.   

    TextOut之前设字体大小  with Image1.Canvas do
      begin
        Font.Color := clRed;
        Font.Size := 8;
        TextOut(1, 1 ,'ABCDEFG');//这行文字用8号字。    Font.Color := clGreen;
        Font.Size := 20;
        TextOut(1, 17 ,'大大大大大');//这行文字用8号字。
      end;
      

  2.   

    非常感谢!
    今晚结贴。
    我还想问个问题,因我之前是用RichEdit来保存文字的,除了通过载屏的方式来
    取得RICHEDIT的文字(已包含字体颜色大小),不知用TextOut或DrawText可不可以
    达到要求,或者有什么更好的办法呢?
      

  3.   

    那个就非常麻烦了。因为RichEdit基乎可以对每个字都设上不同的字体