两个 字体 转换成 点阵的问题 任意一个正确 都有分

Question

1. 知道字体大小，字体样式， 想得到 输出时 对应的高度 宽度2. 我想将RichEdit 里的类容直接转换成 点阵信息 有什么方法？速回！

Answer 1

1.先设置
    Image1.Canvas.Font.Name := 字体名;
    Image1.Canvas.Font.Size := 字体大小;
    Image1.Canvas.Font.Style:= 字体样式;
  然后获取: 
    TxtHeight := Image1.Canvas.TextHeight('A');
    TxtWidth  := Image1.Canvas.TextWidth('A');2. 直接将RichEdit1绘制到一个Image上.这样就可以获取任何一个点的信息了.遍历整个Image就可以得到一个点阵.
   在OnkeyDown中:
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    BitBlt ( Image1.Canvas.Handle, 0, 0, RichEdit1.Width, RichEdit1.Height, GetWindowDC ( RichEdit1.Handle ), 0, 0, SRCCOPY );
end;