Как распечатать 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