куда исчезают ресурсы?

← →
Diamond Cat © (2002-09-24 18:55) [0]

Вот кусок кода
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
timer1.Enabled:=false;
for i:=0 to 19 do
begin
Top:=top+1;
// bitblt( getdc(form1.Handle),0,0,40,1,getdc(0),left,top+1,srccopy);
application.ProcessMessages;
sleep(5);
releasedc(handle,Canvas.handle);
end;
for i:=19 downto 0 do
begin
top:=top-1;
application.ProcessMessages;
sleep(5);
end;
timer1.enabled:=true;
стоит снять коментарий с bitblt( getdc(form1.Handle),0,0,40,1,getdc(0),left,top+1,srccopy); и ресурсы ситемы тают на глазах, спрашивается в задачнике какого х.. ?

← →
Zz_ (2002-09-24 18:58) [1]

У тебя два getDC, а release один

← →
MBo © (2002-09-24 19:03) [2]

Почему бы вместо getdc(form1.Handle) Canvas.Handle не использовать?

← →
Diamond Cat © (2002-09-25 00:04) [3]

2 Zz_ пытался высвободить и getdc(0) но системные ресурсы все равно дохнут, причем они не востанавливаются по закрытию программы.

2 МВо а разницы в принципе никакой

DC := GetDC(0);
try
Top := Top + 1;
BitBlt(Form1.Canvas.Handle, 0, 0, 40, 1, DC, Left, Top + 1, SRCCOPY);
application.ProcessMessages;
sleep(5);
finally
ReleaseDC(handle, DC);
end;

куда исчезают ресурсы? Найти похожие ветки