Форум: "Media";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];

Вниз

Рисование на рабочем столе   Найти похожие ветки 

← →
Анат   (2003-02-01 15:05) [0]

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

---

← →
K@zzel   (2003-02-01 15:47) [1]

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

---

← →
i-C3H7OH   (2003-02-03 16:16) [2]

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


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;


---

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

Форум: "Media";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.011 c