[Soled]

Окажите помощь уважаемые знатоки.
как в конструкцию with .. do подставлять image или printer ?

Код:

Пример:
procedure print_op(aaa:word); // 1 -вывод на принтер , 2 -вывод на экран
var
kf, x ,y :word;
begin
 case aaa of
     1: begin 
          printer.Orientation := poLandscape;
          printer.BeginDoc;
          x:=352; y:=100; // x_end=4640, y_end=6770
          kf:=6;
        end;
     2: begin 
          image1.Width := 1123;
          image1.Height := 390;
          image1.Canvas.FillRect(Rect(0,0,image1.Width,image1.Height));//0,0,794,1123)
          x:=80; y:=10;
          kf:=1;
        end;
   end;
 with "printer или image1" do // как в конструкцию with .. do подставлять image или printer взависимости от "ааа" 
  begin
     Canvas.Font.Name := 'Times New Roman'; //'Courier';
     Canvas.Font.Size := 12;
     Canvas.Font.Style := [fsBold];
     Canvas.TextOut(x+305*kf,y+5*kf,'Вывод текста или графики');
  end;
end;

Admin: Пользуемся тегами!

[Soled]

Все Вопрос решен.