Скачать: CL | DM;

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

← →
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 МВо а разницы в принципе никакой

---

← →
Evgeny ©   (2002-09-25 05:02) [4]

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;

---

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

Скачать: CL | DM;



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