VPF::Реализация полупрозрачной рамки, прямоугольника

dmitry120873

Дата 6.9.2008, 11:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 25.8.2008

Репутация: нет
Всего: нет

Подскажите возможные пути решения полупрозрачной рамки или полупрозрачного прямоугольника, который можно использовать вне формы TForm.
Это нужно для выделения этой рамкой разных окон на рабочем столе с целью дальнейшего копирования графического образа текущего окна в буфер обмена.

BaD_SeCt0R

Дата 6.9.2008, 13:12 (ссылка)

(голосов:1)

Загрузка ...

Lazy Coder

Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: нет
Всего: 18

dmitry120873, пусть у тебя вся область экрана накрывается почти прозрачной формой, а выделение уже происходит на ней

--------------------

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

bems

Дата 7.9.2008, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 1
Всего: 88

Код


procedure TForm1.FormResize(Sender: TObject);
var rgn1,rgn2:HRGN;
begin
rgn1:=CreateRectRgn(0,0,Width,height);
rgn2:=CreateRectRgn(2,2,width-4,height-4);
CombineRgn(rgn1,rgn1,rgn2,RGN_DIFF);
DeleteObject(rgn2);
SetWindowRgn(Handle,rgn1,true)
end;

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »