Выбор по условию для With

[levashovea]

Добрый день, нужна помощь в решение задачи :
Написана процедура формирующая на канве принтера результаты работы программы.

Всю процедуру приводить не буду вот ее часть:

Вызов процедуры :

Printer.BeginDoc;
formgr(1,x,y);  // формируем  график
Printer.EndDoc;

Сама процедура :

procedure formgr(typeot,sx,sy:integer);
var x,y,y1,x2,y2,i,raz,n:integer;
      begin
//with Form7.Image1 do
with printer do
begin                     //формирование листа
form7.visible:=True;
if sx<form7.Width then  Form7.Image1.Left:=Round((form7.Width-sx)/2) else Form7.Image1.Left:=10;
Canvas.Brush.Color:=clWhite	;  // стирание пред отчета
Canvas.RoundRect(0,0,sx,sy,1,1);
Canvas.Pen.Style:=psSolid;
……
……
End;
End;

Если вместо строчки with printer do
поставить with Form7.Image1 do то будет своеобразный предварительный просмотр отчета.

Вот собственно вопрос: как сделать так чтобы при нажатие на кнопку 1 происходил просмотр,
а при нажатие на кнопку 2 происходила печать при помощи одной и той же процедуры ?

[Аватар]

Передать параметром Canvas и убрать with

[levashovea]

Сообщение от Аватар

Передать параметром Canvas и убрать with

Пример кода можете привести ?

[kangreon]

Как-то так.

  Printer.BeginDoc;
  formgr(1,x,y, Form7.Image1.Canvas);
  Printer.EndDoc;

  Printer.BeginDoc;
  formgr(1,x,y, Printer.Canvas);
  Printer.EndDoc;

procedure formgr(typeot,sx,sy:integer; Canvas: TCanvas);
var 
  x, y, y1, x2, y2, i, raz, n: Integer;
begin
  form7.visible:=True;
  if sx < form7.Width then  
    Form7.Image1.Left := Round((form7.Width-sx)/2) 
  else 
    Form7.Image1.Left:=10;

  Canvas.Brush.Color := clWhite;
  Canvas.RoundRect(0,0,sx,sy,1,1);
  Canvas.Pen.Style:=psSolid;
  // ...
End;

[levashovea]

Сообщение от kangreon

Как-то так.

  Printer.BeginDoc;
  formgr(1,x,y, Form7.Image1.Canvas);
  Printer.EndDoc;

  Printer.BeginDoc;
  formgr(1,x,y, Printer.Canvas);
  Printer.EndDoc;

procedure formgr(typeot,sx,sy:integer; Canvas: TCanvas);
var 
  x, y, y1, x2, y2, i, raz, n: Integer;
begin
  form7.visible:=True;
  if sx < form7.Width then  
    Form7.Image1.Left := Round((form7.Width-sx)/2) 
  else 
    Form7.Image1.Left:=10;

  Canvas.Brush.Color := clWhite;
  Canvas.RoundRect(0,0,sx,sy,1,1);
  Canvas.Pen.Style:=psSolid;
  // ...
End;

Все отлично работает, спасибо всем кто принимал участие.