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

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

Плавно зарисовать Desktop [D7, WinXP]

ArtemESC ©   (2005-08-22 12:36:00) 

Что я делаю не так:

 DC  : TDC;
 x, y: integer;
 C   : TCanvas;
begin
 DC:= GetDC(GetDesktopWindow());
 C := TCanvas.Create;
 C.Handle := DC;
 C.Brush.Color := clRed;
 for x := 1 to 8 do
    for y := 1 to 6 do
       begin
       C.Rectangle(x*128 - 128,  y*128 - 128, x*128, y*128);
       Sleep(100);
       end;
 C.Refresh;
 C.Free;
end.

---

XProger   (2005-10-01 19:38:00) [1]

впринципе то надо, но оно здесь незачем...

---

XProger   (2005-10-01 19:36:00) [2]

Antonn, нет, не надо...

---

Antonn   (2005-10-01 16:56:00) [3]

а DC "отрелизить" не надо?

---

XProger   (2005-10-01 15:48:00) [4]

program Project1;

uses
Windows;

var
x, y : integer;
w, h : integer;
DC   : HDC;
begin
w  := GetSystemMetrics(SM_CXSCREEN);
h  := GetSystemMetrics(SM_CYSCREEN);
DC := GetDC(0);
for y := 0 to h - 1 do
for x := 0 to w - 1 do
 SetPixel(DC, x, y, $0000FF);
invalidateRect(0, nil, true);
end.


---

Ебан   (2005-10-01 13:15:00) [5]

Я бы тоже хотел это узнать

---

Eraser   (2005-08-22 12:45:00) [6]

ArtemESC   (22.08.05 12:36)
Что я делаю не так

А кто его знает...

---

Наверх