[Soled]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Пример: 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]

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