Глюки при долгой работе

[SINED]

Друзья! После долгой работы программы, в которой происходит загрузка картинок, постоянное их перемещение, работа с таймерами, программа начинает глючить... Может есть какая-нибудь команда для очистки памяти или что-то в этом роде?

[kif]

не знаю, что у тебя за работа с картинками. Я сталкивался с тем что классы или ocx для сохранения в jpg не освобождают память и через некоторое время программа занимает больше сотни метров. Проследи этот вариант.

[SINED]

не знаю, что у тебя за работа с картинками. Я сталкивался с тем что классы или ocx для сохранения в jpg не освобождают память и через некоторое время программа занимает больше сотни метров. Проследи этот вариант.

ВО! Там у меня скорее всего они и рушат мне все...

А они только с JPEG так работают? Или вообще с любыми форматами изображений?

[kif]

за savepicture я такого не замечал, а в jpg они же в основном самопальные (кто как мог так и написал)

[kif]

Вот эта фенкция не жрет память. (Проверено, использовал для сохранения изображения с web-камеры 25 каюров в секунду - без проблем)

[SINED]

за savepicture я такого не замечал, а в jpg они же в основном самопальные (кто как мог так и написал)

А не подскажешь кнопку какую-нибудь, которая лишена такой проблемы? Т.е. чтобы можно было натянуть на нее три картинки: обычный вид, при наведенной мыши и нажатая кнопка, но работала чтобы стабильно и не глючила вот так вот Я сейчас использовал CoolButton.

[tyomitch]

SINED, на vbrussian.com в разделе "Контролы" таких кнопок навалом...

[SINED]

SINED, на vbrussian.com в разделе "Контролы" таких кнопок навалом...

И не глючат при долгом использовании?

[tyomitch]

Ну проверь - я же не проверял все...
Если выложишь на форуме результаты проверки, уверен - все тебе будут неописуемо благодарны.

[kif]

Вот я написал:

Код: Выделить всё

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Command1.Picture = ImageList1.ListImages(3).Picture
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Command1.Picture = ImageList1.ListImages(2).Picture
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Command1.Picture = ImageList1.ListImages(2).Picture
End Sub

Private Sub Form_Load()
Command1.Picture = ImageList1.ListImages(1).Picture
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Command1.Picture = ImageList1.ListImages(1).Picture
End Sub

все нормально работает, не пойму что у тебя глючит.