Как сделать скриншот области экрана?

@ПраПрапорщик · Регистрация: 14.07.2015

Author24 — интернет-сервис помощи студентам

Есть пример на Делфи http://delphiexpert.ru/sozdani... elphi.html, но в Lazarus отсуствует Transparentcolor свойство.
Выставил Alphablend true и AlphablendValue 100, делаю скриншот экрана и переношу на всю форму, все нормальгно, полупрозрачно.
Далее пробую на OnMouseMove делать Canvas.CopyRect с экрана, но тогда именно нарисованное таким образом прямоугольник полупрозрачен, а вся остальная форма залита полностью.

@volvo · 02.04.2016, 16:31

Лучше бы на проект посмотреть, а не на описание того, что ты сделал и у тебя не работает.

@ПраПрапорщик · 02.04.2016, 21:32 **[ТС]**

А есть пример?

Добавлено через 50 секунд
Я делаю сложно, может есть простой пример (но с прямоугольником выделения)

@ПраПрапорщик 11 / 8 / 3 Регистрация: 14.07.2015 Сообщений: 284
		1
	Как сделать скриншот области экрана? 02.04.2016, 16:05. Показов 3979. Ответов 2 Метки нет (Все метки) Есть пример на Делфи http://delphiexpert.ru/sozdani... elphi.html, но в Lazarus отсуствует Transparentcolor свойство. Выставил Alphablend true и AlphablendValue 100, делаю скриншот экрана и переношу на всю форму, все нормальгно, полупрозрачно. Далее пробую на OnMouseMove делать Canvas.CopyRect с экрана, но тогда именно нарисованное таким образом прямоугольник полупрозрачен, а вся остальная форма залита полностью. 0

@volvo Супер-модератор 32983 / 21292 / 8177 Регистрация: 22.10.2011 Сообщений: 36,569 Записей в блоге: 8
	02.04.2016, 16:31	2
	Лучше бы на проект посмотреть, а не на описание того, что ты сделал и у тебя не работает. 0

@ПраПрапорщик 11 / 8 / 3 Регистрация: 14.07.2015 Сообщений: 284
	02.04.2016, 21:32 [ТС]	3
	А есть пример? Добавлено через 50 секунд Я делаю сложно, может есть простой пример (но с прямоугольником выделения) 0

Опции темы