Странный глюк

← →
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 лет всего, эт первый такой случай, а что, трудно ответить?

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

ОК! Спасибо

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