Изображения

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

Пользуюсь Intellij IDEA.
Подскажите пожалуйста, есть ли такие настройки интерфейса, которые делают предустановленные фигурные скобки в таком порядке?

package com.company;

public class Okno
{

}

Вот так не хочется:

package com.company;

public class NewClass {
}

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

Как, используя DirectShow, отзеркалить или перевернуть изображение? Есть ли для этого какой-нибудь интерфейс или фильтр?
Если делать это через SampleGrabberCallback, то видео тормозит.

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

Как создать видео ряд из картинок (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 — ругается при выполнении все равно.
(читать всё…)

На борту 300 файлов в формате docx. Существует ли макрос, который умеет их пакетно конвертировать в doc? (у меня Word 2003 и он крайне медленно открывает docx’ы).

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