Delphi映射模式实验

unit FrmMappingMode;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TFrmMM = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMM: TFrmMM;

implementation

{$R *.dfm}

procedure TFrmMM.FormPaint(Sender: TObject);
var
    halfH,halfW : integer;
begin
    halfH := clientHeight div 2;
    halfW := ClientWidth div 2;
    Canvas.Rectangle(1,1,100,200);

//    SetMapMode(canvas.Handle, MM_LOMETRIC);    //逻辑单位:0.1 mm
//    SetMapMode(canvas.Handle, MM_LOENGLISH);    //逻辑单位:0.1 inch
    SetMapMode(canvas.Handle, MM_ISOTROPIC);    // 1 = 1 自定义

    { SetWindowExtEx,SetViewportExtEx 函数只对
      MM_ANISOTROPIC 和 MM_ISOTROPIC映射模式有用，其它模式下它会被忽略}
    SetWindowExtEx(canvas.Handle,500,-500,nil);
    SetViewportExtEx(canvas.Handle,ClientWidth,ClientHeight,nil);
//  SetViewportExtEx(canvas.Handle,200,200,nil);

    SetViewportOrgEx(Canvas.Handle, ClientWidth div 2, ClientHeight div 2, nil);
    Canvas.Rectangle(0,0,50,50);
    //横线
    Canvas.MoveTo(-halfW,0);
    Canvas.LineTo(halfW,0);
    //竖线
    Canvas.MoveTo(0,-halfH);
    Canvas.LineTo(0,halfH);
end;

procedure TFrmMM.FormResize(Sender: TObject);
begin
    Invalidate;
end;

end.