|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
конструкция with .. do как подставить image или printer
Окажите помощь уважаемые знатоки.
как в конструкцию 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, 31.03.2010 в 11:03. |
#2
|
|||
|
|||
Все Вопрос решен.
|