Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

17th
Фев

Как сделать большое изображение на маленькой форме?

Posted by Chas under Пост-обзор

Столкнулся с такой проблемой….
Имеются много (10к+) картинок 256х256 формата jpg. Необходимо их всех склеить и разместить на форме. При их склеивании образуется оч. большая картинка. Как сделать так, что бы размеры формы остались к примеру 800х800, а картинка была на этой форме в натуральную величину (т.е. не уменьшалась), а передвижение по этой картинке осуществлялось с помощью мышки ( при удержании ЛКМ можно было передвигаться по этой большой картинке ).

SERG1980:
Я бы так сделал
Кидаем на форму ScrollBox на него Image.
Клеим ваши фото в битмапе и выводим на имидж
потом пишем вот это

var xn,yn:integer;//объявлены глобально
procedure Form1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if ssLeft in Shift then
 begin
  xn:=x;
  yn:=y;
 end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var xm,ym:integer;
begin
if  ssLeft in Shift then//ЛКМ
begin
 xm:=-(xn-x);
 ym:=-(yn-y);
 form1.ScrollBox1.ScrollBy(xm,ym);
 xn:=x;
 yn:=y;
end;
end;