Листать изображения, например, через ImageList

@batmanrider · Регистрация: 20.09.2011

Author24 — интернет-сервис помощи студентам

Я знаю, что в имедж листе только до 16х16 размеры картинок, допустим я загрузил их, и через image1 хочу листать кнопками по индексу, но картинки 16х16 меня не устраивают(или какой там размер, забыл уже), или переписывать класс обязательно надо для этого? или можно в массиве держать(но как, мне реализация интересна), загрузка с массовым выделением через диалог выбора изображений. Заранее спасибо.
И не рухнет ли процессор, если в массив загрузить картинок 30 весом по несколько мб?

@БогДелфей · 13.08.2012, 23:17

Максимум 256х256
Листать по очереди начиная с первой картинки:

Delphi

var
  Form1: TForm1;
  i: Integer = 0;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture := nil;
    if not (i = ImageList1.Count) then
      begin
        ImageList1.GetBitmap(i, Image1.Picture.Bitmap);
        Inc(i);
      end
    else i := 0;
end;

Осторожнее с этим, процессор действительно может рухнуть!

@batmanrider · 13.08.2012, 23:25 **[ТС]**

У меня изображения размерами 500х500 делало размером 16х16 в имеджлисте. За код спасибо. Как можно, сделать так, что кликаешь на изображение, а открывается твоя программа, а не стандартный просмотр изображений windows. И как лучше делать, вывести список путей, например, в stringlist и по одному с помощью поинтера выводить или как?

@БогДелфей · 13.08.2012, 23:35

Чтобы открывалась твоя программа, нужно ассоциировать графические файлы с твоим приложением, делается это через реестр, только ветки реестра я не помню, в поиске посмотри, тут это не раз обсуждалось.

Читать\Писать в реестр, через TRegistry

Пути не знаю какие ты собираешься хранить

@ZAYEC77 · 14.08.2012, 00:10

Сообщение от batmanrider

а не стандартный просмотр изображений windows

Delphi

procedure TForm1.FormCreate(Sender: TObject);
var params: string;
  i:byte;
begin
params:='';
if ParamCount>0 then
begin
for i := 1 to ParamCount do
begin
params := params + ParamStr(i);
if i<>ParamCount then params := params + ' ';
end;
//params-- путь файла "через открыть с помощю"
end;

Добавлено через 2 минуты
А зачем вам ImageList, можно же просто пути запоминать(например в массиве), пожалуйста объясните..

@batmanrider · 14.08.2012, 10:20 **[ТС]**

Сообщение от ZAYEC77

Delphi

procedure TForm1.FormCreate(Sender: TObject);
var params: string;
  i:byte;
begin
params:='';
if ParamCount>0 then
begin
for i := 1 to ParamCount do
begin
params := params + ParamStr(i);
if i<>ParamCount then params := params + ' ';
end;
//params-- путь файла "через открыть с помощю"
end;

Добавлено через 2 минуты
А зачем вам ImageList, можно же просто пути запоминать(например в массиве), пожалуйста объясните..

Вот я это и имел ввиду в своём последнем посте и загружать в имедж1 через поинтер.

Новые блоги и статьи
Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .

@batmanrider 21 / 22 / 2 Регистрация: 20.09.2011 Сообщений: 196 Записей в блоге: 1
		1
	Листать изображения, например, через ImageList 13.08.2012, 22:38. Показов 2938. Ответов 5 Метки нет (Все метки) Я знаю, что в имедж листе только до 16х16 размеры картинок, допустим я загрузил их, и через image1 хочу листать кнопками по индексу, но картинки 16х16 меня не устраивают(или какой там размер, забыл уже), или переписывать класс обязательно надо для этого? или можно в массиве держать(но как, мне реализация интересна), загрузка с массовым выделением через диалог выбора изображений. Заранее спасибо. И не рухнет ли процессор, если в массив загрузить картинок 30 весом по несколько мб? 0

@batmanrider 21 / 22 / 2 Регистрация: 20.09.2011 Сообщений: 196 Записей в блоге: 1
	13.08.2012, 23:25 [ТС]	3
	У меня изображения размерами 500х500 делало размером 16х16 в имеджлисте. За код спасибо. Как можно, сделать так, что кликаешь на изображение, а открывается твоя программа, а не стандартный просмотр изображений windows. И как лучше делать, вывести список путей, например, в stringlist и по одному с помощью поинтера выводить или как? 0

@БогДелфей 474 / 337 / 36 Регистрация: 31.05.2011 Сообщений: 1,162
	13.08.2012, 23:35	4
	Чтобы открывалась твоя программа, нужно ассоциировать графические файлы с твоим приложением, делается это через реестр, только ветки реестра я не помню, в поиске посмотри, тут это не раз обсуждалось. Читать\Писать в реестр, через TRegistry Пути не знаю какие ты собираешься хранить 0

	14.08.2012, 10:20