Есть ли способ регулировки по отдельности левого и правого каналов звука?

интересует примерно следующее но так не работает видимо для midi

Samples:= BASS_SampleLoad(false, Pchar(OpenDialog1.filename),0,0,10, BASS_SAMPLE_LOOP);
Channel:= BASS_SampleGetChannel(Samples, false);
BASS_ChannelSetAttribute(Chanel, BASS_ATTRIB_MUSIC_VOL_CHAN + 1, 0.1);
BASS_ChannelSetAttribute(Chanel, BASS_ATTRIB_MUSIC_VOL_CHAN + 2, 0.1);
BASS_ChannelPlay(Channel, FALSE);

Так работает но это балансировка каналов, а мне нужно каждому из каналов задать свой уровень.

Samples:= BASS_SampleLoad(false, Pchar(OpenDialog1.filename),0,0,10, BASS_SAMPLE_LOOP);
Channel:= BASS_SampleGetChannel(Samples, false);
//установка громкости звука
BASS_ChannelSetAttribute(Channel,BASS_ATTRIB_VOL, vol);
//установка баланса
BASS_ChannelSetAttribute(Channel,BASS_ATTRIB_PAN,Ball);
BASS_ChannelPlay(Channel, FALSE);

Есть ли еще способы регулировки по отдельности каждый из каналов?

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

имеется MEMO в который грузится TXT файл в котором имеется 1000 строк (точно не знаю сколько, примерно наверное так и есть), так вот

так же имеется 2 Edit-а
EDIT1 — Указываем что заменить (если будет понятнее, то искать что менять)
EDIT1 — Указываем на что заменить найденный текст

КАК УСКОРИТЬ ЗАМЕНУ В МЕМО??? а то происходит я так понимаю построчно что ли и замена происходит ОЧЕНЬ ДОЛГО

если эту же самую операцию произвести в простом блокноте то там это занимает 1 сек.
(читать всё…)

имеем строку:

%7B%22data%22%3A%5B%7B%22%D0%A0%D0%B0%D0%B7%D0%BC%D0%B5%D1%80%20%D0%B1%D1%83%D1%84%D0%B5%D1%80%D0%BE%D0%B2%22%3A%2210%22%7D%5D%7D

необходимо преобразовать в:

{"data":[{"Размер буферов":"10"}]}

и наоборот. Как это сделать?
И как называется такое преобразование?

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

Подскажите каким методом можно максимально уменьшить нагрузку на компьютер при прорисовке изображений на компоненте Image 1?

Я пробовал рисовать через Canvas.Draw — но если нужно рисовать много изображений и хорошей частотой кадров — начинаются лаги (даже если ограничить прорисовку только видимой частью изображения)

Так же пробовал рисовать через bitblt, но нагрузка тоже сильно не уменьшилась.

Пробовал через движок Andorra2d, но там, если я правильно понял — прорисовка идет только в само окно формы, на компонентах рисовать нельзя (по крайней мере такой информации я не нашел).

Можно ли средствами DirectX, OpenGL или еще какими-то сделать прорисовку изображений максимально быстрой на одном из визуальных компонентах (Image, PaintBox и т.д.)? И есть ли существенная разница в скорости прорисовки Bmp и Jpeg с учетом разницы размера файлов одинакового разрешения? Рисую на канве через компонент Timer.

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

В плейер нужно встроить индикатор громкости, какой функцией это можно сделать в Delphi. И есть ли возможность разграничить звук по частотам?

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

Как можно управлять звуком правой и левой колонок с помощью TrackBar? Ну чтобы можно было увеличить звук определённого динамика перетаскиванием указателя.

Левый Динамики Правый
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|-0-| |-0-|

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

Как сделать так, чтобы выполнялась определённая процедура при изменении значения Edit.Text, но только в том случае если значение отличается от бывшего там ранее текста?

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

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

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

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

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

Допустим я создал ID2D1Bitmap *bitmap, и иконку.
А вот как нарисовать ту же линию или фигуру?

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

Как убрать мерцание при движении Image в Delphi 7 CLX
Именно CLX а не VCL

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