Как распечатать decision grid?
Falk0ner, вс, 06/07/2008 - 15:34.
Как распечатать decision grid?
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;
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;
Отправить комментарий