В плейер нужно встроить индикатор громкости, какой функцией это можно сделать в 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

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

Как вывести размер файла не в байтах, а в Кб или Мб?

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

Можно ли как то, из программы на Делфи, определить установлен или нет Microsoft Office на локальном компьютере?

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

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

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

Иногда так бывает, что надо скопировать текст/код, содержащий кириллические буквы, из редактора кода или текстовых полей разработанного приложения.

Проблема состоит в том, что, когда такой текст вставляется в другие текстовые редакторы, кириллические символы вставляются в неверной кодировке. Например, такой код:

// комментарии
procedure TForm1.FormCreate(Sender: TObject);
begin
 showMessage('Всё хорошо')
end;

end.

Может быть вставлен в таком виде:

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