桦
桦树皮
Unregistered / Unconfirmed
GUEST, unregistred user!
源码如下：我改变了窗体DC的映射模式为英寸，但为什么矩形不能正常画出呢？
procedure TForm1.Button1Click(Sender: TObject);
begin
setmapmode(form1.Canvas.Handle,mm_loenglish);//如果把这句去掉就能画出，为什么？
form1.Canvas.Rectangle(0,0,100,100);
showmessage(inttostr(getmapmode(form1.Canvas.Handle)));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
setmapmode(form1.Canvas.Handle,mm_loenglish);//如果把这句去掉就能画出，为什么？
form1.Canvas.Rectangle(0,0,100,100);
showmessage(inttostr(getmapmode(form1.Canvas.Handle)));
end;