Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Рисование на рабочем столе полупрозрачных объектов [D7, WinXP]

dmitry_12_08_74 © (2008-08-26 13:40:00)
Как можно рисовать на рабочем столе объекты типа прямоугольника, рамки с настраиваемой степенью прозрачности

Vlad Oshin (2008-08-26 13:59:00) [1]
делаем прозрачную форму и из нее выпиливаем регионы
программа-генератор кода для выпиливаем регионы -
LogoMaker.exe ( www.ya.ru )

dmitry_12_08_74 (2008-08-26 13:55:00) [2]
Спасибо, можете немного словами пояснить код? У меня в результате выполнения получается обрезанная справа полупрозрачная рамка

Vlad Oshin (2008-08-26 13:47:00) [3]
procedure TForm1.FormCreate(Sender: TObject);
const
n = 7;
var
nn : integer;
ResultReg, Reg : HRGN;
P : array[0..n-1] of TPoint;
begin
//Put Ellipse
//инициализация ResultReg
ResultReg := CreateEllipticRgn(71,84,91,104);
//Put polygon
nn := 4;
P[0] := Point(81,84);
P[1] := Point(81,104);
P[2] := Point(425,104);
P[3] := Point(425,84);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(415,84,435,104);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(415,84,435,104);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(415,94);
P[1] := Point(415,248);
P[2] := Point(435,248);
P[3] := Point(435,94);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(415,238,435,258);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(415,238,435,258);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(425,238);
P[1] := Point(425,258);
P[2] := Point(78,258);
P[3] := Point(78,238);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(68,238,88,258);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(68,238,88,258);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(88,248);
P[1] := Point(89,94);
P[2] := Point(69,94);
P[3] := Point(68,248);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(69,84,89,104);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
SetWindowRgn(Handle, ResultReg, False);
AlphaBlend:=(1>0);
AlphaBlendValue:=150;
end;

{RASkov} (2008-08-26 13:44:00) [4]
> [0] dmitry_12_08_74 (26.08.08 13:40)

Захват контекста экрана DC:=GetDC(0);
Собственно рисуем на DC
Освобождаем DC - ReleaseDC(0, DC);

Зачем это все нужно-то? :)

{RASkov} (2008-08-26 13:44:00) [5]
DC: HDC;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »