| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
куда исчезают ресурсы?
Diamond Cat © (2002-09-24 18:55:00)Вот кусок кода
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); и ресурсы ситемы тают на глазах, спрашивается в задачнике какого х.. ?
Evgeny (2002-09-25 05:02:00) [1]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;
Diamond Cat (2002-09-25 00:04:00) [2]2 Zz_пытался высвободить и getdc(0) но системные ресурсы все равно дохнут, причем они не востанавливаются по закрытию программы.
2 МВоа разницы в принципе никакой
MBo (2002-09-24 19:03:00) [3]Почему бы вместо getdc(form1.Handle) Canvas.Handle не использовать?
Zz_ (2002-09-24 18:58:00) [4]У тебя два getDC, а release один
| |
