> -- zar писал(а):
> Здравствуйте.   Набрался-таки наглости и решил немножко вас напрячь. Верю, что за спрос и у вас не бьют. Хотелось бы узнать у компетентных людей, насколько просто/сложно решается следующая задача в BlackBox. Есть подозрение, что решается она сильно проще, чем, например, в Дельфи, в которой я и делаю работу(выполнено процентов 97).
Вы правы. ЛегкоБудет примерно так:
## Код:
```
(***************************************)
   PROCEDURE LoadFromFile*(name: Files.Name; OUT view: Views.View);
      VAR loc: Files.Locator;  conv: Converters.Converter; 
   BEGIN
      loc := Files.dir.This( name );
      view := Views.Old( Views.dontAsk, loc, name, conv);
   END LoadFromFile;
(***************************************)
PROCEDURE CreateReport;
VAR textModel: TextModels.Model; 
       textView: TextViews.View;
       formatter: TextMappers.Formatter;
       view: Views.View;
BEGIN
  textModel := TextModels.dir.New(); (* создаю модель *)
  textView := TextViews.dir.New(textModel);  (* создаю вид *)
  formatter.ConnectTo(textModel);  (* присоединяю форматтер *)

  LoadFromFile('List/Rsrc/Pictures.bmp', view); (* загружаю документ из файла *)
  
  formatter.WriteString('это рисунок'); formatter.WriteLn;
  formatter.rider.WriteView(view, 10 * Ports.mm, 20 * Ports.mm); (* вывожу рисунок в текстовую модель размерами 10мм х 20 мм *)
  formatter.WriteLn; 
  ...
  formatter.WriteString('это документ'); formatter.WriteLn;
  LoadFromFile('List/Rsrc/Report.odc', view);
  formatter.WriteView(view); (* Размер документа - по умолчанию *)
  formatter.WriteLn;
  ...
  Views.OpenView(textView);
END;
```

Возможно, что нужно ещё будет создать контексты ... Код этот не тестировал. Делал подобное. А Вы в Delphi работали с TCanvas?