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

Загружаю тайлсет 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 Кб)

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

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

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

Как выгрузить все записи из DBGrid в текстовый файл (на Lazarus, Free Pascal)?

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

Если у вас установлено несколько версий Delphi, вы можете использовать мой батник (вернее, cmd-шник) для компиляции любой версией. Ну и ещё несколько вспомогательных…

Файлы:

• dcc.cmd — основной файл для компиляции, имеет много опций, запускайте без параметров и смотрите возможные варианты опций.
• cleanupdpr.cmd — очистка от лишних файлов (как работает см. ниже).
• d64.cmd — запуск dcc.cmd с опцией /64
• d7.cmd — запуск Delphi 7 IDE
• d07.cmd — запуск Delphi 2007 IDE
• d102.cmd — запуск Delphi 2007 IDE
• dccAll.cmd — компиляция всеми компиляторами (после каждого пауза с вопросом: продолжить или нет)
• dccAllE.cmd — компиляция всеми компиляторами (пауза с вопросом только в случае ошибки)
• dccAllS.cmd — компиляция всеми компиляторами (пауза с вопросом только в случае успешной компиляции)
• dccAllF.cmd — компиляция всеми компиляторами (аналогично dccAllE.cmd) с созданием папки под каждый компилятор, т.е. на выходе получаем файл, скомпилированный каждым компиляторов в отдельную папку
• bds2007.bat — запуск Delphi 2007 IDE (учитывая, что там есть косяки с файлом EditorLineEnds.ttr в %TEMP%)

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