Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.07;
Скачать: 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 вся ветка

Текущий архив: 2002.11.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
6-21720
zx
2002-09-10 17:48
2002.11.07
NMSMTP1.PostMessage.ToName ?


3-21427
Chak
2002-10-18 23:54
2002.11.07
Date&Time in ORACLE


7-21840
Terrible
2002-09-04 15:19
2002.11.07
Проверяем наличие администраторских привилегий.


4-21873
Dm9
2002-09-25 22:07
2002.11.07
Как обновить desktop?


8-21689
kuzmich
2002-07-17 11:26
2002.11.07
GLScene