怎么设一个TIMAGE的width,height 为1厘米?

Question

如题

Answer 1

function GetLogPixelsX : integer;
var i1 : integer;
begin
 i1:=CreateCompatibleDC(0);
 result:=GetDeviceCaps(i1,LogPixelsX);
 DeleteDC(i1);
end;// 毫米 -> 象素
function millimeter_to_pixel(millimeter: integer) : integer;
begin
  result:=round(GetLogPixelsX*millimeter/254);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Width := millimeter_to_pixel(100);  // 1厘米
  Image1.Height := Image1.Width;
end;

Answer 2

怎么设一个TIMAGE的width,height 为1厘米? 
 电脑的显示是采用象素设置的，没有厘米一说。不过你可以测试。相同的象素是多少厘米。然后设置象素了