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

Вниз

Странный глюк   Найти похожие ветки 

← →
Creater   (2006-08-13 13:41) [0]

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


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;


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

---

← →
Ketmar ©   (2006-08-13 13:42) [1]

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

---

← →
DelphiMax ©   (2006-08-13 13:44) [2]

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

---

← →
Creater   (2006-08-13 13:45) [3]

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

---

← →
Ketmar ©   (2006-08-13 13:45) [4]

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

---

← →
Creater   (2006-08-13 13:46) [5]

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

---

← →
DiamondShark ©   (2006-08-13 13:56) [6]

А что, трудно справку по используемым функциям посмотреть?
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 16:05) [7]

ОК! Спасибо

---

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

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

Наверх

Память: 0.45 MB
Время: 0.057 c