Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Вниз

Копирование изображения   Найти похожие ветки 

 
Василий   (2006-06-02 06:30) [0]

Доброго времени суток, уважаемые мастера.
Подскажите пожалуйста как можно осуществить следующее.
У меня имеется форма на весь экран. И компонент Image в который загружена картинка превышающая размеры экрана(электрическая схема). Следовательно на форме появляется полоса прокрутки. Также на форме размещены метки (TLabel) которые после всех моих вычислений отбражают перетоки и напряжения на указанной картинке.
И вот теперь проблема: по нажатию на Button я копирую изображение с формы (form.canvas) в Clipboard подставляя размеры загруженной картинки, у меня копируется все что видно на экране (это и кнопка пуск с ее панелью, и верхняя часть экрана), а мне надо чтобы было изображение схемы с нанесенными на нее Tlabel для дальнейшей распечатки в Word/PPoint.

Подскажите пожалуйста как можно решить эту задачу.

С уважением, Василий.


 
MBo ©   (2006-06-02 07:28) [1]

Используй TForm.PaintTo для копирования в битмап.


 
Василий   (2006-06-03 06:19) [2]

Прошу прощения, но немного не понятно(так как начинающий). Я использовал метод Copyrect в Bitmap. Разве метод TForm.PaintTo правильно скопирует все то что находится на форме, включая то что скрыто за ползунками (без всяктх кнопок пуск и т.д.) .....

Если можно чуточку по подробнее, пожалуйста.

С уважением, Василий.


 
MBo ©   (2006-06-03 06:53) [3]

>Разве метод TForm.PaintTo правильно скопирует все то что находится на форме, включая то что скрыто за ползунками

Я ответил на заданный вопрос о копировании с нанесенными TLabel.
А правильно это для твоего случая или нет - проверь.


 
Loginov Dmitry ©   (2006-06-03 09:05) [4]

Вместо TForm используй TImage
Вместо TLabel используй Canvas.TextOut


 
Василий   (2006-06-04 00:55) [5]

Прошу прощения но есть несколько "но":
Если использовать TImage, то во временную переменную TBitmap будет скопировано только изображение Timage  без меток, проверял.
Если вместо  TLabel использовать Canvas.TextOut, то у меня очень много, к сожалению, меток (а осуществлять подборку координат для большлго количества параметров немного сожнее станет), но все равно попробую.

Кстати, родилась идея: а можно ли скажем клиентскую часть всей формы( даже если она выходит за пределы разрешения экрана) в виде пикселов преобразовать в векторную или битовую матрицу изображения. Тогда согласно логике все элементы, находящиеся в клиентской части формы, должны будут оказаться в  "изображении" матрицы. А после чего можно будет вывести на печать.  Если такое возможно, не могли бы Вы подсказать, как это можно организовать или указать ссылку где подобная тема рассмотрена.

С уважением, Василий.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.011 c
2-1149773038
AlexanderMS
2006-06-08 17:23
2006.06.25
Русификация сообщений об ошибках


1-1147688524
Tempora
2006-05-15 14:22
2006.06.25
Как определить является ли папка символической ссылкой?


1-1147642063
TDWS
2006-05-15 01:27
2006.06.25
[DelphiWebScript] Надо вызвать из скрипта функцию программы, и


15-1149077142
adalx
2006-05-31 16:05
2006.06.25
Вообще-то вопрос по сетям, но мне там не отвечают


9-1131388711
2Wish
2005-11-07 21:38
2006.06.25
Как ограничить FPS





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский