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

Вниз

Плавно зарисовать Desktop   Найти похожие ветки 

← →
ArtemESC   (2005-08-22 12:36) [0]

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

 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.

---

← →
Eraser ©   (2005-08-22 12:45) [1]

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

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

---

← →
Ебан   (2005-10-01 13:15) [2]

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

---

← →
XProger ©   (2005-10-01 15:48) [3]

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.


---

← →
Antonn ©   (2005-10-01 16:56) [4]

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

---

← →
XProger ©   (2005-10-01 19:36) [5]

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

---

← →
XProger ©   (2005-10-01 19:38) [6]

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

---

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

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

Наверх

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