Как создать видео ряд из картинок (640*480) средствами Delphi XE5 — XE7… Цель моей программы — периодическая съёмка (1 раз в 10 сек) объекта и сохранение снимка на диск, а при нажатии на кнопку — из этих снимков собрать видеофайл… Съемку по таймеру я уже сделал, даже прикрутил «датчик движения» (пока не знаю зачем)… А вот со сборкой видеоряда полная засада… ни когда не имел дело с видео, кроме плееров…

(читать всё…)

В программе виртуальный ListBox для отображения списка терминов, которые хранятся в обычном текстовом файле (структура файла «термин» табуляция «перевод», в листбоксе отображается только «термин»).
Когда словарь небольшой, скажем, несколько сотен терминов, — все гут.
Но когда терминов порядка сотни тысяч (переделал какой-то готовый толковый словарь, там термины от «А» до «Я») невозможно прокрутить ListBox до конца, где-то на середине (буква «О») слова начинают повторяться с «А».
Как бороться?

(читать всё…)

Не могу разобраться, почему нет прозрачности при отрисовке на канве.

Загружаю тайлсет tileset.png, в котором есть прозрачность в PNGImage с именем Tileset. Далее рисую на канве компонента PNGImage с именем Surface этой процедурой:

procedure TForm1.DrawTile(const X, Y, Index: Integer);
begin
  Surface.Canvas.CopyRect(Bounds(X * TileSize, Y * TileSize, TileSize,
    TileSize), Tileset.Canvas, Bounds((Index mod TilesetWidth) * TileSize,
    (Index div TilesetWidth) * TileSize, TileSize, TileSize));
end;

…вот так:

procedure TForm1.FormPaint(Sender: TObject);
var
  X, Y: Integer;
begin
  for Y := 0 to MapHeight - 1 do
    for X := 0 to MapWidth - 1 do
    begin
      DrawTile(X, Y, Map[lrGround][X][Y]);
      DrawTile(X, Y, Map[lrObject][X][Y]);
    end;
  Canvas.Draw(0, 0, Surface);
end;

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

(читать всё…)

Хочу в программе при нажатии кнопки чтобы в проводнике открывал необходимую мне папку. Как это лучше сделать, есть ли такая команда (если да, то напишите пример использования)?

(читать всё…)

Миниатюры

(читать всё…)

Загружаю jpg в Jmage, пытаюсь по ней вывести текст — ругается при выполнении. А как же быть ? Картинка д.б. одна, а тексты разные. Впрочем, не в картинке дело — пытаюсь залить Jmage путем FillRect — ругается при выполнении все равно.
(читать всё…)

Есть список с набором заданий (построчно перечислен список столбцов для выборки из таблицы) и таблица из которой нужно извлекать данные по указанным столбцам после перемешивая между собой данные генерируя макс. количество слов.

Количество столбцов в таблице и в списке заданий может меняться пользователем.

Запутался в циклах совсем, получается сгенерировать только 1 раз для конкретной строки, после чего цикл идет дальше а вернуть еще раз генерацию для слова не могу, да и количество слов в каждом столбце разное, немного сбивает с толку.

К примеру: берем 1 значение из набора правил — 2 3 1 и генерируем для него максимум вариаций:
1) собрать красный стол
2) собрать синий стол
3) собрать белый стол
4) собрать красный стул
5) собрать синий стул
6) собрать белый стул
7) …
вместо слова можно использовать термин ячейка таблицы, если так удобней.
цифры в наборе правил — это номера столбцов для выборки в таблице.

(читать всё…)

Как сделать загрузку большого текстового файла в TMemo (Windows и Android), чтобы затем можно было листать «постранично»?

(читать всё…)

Вложения

DELPHI_SIMPLEX.rar (852.8 Кб)

тема на форуме

Как взять кадр из видео без остановки самого видео потока? Мне нужно сделать детектор движения.

(читать всё…)