Плавно зарисовать 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 "отрелизить" не надо?

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

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

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