| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Рисование на рабочем столе [Delphi, C++ Builder, Windows]

Анат ©   (2003-02-01 15:05:00) 

Подскажите, как можно рисовать на рабочем столе?
Очень надо

---

i-C3H7OH   (2003-02-03 16:16:00) [1]

рисует эллипс в середине экрана, заполненный иконками.


procedure TForm1.Button1Click(Sender: TObject);
var dc:HDC;
op,hp:HPEN;
hb, ob:HBrush;
hbm:HBITMAP;
sx,sy:integer;
begin
dc := GetDC(0);

hp := CreatePen(PS_SOLID, 1, $00ff0000);
hbm := LoadBitmap(0, PChar(PChar(OBM_CLOSE)]));
hb := CreatePatternBrush(hbm);

op := SelectObject(dc, hp);
ob := SelectObject(dc, hb);

sx := GetSystemMetrics(SM_CXSCREEN) div 2;
sy := GetSystemMetrics(SM_CYSCREEN) div 2;

Ellipse(dc, sx-200, sy-100,sx+200 , sy+100);

SelectObject(dc, op);
SelectObject(dc, ob);

DeleteObject(hp);
DeleteObject(hb);
DeleteObject(hbm);

ReleaseDC(0, dc);
end;


---

K@zzel   (2003-02-01 15:47:00) [2]

var
dc: hdc
...
dc := GetDC(0);
...

---

Наверх