1,183
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
richard_ouyang 2003-03-19
- 打赏
- 举报
怎么设一个TIMAGE的width,height 为1厘米?
电脑的显示是采用象素设置的，没有厘米一说。不过你可以测试。相同的象素是多少厘米。然后设置象素了
电脑的显示是采用象素设置的，没有厘米一说。不过你可以测试。相同的象素是多少厘米。然后设置象素了
sysu 2003-03-19
- 打赏
- 举报
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;
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;
frogshero 2003-03-19
- 打赏
- 举报
或怎么计算100象素是多少厘米?
