Как распечатать decision grid?

Материал из DRKB


procedure TForm1.Button2Click(Sender: TObject);
begin
  Printer.BeginDoc;
  try
    Printer.Canvas.MoveTo(100, 100);
    SetMapMode(Printer.Canvas.Handle, MM_ANISOTROPIC);
    SetWindowExtEx(Printer.Canvas.Handle,
                   GetDeviceCaps(Canvas.Handle, LOGPIXELSX),
                   GetDeviceCaps(Canvas.Handle, LOGPIXELSY),
                   nil);
    SetViewportExtEx(Printer.Canvas.Handle,
                   GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX),
                   GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY),
                   nil);
    grid.PaintTo(Printer.Canvas.Handle, 100, 100);
  finally
    Printer.EndDoc;
  end;
end;


ID: 03259