Page 1 of 1

GPF ERROR - Freebitmaps()

PostPosted: Mon Apr 19, 2010 5:44 pm
by MGA
Sr. Antonio,

Um cliente me reportou que ao utilizar um modulo do meu sistema por mais de 10 minutos o sistema gera GPF(erro do windows: "Este programa executou uma operação ilegal e será fechado.")

O mesmo problema foi reportado pelo Mauricio:
viewtopic.php?f=3&t=16168

Consegui simular o ERRO, e a função responsavel por gerar a GPF:
btnbmp:Freebitmaps()

Uma parte do codigo:

@ 00,00 btnbmp MoBtn[i] resource qualmod2 top size 60,64 of oWndc pixel

...


for nContaMesas := 1 to nMaxMesa
sysrefresh()
moBtn[nContaMesas]:FreeBitmaps()
if lchange...
moBtn[nContaMesas]:loadbitmaps(qualmod2)
else
moBtn[nContaMesas]:loadbitmaps(qualmod1)
endif
moBtn[nContaMesas]:refresh()
next