Сброс прокрутки TScrollBox после удаления изображений в Delphi

Delphi , Компоненты и Классы , TScrollBox

Возникла проблема с TScrollBox в Delphi: после удаления изображений из компонента, полоса прокрутки не сбрасывается и продолжает расти. Это происходит из-за того, что при удалении изображения его верхний левый угол перемещается в центр того места, где оно находилось в TScrollBox, когда битмап был освобожден.

Чтобы решить эту проблему, нужно переместить изображение вверх после отключения полос прокрутки и освобождения изображения, но перед загрузкой нового изображения в объект изображения. Вот пример кода на Object Pascal (Delphi), который демонстрирует это решение:

try
  // Сброс существующих изображений
  if Assigned(Image1.Picture.Bitmap) then
    Image1.Picture.Bitmap.FreeImage;
  Image1.Picture.Graphic := TBitmap.Create;
  Image1.Picture.Bitmap := TBitmap.Create;

  // Сброс битмапа
  if Assigned(bitmap123) then
    bitmap123.FreeImage;

  bitmap123 := TBitmap.Create;
finally
  ScrollBox1.HorzScrollBar.Visible := false;
  ScrollBox1.VertScrollBar.Visible := false;
  Image1.Top := 0; Image1.Left := 0;
  Image1.Refresh;
  Application.ProcessMessages;

  ScrollBox1.HorzScrollBar.Visible := true;
  ScrollBox1.VertScrollBar.Visible := true;
  ScrollBox1.Refresh;
end;
// Теперь изображения можно загружать,
// и они будут появляться в левом верхнем углу scrollbox каждый раз.

После выполнения этого кода полоса прокрутки будет правильно сбрасываться после удаления изображений из TScrollBox, и новые изображения будут отображаться в левом верхнем углу scrollbox.

Создано по материалам из источника по ссылке.

Проблема с TScrollBox в Delphi решается путем перемещения изображения вверх после отключения полос прокрутки и освобождения изображения, но перед загрузкой нового изображения в объект изображения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TScrollBox ::