|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.08.2013, 10:34 | #1 |
Форумчанин
Регистрация: 11.10.2012
Сообщений: 409
|
Скриншот в TShape
Есть TShape Style:=bsClear;
Есть кнопки с помощью которого передвигается этот квадрат, также можно передвигать его мышкой. Как реализовать скриншот содержимого этого TShape, например навожу его на что-то, потом *клац* и скрин отправляется в переменную типа TBitmap |
20.08.2013, 10:47 | #3 |
Форумчанин
Регистрация: 11.10.2012
Сообщений: 409
|
Код:
Преобразовал Код:
Ищу готовые какие-то решения. Для моего тз, как вы понимаете форма должна быть "сквозной". Ну или может нужно использовать совершенно какой-то другой метод. Повторюсь, нужно TShape навести на участок экрана и его заскринить. Последний раз редактировалось Stilet; 20.08.2013 в 19:47. |
20.08.2013, 19:06 | #4 |
Участник клуба
Регистрация: 29.09.2008
Сообщений: 1,234
|
AlphaBlend, не?
|
20.08.2013, 19:37 | #5 |
Форумчанин
Регистрация: 11.10.2012
Сообщений: 409
|
Нет, уже вроде разобрался.
Код:
Так как я делаю скрин содержимого TShape перед скрином мне надо убирать Pen.Style - делать Pen.Style:=psClear; После скриншота возвращать его. Собственно как и написанно в коде выше. Проблема лишь в том что ничего не работает)) Рамка не исчезает. Как будто он эту строчку кода не видит |
20.08.2013, 21:33 | #6 |
Форумчанин
Регистрация: 11.10.2012
Сообщений: 409
|
Проблема в том, что сначала делается скриншот, а потом меняется Pen.Style на psClear, Хотя в программе описано иначе, почему?
|
20.08.2013, 21:55 | #7 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
После смены стиля вызови ему repaint принудительно.
I'm learning to live...
|
|
20.08.2013, 22:31 | #8 |
Форумчанин
Регистрация: 11.10.2012
Сообщений: 409
|
Код:
|
20.08.2013, 22:42 | #9 |
Форумчанин
Регистрация: 11.10.2012
Сообщений: 409
|
Самое интересное, если делаю вот так вот
Код:
Короче совсем бред получается. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
fireMonkey и Tshape | Murod-tj | Общие вопросы Delphi | 0 | 27.12.2012 04:53 |
TShape | Sanakan | Помощь студентам | 5 | 08.02.2010 01:05 |
Массив TShape?? | Тёма(C@$pEr) | Общие вопросы Delphi | 6 | 20.04.2009 10:42 |
Молекулы из TShape? | Тёма(C@$pEr) | Помощь студентам | 0 | 19.04.2009 19:59 |
Вопрос о TShape | Rusl92 | Общие вопросы Delphi | 3 | 21.08.2008 12:53 |