TImage控件Textout输出的字的大小，有没有比font.size := 8 实际大小小一半的字了

Question

为什么我把font.size := 1,自还是很大？？？？多谢

Answer 1

//字小的快看不到了  ：）
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.Bitmap.Height:=100;
  Image1.Picture.Bitmap.Width:=100;  Image1.Picture.Bitmap.Canvas.Font.Size:=1;
  Image1.Picture.Bitmap.Canvas.TextOut(1,1,'ASDF');end;

Answer 2

楼上说得是不行的。呵呵。
这样啊：
procedure TForm1.Button1Click(Sender: TObject);
begin
  //font对话框里面可以看到font的大小。
  Image1.Picture.Bitmap.Canvas.Font.Name:='Small Fonts'; //或者其他有小号的字体。  Image1.Picture.Bitmap.Canvas.Font.Size:=2; //不能再小
  Image1.Picture.Bitmap.Canvas.TextOut(1,1,'ASDF');
end;

Answer 3

字还是没有缩小到原来的一半什么意思？
看看你的系统有没有'Small Fonts'这种字体。这是最小字号的字体了。
2的话，已经看不清楚了，一般4开始比较清楚的。还有一种方法就是你先生成大的字，然后将Image整体放缩。