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

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

Странный глюк [D7, XP]

Creater ©   (2006-08-13 13:41:00) 

Пишу такой код


var
x,y : integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
desk : Thandle;
brush : TBrush;
begin
 desk := getwindowdc(getdesktopwindow);
 brush := TBrush.Create;
 brush.Color := clblack;
 selectobject(desk,brush.Handle);
 if x> screen.Width then
   begin
   x := 0;
   y := y+5;
   end;
 rectangle(desk,x,y,x+5,y+5);
 releasedc(desk,getdesktopwindow);
 brush.Free;
 x := x+5;
end;


Доходит до определенного момента и вдруг начинает произвольно рисовать белые квадраты, почему так?

---

Creater   (2006-08-13 16:05:00) [1]

ОК! Спасибо

---

DiamondShark   (2006-08-13 13:56:00) [2]

А что, трудно справку по используемым функциям посмотреть?
SelectObject
Return Values
If the selected object is not a region and the function succeeds, the return value is a handle to the object being replaced.

---

Creater   (2006-08-13 13:46:00) [3]

Ну, не совсем начинающий, хотя 15 лет всего, эт первый такой случай, а что, трудно ответить?

---

Creater   (2006-08-13 13:45:00) [4]

Это как? я начинающий

---

Ketmar   (2006-08-13 13:45:00) [5]

> [2] DelphiMax ©   (13.08.06 13:44)
раз начинающий, нечего в winAPI лазить допрежь чтения умных книг.

---

DelphiMax   (2006-08-13 13:44:00) [6]

Это как? я начинающий

---

Ketmar   (2006-08-13 13:42:00) [7]

восстанавливать старую кисть перед ReleaseDC() не пробовали?

---

Наверх