как распечатать Tscrollbox через Fastreport

Комментарии

• Droid

  May 2010 отредактировано 07:28

  Пока все думают попробывал скопировать конву через TScrollBox->PaintTo(...), но копируются только лабельки, а остальные элементы и их содержимое игнорируется.
  Может можно TScrollBox как-нибудь в метафайл скинуть а потом в FastReport подгрузить.
  Ну очень не хочется всю красоту TScrollBox повторять в FastReport
  
  
• LadySahck

  May 2010 отредактировано 07:28

  Странный вопрос, а причём здесь FastReport. Наверное нужно обратиться в соответствующий форум (Builder или Delphi) и узнать как можно сохранить слепок в Bitmap, а потом уже пытаться вывести картинку в фаст.
• Droid

  May 2010 отредактировано 07:28

  LadySahck написал: »

  Странный вопрос, а причём здесь FastReport. Наверное нужно обратиться в соответствующий форум (Builder или Delphi) и узнать как можно сохранить слепок в Bitmap, а потом уже пытаться вывести картинку в фаст.

  
  Я думал что в FastReport есть импорт не только из метафайла и др, но еще и что-то типа FastReport->Copy(ScrollBox).
  Проблему решил, но как то не очень красиво получилось
  Код скоро покажу, может кто чего поправит.
• LadySahck

  May 2010 отредактировано 07:28

  Droid написал: »

  Я думал что в FastReport есть импорт не только из метафайла и др, но еще и что-то типа FastReport->Copy(ScrollBox).

  А ещё можно попросить разработчиков создать функции FastReport->Print(1000$) и FastReport->Print(1000евро) - очень полезные функции, и жаль, что нет
  
• Droid

  May 2010 отредактировано 07:28

  LadySahck написал: »

  А ещё можно попросить разработчиков создать функции FastReport->Print(1000$) и FastReport->Print(1000евро) - очень полезные функции, и жаль, что нет

  Очень полезные функции, но думаю что разработчики сказали бы что таких функций нету. А вмоем случае так никто ничего по делу и не написал.
  Зато сам разобрался, правда не очень красиво (через сохранение в bmp-файл)
• mvb Казань

  May 2010 отредактировано May 2010

  я делал так: рисовал форму в ФР, добавил нужные переменные, в программе присвоил контролам имена согласно переменных ФР, рекурсивно пробегал по всем контролам формы и инициализировал соотв. переменные ФР. Примерно так:

  type
      THackControl = class(TControl)
      end;
  
  procedure TfmStraxDeclaration.dlBitBtn1Click(Sender: TObject);
    procedure _addctrls(C: TWinControl);
    var I: Integer;
        n: string;
    begin
       for I := 0 to C.ControlCount - 1 do
       begin
        if (C.Controls[i] is TEdit) or (C.Controls[i] is TLabeledEdit) or
           (C.Controls[i] is TComboBox) or (C.Controls[i] is TJvDateEdit) then
        begin
          n := mvbUnDecorate(C.Controls[i].Name, 'ed', '');
          n := mvbUnDecorate(n, 'cmb', '');
          n := mvbUnDecorate(n, 'de', '');
          sd.data.Values[n] := THackControl(C.Controls[i]).Text;
        end;
        if C.Controls[i] is TWinControl then
         _addctrls(TWinControl(C.Controls[i]));
       end;
    end;
  begin
       sd.data.Values['strax_type'] := IntToStr(cmbStraxType.ItemIndex);
       _addctrls(Self);
  end;
  

  здесь, правда, я вначале в StringList загонял...
  
  P.S. Не совсем то, что хотел ТС, но как одно из решений...