ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как можно вывести в FastReport
4 сообщений из 4, страница 1 из 1
Как можно вывести в FastReport
    #32216055
MW
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MW
Участник
На форме отчета Picture1: TfrPictureView
В основной программе класс-наследник от TImage
Подскажите как загнать изображение из TImage в Picture1
Или варианты как выйти из положения (Delpi 6, FR 2.47)
...
Рейтинг: 0 / 0
23.07.2003, 17:10
| Ответить | Цитировать | Написать  
Как можно вывести в FastReport
    #32216246
Hammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hammer
Участник
var
Pic: TfrPictureView;
begin
Pic := frReport.FindObject( 'Picture' ) as TfrPictureView;
Pic.Picture := Image.Picture;
frReport.ShowReport;
end;
...
Рейтинг: 0 / 0
23.07.2003, 19:42
| Ответить | Цитировать | Написать  
Как можно вывести в FastReport
    #32216524
MW
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MW
Участник
Все классно, но...
Исходный класс надо уничтожать.
Простое присвоение даст совместное использование одного объекта (TPicture) двумя классами.

Image.Picture.Bitmap.SaveToStream( ST );
Pic.Picture.BitMap.LoadFromStream( ST );
Такой вариант не проходит почему-то. FastReport ругается Bitmap image is not valid. Причем SaveToFile-LoadFromFile проходит на "ура!"
Через файлы это криво на мой взгляд. Еще идеи будут?
...
Рейтинг: 0 / 0
24.07.2003, 10:23
| Ответить | Цитировать | Написать  
Как можно вывести в FastReport
    #32216706
MW
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MW
Участник
Спасло следующее:
Код: plaintext
1.
2.
      Pic.Picture.Bitmap.Handle :=
        CopyImage( Image.Picture.Bitmap.Handle, IMAGE_BITMAP, Image.Width, Image.Height, LR_COPYRETURNORG ) ;


Всем спасибо.
...
Рейтинг: 0 / 0
24.07.2003, 12:12
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как можно вывести в FastReport
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]