Текущий архив: 2007.05.06;
Скачать: CL | DM;

Вниз

под окном   Найти похожие ветки 

← →
dr_craigan   (2007-04-17 14:03) [0]

Как узнать что находится прямо под окном, как при прозрачности окошка.

---

← →
Romm ©   (2007-04-17 14:09) [1]

DVM ©   (03.03.07 23:12) [2]
вот для размышлений:

procedure TForm1.Button1Click(Sender: TObject);
begin
PaintDesktop(getdc(panel1.Handle));
end;

---

← →
{RASkov}   (2007-04-17 14:19) [2]

D7
procedure TForm1.FormCreate(Sender: TObject);
begin
 AlphaBlend:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 BitBlt(Canvas.Handle, 0, 0, ClientWidth, ClientHeight, GetDC(0), ClientOrigin.X, ClientOrigin.Y, SRCCOPY);
end;

---

← →
{RASkov}   (2007-04-17 14:20) [3]

D7
procedure TForm1.FormCreate(Sender: TObject);
begin
 AlphaBlend:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 BitBlt(Canvas.Handle, 0, 0, ClientWidth, ClientHeight, GetDC(0), ClientOrigin.X, ClientOrigin.Y, SRCCOPY);
end;

---

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

Текущий архив: 2007.05.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c