можно ли как-то в delphi сделать так чтобы звук повторялся постоянно. то есть , если закончилась музыка то она снова включается и так пока сам ее не выключишь.

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

На форме есть TImage с изображением. Пытаюсь вставить в Excel: копирую изображение из TImage в буфер обмена. Затем вставляю в Excel с помощью команды PasteSpecial. В итоге на PasteSpecial все время возникает исключение EOleException с текстом:
Метод PasteSpecial из класса Worksheet завершен неверно.

procedure TfmMain.TestBtnClick(Sender: TObject);
var Img: TImage;    
    xla: Variant;
    xls: Variant;
begin
  Img:=TImage.Create(nil);

  xla := CreateOleObject('Excel.Application');
  xla.Workbooks.Add;
  xls := xla.Workbooks[1].WorkSheets[1];
  xls.Name := 'Sheet1';
  xla.Visible:=True;

  Clipboard.Assign(Img.Picture);
   
  xla.Cells(5,5).Select;
  xls.PasteSpecial(5,False,False,False,0,EmptyParam,EmptyParam);  

  Img.Free;
end;

Версия Lazarus: 1.6.4
Версия FPC: 3.0.4
Я думаю, что все дело в том, что неправильно передаются параметры в PasteSpecial. Если у кого-нибудь есть рабочий вариант, поделитесь пожалуйста.

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

Есть несколько Edit’ов. Вопрос: можно ли (и как?), имея на всех один обработчик OnClick, узнать — в какой из них попал курсор — по TabOrder или по координатам относительно формы или ещё как?
Про массив Edit’ов, создаваемых динамически, я в курсе, там это не сложно. А если они статические ?
Ведь цикл в .dfm не предусмотрен, насколько знаю.
Есть GetCursorPos — оно даёт абсолютные координаты курсора. Если брать их — Form1.Top (Left) — это относительно самой формы — или клиентской области?

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

Нужно в таблице удалить макросом все дубликаты, при этом сложить значения которые стоят в четвертой колонке в каждой строке где данные дублируются. Данные можно либо сохранить на другой лист, либо (в идеале) исправить исходную таблицу.

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

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

интересует примерно следующее но так не работает видимо для 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 сек.
(читать всё…)

Выставляется система координат в центре клиентской области рисования. Диапазон по оси Y фиксированный и определяется константой WORLD_HEIGHT. Диапазон по оси X плавающий и зависит от соотношения сторон клиентской области окна. Определяется система координат ортографической матрицей проекции по следующему алгоритму:

    void resizeGL(int w, int h) override {
        glViewport(0, 0, w, h);
        float aspect = (float) w / h;
        float worldWidth = aspect * WORLD_HEIGHT;
        m_projMatrix.setToIdentity();
        m_projMatrix.ortho(-worldWidth / 2.f, worldWidth / 2.f,
                           -WORLD_HEIGHT / 2.f, WORLD_HEIGHT / 2.f, 50.f, -50.f);
    }

Метод resizeGL(int w, int h) вызывается автоматически: первый раз после создания окна, а последующие разы вызвается каждый раз при изменении размера окна.

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

Как написать макрос, чтобы он на листе искал ячейку , которая залита КРАСНЫМ цветом. И в случае если таких ячеек нет, появлялась надпись — «изменений нет», а в случае обнаружения красных ячеек появлялась надпись — «Есть изменения».

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

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

%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"}]}

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

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

Есть пути к папкам:
C:\Folder1\__history
C:\Folder2\__history
C:\Folder3\__history
C:\Folder4\__history
C:\Folder5\__history

В конечной папке лежат файлы типа:
.~1~
.~2~
.~3~

Как с помощью Batch, используя ключ /S пройтись по всем конечным папкам (__history) и удалить их содержимое?

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